1854 for he:= Low(THogEffect) to High(THogEffect) do |
1854 for he:= Low(THogEffect) to High(THogEffect) do |
1855 ScriptSetInteger(EnumToStr(he), ord(he)); |
1855 ScriptSetInteger(EnumToStr(he), ord(he)); |
1856 |
1856 |
1857 for cg:= Low(TCapGroup) to High(TCapGroup) do |
1857 for cg:= Low(TCapGroup) to High(TCapGroup) do |
1858 ScriptSetInteger(EnumToStr(cg), ord(cg)); |
1858 ScriptSetInteger(EnumToStr(cg), ord(cg)); |
|
1859 |
|
1860 ScriptSetInteger('gstDrowning' ,$00000001); |
|
1861 ScriptSetInteger('gstHHDriven' ,$00000002); |
|
1862 ScriptSetInteger('gstMoving' ,$00000004); |
|
1863 ScriptSetInteger('gstAttacked' ,$00000008); |
|
1864 ScriptSetInteger('gstAttacking' ,$00000010); |
|
1865 ScriptSetInteger('gstCollision' ,$00000020); |
|
1866 ScriptSetInteger('gstHHChooseTarget' ,$00000040); |
|
1867 ScriptSetInteger('gstHHJumping' ,$00000100); |
|
1868 ScriptSetInteger('gsttmpFlag' ,$00000200); |
|
1869 ScriptSetInteger('gstHHThinking' ,$00000800); |
|
1870 ScriptSetInteger('gstNoDamage' ,$00001000); |
|
1871 ScriptSetInteger('gstHHHJump' ,$00002000); |
|
1872 ScriptSetInteger('gstAnimation' ,$00004000); |
|
1873 ScriptSetInteger('gstHHDeath' ,$00008000); |
|
1874 ScriptSetInteger('gstWinner' ,$00010000); |
|
1875 ScriptSetInteger('gstWait' ,$00020000); |
|
1876 ScriptSetInteger('gstNotKickable' ,$00040000); |
|
1877 ScriptSetInteger('gstLoser' ,$00080000); |
|
1878 ScriptSetInteger('gstHHGone' ,$00100000); |
|
1879 ScriptSetInteger('gstInvisible' ,$00200000); |
1859 |
1880 |
1860 // register functions |
1881 // register functions |
1861 lua_register(luaState, 'band', @lc_band); |
1882 lua_register(luaState, 'band', @lc_band); |
1862 lua_register(luaState, 'bor', @lc_bor); |
1883 lua_register(luaState, 'bor', @lc_bor); |
1863 lua_register(luaState, 'bnot', @lc_bnot); |
1884 lua_register(luaState, 'bnot', @lc_bnot); |