641 if (vgear^.FrameTicks < 1) or (vgear^.FrameTicks > 3) then vgear^.FrameTicks:= 1; |
641 if (vgear^.FrameTicks < 1) or (vgear^.FrameTicks > 3) then vgear^.FrameTicks:= 1; |
642 end; |
642 end; |
643 end |
643 end |
644 end; |
644 end; |
645 lc_hogsay:= 0 |
645 lc_hogsay:= 0 |
|
646 end; |
|
647 |
|
648 function lc_addammo(L : Plua_State) : LongInt; Cdecl; |
|
649 var gear : PGear; |
|
650 begin |
|
651 if lua_gettop(L) <> 2 then |
|
652 begin |
|
653 LuaError('Lua: Wrong number of parameters passed to AddAmmo!'); |
|
654 end |
|
655 else |
|
656 begin |
|
657 gear:= GearByUID(lua_tointeger(L, 1)); |
|
658 if (gear <> nil) and (gear^.Hedgehog <> nil) then |
|
659 AddAmmo(gear^.Hedgehog^, TAmmoType(lua_tointeger(L, 2))); |
|
660 end; |
|
661 lc_addammo:= 0 |
646 end; |
662 end; |
647 |
663 |
648 function lc_sethealth(L : Plua_State) : LongInt; Cdecl; |
664 function lc_sethealth(L : Plua_State) : LongInt; Cdecl; |
649 var gear : PGear; |
665 var gear : PGear; |
650 begin |
666 begin |
1323 lua_register(luaState, 'AddCaption', @lc_addcaption); |
1339 lua_register(luaState, 'AddCaption', @lc_addcaption); |
1324 lua_register(luaState, 'SetAmmo', @lc_setammo); |
1340 lua_register(luaState, 'SetAmmo', @lc_setammo); |
1325 lua_register(luaState, 'PlaySound', @lc_playsound); |
1341 lua_register(luaState, 'PlaySound', @lc_playsound); |
1326 lua_register(luaState, 'AddTeam', @lc_addteam); |
1342 lua_register(luaState, 'AddTeam', @lc_addteam); |
1327 lua_register(luaState, 'AddHog', @lc_addhog); |
1343 lua_register(luaState, 'AddHog', @lc_addhog); |
|
1344 lua_register(luaState, 'AddAmmo', @lc_addammo); |
1328 lua_register(luaState, 'SetHealth', @lc_sethealth); |
1345 lua_register(luaState, 'SetHealth', @lc_sethealth); |
1329 lua_register(luaState, 'GetHealth', @lc_gethealth); |
1346 lua_register(luaState, 'GetHealth', @lc_gethealth); |
1330 lua_register(luaState, 'SetEffect', @lc_seteffect); |
1347 lua_register(luaState, 'SetEffect', @lc_seteffect); |
1331 lua_register(luaState, 'GetHogClan', @lc_gethogclan); |
1348 lua_register(luaState, 'GetHogClan', @lc_gethogclan); |
1332 lua_register(luaState, 'GetHogTeamName', @lc_gethogteamname); |
1349 lua_register(luaState, 'GetHogTeamName', @lc_gethogteamname); |