1 (* |
1 (* |
2 * Hedgewars, a free turn based strategy game |
2 * Hedgewars, a free turn based strategy game |
3 * Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com> |
3 * Copyright (c) 2004-2013 Andrey Korotaev <unC0Rr@gmail.com> |
4 * |
4 * |
5 * This program is free software; you can redistribute it and/or modify |
5 * This program is free software; you can redistribute it and/or modify |
6 * it under the terms of the GNU General Public License as published by |
6 * it under the terms of the GNU General Public License as published by |
7 * the Free Software Foundation; version 2 of the License |
7 * the Free Software Foundation; version 2 of the License |
8 * |
8 * |
2037 begin |
2037 begin |
2038 WriteLnToConsole('Lua: ' + name + ' loaded'); |
2038 WriteLnToConsole('Lua: ' + name + ' loaded'); |
2039 // call the script file |
2039 // call the script file |
2040 lua_pcall(luaState, 0, 0, 0); |
2040 lua_pcall(luaState, 0, 0, 0); |
2041 ScriptLoaded:= true |
2041 ScriptLoaded:= true |
2042 end |
2042 end; |
|
2043 hedgewarsMountPackage(Str2PChar(copy(s, 1, length(s)-4)+'.hwp')); |
2043 end; |
2044 end; |
2044 |
2045 |
2045 procedure SetGlobals; |
2046 procedure SetGlobals; |
2046 begin |
2047 begin |
2047 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft); |
2048 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft); |
2259 // import game flags |
2260 // import game flags |
2260 ScriptSetInteger('gfForts', gfForts); |
2261 ScriptSetInteger('gfForts', gfForts); |
2261 ScriptSetInteger('gfMultiWeapon', gfMultiWeapon); |
2262 ScriptSetInteger('gfMultiWeapon', gfMultiWeapon); |
2262 ScriptSetInteger('gfSolidLand', gfSolidLand); |
2263 ScriptSetInteger('gfSolidLand', gfSolidLand); |
2263 ScriptSetInteger('gfBorder', gfBorder); |
2264 ScriptSetInteger('gfBorder', gfBorder); |
|
2265 ScriptSetInteger('gfBottomBorder', gfBottomBorder); |
2264 ScriptSetInteger('gfDivideTeams', gfDivideTeams); |
2266 ScriptSetInteger('gfDivideTeams', gfDivideTeams); |
2265 ScriptSetInteger('gfLowGravity', gfLowGravity); |
2267 ScriptSetInteger('gfLowGravity', gfLowGravity); |
2266 ScriptSetInteger('gfLaserSight', gfLaserSight); |
2268 ScriptSetInteger('gfLaserSight', gfLaserSight); |
2267 ScriptSetInteger('gfInvulnerable', gfInvulnerable); |
2269 ScriptSetInteger('gfInvulnerable', gfInvulnerable); |
2268 ScriptSetInteger('gfVampiric', gfVampiric); |
2270 ScriptSetInteger('gfVampiric', gfVampiric); |