2776 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft); |
2776 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft); |
2777 ScriptSetInteger('GameTime', GameTicks); |
2777 ScriptSetInteger('GameTime', GameTicks); |
2778 ScriptSetInteger('TotalRounds', TotalRounds); |
2778 ScriptSetInteger('TotalRounds', TotalRounds); |
2779 ScriptSetInteger('WaterLine', cWaterLine); |
2779 ScriptSetInteger('WaterLine', cWaterLine); |
2780 if isCursorVisible and (not bShowAmmoMenu) then |
2780 if isCursorVisible and (not bShowAmmoMenu) then |
|
2781 begin |
2781 if (prevCursorPoint.X <> CursorPoint.X) or |
2782 if (prevCursorPoint.X <> CursorPoint.X) or |
2782 (prevCursorPoint.Y <> CursorPoint.Y) then |
2783 (prevCursorPoint.Y <> CursorPoint.Y) then |
2783 begin |
2784 begin |
2784 ScriptSetInteger('CursorX', CursorPoint.X - WorldDx); |
2785 ScriptSetInteger('CursorX', CursorPoint.X - WorldDx); |
2785 ScriptSetInteger('CursorY', cScreenHeight - CursorPoint.Y- WorldDy); |
2786 ScriptSetInteger('CursorY', cScreenHeight - CursorPoint.Y- WorldDy); |
2786 prevCursorPoint.X:= CursorPoint.X; |
2787 prevCursorPoint.X:= CursorPoint.X; |
2787 prevCursorPoint.Y:= CursorPoint.Y; |
2788 prevCursorPoint.Y:= CursorPoint.Y; |
2788 end |
2789 end |
|
2790 end |
2789 else |
2791 else |
2790 begin |
2792 begin |
2791 ScriptSetInteger('CursorX', NoPointX); |
2793 ScriptSetInteger('CursorX', NoPointX); |
2792 ScriptSetInteger('CursorY', NoPointX); |
2794 ScriptSetInteger('CursorY', NoPointX); |
2793 prevCursorPoint.X:= NoPointX; |
2795 prevCursorPoint.X:= NoPointX; |