equal
deleted
inserted
replaced
2222 Gear^.Timer:= 0; |
2222 Gear^.Timer:= 0; |
2223 Gear^.MsgParam:= 0 |
2223 Gear^.MsgParam:= 0 |
2224 end; |
2224 end; |
2225 |
2225 |
2226 if Gear^.Health < 0 then Gear^.Health:= 0; |
2226 if Gear^.Health < 0 then Gear^.Health:= 0; |
2227 if (GameTicks and $3F) = 0 then AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate); |
2227 if (GameTicks and $3F) = 0 then |
2228 |
2228 begin |
2229 //AddCaption(inttostr(round(Gear^.Health/20))+'% : '+inttostr(round(Gear^.Timer/1000)), $FFFFFF, capgrpMessage); |
2229 //AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate); |
|
2230 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
|
2231 Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', $FFFFFFFF, fntSmall) |
|
2232 end; |
2230 |
2233 |
2231 HHGear^.Message:= HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right); |
2234 HHGear^.Message:= HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right); |
2232 HHGear^.State:= HHGear^.State or gstMoving; |
2235 HHGear^.State:= HHGear^.State or gstMoving; |
2233 |
2236 |
2234 Gear^.X:= HHGear^.X; |
2237 Gear^.X:= HHGear^.X; |
2251 Active:= true; |
2254 Active:= true; |
2252 State:= State or gstMoving |
2255 State:= State or gstMoving |
2253 end; |
2256 end; |
2254 DeleteGear(Gear); |
2257 DeleteGear(Gear); |
2255 isCursorVisible:= false; |
2258 isCursorVisible:= false; |
2256 AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate); |
2259 // if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
|
2260 // Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', $FFFFFFFF, fntSmall) |
|
2261 //AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate); |
2257 end |
2262 end |
2258 end; |
2263 end; |
2259 |
2264 |
2260 procedure doStepJetpack(Gear: PGear); |
2265 procedure doStepJetpack(Gear: PGear); |
2261 var HHGear: PGear; |
2266 var HHGear: PGear; |