1158 lua_pushinteger(L, gear^.State) |
1158 lua_pushinteger(L, gear^.State) |
1159 else |
1159 else |
1160 lua_pushnil(L) |
1160 lua_pushnil(L) |
1161 end; |
1161 end; |
1162 lc_getstate:= 1 |
1162 lc_getstate:= 1 |
|
1163 end; |
|
1164 |
|
1165 function lc_gettag(L : Plua_State) : LongInt; Cdecl; |
|
1166 var gear : PGear; |
|
1167 begin |
|
1168 if lua_gettop(L) <> 1 then |
|
1169 begin |
|
1170 LuaError('Lua: Wrong number of parameters passed to GetX!'); |
|
1171 lua_pushnil(L); // return value on stack (nil) |
|
1172 end |
|
1173 else |
|
1174 begin |
|
1175 gear:= GearByUID(lua_tointeger(L, 1)); |
|
1176 if gear <> nil then |
|
1177 lua_pushinteger(L, gear^.Tag) |
|
1178 else |
|
1179 lua_pushnil(L); |
|
1180 end; |
|
1181 lc_gettag:= 1 |
1163 end; |
1182 end; |
1164 |
1183 |
1165 function lc_settag(L : Plua_State) : LongInt; Cdecl; |
1184 function lc_settag(L : Plua_State) : LongInt; Cdecl; |
1166 var gear : PGear; |
1185 var gear : PGear; |
1167 begin |
1186 begin |
2205 lua_register(luaState, _P'CopyPV', @lc_copypv); |
2224 lua_register(luaState, _P'CopyPV', @lc_copypv); |
2206 lua_register(luaState, _P'FollowGear', @lc_followgear); |
2225 lua_register(luaState, _P'FollowGear', @lc_followgear); |
2207 lua_register(luaState, _P'GetFollowGear', @lc_getfollowgear); |
2226 lua_register(luaState, _P'GetFollowGear', @lc_getfollowgear); |
2208 lua_register(luaState, _P'SetState', @lc_setstate); |
2227 lua_register(luaState, _P'SetState', @lc_setstate); |
2209 lua_register(luaState, _P'GetState', @lc_getstate); |
2228 lua_register(luaState, _P'GetState', @lc_getstate); |
|
2229 lua_register(luaState, _P'GetTag', @lc_gettag); |
2210 lua_register(luaState, _P'SetTag', @lc_settag); |
2230 lua_register(luaState, _P'SetTag', @lc_settag); |
2211 lua_register(luaState, _P'SetTimer', @lc_settimer); |
2231 lua_register(luaState, _P'SetTimer', @lc_settimer); |
2212 lua_register(luaState, _P'GetTimer', @lc_gettimer); |
2232 lua_register(luaState, _P'GetTimer', @lc_gettimer); |
2213 lua_register(luaState, _P'SetZoom', @lc_setzoom); |
2233 lua_register(luaState, _P'SetZoom', @lc_setzoom); |
2214 lua_register(luaState, _P'GetZoom', @lc_getzoom); |
2234 lua_register(luaState, _P'GetZoom', @lc_getzoom); |