equal
deleted
inserted
replaced
1587 end |
1587 end |
1588 end; |
1588 end; |
1589 isFirstFrame:= false |
1589 isFirstFrame:= false |
1590 end; |
1590 end; |
1591 |
1591 |
|
1592 var PrevSentPointTime: LongWord = 0; |
|
1593 |
1592 procedure MoveCamera; |
1594 procedure MoveCamera; |
1593 var EdgesDist, wdy, shs,z: LongInt; |
1595 var EdgesDist, wdy, shs,z: LongInt; |
1594 PrevSentPointTime: LongWord = 0; |
|
1595 begin |
1596 begin |
1596 {$IFNDEF MOBILE} |
1597 {$IFNDEF MOBILE} |
1597 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu))) and cHasFocus and (GameState <> gsConfirm) then |
1598 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu))) and cHasFocus and (GameState <> gsConfirm) then |
1598 uCursor.updatePosition(); |
1599 uCursor.updatePosition(); |
1599 {$ENDIF} |
1600 {$ENDIF} |
1600 z:= round(200/zoom); |
1601 z:= round(200/zoom); |
1601 if not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) then |
1602 if not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) then |
1602 if (not autoCameraOn) then |
1603 if (not autoCameraOn) then |
1603 FollowGear:= nil |
1604 FollowGear:= nil |
1604 else |
1605 else |
1605 if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then |
1606 if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then |
1606 begin |
1607 begin |
1607 FollowGear:= nil; |
1608 FollowGear:= nil; |
1608 prevPoint:= CursorPoint; |
1609 prevPoint:= CursorPoint; |
1609 exit |
1610 exit |
1812 bSelected:= false; |
1813 bSelected:= false; |
1813 bShowFinger:= false; |
1814 bShowFinger:= false; |
1814 Frames:= 0; |
1815 Frames:= 0; |
1815 WorldDx:= -512; |
1816 WorldDx:= -512; |
1816 WorldDy:= -256; |
1817 WorldDy:= -256; |
|
1818 PrevSentPointTime:= 0; |
1817 |
1819 |
1818 FPS:= 0; |
1820 FPS:= 0; |
1819 CountTicks:= 0; |
1821 CountTicks:= 0; |
1820 SoundTimerTicks:= 0; |
1822 SoundTimerTicks:= 0; |
1821 prevPoint.X:= 0; |
1823 prevPoint.X:= 0; |