equal
deleted
inserted
replaced
283 tX, tdX, tdY: hwFloat; |
283 tX, tdX, tdY: hwFloat; |
284 collV, collH: LongInt; |
284 collV, collH: LongInt; |
285 land: word; |
285 land: word; |
286 begin |
286 begin |
287 tX:= Gear^.X; |
287 tX:= Gear^.X; |
288 if WorldWrap(Gear) and (WorldEdge = weWrap) and (Gear^.AdvBounce <> 0) and |
288 if (Gear^.Kind <> gtGenericFaller) and WorldWrap(Gear) and (WorldEdge = weWrap) and (Gear^.AdvBounce <> 0) and |
289 (TestCollisionXwithGear(Gear, 1) or TestCollisionXwithGear(Gear, -1)) then |
289 (TestCollisionXwithGear(Gear, 1) or TestCollisionXwithGear(Gear, -1)) then |
290 begin |
290 begin |
291 Gear^.X:= tX; |
291 Gear^.X:= tX; |
292 Gear^.dX.isNegative:= (hwRound(tX) > leftX+Gear^.Radius*2) |
292 Gear^.dX.isNegative:= (hwRound(tX) > leftX+Gear^.Radius*2) |
293 end; |
293 end; |