equal
deleted
inserted
replaced
1193 prevPoint:= CursorPoint; |
1193 prevPoint:= CursorPoint; |
1194 exit |
1194 exit |
1195 end |
1195 end |
1196 else |
1196 else |
1197 begin |
1197 begin |
1198 CursorPoint.X:= (prevPoint.X * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * (FollowGear^.dX.QWordValue div _0_01.QWordValue) * 2 + WorldDx) div 8; |
1198 CursorPoint.X:= (prevPoint.X * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * 100 + WorldDx) div 8; |
1199 CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + hwSign(FollowGear^.dY) * (FollowGear^.dY.QWordValue div _0_01.QWordValue) * 2 + WorldDy)) div 8; |
1199 CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + WorldDy)) div 8; |
1200 end; |
1200 end; |
1201 |
1201 |
1202 wdy:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine - cVisibleWater; |
1202 wdy:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine - cVisibleWater; |
1203 if WorldDy < wdy then WorldDy:= wdy; |
1203 if WorldDy < wdy then WorldDy:= wdy; |
1204 |
1204 |