3658 begin

  3658 begin

  3659     lua_pushnumber(luaState, value);

  3659     lua_pushnumber(luaState, value);

  3660     lua_setglobal(luaState, Str2PChar(name));

  3660     lua_setglobal(luaState, Str2PChar(name));

  3661 end;

  3661 end;

  3662 

  3662 

  3663 procedure ScriptSetString(name : shortstring; value : shortstring);

  3669 procedure ScriptSetString(name : shortstring; value : shortstring);

  3664 begin

  3670 begin

  3665     lua_pushstring(luaState, Str2PChar(value));

  3671     lua_pushstring(luaState, Str2PChar(value));

  3666     lua_setglobal(luaState, Str2PChar(name));

  3672     lua_setglobal(luaState, Str2PChar(name));

  3667 end;

  3673 end;

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

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

  4368 

  4374 

  4369 for we:= Low(TWorldEdge) to High(TWorldEdge) do

  4375 for we:= Low(TWorldEdge) to High(TWorldEdge) do

  4370     ScriptSetInteger(EnumToStr(we), ord(we));

  4376     ScriptSetInteger(EnumToStr(we), ord(we));

  4371 

  4377 

  4374 

  4380 

  4375 ScriptSetInteger('gstDrowning'      , gstDrowning);

  4381 ScriptSetInteger('gstDrowning'      , gstDrowning);

  4376 ScriptSetInteger('gstHHDriven'      , gstHHDriven);

  4382 ScriptSetInteger('gstHHDriven'      , gstHHDriven);

  4377 ScriptSetInteger('gstMoving'        , gstMoving);

  4383 ScriptSetInteger('gstMoving'        , gstMoving);

  4378 ScriptSetInteger('gstAttacked'      , gstAttacked);

  4384 ScriptSetInteger('gstAttacked'      , gstAttacked);