hedgewars/uScript.pas
branch0.9.17
changeset 6358 eef73add0973
parent 6339 2a3925178178
child 6380 1ff5ad1d771b
equal deleted inserted replaced
6356:9bda193d02d8 6358:eef73add0973
  1614 ScriptSetInteger('Delay', cInactDelay);
  1614 ScriptSetInteger('Delay', cInactDelay);
  1615 ScriptSetInteger('Ready', cReadyDelay);
  1615 ScriptSetInteger('Ready', cReadyDelay);
  1616 ScriptSetInteger('SuddenDeathTurns', cSuddenDTurns);
  1616 ScriptSetInteger('SuddenDeathTurns', cSuddenDTurns);
  1617 ScriptSetInteger('WaterRise', cWaterRise);
  1617 ScriptSetInteger('WaterRise', cWaterRise);
  1618 ScriptSetInteger('HealthDecrease', cHealthDecrease);
  1618 ScriptSetInteger('HealthDecrease', cHealthDecrease);
  1619 ScriptSetString('Map', '');
  1619 ScriptSetString('Map', 'CHANGE_ME');
  1620 ScriptSetString('Theme', '');
  1620 ScriptSetString('Theme', '');
  1621 ScriptSetString('Goals', '');
  1621 ScriptSetString('Goals', '');
  1622 
  1622 
  1623 ScriptCall('onGameInit');
  1623 ScriptCall('onGameInit');
  1624 
  1624 
  1640 cReadyDelay      := ScriptGetInteger('Ready');
  1640 cReadyDelay      := ScriptGetInteger('Ready');
  1641 cSuddenDTurns    := ScriptGetInteger('SuddenDeathTurns');
  1641 cSuddenDTurns    := ScriptGetInteger('SuddenDeathTurns');
  1642 cWaterRise       := ScriptGetInteger('WaterRise');
  1642 cWaterRise       := ScriptGetInteger('WaterRise');
  1643 cHealthDecrease  := ScriptGetInteger('HealthDecrease');
  1643 cHealthDecrease  := ScriptGetInteger('HealthDecrease');
  1644 
  1644 
  1645 ParseCommand('map ' + ScriptGetString('Map'), true);
  1645 if ScriptGetString('Map') <> 'CHANGE_ME' then
       
  1646     ParseCommand('map ' + ScriptGetString('Map'), true);
  1646 if ScriptGetString('Theme') <> '' then
  1647 if ScriptGetString('Theme') <> '' then
  1647     ParseCommand('theme ' + ScriptGetString('Theme'), true);
  1648     ParseCommand('theme ' + ScriptGetString('Theme'), true);
  1648 LuaGoals:= ScriptGetString('Goals');
  1649 LuaGoals:= ScriptGetString('Goals');
  1649 
  1650 
  1650 if ScriptExists('onAmmoStoreInit') then
  1651 if ScriptExists('onAmmoStoreInit') then