equal
deleted
inserted
replaced
50 uAmmos, |
50 uAmmos, |
51 uSound, |
51 uSound, |
52 uTeams, |
52 uTeams, |
53 uKeys, |
53 uKeys, |
54 uChat; |
54 uChat; |
55 |
55 |
56 var luaState : Plua_State; |
56 var luaState : Plua_State; |
57 ScriptAmmoLoadout : shortstring; |
57 ScriptAmmoLoadout : shortstring; |
58 ScriptAmmoProbability : shortstring; |
58 ScriptAmmoProbability : shortstring; |
59 ScriptAmmoDelay : shortstring; |
59 ScriptAmmoDelay : shortstring; |
60 ScriptAmmoReinforcement : shortstring; |
60 ScriptAmmoReinforcement : shortstring; |
61 ScriptLoaded : boolean; |
61 ScriptLoaded : boolean; |
62 |
62 |
63 procedure ScriptPrepareAmmoStore; forward; |
63 procedure ScriptPrepareAmmoStore; forward; |
64 procedure ScriptApplyAmmoStore; forward; |
64 procedure ScriptApplyAmmoStore; forward; |
65 procedure ScriptSetAmmo(ammo : TAmmoType; count, propability, delay, reinforcement: Byte); forward; |
65 procedure ScriptSetAmmo(ammo : TAmmoType; count, propability, delay, reinforcement: Byte); forward; |
66 |
66 |
67 procedure LuaError(s: shortstring); |
67 procedure LuaError(s: shortstring); |
594 ParseCommand('$delay ' + ScriptGetString('Delay'), true); |
594 ParseCommand('$delay ' + ScriptGetString('Delay'), true); |
595 ParseCommand('$sd_turns ' + ScriptGetString('SuddenDeathTurns'), true); |
595 ParseCommand('$sd_turns ' + ScriptGetString('SuddenDeathTurns'), true); |
596 if ScriptGetString('Map') <> '' then |
596 if ScriptGetString('Map') <> '' then |
597 ParseCommand('map ' + ScriptGetString('Map'), true); |
597 ParseCommand('map ' + ScriptGetString('Map'), true); |
598 if ScriptGetString('Theme') <> '' then |
598 if ScriptGetString('Theme') <> '' then |
599 ParseCommand('theme ' + ScriptGetString('Theme'), true); |
599 ParseCommand('theme ' + ScriptGetString('Theme'), true); |
600 |
600 |
601 if ScriptExists('onAmmoStoreInit') then |
601 if ScriptExists('onAmmoStoreInit') then |
602 begin |
602 begin |
603 ScriptPrepareAmmoStore; |
603 ScriptPrepareAmmoStore; |
604 ScriptCall('onAmmoStoreInit'); |
604 ScriptCall('onAmmoStoreInit'); |
790 ScriptSetInteger(EnumToStr(st), ord(st)); |
790 ScriptSetInteger(EnumToStr(st), ord(st)); |
791 |
791 |
792 // register ammo types |
792 // register ammo types |
793 for am:= Low(TAmmoType) to High(TAmmoType) do |
793 for am:= Low(TAmmoType) to High(TAmmoType) do |
794 ScriptSetInteger(EnumToStr(am), ord(am)); |
794 ScriptSetInteger(EnumToStr(am), ord(am)); |
795 |
795 |
796 // register functions |
796 // register functions |
797 lua_register(luaState, 'AddGear', @lc_addgear); |
797 lua_register(luaState, 'AddGear', @lc_addgear); |
798 lua_register(luaState, 'WriteLnToConsole', @lc_writelntoconsole); |
798 lua_register(luaState, 'WriteLnToConsole', @lc_writelntoconsole); |
799 lua_register(luaState, 'GetGearType', @lc_getgeartype); |
799 lua_register(luaState, 'GetGearType', @lc_getgeartype); |
800 lua_register(luaState, 'EndGame', @lc_endgame); |
800 lua_register(luaState, 'EndGame', @lc_endgame); |