2044 

  2044 

  2045 procedure SetGlobals;

  2045 procedure SetGlobals;

  2046 begin

  2046 begin

  2047 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft);

  2047 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft);

  2048 ScriptSetInteger('GameTime', GameTicks);

  2048 ScriptSetInteger('GameTime', GameTicks);

  2050 ScriptSetInteger('TotalRounds', TotalRounds);

  2049 ScriptSetInteger('TotalRounds', TotalRounds);

  2051 ScriptSetInteger('WaterLine', cWaterLine);

  2050 ScriptSetInteger('WaterLine', cWaterLine);

  2052 if GameTicks = 0 then

  2051 if GameTicks = 0 then

  2053     begin

  2052     begin

  2054     ScriptSetInteger('LAND_WIDTH', LAND_WIDTH);

  2053     ScriptSetInteger('LAND_WIDTH', LAND_WIDTH);