1673 gear^.Z := cCurrHHZ; |
1673 gear^.Z := cCurrHHZ; |
1674 gear^.Message:= gear^.Message or gmRemoveFromList or gmAddToList; |
1674 gear^.Message:= gear^.Message or gmRemoveFromList or gmAddToList; |
1675 end |
1675 end |
1676 end; |
1676 end; |
1677 lc_switchhog:= 0 |
1677 lc_switchhog:= 0 |
|
1678 end; |
|
1679 |
|
1680 function lc_enableswitchhog(L : Plua_State) : LongInt; Cdecl; |
|
1681 var gear: PGear; |
|
1682 begin |
|
1683 if CheckLuaParamCount(L, 0, 'EnableSwitchHog', '') then |
|
1684 begin |
|
1685 gear:= AddGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), gtSwitcher, 0, _0, _0, 0); |
|
1686 CurAmmoGear:= gear; |
|
1687 lastGearByUID:= gear; |
|
1688 bShowFinger:= false; |
|
1689 end; |
|
1690 lc_enableswitchhog:= 0; |
1678 end; |
1691 end; |
1679 |
1692 |
1680 function lc_addammo(L : Plua_State) : LongInt; Cdecl; |
1693 function lc_addammo(L : Plua_State) : LongInt; Cdecl; |
1681 var gear : PGear; |
1694 var gear : PGear; |
1682 at, n, c: LongInt; |
1695 at, n, c: LongInt; |
3964 lua_register(luaState, _P'GetFlightTime', @lc_getflighttime); |
3977 lua_register(luaState, _P'GetFlightTime', @lc_getflighttime); |
3965 lua_register(luaState, _P'SetZoom', @lc_setzoom); |
3978 lua_register(luaState, _P'SetZoom', @lc_setzoom); |
3966 lua_register(luaState, _P'GetZoom', @lc_getzoom); |
3979 lua_register(luaState, _P'GetZoom', @lc_getzoom); |
3967 lua_register(luaState, _P'HogSay', @lc_hogsay); |
3980 lua_register(luaState, _P'HogSay', @lc_hogsay); |
3968 lua_register(luaState, _P'SwitchHog', @lc_switchhog); |
3981 lua_register(luaState, _P'SwitchHog', @lc_switchhog); |
|
3982 lua_register(luaState, _P'EnableSwitchHog', @lc_enableswitchhog); |
3969 lua_register(luaState, _P'HogTurnLeft', @lc_hogturnleft); |
3983 lua_register(luaState, _P'HogTurnLeft', @lc_hogturnleft); |
3970 lua_register(luaState, _P'GetGearElasticity', @lc_getgearelasticity); |
3984 lua_register(luaState, _P'GetGearElasticity', @lc_getgearelasticity); |
3971 lua_register(luaState, _P'SetGearElasticity', @lc_setgearelasticity); |
3985 lua_register(luaState, _P'SetGearElasticity', @lc_setgearelasticity); |
3972 lua_register(luaState, _P'GetGearFriction', @lc_getgearfriction); |
3986 lua_register(luaState, _P'GetGearFriction', @lc_getgearfriction); |
3973 lua_register(luaState, _P'SetGearFriction', @lc_setgearfriction); |
3987 lua_register(luaState, _P'SetGearFriction', @lc_setgearfriction); |