equal
deleted
inserted
replaced
4317 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
4317 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
4318 begin |
4318 begin |
4319 Gear^.Damage:= i; |
4319 Gear^.Damage:= i; |
4320 FreeAndNilTexture(Gear^.Tex); |
4320 FreeAndNilTexture(Gear^.Tex); |
4321 if Gear^.Health <> JETPACK_FUEL_INFINITE then |
4321 if Gear^.Health <> JETPACK_FUEL_INFINITE then |
4322 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(i) + '%'), cWhiteColor, fntSmall) |
4322 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], inttostr(i)), cWhiteColor, fntSmall) |
4323 end; |
4323 end; |
4324 |
4324 |
4325 if (HHGear^.Message and (gmAttack or gmUp or gmLeft or gmRight) <> 0) and |
4325 if (HHGear^.Message and (gmAttack or gmUp or gmLeft or gmRight) <> 0) and |
4326 (HHGear^.Message and gmPrecise = 0) then |
4326 (HHGear^.Message and gmPrecise = 0) then |
4327 Gear^.State := Gear^.State and (not gsttmpFlag); |
4327 Gear^.State := Gear^.State and (not gsttmpFlag); |
5547 i:= Gear^.Health div 5; |
5547 i:= Gear^.Health div 5; |
5548 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
5548 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
5549 begin |
5549 begin |
5550 Gear^.Damage:= i; |
5550 Gear^.Damage:= i; |
5551 FreeAndNilTexture(Gear^.Tex); |
5551 FreeAndNilTexture(Gear^.Tex); |
5552 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(i) + |
5552 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], inttostr(i)), |
5553 '%'), cWhiteColor, fntSmall) |
5553 cWhiteColor, fntSmall) |
5554 end |
5554 end |
5555 end |
5555 end |
5556 end; |
5556 end; |
5557 |
5557 |
5558 procedure doStepFlamethrower(Gear: PGear); |
5558 procedure doStepFlamethrower(Gear: PGear); |
5630 i:= Gear^.Health div 10; |
5630 i:= Gear^.Health div 10; |
5631 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
5631 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
5632 begin |
5632 begin |
5633 Gear^.Damage:= i; |
5633 Gear^.Damage:= i; |
5634 FreeAndNilTexture(Gear^.Tex); |
5634 FreeAndNilTexture(Gear^.Tex); |
5635 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(i) + |
5635 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], inttostr(i)), |
5636 '%'), cWhiteColor, fntSmall) |
5636 cWhiteColor, fntSmall) |
5637 end |
5637 end |
5638 end |
5638 end |
5639 end; |
5639 end; |
5640 |
5640 |
5641 procedure doStepLandGun(Gear: PGear); |
5641 procedure doStepLandGun(Gear: PGear); |
6244 t:= Gear^.Health div 10; |
6244 t:= Gear^.Health div 10; |
6245 if (t <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
6245 if (t <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
6246 begin |
6246 begin |
6247 Gear^.Damage:= t; |
6247 Gear^.Damage:= t; |
6248 FreeAndNilTexture(Gear^.Tex); |
6248 FreeAndNilTexture(Gear^.Tex); |
6249 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(t) + |
6249 Gear^.Tex := RenderStringTex(FormatA(trmsg[sidFuel], inttostr(t)), |
6250 '%'), cWhiteColor, fntSmall) |
6250 cWhiteColor, fntSmall) |
6251 end; |
6251 end; |
6252 if Gear^.Message and (gmUp or gmDown) <> 0 then |
6252 if Gear^.Message and (gmUp or gmDown) <> 0 then |
6253 begin |
6253 begin |
6254 StopSoundChan(Gear^.SoundChannel); |
6254 StopSoundChan(Gear^.SoundChannel); |
6255 Gear^.SoundChannel:= -1; |
6255 Gear^.SoundChannel:= -1; |