hedgewars/GSHandlers.inc
changeset 2185 cf8f98e75bf9
parent 2182 ed7e7eb3f9ed
child 2186 5ec3e4a03d51
--- a/hedgewars/GSHandlers.inc	Sun Jun 21 18:00:43 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Jun 21 22:43:38 2009 +0000
@@ -459,6 +459,8 @@
 
 procedure doStepDEagleShot(Gear: PGear);
 begin
+if Ammoz[amDEagle].Ammo.NumPerTurn>CurrentHedgehog^.AttacksNum then
+    AddCaption(inttostr(Ammoz[amDEagle].Ammo.NumPerTurn-CurrentHedgehog^.AttacksNum)+' '+trmsg[sidRemaining], $FFFFFF, capgrpAmmostate);
 PlaySound(sndGun, false, nil);
 Gear^.doStep:= @doStepBulletWork
 end;
@@ -2249,7 +2251,7 @@
 		end;
 	DeleteGear(Gear);
 	isCursorVisible:= false;
-    AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate);
+    AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate);
 	end
 end;