equal
deleted
inserted
replaced
4335 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
4335 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
4336 begin |
4336 begin |
4337 Gear^.Damage:= i; |
4337 Gear^.Damage:= i; |
4338 FreeAndNilTexture(Gear^.Tex); |
4338 FreeAndNilTexture(Gear^.Tex); |
4339 if Gear^.Health <> JETPACK_FUEL_INFINITE then |
4339 if Gear^.Health <> JETPACK_FUEL_INFINITE then |
4340 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], inttostr(i)), cWhiteColor, fntSmall) |
4340 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], ansistring(inttostr(i))), cWhiteColor, fntSmall) |
4341 end; |
4341 end; |
4342 |
4342 |
4343 if (HHGear^.Message and (gmAttack or gmUp or gmLeft or gmRight) <> 0) and |
4343 if (HHGear^.Message and (gmAttack or gmUp or gmLeft or gmRight) <> 0) and |
4344 (HHGear^.Message and gmPrecise = 0) then |
4344 (HHGear^.Message and gmPrecise = 0) then |
4345 Gear^.State := Gear^.State and (not gsttmpFlag); |
4345 Gear^.State := Gear^.State and (not gsttmpFlag); |
5561 i:= Gear^.Health div 5; |
5561 i:= Gear^.Health div 5; |
5562 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
5562 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
5563 begin |
5563 begin |
5564 Gear^.Damage:= i; |
5564 Gear^.Damage:= i; |
5565 FreeAndNilTexture(Gear^.Tex); |
5565 FreeAndNilTexture(Gear^.Tex); |
5566 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], inttostr(i)), |
5566 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], ansistring(inttostr(i))), |
5567 cWhiteColor, fntSmall) |
5567 cWhiteColor, fntSmall) |
5568 end |
5568 end |
5569 end |
5569 end |
5570 end; |
5570 end; |
5571 |
5571 |
5644 i:= Gear^.Health div 10; |
5644 i:= Gear^.Health div 10; |
5645 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
5645 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
5646 begin |
5646 begin |
5647 Gear^.Damage:= i; |
5647 Gear^.Damage:= i; |
5648 FreeAndNilTexture(Gear^.Tex); |
5648 FreeAndNilTexture(Gear^.Tex); |
5649 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], inttostr(i)), |
5649 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], ansistring(inttostr(i))), |
5650 cWhiteColor, fntSmall) |
5650 cWhiteColor, fntSmall) |
5651 end |
5651 end |
5652 end |
5652 end |
5653 end; |
5653 end; |
5654 |
5654 |
6260 t:= Gear^.Health div 10; |
6260 t:= Gear^.Health div 10; |
6261 if (t <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
6261 if (t <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
6262 begin |
6262 begin |
6263 Gear^.Damage:= t; |
6263 Gear^.Damage:= t; |
6264 FreeAndNilTexture(Gear^.Tex); |
6264 FreeAndNilTexture(Gear^.Tex); |
6265 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], inttostr(t)), |
6265 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], ansistring(inttostr(t))), |
6266 cWhiteColor, fntSmall) |
6266 cWhiteColor, fntSmall) |
6267 end; |
6267 end; |
6268 if Gear^.Message and (gmUp or gmDown) <> 0 then |
6268 if Gear^.Message and (gmUp or gmDown) <> 0 then |
6269 begin |
6269 begin |
6270 StopSoundChan(Gear^.SoundChannel); |
6270 StopSoundChan(Gear^.SoundChannel); |