2014-03-15 16:59:03 +00:00
|
|
|
// SONIC ROBO BLAST 2
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
// Copyright (C) 2012-2014 by John "JTE" Muniz.
|
|
|
|
// Copyright (C) 2012-2014 by Sonic Team Junior.
|
|
|
|
//
|
|
|
|
// 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_script.h
|
|
|
|
/// \brief Lua scripting basics
|
|
|
|
|
|
|
|
#ifdef HAVE_BLUA
|
|
|
|
|
|
|
|
#include "m_fixed.h"
|
|
|
|
#include "doomtype.h"
|
|
|
|
#include "d_player.h"
|
|
|
|
|
|
|
|
#include "blua/lua.h"
|
|
|
|
#include "blua/lualib.h"
|
|
|
|
#include "blua/lauxlib.h"
|
|
|
|
#define lua_optboolean(L, i) (!lua_isnoneornil(L, i) && lua_toboolean(L, i))
|
|
|
|
#define lua_opttrueboolean(L, i) (lua_isnoneornil(L, i) || lua_toboolean(L, i))
|
|
|
|
|
|
|
|
#ifdef _DEBUG
|
|
|
|
void LUA_ClearExtVars(void);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
void LUA_LoadLump(UINT16 wad, UINT16 lump);
|
|
|
|
#ifdef LUA_ALLOW_BYTECODE
|
|
|
|
void LUA_DumpFile(const char *filename);
|
|
|
|
#endif
|
|
|
|
fixed_t LUA_EvalMath(const char *word);
|
|
|
|
void LUA_PushUserdata(lua_State *L, void *data, const char *meta);
|
|
|
|
void LUA_InvalidateUserdata(void *data);
|
|
|
|
void LUA_InvalidateLevel(void);
|
|
|
|
void LUA_InvalidateMapthings(void);
|
|
|
|
void LUA_InvalidatePlayer(player_t *player);
|
|
|
|
void LUA_Archive(void);
|
|
|
|
void LUA_UnArchive(void);
|
|
|
|
void Got_Luacmd(UINT8 **cp, INT32 playernum); // lua_consolelib.c
|
|
|
|
void LUA_CVarChanged(const char *name); // lua_consolelib.c
|
|
|
|
int Lua_optoption(lua_State *L, int narg,
|
|
|
|
const char *def, const char *const lst[]);
|
|
|
|
|
2014-04-14 05:14:58 +00:00
|
|
|
// Console wrapper
|
|
|
|
void COM_Lua_f(void);
|
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
#define LUA_Call(L,a)\
|
|
|
|
{\
|
|
|
|
if (lua_pcall(L, a, 0, 0)) {\
|
|
|
|
CONS_Alert(CONS_WARNING,"%s\n",lua_tostring(L,-1));\
|
|
|
|
lua_pop(L, 1);\
|
|
|
|
}\
|
|
|
|
}
|
|
|
|
|
|
|
|
#define LUA_ErrInvalid(L, type) luaL_error(L, "accessed " type " doesn't exist anymore, please check 'valid' before using " type ".");
|
|
|
|
|
|
|
|
#endif
|