800     DrawLand(WorldDx, WorldDy);

   800     DrawLand(WorldDx, WorldDy);

   801 

   801 

   802     DrawWater(255, 0);

   802     DrawWater(255, 0);

   803 

   803 

   804 // Attack bar

   804 // Attack bar

   806         case AttackBar of

   806         case AttackBar of

   807 (*        1: begin

   807 (*        1: begin

   808         r:= StuffPoz[sPowerBar];

   808         r:= StuffPoz[sPowerBar];

   809         {$WARNINGS OFF}

   809         {$WARNINGS OFF}

   810         r.w:= (CurrentHedgehog^.Gear^.Power * 256) div cPowerDivisor;

   810         r.w:= (CurrentHedgehog^.Gear^.Power * 256) div cPowerDivisor;