2665 |
2665 |
2666 ScriptSetString('Seed', cSeed); |
2666 ScriptSetString('Seed', cSeed); |
2667 ScriptSetInteger('TemplateFilter', cTemplateFilter); |
2667 ScriptSetInteger('TemplateFilter', cTemplateFilter); |
2668 ScriptSetInteger('TemplateNumber', LuaTemplateNumber); |
2668 ScriptSetInteger('TemplateNumber', LuaTemplateNumber); |
2669 ScriptSetInteger('MapGen', ord(cMapGen)); |
2669 ScriptSetInteger('MapGen', ord(cMapGen)); |
|
2670 ScriptSetInteger('MapFeatureSize', cFeatureSize); |
2670 |
2671 |
2671 ScriptCall('onPreviewInit'); |
2672 ScriptCall('onPreviewInit'); |
2672 |
2673 |
2673 // pop game variables |
2674 // pop game variables |
2674 ParseCommand('seed ' + ScriptGetString('Seed'), true, true); |
2675 ParseCommand('seed ' + ScriptGetString('Seed'), true, true); |
2675 cTemplateFilter := ScriptGetInteger('TemplateFilter'); |
2676 cTemplateFilter := ScriptGetInteger('TemplateFilter'); |
2676 LuaTemplateNumber:= ScriptGetInteger('TemplateNumber'); |
2677 LuaTemplateNumber:= ScriptGetInteger('TemplateNumber'); |
2677 cMapGen := TMapGen(ScriptGetInteger('MapGen')); |
2678 cMapGen := TMapGen(ScriptGetInteger('MapGen')); |
|
2679 cFeatureSize := ScriptGetInteger('MapFeatureSize'); |
2678 end; |
2680 end; |
2679 |
2681 |
2680 procedure ScriptOnGameInit; |
2682 procedure ScriptOnGameInit; |
2681 var i, j, k: LongInt; |
2683 var i, j, k: LongInt; |
2682 begin |
2684 begin |