equal
deleted
inserted
replaced
3045 var iterator: PGear; |
3045 var iterator: PGear; |
3046 s: hwFloat; |
3046 s: hwFloat; |
3047 begin |
3047 begin |
3048 if (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] and $FF00) = 0 then |
3048 if (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] and $FF00) = 0 then |
3049 begin |
3049 begin |
|
3050 if Gear^.IntersectGear <> nil then Gear^.IntersectGear^.IntersectGear:= nil; |
3050 DeleteGear(Gear); |
3051 DeleteGear(Gear); |
3051 EXIT; |
3052 EXIT; |
3052 end; |
3053 end; |
3053 |
3054 |
3054 if Gear^.IntersectGear <> nil then |
3055 if Gear^.IntersectGear <> nil then |