hedgewars/uGears.pas
changeset 13751 0e8db74ec585
parent 13748 1a26c472f5ef
child 13757 6908d1e65cdc
equal deleted inserted replaced
13750:d09366ca4d7b 13751:0e8db74ec585
  1206                 begin
  1206                 begin
  1207                 Gear^.Hedgehog:= hh;
  1207                 Gear^.Hedgehog:= hh;
  1208                 Gear^.Text:= text;
  1208                 Gear^.Text:= text;
  1209                 Gear^.FrameTicks:= x
  1209                 Gear^.FrameTicks:= x
  1210                 end;
  1210                 end;
  1211             //ParseCommand('/say [' + hh^.Name + '] '+text, true)
  1211             AddChatString(#9+FormatA(trmsg[sidChatHog], [HH^.Name, text]));
  1212             AddChatString(#9+'[' + HH^.Name + '] '+text);
       
  1213             end
  1212             end
  1214         end
  1213         end
  1215     else if (x >= 4) then
  1214     else if (x >= 4) then
  1216         begin
  1215         begin
  1217         SpeechType:= x-3;
  1216         SpeechType:= x-3;