2014-03-15 09:59:03 -07:00
// SONIC ROBO BLAST 2
//-----------------------------------------------------------------------------
2016-05-17 17:42:11 -07:00
// Copyright (C) 2012-2016 by John "JTE" Muniz.
// Copyright (C) 2012-2016 by Sonic Team Junior.
2014-03-15 09:59:03 -07:00
//
// This program is free software distributed under the
// terms of the GNU General Public License, version 2.
// See the 'LICENSE' file for more details.
//-----------------------------------------------------------------------------
/// \file lua_playerlib.c
/// \brief player object library for Lua scripting
# include "doomdef.h"
# ifdef HAVE_BLUA
# include "fastcmp.h"
# include "p_mobj.h"
# include "d_player.h"
# include "g_game.h"
# include "p_local.h"
# include "lua_script.h"
# include "lua_libs.h"
# include "lua_hud.h" // hud_running errors
static int lib_iteratePlayers ( lua_State * L )
{
INT32 i = - 1 ;
2017-01-18 14:02:28 -08:00
if ( gamestate ! = GS_LEVEL )
return luaL_error ( L , " This function can only be used in a level! " ) ;
2014-03-15 09:59:03 -07:00
if ( lua_gettop ( L ) < 2 )
{
//return luaL_error(L, "Don't call players.iterate() directly, use it as 'for player in players.iterate do <block> end'.");
lua_pushcfunction ( L , lib_iteratePlayers ) ;
return 1 ;
}
lua_settop ( L , 2 ) ;
lua_remove ( L , 1 ) ; // state is unused.
if ( ! lua_isnil ( L , 1 ) )
i = ( INT32 ) ( * ( ( player_t * * ) luaL_checkudata ( L , 1 , META_PLAYER ) ) - players ) ;
for ( i + + ; i < MAXPLAYERS ; i + + )
{
if ( ! playeringame [ i ] )
continue ;
if ( ! players [ i ] . mo )
continue ;
LUA_PushUserdata ( L , & players [ i ] , META_PLAYER ) ;
return 1 ;
}
return 0 ;
}
static int lib_getPlayer ( lua_State * L )
{
const char * field ;
// i -> players[i]
2017-01-18 14:02:28 -08:00
if ( gamestate ! = GS_LEVEL )
return luaL_error ( L , " You cannot access this outside of a level! " ) ;
2014-03-15 09:59:03 -07:00
if ( lua_type ( L , 2 ) = = LUA_TNUMBER )
{
lua_Integer i = luaL_checkinteger ( L , 2 ) ;
if ( i < 0 | | i > = MAXPLAYERS )
2016-05-01 14:14:42 -07:00
return luaL_error ( L , " players[] index %d out of range (0 - %d) " , i, MAXPLAYERS-1) ;
2014-03-15 09:59:03 -07:00
if ( ! playeringame [ i ] )
return 0 ;
if ( ! players [ i ] . mo )
return 0 ;
LUA_PushUserdata ( L , & players [ i ] , META_PLAYER ) ;
return 1 ;
}
field = luaL_checkstring ( L , 2 ) ;
if ( fastcmp ( field , " iterate " ) )
{
lua_pushcfunction ( L , lib_iteratePlayers ) ;
return 1 ;
}
return 0 ;
}
// #players -> MAXPLAYERS
static int lib_lenPlayer ( lua_State * L )
{
lua_pushinteger ( L , MAXPLAYERS ) ;
return 1 ;
}
static int player_get ( lua_State * L )
{
player_t * plr = * ( ( player_t * * ) luaL_checkudata ( L , 1 , META_PLAYER ) ) ;
const char * field = luaL_checkstring ( L , 2 ) ;
if ( ! plr ) {
if ( fastcmp ( field , " valid " ) ) {
lua_pushboolean ( L , false ) ;
return 1 ;
}
return LUA_ErrInvalid ( L , " player_t " ) ;
}
if ( fastcmp ( field , " valid " ) )
lua_pushboolean ( L , true ) ;
else if ( fastcmp ( field , " name " ) )
lua_pushstring ( L , player_names [ plr - players ] ) ;
else if ( fastcmp ( field , " mo " ) )
{
if ( plr - > spectator )
lua_pushnil ( L ) ;
else
LUA_PushUserdata ( L , plr - > mo , META_MOBJ ) ;
}
else if ( fastcmp ( field , " cmd " ) )
LUA_PushUserdata ( L , & plr - > cmd , META_TICCMD ) ;
else if ( fastcmp ( field , " playerstate " ) )
lua_pushinteger ( L , plr - > playerstate ) ;
2016-09-25 10:21:52 -07:00
else if ( fastcmp ( field , " camerascale " ) )
lua_pushfixed ( L , plr - > camerascale ) ;
else if ( fastcmp ( field , " shieldscale " ) )
lua_pushfixed ( L , plr - > shieldscale ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " viewz " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > viewz ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " viewheight " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > viewheight ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " deltaviewheight " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > deltaviewheight ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " bob " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > bob ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " aiming " ) )
2015-05-20 20:54:04 -07:00
lua_pushangle ( L , plr - > aiming ) ;
2017-02-05 10:15:20 -08:00
else if ( fastcmp ( field , " drawangle " ) )
lua_pushangle ( L , plr - > drawangle ) ;
2015-08-15 13:07:16 -07:00
else if ( fastcmp ( field , " rings " ) )
lua_pushinteger ( L , plr - > rings ) ;
2018-06-03 14:41:54 -07:00
else if ( fastcmp ( field , " spheres " ) )
lua_pushinteger ( L , plr - > spheres ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " pity " ) )
lua_pushinteger ( L , plr - > pity ) ;
else if ( fastcmp ( field , " currentweapon " ) )
lua_pushinteger ( L , plr - > currentweapon ) ;
else if ( fastcmp ( field , " ringweapons " ) )
lua_pushinteger ( L , plr - > ringweapons ) ;
else if ( fastcmp ( field , " powers " ) )
LUA_PushUserdata ( L , plr - > powers , META_POWERS ) ;
else if ( fastcmp ( field , " pflags " ) )
2014-03-18 10:56:54 -07:00
lua_pushinteger ( L , plr - > pflags ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " panim " ) )
lua_pushinteger ( L , plr - > panim ) ;
else if ( fastcmp ( field , " flashcount " ) )
lua_pushinteger ( L , plr - > flashcount ) ;
else if ( fastcmp ( field , " flashpal " ) )
lua_pushinteger ( L , plr - > flashpal ) ;
else if ( fastcmp ( field , " skincolor " ) )
lua_pushinteger ( L , plr - > skincolor ) ;
else if ( fastcmp ( field , " score " ) )
lua_pushinteger ( L , plr - > score ) ;
else if ( fastcmp ( field , " dashspeed " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > dashspeed ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " normalspeed " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > normalspeed ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " runspeed " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > runspeed ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " thrustfactor " ) )
lua_pushinteger ( L , plr - > thrustfactor ) ;
else if ( fastcmp ( field , " accelstart " ) )
lua_pushinteger ( L , plr - > accelstart ) ;
else if ( fastcmp ( field , " acceleration " ) )
lua_pushinteger ( L , plr - > acceleration ) ;
else if ( fastcmp ( field , " charability " ) )
lua_pushinteger ( L , plr - > charability ) ;
else if ( fastcmp ( field , " charability2 " ) )
lua_pushinteger ( L , plr - > charability2 ) ;
else if ( fastcmp ( field , " charflags " ) )
lua_pushinteger ( L , plr - > charflags ) ;
else if ( fastcmp ( field , " thokitem " ) )
lua_pushinteger ( L , plr - > thokitem ) ;
else if ( fastcmp ( field , " spinitem " ) )
lua_pushinteger ( L , plr - > spinitem ) ;
else if ( fastcmp ( field , " revitem " ) )
lua_pushinteger ( L , plr - > revitem ) ;
2017-10-02 06:08:58 -07:00
else if ( fastcmp ( field , " followitem " ) )
lua_pushinteger ( L , plr - > followitem ) ;
else if ( fastcmp ( field , " followmobj " ) )
LUA_PushUserdata ( L , plr - > followmobj , META_MOBJ ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " actionspd " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > actionspd ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " mindash " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > mindash ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " maxdash " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > maxdash ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " jumpfactor " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > jumpfactor ) ;
2016-09-25 10:21:52 -07:00
else if ( fastcmp ( field , " height " ) )
lua_pushfixed ( L , plr - > height ) ;
else if ( fastcmp ( field , " spinheight " ) )
lua_pushfixed ( L , plr - > spinheight ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " lives " ) )
lua_pushinteger ( L , plr - > lives ) ;
else if ( fastcmp ( field , " continues " ) )
lua_pushinteger ( L , plr - > continues ) ;
else if ( fastcmp ( field , " xtralife " ) )
lua_pushinteger ( L , plr - > xtralife ) ;
else if ( fastcmp ( field , " gotcontinue " ) )
lua_pushinteger ( L , plr - > gotcontinue ) ;
else if ( fastcmp ( field , " speed " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > speed ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " secondjump " ) )
lua_pushinteger ( L , plr - > secondjump ) ;
else if ( fastcmp ( field , " fly1 " ) )
lua_pushinteger ( L , plr - > fly1 ) ;
else if ( fastcmp ( field , " scoreadd " ) )
lua_pushinteger ( L , plr - > scoreadd ) ;
else if ( fastcmp ( field , " glidetime " ) )
lua_pushinteger ( L , plr - > glidetime ) ;
else if ( fastcmp ( field , " climbing " ) )
lua_pushinteger ( L , plr - > climbing ) ;
else if ( fastcmp ( field , " deadtimer " ) )
lua_pushinteger ( L , plr - > deadtimer ) ;
else if ( fastcmp ( field , " exiting " ) )
lua_pushinteger ( L , plr - > exiting ) ;
else if ( fastcmp ( field , " homing " ) )
lua_pushinteger ( L , plr - > homing ) ;
2016-01-25 03:47:33 -08:00
else if ( fastcmp ( field , " dashmode " ) )
lua_pushinteger ( L , plr - > dashmode ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " skidtime " ) )
lua_pushinteger ( L , plr - > skidtime ) ;
else if ( fastcmp ( field , " cmomx " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > cmomx ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " cmomy " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > cmomy ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " rmomx " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > rmomx ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " rmomy " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > rmomy ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " numboxes " ) )
lua_pushinteger ( L , plr - > numboxes ) ;
else if ( fastcmp ( field , " totalring " ) )
lua_pushinteger ( L , plr - > totalring ) ;
else if ( fastcmp ( field , " realtime " ) )
lua_pushinteger ( L , plr - > realtime ) ;
else if ( fastcmp ( field , " laps " ) )
lua_pushinteger ( L , plr - > laps ) ;
else if ( fastcmp ( field , " ctfteam " ) )
lua_pushinteger ( L , plr - > ctfteam ) ;
else if ( fastcmp ( field , " gotflag " ) )
lua_pushinteger ( L , plr - > gotflag ) ;
else if ( fastcmp ( field , " weapondelay " ) )
lua_pushinteger ( L , plr - > weapondelay ) ;
else if ( fastcmp ( field , " tossdelay " ) )
lua_pushinteger ( L , plr - > tossdelay ) ;
else if ( fastcmp ( field , " starpostx " ) )
lua_pushinteger ( L , plr - > starpostx ) ;
else if ( fastcmp ( field , " starposty " ) )
lua_pushinteger ( L , plr - > starposty ) ;
else if ( fastcmp ( field , " starpostz " ) )
lua_pushinteger ( L , plr - > starpostz ) ;
else if ( fastcmp ( field , " starpostnum " ) )
lua_pushinteger ( L , plr - > starpostnum ) ;
else if ( fastcmp ( field , " starposttime " ) )
lua_pushinteger ( L , plr - > starposttime ) ;
else if ( fastcmp ( field , " starpostangle " ) )
2015-05-20 20:54:04 -07:00
lua_pushangle ( L , plr - > starpostangle ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " angle_pos " ) )
2015-05-20 20:54:04 -07:00
lua_pushangle ( L , plr - > angle_pos ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " old_angle_pos " ) )
2015-05-20 20:54:04 -07:00
lua_pushangle ( L , plr - > old_angle_pos ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " axis1 " ) )
LUA_PushUserdata ( L , plr - > axis1 , META_MOBJ ) ;
else if ( fastcmp ( field , " axis2 " ) )
LUA_PushUserdata ( L , plr - > axis2 , META_MOBJ ) ;
else if ( fastcmp ( field , " bumpertime " ) )
lua_pushinteger ( L , plr - > bumpertime ) ;
else if ( fastcmp ( field , " flyangle " ) )
lua_pushinteger ( L , plr - > flyangle ) ;
else if ( fastcmp ( field , " drilltimer " ) )
lua_pushinteger ( L , plr - > drilltimer ) ;
else if ( fastcmp ( field , " linkcount " ) )
lua_pushinteger ( L , plr - > linkcount ) ;
else if ( fastcmp ( field , " linktimer " ) )
lua_pushinteger ( L , plr - > linktimer ) ;
else if ( fastcmp ( field , " anotherflyangle " ) )
lua_pushinteger ( L , plr - > anotherflyangle ) ;
else if ( fastcmp ( field , " nightstime " ) )
lua_pushinteger ( L , plr - > nightstime ) ;
else if ( fastcmp ( field , " drillmeter " ) )
lua_pushinteger ( L , plr - > drillmeter ) ;
else if ( fastcmp ( field , " drilldelay " ) )
lua_pushinteger ( L , plr - > drilldelay ) ;
else if ( fastcmp ( field , " bonustime " ) )
2014-08-03 20:49:33 -07:00
lua_pushboolean ( L , plr - > bonustime ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " capsule " ) )
LUA_PushUserdata ( L , plr - > capsule , META_MOBJ ) ;
else if ( fastcmp ( field , " mare " ) )
lua_pushinteger ( L , plr - > mare ) ;
2018-03-30 11:36:49 -07:00
else if ( fastcmp ( field , " marelap " ) )
lua_pushinteger ( L , plr - > marelap ) ;
else if ( fastcmp ( field , " marebonuslap " ) )
lua_pushinteger ( L , plr - > marebonuslap ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " marebegunat " ) )
lua_pushinteger ( L , plr - > marebegunat ) ;
else if ( fastcmp ( field , " startedtime " ) )
lua_pushinteger ( L , plr - > startedtime ) ;
else if ( fastcmp ( field , " finishedtime " ) )
lua_pushinteger ( L , plr - > finishedtime ) ;
2018-08-10 14:12:26 -07:00
else if ( fastcmp ( field , " lapbegunat " ) )
lua_pushinteger ( L , plr - > lapbegunat ) ;
else if ( fastcmp ( field , " lapstartedtime " ) )
lua_pushinteger ( L , plr - > lapstartedtime ) ;
2018-06-03 14:41:54 -07:00
else if ( fastcmp ( field , " finishedspheres " ) )
lua_pushinteger ( L , plr - > finishedspheres ) ;
2018-08-10 01:05:20 -07:00
else if ( fastcmp ( field , " finishedrings " ) )
lua_pushinteger ( L , plr - > finishedrings ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " marescore " ) )
lua_pushinteger ( L , plr - > marescore ) ;
else if ( fastcmp ( field , " lastmarescore " ) )
lua_pushinteger ( L , plr - > lastmarescore ) ;
else if ( fastcmp ( field , " lastmare " ) )
lua_pushinteger ( L , plr - > lastmare ) ;
2018-08-10 13:30:49 -07:00
else if ( fastcmp ( field , " lastmarelap " ) )
lua_pushinteger ( L , plr - > lastmarelap ) ;
else if ( fastcmp ( field , " lastmarebonuslap " ) )
lua_pushinteger ( L , plr - > lastmarebonuslap ) ;
2018-08-12 16:57:33 -07:00
else if ( fastcmp ( field , " totalmarelap " ) )
lua_pushinteger ( L , plr - > totalmarelap ) ;
else if ( fastcmp ( field , " totalmarebonuslap " ) )
lua_pushinteger ( L , plr - > totalmarebonuslap ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " maxlink " ) )
lua_pushinteger ( L , plr - > maxlink ) ;
else if ( fastcmp ( field , " texttimer " ) )
lua_pushinteger ( L , plr - > texttimer ) ;
else if ( fastcmp ( field , " textvar " ) )
lua_pushinteger ( L , plr - > textvar ) ;
else if ( fastcmp ( field , " lastsidehit " ) )
lua_pushinteger ( L , plr - > lastsidehit ) ;
else if ( fastcmp ( field , " lastlinehit " ) )
lua_pushinteger ( L , plr - > lastlinehit ) ;
else if ( fastcmp ( field , " losstime " ) )
lua_pushinteger ( L , plr - > losstime ) ;
2016-04-30 01:19:00 -07:00
else if ( fastcmp ( field , " timeshit " ) )
lua_pushinteger ( L , plr - > timeshit ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " onconveyor " ) )
lua_pushinteger ( L , plr - > onconveyor ) ;
else if ( fastcmp ( field , " awayviewmobj " ) )
LUA_PushUserdata ( L , plr - > awayviewmobj , META_MOBJ ) ;
else if ( fastcmp ( field , " awayviewtics " ) )
lua_pushinteger ( L , plr - > awayviewtics ) ;
2014-03-21 11:42:55 -07:00
else if ( fastcmp ( field , " awayviewaiming " ) )
2015-05-20 20:54:04 -07:00
lua_pushangle ( L , plr - > awayviewaiming ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " spectator " ) )
2015-05-20 20:54:04 -07:00
lua_pushboolean ( L , plr - > spectator ) ;
2017-07-04 06:58:58 -07:00
else if ( fastcmp ( field , " outofcoop " ) )
lua_pushboolean ( L , plr - > outofcoop ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " bot " ) )
lua_pushinteger ( L , plr - > bot ) ;
else if ( fastcmp ( field , " jointime " ) )
lua_pushinteger ( L , plr - > jointime ) ;
# ifdef HWRENDER
else if ( fastcmp ( field , " fovadd " ) )
2015-05-20 20:54:04 -07:00
lua_pushfixed ( L , plr - > fovadd ) ;
2014-03-15 09:59:03 -07:00
# endif
else {
lua_getfield ( L , LUA_REGISTRYINDEX , LREG_EXTVARS ) ;
I_Assert ( lua_istable ( L , - 1 ) ) ;
lua_pushlightuserdata ( L , plr ) ;
lua_rawget ( L , - 2 ) ;
if ( ! lua_istable ( L , - 1 ) ) { // no extra values table
CONS_Debug ( DBG_LUA , M_GetText ( " '%s' has no extvars table or field named '%s'; returning nil. \n " ) , " player_t " , field ) ;
return 0 ;
}
lua_getfield ( L , - 1 , field ) ;
if ( lua_isnil ( L , - 1 ) ) // no value for this field
CONS_Debug ( DBG_LUA , M_GetText ( " '%s' has no field named '%s'; returning nil. \n " ) , " player_t " , field ) ;
}
return 1 ;
}
# define NOSET luaL_error(L, LUA_QL("player_t") " field " LUA_QS " should not be set directly.", field)
static int player_set ( lua_State * L )
{
player_t * plr = * ( ( player_t * * ) luaL_checkudata ( L , 1 , META_PLAYER ) ) ;
const char * field = luaL_checkstring ( L , 2 ) ;
if ( ! plr )
return LUA_ErrInvalid ( L , " player_t " ) ;
if ( hud_running )
return luaL_error ( L , " Do not alter player_t in HUD rendering code! " ) ;
2014-04-19 10:41:29 -07:00
if ( fastcmp ( field , " mo " ) ) {
2014-08-03 20:49:33 -07:00
mobj_t * newmo = * ( ( mobj_t * * ) luaL_checkudata ( L , 3 , META_MOBJ ) ) ;
plr - > mo - > player = NULL ; // remove player pointer from old mobj
( newmo - > player = plr ) - > mo = newmo ; // set player pointer for new mobj, and set new mobj as the player's mobj
2014-04-19 10:41:29 -07:00
}
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " cmd " ) )
return NOSET ;
else if ( fastcmp ( field , " playerstate " ) )
plr - > playerstate = luaL_checkinteger ( L , 3 ) ;
2016-09-25 10:21:52 -07:00
else if ( fastcmp ( field , " camerascale " ) )
plr - > camerascale = luaL_checkfixed ( L , 3 ) ;
else if ( fastcmp ( field , " shieldscale " ) )
plr - > shieldscale = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " viewz " ) )
2015-05-20 20:54:04 -07:00
plr - > viewz = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " viewheight " ) )
2015-05-20 20:54:04 -07:00
plr - > viewheight = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " deltaviewheight " ) )
2015-05-20 20:54:04 -07:00
plr - > deltaviewheight = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " bob " ) )
2015-05-20 20:54:04 -07:00
plr - > bob = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " aiming " ) ) {
2015-05-20 20:54:04 -07:00
plr - > aiming = luaL_checkangle ( L , 3 ) ;
2014-08-03 20:49:33 -07:00
if ( plr = = & players [ consoleplayer ] )
2014-03-15 09:59:03 -07:00
localaiming = plr - > aiming ;
else if ( plr = = & players [ secondarydisplayplayer ] )
localaiming2 = plr - > aiming ;
}
2017-02-05 10:15:20 -08:00
else if ( fastcmp ( field , " drawangle " ) )
plr - > drawangle = luaL_checkangle ( L , 3 ) ;
2015-08-15 13:07:16 -07:00
else if ( fastcmp ( field , " rings " ) )
plr - > rings = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
2018-06-03 14:41:54 -07:00
else if ( fastcmp ( field , " spheres " ) )
plr - > spheres = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " pity " ) )
plr - > pity = ( SINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " currentweapon " ) )
plr - > currentweapon = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " ringweapons " ) )
plr - > ringweapons = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " powers " ) )
return NOSET ;
else if ( fastcmp ( field , " pflags " ) )
2014-03-18 10:56:54 -07:00
plr - > pflags = luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " panim " ) )
plr - > panim = luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " flashcount " ) )
plr - > flashcount = ( UINT16 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " flashpal " ) )
plr - > flashpal = ( UINT16 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " skincolor " ) )
2016-05-14 15:52:40 -07:00
{
UINT8 newcolor = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
if ( newcolor > = MAXSKINCOLORS )
return luaL_error ( L , " player.skincolor %d out of range (0 - %d) . " , newcolor, MAXSKINCOLORS-1) ;
plr - > skincolor = newcolor ;
}
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " score " ) )
plr - > score = ( UINT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " dashspeed " ) )
2015-05-20 20:54:04 -07:00
plr - > dashspeed = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " normalspeed " ) )
2015-05-20 20:54:04 -07:00
plr - > normalspeed = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " runspeed " ) )
2015-05-20 20:54:04 -07:00
plr - > runspeed = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " thrustfactor " ) )
plr - > thrustfactor = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " accelstart " ) )
plr - > accelstart = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " acceleration " ) )
plr - > acceleration = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " charability " ) )
plr - > charability = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " charability2 " ) )
plr - > charability2 = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " charflags " ) )
plr - > charflags = ( UINT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " thokitem " ) )
plr - > thokitem = luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " spinitem " ) )
plr - > spinitem = luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " revitem " ) )
plr - > revitem = luaL_checkinteger ( L , 3 ) ;
2017-10-02 06:08:58 -07:00
else if ( fastcmp ( field , " followitem " ) )
plr - > followitem = luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " followmobj " ) )
2018-06-03 14:41:54 -07:00
P_SetTarget ( & plr - > followmobj , * ( ( mobj_t * * ) luaL_checkudata ( L , 3 , META_MOBJ ) ) ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " actionspd " ) )
plr - > actionspd = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " mindash " ) )
plr - > mindash = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " maxdash " ) )
plr - > maxdash = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " jumpfactor " ) )
plr - > jumpfactor = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
2016-09-25 10:21:52 -07:00
else if ( fastcmp ( field , " height " ) )
plr - > height = luaL_checkfixed ( L , 3 ) ;
else if ( fastcmp ( field , " spinheight " ) )
plr - > spinheight = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " lives " ) )
2014-03-21 11:42:55 -07:00
plr - > lives = ( SINT8 ) luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " continues " ) )
2014-03-21 11:42:55 -07:00
plr - > continues = ( SINT8 ) luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " xtralife " ) )
2014-03-21 11:42:55 -07:00
plr - > xtralife = ( SINT8 ) luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " gotcontinue " ) )
plr - > gotcontinue = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " speed " ) )
2015-05-20 20:54:04 -07:00
plr - > speed = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " secondjump " ) )
plr - > secondjump = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " fly1 " ) )
plr - > fly1 = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " scoreadd " ) )
plr - > scoreadd = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " glidetime " ) )
plr - > glidetime = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " climbing " ) )
plr - > climbing = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " deadtimer " ) )
plr - > deadtimer = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " exiting " ) )
plr - > exiting = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " homing " ) )
plr - > homing = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
2016-01-25 03:47:33 -08:00
else if ( fastcmp ( field , " dashmode " ) )
plr - > dashmode = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " skidtime " ) )
plr - > skidtime = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " cmomx " ) )
2015-05-20 20:54:04 -07:00
plr - > cmomx = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " cmomy " ) )
2015-05-20 20:54:04 -07:00
plr - > cmomy = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " rmomx " ) )
2015-05-20 20:54:04 -07:00
plr - > rmomx = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " rmomy " ) )
2015-05-20 20:54:04 -07:00
plr - > rmomy = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " numboxes " ) )
2014-03-21 11:42:55 -07:00
plr - > numboxes = ( INT16 ) luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " totalring " ) )
2014-03-21 11:42:55 -07:00
plr - > totalring = ( INT16 ) luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " realtime " ) )
plr - > realtime = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " laps " ) )
2014-03-21 11:42:55 -07:00
plr - > laps = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " ctfteam " ) )
plr - > ctfteam = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " gotflag " ) )
plr - > gotflag = ( UINT16 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " weapondelay " ) )
plr - > weapondelay = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " tossdelay " ) )
plr - > tossdelay = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " starpostx " ) )
plr - > starpostx = ( INT16 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " starposty " ) )
plr - > starposty = ( INT16 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " starpostz " ) )
plr - > starpostz = ( INT16 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " starpostnum " ) )
plr - > starpostnum = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " starposttime " ) )
plr - > starposttime = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " starpostangle " ) )
2015-05-20 20:54:04 -07:00
plr - > starpostangle = luaL_checkangle ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " angle_pos " ) )
2015-05-20 20:54:04 -07:00
plr - > angle_pos = luaL_checkangle ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " old_angle_pos " ) )
2015-05-20 20:54:04 -07:00
plr - > old_angle_pos = luaL_checkangle ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " axis1 " ) )
P_SetTarget ( & plr - > axis1 , * ( ( mobj_t * * ) luaL_checkudata ( L , 3 , META_MOBJ ) ) ) ;
else if ( fastcmp ( field , " axis2 " ) )
P_SetTarget ( & plr - > axis2 , * ( ( mobj_t * * ) luaL_checkudata ( L , 3 , META_MOBJ ) ) ) ;
else if ( fastcmp ( field , " bumpertime " ) )
plr - > bumpertime = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " flyangle " ) )
plr - > flyangle = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " drilltimer " ) )
plr - > drilltimer = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " linkcount " ) )
plr - > linkcount = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " linktimer " ) )
plr - > linktimer = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " anotherflyangle " ) )
plr - > anotherflyangle = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " nightstime " ) )
plr - > nightstime = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " drillmeter " ) )
plr - > drillmeter = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " drilldelay " ) )
plr - > drilldelay = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " bonustime " ) )
plr - > bonustime = luaL_checkboolean ( L , 3 ) ;
else if ( fastcmp ( field , " capsule " ) )
{
mobj_t * mo = NULL ;
if ( ! lua_isnil ( L , 3 ) )
mo = * ( ( mobj_t * * ) luaL_checkudata ( L , 3 , META_MOBJ ) ) ;
P_SetTarget ( & plr - > capsule , mo ) ;
}
else if ( fastcmp ( field , " mare " ) )
plr - > mare = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
2018-03-30 11:36:49 -07:00
else if ( fastcmp ( field , " marelap " ) )
plr - > marelap = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " marebonuslap " ) )
plr - > marebonuslap = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " marebegunat " ) )
plr - > marebegunat = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " startedtime " ) )
plr - > startedtime = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " finishedtime " ) )
plr - > finishedtime = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
2018-08-10 14:12:26 -07:00
else if ( fastcmp ( field , " lapbegunat " ) )
plr - > lapbegunat = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " lapstartedtime " ) )
plr - > lapstartedtime = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
2018-06-03 14:41:54 -07:00
else if ( fastcmp ( field , " finishedspheres " ) )
plr - > finishedspheres = ( INT16 ) luaL_checkinteger ( L , 3 ) ;
2018-08-10 01:05:20 -07:00
else if ( fastcmp ( field , " finishedrings " ) )
plr - > finishedrings = ( INT16 ) luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " marescore " ) )
plr - > marescore = ( UINT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " lastmarescore " ) )
plr - > lastmarescore = ( UINT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " lastmare " ) )
plr - > lastmare = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
2018-08-10 13:30:49 -07:00
else if ( fastcmp ( field , " lastmarelap " ) )
plr - > lastmarelap = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " lastmarebonuslap " ) )
plr - > lastmarebonuslap = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
2018-08-12 16:57:33 -07:00
else if ( fastcmp ( field , " totalmarelap " ) )
plr - > totalmarelap = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " totalmarebonuslap " ) )
plr - > totalmarebonuslap = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " maxlink " ) )
plr - > maxlink = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " texttimer " ) )
plr - > texttimer = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " textvar " ) )
plr - > textvar = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " lastsidehit " ) )
plr - > lastsidehit = ( INT16 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " lastlinehit " ) )
plr - > lastlinehit = ( INT16 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " losstime " ) )
plr - > losstime = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
2016-04-30 01:19:00 -07:00
else if ( fastcmp ( field , " timeshit " ) )
plr - > timeshit = ( UINT8 ) luaL_checkinteger ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " onconveyor " ) )
plr - > onconveyor = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " awayviewmobj " ) )
{
mobj_t * mo = NULL ;
if ( ! lua_isnil ( L , 3 ) )
mo = * ( ( mobj_t * * ) luaL_checkudata ( L , 3 , META_MOBJ ) ) ;
P_SetTarget ( & plr - > awayviewmobj , mo ) ;
}
else if ( fastcmp ( field , " awayviewtics " ) )
{
plr - > awayviewtics = ( INT32 ) luaL_checkinteger ( L , 3 ) ;
if ( plr - > awayviewtics & & ! plr - > awayviewmobj ) // awayviewtics must ALWAYS have an awayviewmobj set!!
P_SetTarget ( & plr - > awayviewmobj , plr - > mo ) ; // but since the script might set awayviewmobj immediately AFTER setting awayviewtics, use player mobj as filler for now.
}
2014-03-21 11:42:55 -07:00
else if ( fastcmp ( field , " awayviewaiming " ) )
2015-05-20 20:54:04 -07:00
plr - > awayviewaiming = luaL_checkangle ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " spectator " ) )
plr - > spectator = lua_toboolean ( L , 3 ) ;
2017-07-04 06:58:58 -07:00
else if ( fastcmp ( field , " outofcoop " ) )
plr - > outofcoop = lua_toboolean ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
else if ( fastcmp ( field , " bot " ) )
return NOSET ;
else if ( fastcmp ( field , " jointime " ) )
plr - > jointime = ( tic_t ) luaL_checkinteger ( L , 3 ) ;
# ifdef HWRENDER
else if ( fastcmp ( field , " fovadd " ) )
2015-05-20 20:54:04 -07:00
plr - > fovadd = luaL_checkfixed ( L , 3 ) ;
2014-03-15 09:59:03 -07:00
# endif
else {
lua_getfield ( L , LUA_REGISTRYINDEX , LREG_EXTVARS ) ;
I_Assert ( lua_istable ( L , - 1 ) ) ;
lua_pushlightuserdata ( L , plr ) ;
lua_rawget ( L , - 2 ) ;
if ( lua_isnil ( L , - 1 ) ) {
// This index doesn't have a table for extra values yet, let's make one.
lua_pop ( L , 1 ) ;
CONS_Debug ( DBG_LUA , M_GetText ( " '%s' has no field named '%s'; adding it as Lua data. \n " ) , " player_t " , field ) ;
lua_newtable ( L ) ;
lua_pushlightuserdata ( L , plr ) ;
lua_pushvalue ( L , - 2 ) ; // ext value table
lua_rawset ( L , - 4 ) ; // LREG_EXTVARS table
}
lua_pushvalue ( L , 3 ) ; // value to store
lua_setfield ( L , - 2 , field ) ;
lua_pop ( L , 2 ) ;
}
return 0 ;
}
# undef NOSET
static int player_num ( lua_State * L )
{
player_t * plr = * ( ( player_t * * ) luaL_checkudata ( L , 1 , META_PLAYER ) ) ;
if ( ! plr )
return luaL_error ( L , " accessed player_t doesn't exist anymore. " ) ;
lua_pushinteger ( L , plr - players ) ;
return 1 ;
}
// powers, p -> powers[p]
static int power_get ( lua_State * L )
{
UINT16 * powers = * ( ( UINT16 * * ) luaL_checkudata ( L , 1 , META_POWERS ) ) ;
powertype_t p = luaL_checkinteger ( L , 2 ) ;
2014-08-03 20:49:33 -07:00
if ( p > = NUMPOWERS )
2014-03-15 09:59:03 -07:00
return luaL_error ( L , LUA_QL ( " powertype_t " ) " cannot be %u " , p ) ;
lua_pushinteger ( L , powers [ p ] ) ;
return 1 ;
}
// powers, p, value -> powers[p] = value
static int power_set ( lua_State * L )
{
UINT16 * powers = * ( ( UINT16 * * ) luaL_checkudata ( L , 1 , META_POWERS ) ) ;
powertype_t p = luaL_checkinteger ( L , 2 ) ;
UINT16 i = ( UINT16 ) luaL_checkinteger ( L , 3 ) ;
2014-08-03 20:49:33 -07:00
if ( p > = NUMPOWERS )
2014-03-15 09:59:03 -07:00
return luaL_error ( L , LUA_QL ( " powertype_t " ) " cannot be %u " , p ) ;
if ( hud_running )
return luaL_error ( L , " Do not alter player_t in HUD rendering code! " ) ;
powers [ p ] = i ;
2014-08-26 20:56:30 -07:00
return 0 ;
2014-03-15 09:59:03 -07:00
}
// #powers -> NUMPOWERS
static int power_len ( lua_State * L )
{
lua_pushinteger ( L , NUMPOWERS ) ;
return 1 ;
}
# define NOFIELD luaL_error(L, LUA_QL("ticcmd_t") " has no field named " LUA_QS, field)
static int ticcmd_get ( lua_State * L )
{
ticcmd_t * cmd = * ( ( ticcmd_t * * ) luaL_checkudata ( L , 1 , META_TICCMD ) ) ;
const char * field = luaL_checkstring ( L , 2 ) ;
if ( ! cmd )
return LUA_ErrInvalid ( L , " player_t " ) ;
if ( fastcmp ( field , " forwardmove " ) )
lua_pushinteger ( L , cmd - > forwardmove ) ;
else if ( fastcmp ( field , " sidemove " ) )
lua_pushinteger ( L , cmd - > sidemove ) ;
else if ( fastcmp ( field , " angleturn " ) )
lua_pushinteger ( L , cmd - > angleturn ) ;
else if ( fastcmp ( field , " aiming " ) )
lua_pushinteger ( L , cmd - > aiming ) ;
else if ( fastcmp ( field , " buttons " ) )
lua_pushinteger ( L , cmd - > buttons ) ;
else
return NOFIELD ;
return 1 ;
}
static int ticcmd_set ( lua_State * L )
{
ticcmd_t * cmd = * ( ( ticcmd_t * * ) luaL_checkudata ( L , 1 , META_TICCMD ) ) ;
const char * field = luaL_checkstring ( L , 2 ) ;
if ( ! cmd )
return LUA_ErrInvalid ( L , " ticcmd_t " ) ;
if ( hud_running )
return luaL_error ( L , " Do not alter player_t in HUD rendering code! " ) ;
if ( fastcmp ( field , " forwardmove " ) )
cmd - > forwardmove = ( SINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " sidemove " ) )
cmd - > sidemove = ( SINT8 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " angleturn " ) )
cmd - > angleturn = ( INT16 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " aiming " ) )
cmd - > aiming = ( INT16 ) luaL_checkinteger ( L , 3 ) ;
else if ( fastcmp ( field , " buttons " ) )
cmd - > buttons = ( UINT16 ) luaL_checkinteger ( L , 3 ) ;
else
return NOFIELD ;
return 0 ;
}
# undef NOFIELD
int LUA_PlayerLib ( lua_State * L )
{
luaL_newmetatable ( L , META_PLAYER ) ;
lua_pushcfunction ( L , player_get ) ;
lua_setfield ( L , - 2 , " __index " ) ;
lua_pushcfunction ( L , player_set ) ;
lua_setfield ( L , - 2 , " __newindex " ) ;
lua_pushcfunction ( L , player_num ) ;
lua_setfield ( L , - 2 , " __len " ) ;
lua_pop ( L , 1 ) ;
luaL_newmetatable ( L , META_POWERS ) ;
lua_pushcfunction ( L , power_get ) ;
lua_setfield ( L , - 2 , " __index " ) ;
lua_pushcfunction ( L , power_set ) ;
lua_setfield ( L , - 2 , " __newindex " ) ;
lua_pushcfunction ( L , power_len ) ;
lua_setfield ( L , - 2 , " __len " ) ;
lua_pop ( L , 1 ) ;
luaL_newmetatable ( L , META_TICCMD ) ;
lua_pushcfunction ( L , ticcmd_get ) ;
lua_setfield ( L , - 2 , " __index " ) ;
lua_pushcfunction ( L , ticcmd_set ) ;
lua_setfield ( L , - 2 , " __newindex " ) ;
lua_pop ( L , 1 ) ;
lua_newuserdata ( L , 0 ) ;
lua_createtable ( L , 0 , 2 ) ;
lua_pushcfunction ( L , lib_getPlayer ) ;
lua_setfield ( L , - 2 , " __index " ) ;
lua_pushcfunction ( L , lib_lenPlayer ) ;
lua_setfield ( L , - 2 , " __len " ) ;
lua_setmetatable ( L , - 2 ) ;
lua_setglobal ( L , " players " ) ;
return 0 ;
}
# endif