equal
deleted
inserted
replaced
52 uUtils, |
52 uUtils, |
53 uTextures, |
53 uTextures, |
54 uRender, |
54 uRender, |
55 uCaptions, |
55 uCaptions, |
56 uCursor, |
56 uCursor, |
57 uCommands |
57 uCommands, |
|
58 uMobile |
58 ; |
59 ; |
59 |
60 |
60 var cWaveWidth, cWaveHeight: LongInt; |
61 var cWaveWidth, cWaveHeight: LongInt; |
61 AMSlotSize, AMxOffset, AMyOffset, AMWidth, AMxShift, SlotsNum: LongInt; |
62 AMSlotSize, AMxOffset, AMyOffset, AMWidth, AMxShift, SlotsNum: LongInt; |
62 tmpSurface: PSDL_Surface; |
63 tmpSurface: PSDL_Surface; |
1194 exit |
1195 exit |
1195 end |
1196 end |
1196 else |
1197 else |
1197 begin |
1198 begin |
1198 CursorPoint.X:= (prevPoint.X * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * z + WorldDx) div 8; |
1199 CursorPoint.X:= (prevPoint.X * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * z + WorldDx) div 8; |
1199 CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y)+ hwSign(FollowGear^.dY) * z + WorldDy)) div 8; |
1200 if isPhone() then |
|
1201 CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + WorldDy)) div 8 |
|
1202 else |
|
1203 CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + hwSign(FollowGear^.dY) * z + WorldDy)) div 8; |
1200 end; |
1204 end; |
1201 |
1205 |
1202 wdy:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine - cVisibleWater; |
1206 wdy:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine - cVisibleWater; |
1203 if WorldDy < wdy then WorldDy:= wdy; |
1207 if WorldDy < wdy then WorldDy:= wdy; |
1204 |
1208 |