hedgewars/uScript.pas
changeset 6312 658055a3f160
parent 6131 4e8816cf9459
child 6328 d14adf1c7721
child 6339 2a3925178178
equal deleted inserted replaced
6311:1f7af64d5565 6312:658055a3f160
  1622 
  1622 
  1623 ScriptCall('onGameInit');
  1623 ScriptCall('onGameInit');
  1624 
  1624 
  1625 // pop game variables
  1625 // pop game variables
  1626 ParseCommand('seed ' + ScriptGetString('Seed'), true);
  1626 ParseCommand('seed ' + ScriptGetString('Seed'), true);
  1627 ParseCommand('template_filter ' + IntToStr(ScriptGetInteger('TemplateFilter')), true);
  1627 cTemplateFilter  := ScriptGetInteger('TemplateFilter');
  1628 ParseCommand('mapgen ' + IntToStr(ScriptGetInteger('MapGen')), true);
  1628 cMapGen          := ScriptGetInteger('MapGen');
  1629 ParseCommand('$gmflags ' + ScriptGetString('GameFlags'), true);
  1629 GameFlags        := ScriptGetInteger('GameFlags');
  1630 ParseCommand('$turntime ' + ScriptGetString('TurnTime'), true);
  1630 cHedgehogTurnTime:= ScriptGetInteger('TurnTime');
  1631 ParseCommand('$casefreq ' + ScriptGetString('CaseFreq'), true);
  1631 cCaseFactor      := ScriptGetInteger('CaseFreq');
  1632 ParseCommand('$healthprob ' + ScriptGetString('HealthCaseProb'), true);
  1632 cHealthCaseProb  := ScriptGetInteger('HealthCaseProb');
  1633 ParseCommand('$hcaseamount ' + ScriptGetString('HealthCaseAmount'), true);
  1633 cHealthCaseAmount:= ScriptGetInteger('HealthCaseAmount');
  1634 ParseCommand('$damagepct ' + ScriptGetString('DamagePercent'), true);
  1634 cDamagePercent   := ScriptGetInteger('DamagePercent');
  1635 ParseCommand('$minesnum ' + ScriptGetString('MinesNum'), true);
  1635 cLandMines       := ScriptGetInteger('MinesNum');
  1636 ParseCommand('$minestime ' + ScriptGetString('MinesTime'), true);
  1636 cMinesTime       := ScriptGetInteger('MinesTime');
  1637 ParseCommand('$minedudpct ' + ScriptGetString('MineDudPercent'), true);
  1637 cMineDudPercent  := ScriptGetInteger('MineDudPercent');
  1638 ParseCommand('$explosives ' + ScriptGetString('Explosives'), true);
  1638 cExplosives      := ScriptGetInteger('Explosives');
  1639 ParseCommand('$delay ' + ScriptGetString('Delay'), true);
  1639 cInactDelay      := ScriptGetInteger('Delay');
  1640 ParseCommand('$ready ' + ScriptGetString('Ready'), true);
  1640 cReadyDelay      := ScriptGetInteger('Ready');
  1641 ParseCommand('$sd_turns ' + ScriptGetString('SuddenDeathTurns'), true);
  1641 cSuddenDTurns    := ScriptGetInteger('SuddenDeathTurns');
  1642 ParseCommand('$waterrise ' + ScriptGetString('WaterRise'), true);
  1642 cWaterRise       := ScriptGetInteger('WaterRise');
  1643 ParseCommand('$healthdec ' + ScriptGetString('HealthDecrease'), true);
  1643 cHealthDecrease  := ScriptGetInteger('HealthDecrease');
       
  1644 
  1644 if ScriptGetString('Map') <> '' then
  1645 if ScriptGetString('Map') <> '' then
  1645     ParseCommand('map ' + ScriptGetString('Map'), true);
  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');