equal
deleted
inserted
replaced
3043 //////////////////////////////////////////////////////////////////////////////// |
3043 //////////////////////////////////////////////////////////////////////////////// |
3044 procedure doStepPortal(Gear: PGear); |
3044 procedure doStepPortal(Gear: PGear); |
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 DeleteGear(Gear); |
3048 if (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] and $FF00) = 0 then |
|
3049 begin |
|
3050 DeleteGear(Gear); |
|
3051 EXIT; |
|
3052 end; |
|
3053 |
3049 if Gear^.IntersectGear <> nil then |
3054 if Gear^.IntersectGear <> nil then |
3050 //if (Gear^.IntersectGear <> nil) then |
3055 //if (Gear^.IntersectGear <> nil) then |
3051 begin |
3056 begin |
3052 iterator:= GearsList; |
3057 iterator:= GearsList; |
3053 while iterator <> nil do |
3058 while iterator <> nil do |