230 	end

   230 	end

   231 end;

   231 end;

   232 

   232 

   233 procedure doStepHealthTagWorkUnderWater(Gear: PGear);

   233 procedure doStepHealthTagWorkUnderWater(Gear: PGear);

   234 begin

   234 begin

   236 Gear^.Y:= Gear^.Y - _0_08;

   238 Gear^.Y:= Gear^.Y - _0_08;

   237 if hwRound(Gear^.Y) < cWaterLine + 10 then

   240 if hwRound(Gear^.Y) < cWaterLine + 10 then

   238    DeleteGear(Gear)

   241    DeleteGear(Gear)

   239 end;

   242 end;

   240 

   243 

   241 procedure doStepHealthTag(Gear: PGear);

   244 procedure doStepHealthTag(Gear: PGear);