mirror of
https://github.com/1dot13/source.git
synced 2026-07-22 13:40:22 +02:00
Overhaul
7a27e7105d
Added missing #includes Added LUA scripting and console Changed the way tracers are visualized, so they work more like real tracers instead of a light fountain Fixed signedness of many grid variables used in GetMouseMapPos calls Fixed enemy weapon choosing: Sometimes a mortar is chosen but later rejected, but the grenade class was not reset. Caused assertion failure Added checks so enemies don't try to chuck RPG grenades with their hands Now possible to shoot a someone in the head if he's in water Fixed InitSightArrays to also clear soldier interrupt duel points. This was causing an assertion failure elsewhere in the code because the interrupt list still had soldiers on it sometimes when this function was called. Soldiers are much less willing to forfeit their turn over an attempt to use more APs than they have Removed early setting of muzzle flash. This would allow enemies to get an interrupt before you even fired. Fixed item dropping by AI. If AI tried to drop something while standing it would cause deadlock Change to greatly speed up closing the sector inventory window in an unloaded sector Added conditional compile flag to always give robot weapon ready advantage, even for 360 degree sighting Check builddefines.h for the conditional flags. Of greatest interest might be LUA_CONSOLE. This will cause the game to bring up a command console when run. However this console is severely lacking in many areas. If anybody knows of an open-source terminal/console that could be used instead, it would be appreciated. The existing console does bad things when you try to close it, and since it counts as a separate app, it pauses the game while it has focus. LUA scripting is very limited, basically just proof of concept. There is one global variable, the Soldiers array. An array index gives you the soldier in that slot in the currently loaded sector. The soldier has a few things that can be accessed: name (short name); fullname (long name); grid (current grid #, can be changed); walkto(grid) (function to walk to another grid); runto(grid) (function to run to another grid) git-svn-id: https://ja2svn.mooo.com/source/ja2/trunk/GameSource/ja2_v1.13/Build@924 3b4a5df2-a311-0410-b5c6-a8a6f20db521
386 lines
11 KiB
C
386 lines
11 KiB
C
/*
|
|
** $Id: lua.h,v 1.218a 2006/06/02 15:34:00 roberto Exp $
|
|
** Lua - An Extensible Extension Language
|
|
** Lua.org, PUC-Rio, Brazil (http://www.lua.org)
|
|
** See Copyright Notice at the end of this file
|
|
*/
|
|
|
|
|
|
#ifndef lua_h
|
|
#define lua_h
|
|
|
|
#include <stdarg.h>
|
|
#include <stddef.h>
|
|
|
|
|
|
#include "luaconf.h"
|
|
|
|
|
|
#define LUA_VERSION "Lua 5.1"
|
|
#define LUA_RELEASE "Lua 5.1.2"
|
|
#define LUA_VERSION_NUM 501
|
|
#define LUA_COPYRIGHT "Copyright (C) 1994-2007 Lua.org, PUC-Rio"
|
|
#define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes"
|
|
|
|
|
|
/* mark for precompiled code (`<esc>Lua') */
|
|
#define LUA_SIGNATURE "\033Lua"
|
|
|
|
/* option for multiple returns in `lua_pcall' and `lua_call' */
|
|
#define LUA_MULTRET (-1)
|
|
|
|
|
|
/*
|
|
** pseudo-indices
|
|
*/
|
|
#define LUA_REGISTRYINDEX (-10000)
|
|
#define LUA_ENVIRONINDEX (-10001)
|
|
#define LUA_GLOBALSINDEX (-10002)
|
|
#define lua_upvalueindex(i) (LUA_GLOBALSINDEX-(i))
|
|
|
|
|
|
/* thread status; 0 is OK */
|
|
#define LUA_YIELD 1
|
|
#define LUA_ERRRUN 2
|
|
#define LUA_ERRSYNTAX 3
|
|
#define LUA_ERRMEM 4
|
|
#define LUA_ERRERR 5
|
|
|
|
|
|
typedef struct lua_State lua_State;
|
|
|
|
typedef int (*lua_CFunction) (lua_State *L);
|
|
|
|
|
|
/*
|
|
** functions that read/write blocks when loading/dumping Lua chunks
|
|
*/
|
|
typedef const char * (*lua_Reader) (lua_State *L, void *ud, size_t *sz);
|
|
|
|
typedef int (*lua_Writer) (lua_State *L, const void* p, size_t sz, void* ud);
|
|
|
|
|
|
/*
|
|
** prototype for memory-allocation functions
|
|
*/
|
|
typedef void * (*lua_Alloc) (void *ud, void *ptr, size_t osize, size_t nsize);
|
|
|
|
|
|
/*
|
|
** basic types
|
|
*/
|
|
#define LUA_TNONE (-1)
|
|
|
|
#define LUA_TNIL 0
|
|
#define LUA_TBOOLEAN 1
|
|
#define LUA_TLIGHTUSERDATA 2
|
|
#define LUA_TNUMBER 3
|
|
#define LUA_TSTRING 4
|
|
#define LUA_TTABLE 5
|
|
#define LUA_TFUNCTION 6
|
|
#define LUA_TUSERDATA 7
|
|
#define LUA_TTHREAD 8
|
|
|
|
|
|
|
|
/* minimum Lua stack available to a C function */
|
|
#define LUA_MINSTACK 20
|
|
|
|
|
|
/*
|
|
** generic extra include file
|
|
*/
|
|
#if defined(LUA_USER_H)
|
|
#include LUA_USER_H
|
|
#endif
|
|
|
|
|
|
/* type of numbers in Lua */
|
|
typedef LUA_NUMBER lua_Number;
|
|
|
|
|
|
/* type for integer functions */
|
|
typedef LUA_INTEGER lua_Integer;
|
|
|
|
|
|
|
|
/*
|
|
** state manipulation
|
|
*/
|
|
LUA_API lua_State *(lua_newstate) (lua_Alloc f, void *ud);
|
|
LUA_API void (lua_close) (lua_State *L);
|
|
LUA_API lua_State *(lua_newthread) (lua_State *L);
|
|
|
|
LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf);
|
|
|
|
|
|
/*
|
|
** basic stack manipulation
|
|
*/
|
|
LUA_API int (lua_gettop) (lua_State *L);
|
|
LUA_API void (lua_settop) (lua_State *L, int idx);
|
|
LUA_API void (lua_pushvalue) (lua_State *L, int idx);
|
|
LUA_API void (lua_remove) (lua_State *L, int idx);
|
|
LUA_API void (lua_insert) (lua_State *L, int idx);
|
|
LUA_API void (lua_replace) (lua_State *L, int idx);
|
|
LUA_API int (lua_checkstack) (lua_State *L, int sz);
|
|
|
|
LUA_API void (lua_xmove) (lua_State *from, lua_State *to, int n);
|
|
|
|
|
|
/*
|
|
** access functions (stack -> C)
|
|
*/
|
|
|
|
LUA_API int (lua_isnumber) (lua_State *L, int idx);
|
|
LUA_API int (lua_isstring) (lua_State *L, int idx);
|
|
LUA_API int (lua_iscfunction) (lua_State *L, int idx);
|
|
LUA_API int (lua_isuserdata) (lua_State *L, int idx);
|
|
LUA_API int (lua_type) (lua_State *L, int idx);
|
|
LUA_API const char *(lua_typename) (lua_State *L, int tp);
|
|
|
|
LUA_API int (lua_equal) (lua_State *L, int idx1, int idx2);
|
|
LUA_API int (lua_rawequal) (lua_State *L, int idx1, int idx2);
|
|
LUA_API int (lua_lessthan) (lua_State *L, int idx1, int idx2);
|
|
|
|
LUA_API lua_Number (lua_tonumber) (lua_State *L, int idx);
|
|
LUA_API lua_Integer (lua_tointeger) (lua_State *L, int idx);
|
|
LUA_API int (lua_toboolean) (lua_State *L, int idx);
|
|
LUA_API const char *(lua_tolstring) (lua_State *L, int idx, size_t *len);
|
|
LUA_API size_t (lua_objlen) (lua_State *L, int idx);
|
|
LUA_API lua_CFunction (lua_tocfunction) (lua_State *L, int idx);
|
|
LUA_API void *(lua_touserdata) (lua_State *L, int idx);
|
|
LUA_API lua_State *(lua_tothread) (lua_State *L, int idx);
|
|
LUA_API const void *(lua_topointer) (lua_State *L, int idx);
|
|
|
|
|
|
/*
|
|
** push functions (C -> stack)
|
|
*/
|
|
LUA_API void (lua_pushnil) (lua_State *L);
|
|
LUA_API void (lua_pushnumber) (lua_State *L, lua_Number n);
|
|
LUA_API void (lua_pushinteger) (lua_State *L, lua_Integer n);
|
|
LUA_API void (lua_pushlstring) (lua_State *L, const char *s, size_t l);
|
|
LUA_API void (lua_pushstring) (lua_State *L, const char *s);
|
|
LUA_API const char *(lua_pushvfstring) (lua_State *L, const char *fmt,
|
|
va_list argp);
|
|
LUA_API const char *(lua_pushfstring) (lua_State *L, const char *fmt, ...);
|
|
LUA_API void (lua_pushcclosure) (lua_State *L, lua_CFunction fn, int n);
|
|
LUA_API void (lua_pushboolean) (lua_State *L, int b);
|
|
LUA_API void (lua_pushlightuserdata) (lua_State *L, void *p);
|
|
LUA_API int (lua_pushthread) (lua_State *L);
|
|
|
|
|
|
/*
|
|
** get functions (Lua -> stack)
|
|
*/
|
|
LUA_API void (lua_gettable) (lua_State *L, int idx);
|
|
LUA_API void (lua_getfield) (lua_State *L, int idx, const char *k);
|
|
LUA_API void (lua_rawget) (lua_State *L, int idx);
|
|
LUA_API void (lua_rawgeti) (lua_State *L, int idx, int n);
|
|
LUA_API void (lua_createtable) (lua_State *L, int narr, int nrec);
|
|
LUA_API void *(lua_newuserdata) (lua_State *L, size_t sz);
|
|
LUA_API int (lua_getmetatable) (lua_State *L, int objindex);
|
|
LUA_API void (lua_getfenv) (lua_State *L, int idx);
|
|
|
|
|
|
/*
|
|
** set functions (stack -> Lua)
|
|
*/
|
|
LUA_API void (lua_settable) (lua_State *L, int idx);
|
|
LUA_API void (lua_setfield) (lua_State *L, int idx, const char *k);
|
|
LUA_API void (lua_rawset) (lua_State *L, int idx);
|
|
LUA_API void (lua_rawseti) (lua_State *L, int idx, int n);
|
|
LUA_API int (lua_setmetatable) (lua_State *L, int objindex);
|
|
LUA_API int (lua_setfenv) (lua_State *L, int idx);
|
|
|
|
|
|
/*
|
|
** `load' and `call' functions (load and run Lua code)
|
|
*/
|
|
LUA_API void (lua_call) (lua_State *L, int nargs, int nresults);
|
|
LUA_API int (lua_pcall) (lua_State *L, int nargs, int nresults, int errfunc);
|
|
LUA_API int (lua_cpcall) (lua_State *L, lua_CFunction func, void *ud);
|
|
LUA_API int (lua_load) (lua_State *L, lua_Reader reader, void *dt,
|
|
const char *chunkname);
|
|
|
|
LUA_API int (lua_dump) (lua_State *L, lua_Writer writer, void *data);
|
|
|
|
|
|
/*
|
|
** coroutine functions
|
|
*/
|
|
LUA_API int (lua_yield) (lua_State *L, int nresults);
|
|
LUA_API int (lua_resume) (lua_State *L, int narg);
|
|
LUA_API int (lua_status) (lua_State *L);
|
|
|
|
/*
|
|
** garbage-collection function and options
|
|
*/
|
|
|
|
#define LUA_GCSTOP 0
|
|
#define LUA_GCRESTART 1
|
|
#define LUA_GCCOLLECT 2
|
|
#define LUA_GCCOUNT 3
|
|
#define LUA_GCCOUNTB 4
|
|
#define LUA_GCSTEP 5
|
|
#define LUA_GCSETPAUSE 6
|
|
#define LUA_GCSETSTEPMUL 7
|
|
|
|
LUA_API int (lua_gc) (lua_State *L, int what, int data);
|
|
|
|
|
|
/*
|
|
** miscellaneous functions
|
|
*/
|
|
|
|
LUA_API int (lua_error) (lua_State *L);
|
|
|
|
LUA_API int (lua_next) (lua_State *L, int idx);
|
|
|
|
LUA_API void (lua_concat) (lua_State *L, int n);
|
|
|
|
LUA_API lua_Alloc (lua_getallocf) (lua_State *L, void **ud);
|
|
LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud);
|
|
|
|
|
|
|
|
/*
|
|
** ===============================================================
|
|
** some useful macros
|
|
** ===============================================================
|
|
*/
|
|
|
|
#define lua_pop(L,n) lua_settop(L, -(n)-1)
|
|
|
|
#define lua_newtable(L) lua_createtable(L, 0, 0)
|
|
|
|
#define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n)))
|
|
|
|
#define lua_pushcfunction(L,f) lua_pushcclosure(L, (f), 0)
|
|
|
|
#define lua_strlen(L,i) lua_objlen(L, (i))
|
|
|
|
#define lua_isfunction(L,n) (lua_type(L, (n)) == LUA_TFUNCTION)
|
|
#define lua_istable(L,n) (lua_type(L, (n)) == LUA_TTABLE)
|
|
#define lua_islightuserdata(L,n) (lua_type(L, (n)) == LUA_TLIGHTUSERDATA)
|
|
#define lua_isnil(L,n) (lua_type(L, (n)) == LUA_TNIL)
|
|
#define lua_isboolean(L,n) (lua_type(L, (n)) == LUA_TBOOLEAN)
|
|
#define lua_isthread(L,n) (lua_type(L, (n)) == LUA_TTHREAD)
|
|
#define lua_isnone(L,n) (lua_type(L, (n)) == LUA_TNONE)
|
|
#define lua_isnoneornil(L, n) (lua_type(L, (n)) <= 0)
|
|
|
|
#define lua_pushliteral(L, s) \
|
|
lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1)
|
|
|
|
#define lua_setglobal(L,s) lua_setfield(L, LUA_GLOBALSINDEX, (s))
|
|
#define lua_getglobal(L,s) lua_getfield(L, LUA_GLOBALSINDEX, (s))
|
|
|
|
#define lua_tostring(L,i) lua_tolstring(L, (i), NULL)
|
|
|
|
|
|
|
|
/*
|
|
** compatibility macros and functions
|
|
*/
|
|
|
|
#define lua_open() luaL_newstate()
|
|
|
|
#define lua_getregistry(L) lua_pushvalue(L, LUA_REGISTRYINDEX)
|
|
|
|
#define lua_getgccount(L) lua_gc(L, LUA_GCCOUNT, 0)
|
|
|
|
#define lua_Chunkreader lua_Reader
|
|
#define lua_Chunkwriter lua_Writer
|
|
|
|
|
|
|
|
/*
|
|
** {======================================================================
|
|
** Debug API
|
|
** =======================================================================
|
|
*/
|
|
|
|
|
|
/*
|
|
** Event codes
|
|
*/
|
|
#define LUA_HOOKCALL 0
|
|
#define LUA_HOOKRET 1
|
|
#define LUA_HOOKLINE 2
|
|
#define LUA_HOOKCOUNT 3
|
|
#define LUA_HOOKTAILRET 4
|
|
|
|
|
|
/*
|
|
** Event masks
|
|
*/
|
|
#define LUA_MASKCALL (1 << LUA_HOOKCALL)
|
|
#define LUA_MASKRET (1 << LUA_HOOKRET)
|
|
#define LUA_MASKLINE (1 << LUA_HOOKLINE)
|
|
#define LUA_MASKCOUNT (1 << LUA_HOOKCOUNT)
|
|
|
|
typedef struct lua_Debug lua_Debug; /* activation record */
|
|
|
|
|
|
/* Functions to be called by the debuger in specific events */
|
|
typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar);
|
|
|
|
|
|
LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar);
|
|
LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar);
|
|
LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n);
|
|
LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n);
|
|
LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n);
|
|
LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n);
|
|
|
|
LUA_API int lua_sethook (lua_State *L, lua_Hook func, int mask, int count);
|
|
LUA_API lua_Hook lua_gethook (lua_State *L);
|
|
LUA_API int lua_gethookmask (lua_State *L);
|
|
LUA_API int lua_gethookcount (lua_State *L);
|
|
|
|
|
|
struct lua_Debug {
|
|
int event;
|
|
const char *name; /* (n) */
|
|
const char *namewhat; /* (n) `global', `local', `field', `method' */
|
|
const char *what; /* (S) `Lua', `C', `main', `tail' */
|
|
const char *source; /* (S) */
|
|
int currentline; /* (l) */
|
|
int nups; /* (u) number of upvalues */
|
|
int linedefined; /* (S) */
|
|
int lastlinedefined; /* (S) */
|
|
char short_src[LUA_IDSIZE]; /* (S) */
|
|
/* private part */
|
|
int i_ci; /* active function */
|
|
};
|
|
|
|
/* }====================================================================== */
|
|
|
|
|
|
/******************************************************************************
|
|
* Copyright (C) 1994-2007 Lua.org, PUC-Rio. All rights reserved.
|
|
*
|
|
* Permission is hereby granted, free of charge, to any person obtaining
|
|
* a copy of this software and associated documentation files (the
|
|
* "Software"), to deal in the Software without restriction, including
|
|
* without limitation the rights to use, copy, modify, merge, publish,
|
|
* distribute, sublicense, and/or sell copies of the Software, and to
|
|
* permit persons to whom the Software is furnished to do so, subject to
|
|
* the following conditions:
|
|
*
|
|
* The above copyright notice and this permission notice shall be
|
|
* included in all copies or substantial portions of the Software.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
|
* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
|
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
|
* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
|
|
* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
|
|
* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
|
* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
******************************************************************************/
|
|
|
|
|
|
#endif
|