equal
deleted
inserted
replaced
698 CheckCollision(Gear); |
698 CheckCollision(Gear); |
699 if ((Gear^.State and gstCollision) <> 0) or ((Gear^.State and gstMoving) = 0) then |
699 if ((Gear^.State and gstCollision) <> 0) or ((Gear^.State and gstMoving) = 0) then |
700 draw:= true; |
700 draw:= true; |
701 xx:= hwRound(Gear^.X); |
701 xx:= hwRound(Gear^.X); |
702 yy:= hwRound(Gear^.Y); |
702 yy:= hwRound(Gear^.Y); |
|
703 if draw and (WorldEdge = weWrap) and ((xx < leftX+3) or (xx > rightX-3)) then |
|
704 begin |
|
705 if xx < leftX+3 then |
|
706 xx:= rightX-3 |
|
707 else xx:= leftX+3; |
|
708 Gear^.X:= int2hwFloat(xx) |
|
709 end |
703 end |
710 end |
704 else if GameTicks and $7 = 0 then |
711 else if GameTicks and $7 = 0 then |
705 begin |
712 begin |
706 with Gear^ do |
713 with Gear^ do |
707 begin |
714 begin |