hedgewars/uGears.pas
changeset 13832 10a3b80130b5
parent 13810 c0a7ef988151
child 13866 b15ad95320fe
equal deleted inserted replaced
13831:b07610de9957 13832:10a3b80130b5
  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], [HH^.Name, text]));
  1224             AddChatString(#9+FormatA(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;