equal
deleted
inserted
replaced
3643 |
3643 |
3644 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
3644 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
3645 begin |
3645 begin |
3646 Gear^.Damage:= i; |
3646 Gear^.Damage:= i; |
3647 //AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate); |
3647 //AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate); |
3648 FreeTexture(Gear^.Tex); |
3648 FreeAndNilTexture(Gear^.Tex); |
3649 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(i) + '%'), cWhiteColor, fntSmall) |
3649 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(i) + '%'), cWhiteColor, fntSmall) |
3650 end; |
3650 end; |
3651 |
3651 |
3652 if (HHGear^.Message and (gmAttack or gmUp or gmLeft or gmRight) <> 0) and |
3652 if (HHGear^.Message and (gmAttack or gmUp or gmLeft or gmRight) <> 0) and |
3653 (HHGear^.Message and gmPrecise = 0) then |
3653 (HHGear^.Message and gmPrecise = 0) then |
4803 begin |
4803 begin |
4804 i:= Gear^.Health div 5; |
4804 i:= Gear^.Health div 5; |
4805 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
4805 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
4806 begin |
4806 begin |
4807 Gear^.Damage:= i; |
4807 Gear^.Damage:= i; |
4808 FreeTexture(Gear^.Tex); |
4808 FreeAndNilTexture(Gear^.Tex); |
4809 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(i) + |
4809 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(i) + |
4810 '%'), cWhiteColor, fntSmall) |
4810 '%'), cWhiteColor, fntSmall) |
4811 end |
4811 end |
4812 end |
4812 end |
4813 end; |
4813 end; |
4880 begin |
4880 begin |
4881 i:= Gear^.Health div 10; |
4881 i:= Gear^.Health div 10; |
4882 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
4882 if (i <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
4883 begin |
4883 begin |
4884 Gear^.Damage:= i; |
4884 Gear^.Damage:= i; |
4885 FreeTexture(Gear^.Tex); |
4885 FreeAndNilTexture(Gear^.Tex); |
4886 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(i) + |
4886 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(i) + |
4887 '%'), cWhiteColor, fntSmall) |
4887 '%'), cWhiteColor, fntSmall) |
4888 end |
4888 end |
4889 end |
4889 end |
4890 end; |
4890 end; |
5485 begin |
5485 begin |
5486 t:= Gear^.Health div 10; |
5486 t:= Gear^.Health div 10; |
5487 if (t <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
5487 if (t <> Gear^.Damage) and ((GameTicks and $3F) = 0) then |
5488 begin |
5488 begin |
5489 Gear^.Damage:= t; |
5489 Gear^.Damage:= t; |
5490 FreeTexture(Gear^.Tex); |
5490 FreeAndNilTexture(Gear^.Tex); |
5491 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(t) + |
5491 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ansistring(': ' + inttostr(t) + |
5492 '%'), cWhiteColor, fntSmall) |
5492 '%'), cWhiteColor, fntSmall) |
5493 end; |
5493 end; |
5494 if Gear^.Message and (gmUp or gmDown) <> 0 then |
5494 if Gear^.Message and (gmUp or gmDown) <> 0 then |
5495 begin |
5495 begin |