2215 if (GameTicks and $3F) = 0 then AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate); |
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 or gstMoving; |
2221 |
2221 |
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 (HHGear^.Damage <> 0) |
2228 or CheckGearDrowning(HHGear) |
2228 or CheckGearDrowning(HHGear) |
|
2229 or (TurnTimeLeft = 0) |
2229 or ((Gear^.Message and gm_Attack) <> 0) then |
2230 or ((Gear^.Message and gm_Attack) <> 0) then |
2230 begin |
2231 begin |
2231 with HHGear^ do |
2232 with HHGear^ do |
2232 begin |
2233 begin |
2233 Message:= 0; |
2234 Message:= 0; |