hedgewars/uGears.pas
changeset 13891 26ebbf9717fd
parent 13887 b15ad95320fe
child 13897 aa321e51da14
equal deleted inserted replaced
13889:086aa3ae097f 13891:26ebbf9717fd
  1219                 begin
  1219                 begin
  1220                 Gear^.Hedgehog:= hh;
  1220                 Gear^.Hedgehog:= hh;
  1221                 Gear^.Text:= text;
  1221                 Gear^.Text:= text;
  1222                 Gear^.FrameTicks:= x
  1222                 Gear^.FrameTicks:= x
  1223                 end;
  1223                 end;
  1224             AddChatString(#9+FormatA(trmsg[sidChatHog], ansistring(HH^.Name), ansistring(text)));
  1224             AddChatString(#9+Format(trmsg[sidChatHog], HH^.Name, text));
  1225             end
  1225             end
  1226         end
  1226         end
  1227     else if (x >= 4) then
  1227     else if (x >= 4) then
  1228         begin
  1228         begin
  1229         SpeechType:= x-3;
  1229         SpeechType:= x-3;