555 gear^.message:= lua_tointeger(L, 2); |
555 gear^.message:= lua_tointeger(L, 2); |
556 end; |
556 end; |
557 lc_setgearmessage:= 0 |
557 lc_setgearmessage:= 0 |
558 end; |
558 end; |
559 |
559 |
|
560 function lc_getgearpos(L : Plua_State) : LongInt; Cdecl; |
|
561 var gear : PGear; |
|
562 begin |
|
563 if lua_gettop(L) <> 1 then |
|
564 begin |
|
565 LuaError('Lua: Wrong number of parameters passed to GetGearPos!'); |
|
566 lua_pushnil(L); // return value on stack (nil) |
|
567 end |
|
568 else |
|
569 begin |
|
570 gear:= GearByUID(lua_tointeger(L, 1)); |
|
571 if gear <> nil then |
|
572 lua_pushinteger(L, gear^.Pos) |
|
573 else |
|
574 lua_pushnil(L); |
|
575 end; |
|
576 lc_getgearpos:= 1 |
|
577 end; |
|
578 |
|
579 function lc_setgearpos(L : Plua_State) : LongInt; Cdecl; |
|
580 var gear : PGear; |
|
581 begin |
|
582 if lua_gettop(L) <> 2 then |
|
583 LuaError('Lua: Wrong number of parameters passed to SetGearPos!') |
|
584 else |
|
585 begin |
|
586 gear:= GearByUID(lua_tointeger(L, 1)); |
|
587 if gear <> nil then |
|
588 gear^.Pos:= lua_tointeger(L, 2); |
|
589 end; |
|
590 lc_setgearpos:= 0 |
|
591 end; |
|
592 |
560 function lc_gethoglevel(L : Plua_State): LongInt; Cdecl; |
593 function lc_gethoglevel(L : Plua_State): LongInt; Cdecl; |
561 var gear : PGear; |
594 var gear : PGear; |
562 begin |
595 begin |
563 if lua_gettop(L) <> 1 then |
596 if lua_gettop(L) <> 1 then |
564 LuaError('Lua: Wrong number of parameters passed to GetHogLevel!') |
597 LuaError('Lua: Wrong number of parameters passed to GetHogLevel!') |
1633 cHedgehogTurnTime:= ScriptGetInteger('TurnTime'); |
1666 cHedgehogTurnTime:= ScriptGetInteger('TurnTime'); |
1634 cCaseFactor := ScriptGetInteger('CaseFreq'); |
1667 cCaseFactor := ScriptGetInteger('CaseFreq'); |
1635 cHealthCaseProb := ScriptGetInteger('HealthCaseProb'); |
1668 cHealthCaseProb := ScriptGetInteger('HealthCaseProb'); |
1636 cHealthCaseAmount:= ScriptGetInteger('HealthCaseAmount'); |
1669 cHealthCaseAmount:= ScriptGetInteger('HealthCaseAmount'); |
1637 cDamagePercent := ScriptGetInteger('DamagePercent'); |
1670 cDamagePercent := ScriptGetInteger('DamagePercent'); |
|
1671 cRopePercent := ScriptGetInteger('RopePercent'); |
1638 cLandMines := ScriptGetInteger('MinesNum'); |
1672 cLandMines := ScriptGetInteger('MinesNum'); |
1639 cMinesTime := ScriptGetInteger('MinesTime'); |
1673 cMinesTime := ScriptGetInteger('MinesTime'); |
1640 cMineDudPercent := ScriptGetInteger('MineDudPercent'); |
1674 cMineDudPercent := ScriptGetInteger('MineDudPercent'); |
1641 cExplosives := ScriptGetInteger('Explosives'); |
1675 cExplosives := ScriptGetInteger('Explosives'); |
1642 cInactDelay := ScriptGetInteger('Delay'); |
1676 cInactDelay := ScriptGetInteger('Delay'); |
2030 lua_register(luaState, 'CampaignUnlock', @lc_campaignunlock); |
2064 lua_register(luaState, 'CampaignUnlock', @lc_campaignunlock); |
2031 lua_register(luaState, 'GetGearElasticity', @lc_getgearelasticity); |
2065 lua_register(luaState, 'GetGearElasticity', @lc_getgearelasticity); |
2032 lua_register(luaState, 'GetGearRadius', @lc_getgearradius); |
2066 lua_register(luaState, 'GetGearRadius', @lc_getgearradius); |
2033 lua_register(luaState, 'GetGearMessage', @lc_getgearmessage); |
2067 lua_register(luaState, 'GetGearMessage', @lc_getgearmessage); |
2034 lua_register(luaState, 'SetGearMessage', @lc_setgearmessage); |
2068 lua_register(luaState, 'SetGearMessage', @lc_setgearmessage); |
|
2069 lua_register(luaState, 'GetGearPos', @lc_getgearpos); |
|
2070 lua_register(luaState, 'SetGearPos', @lc_setgearpos); |
2035 lua_register(luaState, 'GetRandom', @lc_getrandom); |
2071 lua_register(luaState, 'GetRandom', @lc_getrandom); |
2036 lua_register(luaState, 'SetWind', @lc_setwind); |
2072 lua_register(luaState, 'SetWind', @lc_setwind); |
2037 lua_register(luaState, 'GetDataPath', @lc_getdatapath); |
2073 lua_register(luaState, 'GetDataPath', @lc_getdatapath); |
2038 lua_register(luaState, 'GetUserDataPath', @lc_getuserdatapath); |
2074 lua_register(luaState, 'GetUserDataPath', @lc_getuserdatapath); |
2039 lua_register(luaState, 'MapHasBorder', @lc_maphasborder); |
2075 lua_register(luaState, 'MapHasBorder', @lc_maphasborder); |