hedgewars/uScript.pas
changeset 3197 e1fa864fd6ca
parent 3058 2ebc20485344
child 3209 4533c6e02240
equal deleted inserted replaced
3196:336d6fc3325c 3197:e1fa864fd6ca
   554 ScriptSetInteger('TurnTime', cHedgehogTurnTime);
   554 ScriptSetInteger('TurnTime', cHedgehogTurnTime);
   555 ScriptSetInteger('CaseFreq', cCaseFactor);
   555 ScriptSetInteger('CaseFreq', cCaseFactor);
   556 ScriptSetInteger('LandAdds', cLandAdditions);
   556 ScriptSetInteger('LandAdds', cLandAdditions);
   557 ScriptSetInteger('Explosives', cExplosives);
   557 ScriptSetInteger('Explosives', cExplosives);
   558 ScriptSetInteger('Delay', cInactDelay);
   558 ScriptSetInteger('Delay', cInactDelay);
       
   559 ScriptSetInteger('SuddenDeathTurns', cSuddenDTurns);
   559 ScriptSetString('Map', '');
   560 ScriptSetString('Map', '');
   560 ScriptSetString('Theme', '');
   561 ScriptSetString('Theme', '');
   561 
   562 
   562 // import locale
   563 // import locale
   563 s:= cLocaleFName;
   564 s:= cLocaleFName;
   572 ParseCommand('$turntime ' + ScriptGetString('TurnTime'), true);
   573 ParseCommand('$turntime ' + ScriptGetString('TurnTime'), true);
   573 ParseCommand('$casefreq ' + ScriptGetString('CaseFreq'), true);
   574 ParseCommand('$casefreq ' + ScriptGetString('CaseFreq'), true);
   574 ParseCommand('$landadds ' + ScriptGetString('LandAdds'), true);
   575 ParseCommand('$landadds ' + ScriptGetString('LandAdds'), true);
   575 ParseCommand('$explosives ' + ScriptGetString('Explosives'), true);
   576 ParseCommand('$explosives ' + ScriptGetString('Explosives'), true);
   576 ParseCommand('$delay ' + ScriptGetString('Delay'), true);
   577 ParseCommand('$delay ' + ScriptGetString('Delay'), true);
       
   578 ParseCommand('$sd_turns ' + ScriptGetString('SuddenDeathTurns'), true);
   577 if ScriptGetString('Map') <> '' then
   579 if ScriptGetString('Map') <> '' then
   578     ParseCommand('map ' + ScriptGetString('Map'), true);
   580     ParseCommand('map ' + ScriptGetString('Map'), true);
   579 if ScriptGetString('Theme') <> '' then
   581 if ScriptGetString('Theme') <> '' then
   580     ParseCommand('theme ' + ScriptGetString('Theme'), true);    
   582     ParseCommand('theme ' + ScriptGetString('Theme'), true);    
   581 
   583