hedgewars/uGearsHedgehog.pas
changeset 13876 aa321e51da14
parent 13868 26ebbf9717fd
child 13988 c28a4f76d37d
equal deleted inserted replaced
13875:f81fad2f0e70 13876:aa321e51da14
    49     t: byte;
    49     t: byte;
    50 begin
    50 begin
    51     t:= 0;
    51     t:= 0;
    52     while (TeamsArray[t] <> CurrentTeam) do inc(t);
    52     while (TeamsArray[t] <> CurrentTeam) do inc(t);
    53 
    53 
    54     AddChatString(#2 + Format(trmsg[sidAutoSkip], CurrentTeam^.TeamName));
    54     AddChatString(#2 + Format(shortstring(trmsg[sidAutoSkip]), CurrentTeam^.TeamName));
    55 
    55 
    56     ParseCommand('/skip', true)
    56     ParseCommand('/skip', true)
    57 end;
    57 end;
    58 
    58 
    59 // Shouldn't more of this ammo switching stuff be moved to uAmmos ?
    59 // Shouldn't more of this ammo switching stuff be moved to uAmmos ?
   582                 if speech <> nil then
   582                 if speech <> nil then
   583                     begin
   583                     begin
   584                     speech^.Text:= SpeechText;
   584                     speech^.Text:= SpeechText;
   585                     speech^.Hedgehog:= Gear^.Hedgehog;
   585                     speech^.Hedgehog:= Gear^.Hedgehog;
   586                     speech^.FrameTicks:= SpeechType;
   586                     speech^.FrameTicks:= SpeechType;
   587                     AddChatString(#9+Format(trmsg[sidChatHog], Gear^.Hedgehog^.Name, SpeechText));
   587                     AddChatString(#9+Format(shortstring(trmsg[sidChatHog]), Gear^.Hedgehog^.Name, SpeechText));
   588                     end;
   588                     end;
   589                 SpeechText:= ''
   589                 SpeechText:= ''
   590                 end;
   590                 end;
   591 
   591 
   592             Power:= 0;
   592             Power:= 0;