equal
deleted
inserted
replaced
316 begin |
316 begin |
317 FollowGear:= nil; |
317 FollowGear:= nil; |
318 exit |
318 exit |
319 end |
319 end |
320 else begin |
320 else begin |
321 CursorPoint.x:= (CursorPoint.x * 3 + (round(FollowGear.X + Sign(FollowGear.dX) * 100) + WorldDx)) div 4; |
321 CursorPoint.x:= (CursorPoint.x * 7 + (round(FollowGear.X + Sign(FollowGear.dX) * 100) + WorldDx)) div 8; |
322 CursorPoint.y:= (CursorPoint.y * 3 + (round(FollowGear.Y) + WorldDy)) div 4 |
322 CursorPoint.y:= (CursorPoint.y * 7 + (round(FollowGear.Y) + WorldDy)) div 8 |
323 end; |
323 end; |
324 |
324 |
325 if ((CursorPoint.X = prevPoint.X)and(CursorPoint.Y = prevpoint.Y)) then exit; |
325 if ((CursorPoint.X = prevPoint.X)and(CursorPoint.Y = prevpoint.Y)) then exit; |
326 |
326 |
327 if isCursorVisible then |
327 if isCursorVisible then |