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.
Follow bombs and mines thrown by plane
authorunc0rr
Mon, 12 Feb 2007 18:14:11 +0000
changeset 437 933ed65b55d1
parent 436 3f806cadb4e3
child 438 04bcc3fb127a
Follow bombs and mines thrown by plane
hedgewars/GSHandlers.inc file | annotate | diff | comparison | revisions 
--- a/hedgewars/GSHandlers.inc	Sun Feb 11 22:10:35 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Mon Feb 12 18:14:11 2007 +0000
@@ -1024,8 +1024,8 @@
    begin
    dec(Gear^.Health);
    case Gear^.State of
-        0: AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, Gear^.Tag * cBombsSpeed, 0, 0);
-        1: AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMine,    0, Gear^.Tag * cBombsSpeed, 0, 0);
+        0: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, Gear^.Tag * cBombsSpeed, 0, 0);
+        1: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMine,    0, Gear^.Tag * cBombsSpeed, 0, 0);
         end;
    Gear^.dX:= Gear^.dX + Gear^.Tag * cBombsDistance
    end;
hedgewars