hedgewars/uScript.pas
changeset 10989 0ea100eefae7
parent 10978 54a49174dbec
child 11022 e09a7280b856
equal deleted inserted replaced
10988:3da6c2edeceb 10989:0ea100eefae7
  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;