2756 // push game variables so they may be modified by the script

  2756 // push game variables so they may be modified by the script

  2757 ScriptSetInteger('CursorX', CursorPoint.X);

  2757 ScriptSetInteger('CursorX', CursorPoint.X);

  2758 ScriptSetInteger('CursorY', CursorPoint.Y);

  2758 ScriptSetInteger('CursorY', CursorPoint.Y);

  2759 ScriptSetInteger('BorderColor', ExplosionBorderColor);

  2759 ScriptSetInteger('BorderColor', ExplosionBorderColor);

  2760 ScriptSetInteger('GameFlags', GameFlags);

  2760 ScriptSetInteger('GameFlags', GameFlags);

  2761 ScriptSetString('Seed', cSeed);

  2762 ScriptSetString('Seed', cSeed);

  2762 ScriptSetInteger('TemplateFilter', cTemplateFilter);

  2763 ScriptSetInteger('TemplateFilter', cTemplateFilter);

  2763 ScriptSetInteger('TemplateNumber', LuaTemplateNumber);

  2764 ScriptSetInteger('TemplateNumber', LuaTemplateNumber);

  2764 ScriptSetInteger('MapGen', ord(cMapGen));

  2765 ScriptSetInteger('MapGen', ord(cMapGen));

  2765 ScriptSetInteger('MapFeatureSize', cFeatureSize);

  2766 ScriptSetInteger('MapFeatureSize', cFeatureSize);

  2792 cTemplateFilter  := ScriptGetInteger('TemplateFilter');

  2793 cTemplateFilter  := ScriptGetInteger('TemplateFilter');

  2793 LuaTemplateNumber:= ScriptGetInteger('TemplateNumber');

  2794 LuaTemplateNumber:= ScriptGetInteger('TemplateNumber');

  2794 cMapGen          := TMapGen(ScriptGetInteger('MapGen'));

  2795 cMapGen          := TMapGen(ScriptGetInteger('MapGen'));

  2795 cFeatureSize     := ScriptGetInteger('MapFeatureSize');

  2796 cFeatureSize     := ScriptGetInteger('MapFeatureSize');

  2796 GameFlags        := ScriptGetInteger('GameFlags');

  2797 GameFlags        := ScriptGetInteger('GameFlags');

  2797 cHedgehogTurnTime:= ScriptGetInteger('TurnTime');

  2799 cHedgehogTurnTime:= ScriptGetInteger('TurnTime');

  2798 cCaseFactor      := ScriptGetInteger('CaseFreq');

  2800 cCaseFactor      := ScriptGetInteger('CaseFreq');

  2799 cHealthCaseProb  := ScriptGetInteger('HealthCaseProb');

  2801 cHealthCaseProb  := ScriptGetInteger('HealthCaseProb');

  2800 cHealthCaseAmount:= ScriptGetInteger('HealthCaseAmount');

  2802 cHealthCaseAmount:= ScriptGetInteger('HealthCaseAmount');

  2801 cDamagePercent   := ScriptGetInteger('DamagePercent');

  2803 cDamagePercent   := ScriptGetInteger('DamagePercent');

  3150     st : TSound;

  3152     st : TSound;

  3151     he : THogEffect;

  3153     he : THogEffect;

  3152     cg : TCapGroup;

  3154     cg : TCapGroup;

  3153     spr: TSprite;

  3155     spr: TSprite;

  3154     mg : TMapGen;

  3156     mg : TMapGen;

  3155 begin

  3158 begin

  3156 // initialize lua

  3159 // initialize lua

  3157 luaState:= lua_open;

  3160 luaState:= lua_open;

  3158 if checkFails(luaState <> nil, 'lua_open failed', true) then exit;

  3161 if checkFails(luaState <> nil, 'lua_open failed', true) then exit;

  3159 

  3162 

  3244 for spr:= Low(TSprite) to High(TSprite) do

  3247 for spr:= Low(TSprite) to High(TSprite) do

  3245     ScriptSetInteger(EnumToStr(spr), ord(spr));

  3248     ScriptSetInteger(EnumToStr(spr), ord(spr));

  3246 

  3249 

  3247 for mg:= Low(TMapGen) to High(TMapGen) do

  3250 for mg:= Low(TMapGen) to High(TMapGen) do

  3248     ScriptSetInteger(EnumToStr(mg), ord(mg));

  3251     ScriptSetInteger(EnumToStr(mg), ord(mg));

  3249 

  3255 

  3250 ScriptSetInteger('gstDrowning'      , gstDrowning);

  3256 ScriptSetInteger('gstDrowning'      , gstDrowning);

  3251 ScriptSetInteger('gstHHDriven'      , gstHHDriven);

  3257 ScriptSetInteger('gstHHDriven'      , gstHHDriven);

  3252 ScriptSetInteger('gstMoving'        , gstMoving);

  3258 ScriptSetInteger('gstMoving'        , gstMoving);

  3253 ScriptSetInteger('gstAttacked'      , gstAttacked);

  3259 ScriptSetInteger('gstAttacked'      , gstAttacked);