changeset 838 | 1faae19f2116 |
parent 542 | ec26095f1bed |
child 839 | 1493f697d1bb |
--- a/hedgewars/uCollisions.pas Sat Apr 12 17:19:01 2008 +0000 +++ b/hedgewars/uCollisions.pas Sat Apr 12 18:16:12 2008 +0000 @@ -119,10 +119,10 @@ begin IntersectGear:= nil; TestWord:= 0 - end else + end else TestWord:= COLOR_LAND - 1 else TestWord:= 0; - + x:= hwRound(Gear^.X); if Dir < 0 then x:= x - Gear^.Radius else x:= x + Gear^.Radius;