equal
deleted
inserted
replaced
1172 |
1172 |
1173 procedure MoveCamera; |
1173 procedure MoveCamera; |
1174 var EdgesDist, wdy, shs: LongInt; |
1174 var EdgesDist, wdy, shs: LongInt; |
1175 PrevSentPointTime: LongWord = 0; |
1175 PrevSentPointTime: LongWord = 0; |
1176 begin |
1176 begin |
1177 {$IFNDEF IPHONEOS} |
1177 {$IFNDEF MOBILE} |
1178 if (not (CurrentTeam^.ExtDriven and isCursorVisible and not bShowAmmoMenu)) and cHasFocus then |
1178 if (not (CurrentTeam^.ExtDriven and isCursorVisible and not bShowAmmoMenu)) and cHasFocus then |
1179 uCursor.updatePosition(); |
1179 uCursor.updatePosition(); |
1180 {$ENDIF} |
1180 {$ENDIF} |
1181 |
1181 |
1182 if (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then |
1182 if (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then |
1197 |
1197 |
1198 if ((CursorPoint.X = prevPoint.X) and (CursorPoint.Y = prevpoint.Y)) then exit; |
1198 if ((CursorPoint.X = prevPoint.X) and (CursorPoint.Y = prevpoint.Y)) then exit; |
1199 |
1199 |
1200 if AMxShift < AMWidth then |
1200 if AMxShift < AMWidth then |
1201 begin |
1201 begin |
1202 {$IFDEF IPHONEOS} |
1202 {$IFDEF MOBILE} |
1203 if CursorPoint.X < cScreenWidth div 2 + AMxShift - AMWidth then CursorPoint.X:= cScreenWidth div 2 + AMxShift - AMWidth; |
1203 if CursorPoint.X < cScreenWidth div 2 + AMxShift - AMWidth then CursorPoint.X:= cScreenWidth div 2 + AMxShift - AMWidth; |
1204 if CursorPoint.X > cScreenWidth div 2 + AMxShift - AMxOffset then CursorPoint.X:= cScreenWidth div 2 + AMxShift - AMxOffset; |
1204 if CursorPoint.X > cScreenWidth div 2 + AMxShift - AMxOffset then CursorPoint.X:= cScreenWidth div 2 + AMxShift - AMxOffset; |
1205 if CursorPoint.Y < cScreenHeight - AMyOffset - SlotsNum * AMSlotSize then CursorPoint.Y:= cScreenHeight - AMyOffset - SlotsNum * AMSlotSize; |
1205 if CursorPoint.Y < cScreenHeight - AMyOffset - SlotsNum * AMSlotSize then CursorPoint.Y:= cScreenHeight - AMyOffset - SlotsNum * AMSlotSize; |
1206 if CursorPoint.Y > cScreenHeight - AMyOffset then CursorPoint.Y:= cScreenHeight - AMyOffset; |
1206 if CursorPoint.Y > cScreenHeight - AMyOffset then CursorPoint.Y:= cScreenHeight - AMyOffset; |
1207 {$ELSE} |
1207 {$ELSE} |