equal
deleted
inserted
replaced
174 CheckGearDrowning := false; |
174 CheckGearDrowning := false; |
175 end; |
175 end; |
176 |
176 |
177 procedure CheckCollision(Gear: PGear); inline; |
177 procedure CheckCollision(Gear: PGear); inline; |
178 begin |
178 begin |
179 if TestCollisionXwithGear(Gear, hwSign(Gear^.X)) or TestCollisionYwithGear(Gear, hwSign(Gear^.Y) |
179 if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) or TestCollisionYwithGear(Gear, hwSign(Gear^.dY) |
180 ) |
180 ) |
181 then Gear^.State := Gear^.State or gstCollision |
181 then Gear^.State := Gear^.State or gstCollision |
182 else Gear^.State := Gear^.State and not gstCollision |
182 else Gear^.State := Gear^.State and not gstCollision |
183 end; |
183 end; |
184 |
184 |
185 procedure CheckCollisionWithLand(Gear: PGear); inline; |
185 procedure CheckCollisionWithLand(Gear: PGear); inline; |
186 begin |
186 begin |
187 if TestCollisionX(Gear, hwSign(Gear^.X)) or TestCollisionY(Gear, hwSign(Gear^.Y) |
187 if TestCollisionX(Gear, hwSign(Gear^.dX)) or TestCollisionY(Gear, hwSign(Gear^.dY) |
188 ) |
188 ) |
189 then Gear^.State := Gear^.State or gstCollision |
189 then Gear^.State := Gear^.State or gstCollision |
190 else Gear^.State := Gear^.State and not gstCollision |
190 else Gear^.State := Gear^.State and not gstCollision |
191 end; |
191 end; |
192 |
192 |