hedgewars/uScript.pas
changeset 7567 da2aa8355d91
parent 7546 b50556f2a0e8
child 7573 364cd923db43
equal deleted inserted replaced
7564:651d56a6e568 7567:da2aa8355d91
  1743 // push game variables so they may be modified by the script
  1743 // push game variables so they may be modified by the script
  1744 ScriptSetInteger('BorderColor', ExplosionBorderColor);
  1744 ScriptSetInteger('BorderColor', ExplosionBorderColor);
  1745 ScriptSetInteger('GameFlags', GameFlags);
  1745 ScriptSetInteger('GameFlags', GameFlags);
  1746 ScriptSetString('Seed', cSeed);
  1746 ScriptSetString('Seed', cSeed);
  1747 ScriptSetInteger('TemplateFilter', cTemplateFilter);
  1747 ScriptSetInteger('TemplateFilter', cTemplateFilter);
       
  1748 ScriptSetInteger('TemplateNumber', LuaTemplateNumber);
  1748 ScriptSetInteger('MapGen', cMapGen);
  1749 ScriptSetInteger('MapGen', cMapGen);
  1749 ScriptSetInteger('ScreenHeight', cScreenHeight);
  1750 ScriptSetInteger('ScreenHeight', cScreenHeight);
  1750 ScriptSetInteger('ScreenWidth', cScreenWidth);
  1751 ScriptSetInteger('ScreenWidth', cScreenWidth);
  1751 ScriptSetInteger('TurnTime', cHedgehogTurnTime);
  1752 ScriptSetInteger('TurnTime', cHedgehogTurnTime);
  1752 ScriptSetInteger('CaseFreq', cCaseFactor);
  1753 ScriptSetInteger('CaseFreq', cCaseFactor);
  1771 ScriptCall('onGameInit');
  1772 ScriptCall('onGameInit');
  1772 
  1773 
  1773 // pop game variables
  1774 // pop game variables
  1774 ParseCommand('seed ' + ScriptGetString('Seed'), true);
  1775 ParseCommand('seed ' + ScriptGetString('Seed'), true);
  1775 cTemplateFilter  := ScriptGetInteger('TemplateFilter');
  1776 cTemplateFilter  := ScriptGetInteger('TemplateFilter');
       
  1777 LuaTemplateNumber:= ScriptGetInteger('TemplateNumber');
  1776 cMapGen          := ScriptGetInteger('MapGen');
  1778 cMapGen          := ScriptGetInteger('MapGen');
  1777 GameFlags        := ScriptGetInteger('GameFlags');
  1779 GameFlags        := ScriptGetInteger('GameFlags');
  1778 cHedgehogTurnTime:= ScriptGetInteger('TurnTime');
  1780 cHedgehogTurnTime:= ScriptGetInteger('TurnTime');
  1779 cCaseFactor      := ScriptGetInteger('CaseFreq');
  1781 cCaseFactor      := ScriptGetInteger('CaseFreq');
  1780 cHealthCaseProb  := ScriptGetInteger('HealthCaseProb');
  1782 cHealthCaseProb  := ScriptGetInteger('HealthCaseProb');