hedgewars/GSHandlers.inc
changeset 1495 2b2b89bdb5f3
parent 1437 9f370351e859
child 1496 bc2a166b4fd2
equal deleted inserted replaced
1494:6e6baf165e0c 1495:2b2b89bdb5f3
   230 	end
   230 	end
   231 end;
   231 end;
   232 
   232 
   233 procedure doStepHealthTagWorkUnderWater(Gear: PGear);
   233 procedure doStepHealthTagWorkUnderWater(Gear: PGear);
   234 begin
   234 begin
   235 AllInactive:= false;
   235 if Gear^.Kind = gtHealthTag then
       
   236 	AllInactive:= false;
       
   237 
   236 Gear^.Y:= Gear^.Y - _0_08;
   238 Gear^.Y:= Gear^.Y - _0_08;
       
   239 
   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);