hedgewars/uTeams.pas
changeset 498 9c8b385dc9a1
parent 393 db01cc79f278
child 534 92fb2b0d5117
--- a/hedgewars/uTeams.pas	Thu Mar 15 22:46:37 2007 +0000
+++ b/hedgewars/uTeams.pas	Sat Mar 17 18:17:19 2007 +0000
@@ -104,13 +104,13 @@
    begin // draw
    AddCaption(trmsg[sidDraw], $FFFFFF, capgrpGameState);
    SendStat(siGameResult, trmsg[sidDraw]);
-   AddGear(0, 0, gtATFinishGame, 0, 0, 0, 2000)
+   AddGear(0, 0, gtATFinishGame, 0, _0, _0, 2000)
    end else // win
    begin
    s:= Format(trmsg[sidWinner], AliveTeam^.TeamName);
    AddCaption(s, $FFFFFF, capgrpGameState);
    SendStat(siGameResult, s);
-   AddGear(0, 0, gtATFinishGame, 0, 0, 0, 2000)
+   AddGear(0, 0, gtATFinishGame, 0, _0, _0, 2000)
    end;
 SendStats
 end;
@@ -158,7 +158,7 @@
 ResetKbd;
 
 cWindSpeed:= rndSign(GetRandom * cMaxWindSpeed);
-g:= AddGear(0, 0, gtATSmoothWindCh, 0, 0, 0, 1);
+g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);
 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}
 ApplyAmmoChanges(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]);
@@ -297,7 +297,7 @@
         end else TeamHealthBarWidth:= (TeamHealthBarWidth * cTeamHealthWidth) div MaxTeamHealth
      end;
 // FIXME: at the game init, gtTeamHealthSorters are created for each team, and they work simultaneously
-AddGear(0, 0, gtTeamHealthSorter, 0, 0, 0, 0)
+AddGear(0, 0, gtTeamHealthSorter, 0, _0, _0, 0)
 end;
 
 procedure RestoreTeamsFromSave;