Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- Airplane is higher
authorunc0rr
Sun, 27 Jul 2008 21:01:11 +0000
changeset 1124 1636a3c7c061
parent 1123 ed713652afae
child 1125 87937426031b
- Airplane is higher - Airplane is slower - Airplane smokes
hedgewars/GSHandlers.inc file | annotate | diff | comparison | revisions
hedgewars/uFloat.pas file | annotate | diff | comparison | revisions
hedgewars/uMisc.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/GSHandlers.inc	Sun Jul 27 20:03:07 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Jul 27 21:01:11 2008 +0000
@@ -1176,15 +1176,20 @@
 begin
 AllInactive:= false;
 Gear^.X:= Gear^.X + cAirPlaneSpeed * Gear^.Tag;
+
 if (Gear^.Health > 0)and(not (Gear^.X < Gear^.dX))and(Gear^.X < Gear^.dX + cAirPlaneSpeed) then
-   begin
-   dec(Gear^.Health);
-   case Gear^.State of
-        0: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, cBombsSpeed * Gear^.Tag, _0, 0);
-        1: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMine,    0, cBombsSpeed * Gear^.Tag, _0, 0);
-        end;
-   Gear^.dX:= Gear^.dX + int2hwFloat(30 * Gear^.Tag)
-   end;
+	begin
+	dec(Gear^.Health);
+	case Gear^.State of
+			0: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, cBombsSpeed * Gear^.Tag, _0, 0);
+			1: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMine,    0, cBombsSpeed * Gear^.Tag, _0, 0);
+			end;
+	Gear^.dX:= Gear^.dX + int2hwFloat(30 * Gear^.Tag)
+	end;
+
+if (GameTicks and $3F) = 0 then
+	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0);
+
 if (hwRound(Gear^.X) > 3072) or (hwRound(Gear^.X) < -1024) then DeleteGear(Gear)
 end;
 
@@ -1195,7 +1200,7 @@
 if Gear^.X.QWordValue = 0 then Gear^.Tag:=  1
                           else Gear^.Tag:= -1;
 Gear^.X:= _1024 - _2048 * Gear^.Tag;
-Gear^.Y:= -_128;
+Gear^.Y:= -_300;
 Gear^.dX:= int2hwFloat(TargetPoint.X - 5 * Gear^.Tag * 15);
 
 if int2hwFloat(TargetPoint.Y) - Gear^.Y > _0 then
--- a/hedgewars/uFloat.pas	Sun Jul 27 20:03:07 2008 +0000
+++ b/hedgewars/uFloat.pas	Sun Jul 27 21:01:11 2008 +0000
@@ -116,6 +116,7 @@
              _25: hwFloat = (isNegative: false; QWordValue:  4294967296 * 25);
              _30: hwFloat = (isNegative: false; QWordValue:  4294967296 * 30);
             _128: hwFloat = (isNegative: false; QWordValue:  4294967296 * 128);
+            _300: hwFloat = (isNegative: false; QWordValue:  4294967296 * 300);
             _450: hwFloat = (isNegative: false; QWordValue:  4294967296 * 450);
            _1024: hwFloat = (isNegative: false; QWordValue:  4294967296 * 1024);
            _2048: hwFloat = (isNegative: false; QWordValue:  4294967296 * 2048);
--- a/hedgewars/uMisc.pas	Sun Jul 27 20:03:07 2008 +0000
+++ b/hedgewars/uMisc.pas	Sun Jul 27 21:01:11 2008 +0000
@@ -77,7 +77,7 @@
 	bWaterRising   : Boolean = false;
 
 {$WARNINGS OFF}
-	cAirPlaneSpeed: hwFloat = (isNegative: false; QWordValue:   6012954214); // 1.4
+	cAirPlaneSpeed: hwFloat = (isNegative: false; QWordValue:   3006477107); // 1.4
 	cBombsSpeed   : hwFloat = (isNegative: false; QWordValue:    429496729);
 {$WARNINGS ON}
hedgewars