hedgewars/uWorld.pas
changeset 3483 54ff8cbabaa6
parent 3464 cdb0ddeb38ba
child 3513 f589230fa21b
equal deleted inserted replaced
3482:106d1f983b48 3483:54ff8cbabaa6
   586 DrawLand(WorldDx, WorldDy);
   586 DrawLand(WorldDx, WorldDy);
   587 
   587 
   588 DrawWater(255, 0);
   588 DrawWater(255, 0);
   589 
   589 
   590 // Attack bar
   590 // Attack bar
       
   591 // TODO: Add weapon offset
   591 if CurrentTeam <> nil then
   592 if CurrentTeam <> nil then
   592     case AttackBar of
   593     case AttackBar of
   593 (*        1: begin
   594 (*        1: begin
   594         r:= StuffPoz[sPowerBar];
   595         r:= StuffPoz[sPowerBar];
   595         {$WARNINGS OFF}
   596         {$WARNINGS OFF}