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.
Extend TARDIS away time a bit (minimum, range) to make it a bit more useful. Remove a couple of unused variables.
authornemo
Tue, 26 Jun 2012 20:05:24 -0400
changeset 7305 b242e91a92a9
parent 7302 3eac6e64b20b
child 7307 f830a65d6a6d
Extend TARDIS away time a bit (minimum, range) to make it a bit more useful. Remove a couple of unused variables.
hedgewars/GSHandlers.inc file | annotate | diff | comparison | revisions
hedgewars/uCollisions.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/GSHandlers.inc	Wed Jun 27 01:25:26 2012 +0200
+++ b/hedgewars/GSHandlers.inc	Tue Jun 26 20:05:24 2012 -0400
@@ -5377,7 +5377,7 @@
         end;
     Gear^.Pos:= 4;
     // This condition might need tweaking
-    Gear^.Timer:= GetRandom(cHedgehogTurnTime*TeamsCount)+cHedgehogTurnTime
+    Gear^.Timer:= GetRandom(cHedgehogTurnTime*TeamsCount*2)+cHedgehogTurnTime*2
     end;
 
 if (Gear^.Pos = 4) then
--- a/hedgewars/uCollisions.pas	Wed Jun 27 01:25:26 2012 +0200
+++ b/hedgewars/uCollisions.pas	Tue Jun 26 20:05:24 2012 -0400
@@ -136,7 +136,6 @@
 
 function TestCollisionXwithGear(Gear: PGear; Dir: LongInt): boolean;
 var x, y, i: LongInt;
-    TestWord: LongWord;
 begin
 // Special case to emulate the old intersect gear clearing, but with a bit of slop for pixel overlap
 if (Gear^.CollisionMask = $FF7F) and (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) and
@@ -167,7 +166,6 @@
 
 function TestCollisionYwithGear(Gear: PGear; Dir: LongInt): Word;
 var x, y, i: LongInt;
-    TestWord: LongWord;
 begin
 // Special case to emulate the old intersect gear clearing, but with a bit of slop for pixel overlap
 if (Gear^.CollisionMask = $FF7F) and (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) and
hedgewars