hedgewars/uGears.pas
changeset 13866 b15ad95320fe
parent 13832 10a3b80130b5
child 13868 26ebbf9717fd
equal deleted inserted replaced
13865:9d3ebcac7d90 13866:b15ad95320fe
  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], ansistring(HH^.Name), ansistring(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;