well in 1.4.2 it would be
procedure OnPlayerSpeak(ID: Byte; Text: string)
begin
 if (Text = !health) then
 begin
  SpawnObject(GetPlayerStat(ID,'x'),GetPlayerStat(ID,'y'),16);
 end
 if (Text = !vest) then
 begin
  SpawnObject(GetPlayerStat(ID,'x'),GetPlayerStat(ID,'y'),19);
 end
end;
what this does is when someone types !health he gets full health, and if someone types !vest he gets a vest.
this should work on 99%
but in 1.3.1 versions... i dont know... i think its the same though