equal
deleted
inserted
replaced
2210 begin |
2210 begin |
2211 HHGear^.dX:= HHGear^.dX + (move * _0_2); |
2211 HHGear^.dX:= HHGear^.dX + (move * _0_2); |
2212 dec(Gear^.Health, fuel div 5) |
2212 dec(Gear^.Health, fuel div 5) |
2213 end; |
2213 end; |
2214 if Gear^.Health < 0 then Gear^.Health:= 0; |
2214 if Gear^.Health < 0 then Gear^.Health:= 0; |
2215 if (GameTicks and $3F) = 0 then AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpMessage); |
2215 if (GameTicks and $3F) = 0 then AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate); |
2216 |
2216 |
2217 //AddCaption(inttostr(round(Gear^.Health/20))+'% : '+inttostr(round(Gear^.Timer/1000)), $FFFFFF, capgrpMessage); |
2217 //AddCaption(inttostr(round(Gear^.Health/20))+'% : '+inttostr(round(Gear^.Timer/1000)), $FFFFFF, capgrpMessage); |
2218 |
2218 |
2219 HHGear^.Message:= HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right); |
2219 HHGear^.Message:= HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right); |
2220 HHGear^.State:= HHGear^.State and gstMoving and (not gstNotKickable); |
2220 HHGear^.State:= HHGear^.State and gstMoving and (not gstNotKickable); |
2222 Gear^.X:= HHGear^.X; |
2222 Gear^.X:= HHGear^.X; |
2223 Gear^.Y:= HHGear^.Y; |
2223 Gear^.Y:= HHGear^.Y; |
2224 doStepHedgehogMoving(HHGear); |
2224 doStepHedgehogMoving(HHGear); |
2225 |
2225 |
2226 if (Gear^.Health = 0) |
2226 if (Gear^.Health = 0) |
|
2227 or (HHGear^.Damage <> 0) |
2227 or CheckGearDrowning(HHGear) |
2228 or CheckGearDrowning(HHGear) |
2228 or ((Gear^.Message and gm_Attack) <> 0) then |
2229 or ((Gear^.Message and gm_Attack) <> 0) then |
2229 begin |
2230 begin |
2230 with HHGear^ do |
2231 with HHGear^ do |
2231 begin |
2232 begin |