hedgewars/uScript.pas
changeset 13651 56a925256039
parent 13642 3d14950641a4
child 13663 91d48cbae927
equal deleted inserted replaced
13650:34aeaa627400 13651:56a925256039
  3612 var x, y: LongInt;
  3612 var x, y: LongInt;
  3613 begin
  3613 begin
  3614 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft);
  3614 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft);
  3615 ScriptSetInteger('ReadyTimeLeft', ReadyTimeLeft);
  3615 ScriptSetInteger('ReadyTimeLeft', ReadyTimeLeft);
  3616 ScriptSetInteger('GameTime', GameTicks);
  3616 ScriptSetInteger('GameTime', GameTicks);
  3617 ScriptSetInteger('TotalRounds', TotalRounds);
  3617 ScriptSetInteger('TotalRounds', TotalRoundsReal);
  3618 ScriptSetInteger('WaterLine', cWaterLine);
  3618 ScriptSetInteger('WaterLine', cWaterLine);
  3619 if isCursorVisible and (not bShowAmmoMenu) then
  3619 if isCursorVisible and (not bShowAmmoMenu) then
  3620     begin
  3620     begin
  3621     x:= CursorPoint.X - WorldDx;
  3621     x:= CursorPoint.X - WorldDx;
  3622     y:= cScreenHeight - CursorPoint.Y - WorldDy;
  3622     y:= cScreenHeight - CursorPoint.Y - WorldDy;