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'); |