sheepy-clone: comparison hedgewars/uGearsHandlersMess.pas

equal deleted inserted replaced

-:a15413d896c3
+:c08c53624c0f
 const cAngleSpeed =   3;
 var
 HHGear: PGear;
 i: LongInt;
+s: ansistring;
 dX, dY : hwFloat;
 fChanged: boolean;
 trueAngle: Longword;
 t: PGear;
 begin
 if Gear^.Timer < 3500 then
 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEvilTrace)
 else
 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace);
-if (HHGear <> nil) and ((HHGear^.Message and gmAttack) <> 0) and (Gear^.Health <> 0) then
+if (HHGear <> nil) and ((HHGear^.Message and gmAttack) <> 0) then
 begin
-HHGear^.Message := HHGear^.Message and (not gmAttack);
+if (Gear^.Health) <> 0 then
-AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, Gear^.dX * _0_5, Gear^.dY *
+begin
-_0_5, 0);
+HHGear^.Message := HHGear^.Message and (not gmAttack);
-dec(Gear^.Health)
+AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, Gear^.dX * _0_5, Gear^.dY *
+_0_5, 0);
+dec(Gear^.Health)
+end;
+s:= ansistring(inttostr(Gear^.Health));
+AddCaption(formatA(trmsg[sidRemaining], s), cWhiteColor, capgrpAmmostate);
 end;
 if (HHGear <> nil) and ((HHGear^.Message and gmLJump) <> 0) and ((Gear^.State and gsttmpFlag) = 0) then
 begin
 Gear^.State := Gear^.State or gsttmpFlag;
 procedure doStepBirdyFly(Gear: PGear);
 var
 HHGear: PGear;
 fuel, i: LongInt;
 move: hwFloat;
+s: ansistring;
 begin
 HHGear := Gear^.Hedgehog^.Gear;
 if HHGear = nil then
 begin
 Gear^.Timer := 0;
 begin
 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y) + 32, gtEgg, 0, Gear^.dX * _0_5, Gear^.dY, 0);
 PlaySound(sndBirdyLay);
 dec(Gear^.FlightTime)
 end;
+s:= ansistring(inttostr(Gear^.FlightTime));
+AddCaption(formatA(trmsg[sidRemaining], s), cWhiteColor, capgrpAmmostate);
 end;
 if HHGear^.Message and (gmUp or gmPrecise or gmLeft or gmRight) <> 0 then
 Gear^.State := Gear^.State and (not gsttmpFlag);

changeset 12994	c08c53624c0f
parent 12919	0de553fb7e89
child 13063	004f4f7dc9d4