--- a/hedgewars/uCollisions.pas Tue Jul 10 11:08:35 2012 +0200
+++ b/hedgewars/uCollisions.pas Tue Jul 10 11:09:38 2012 +0200
@@ -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