Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
{$HINTS OFF}unit LuaPas;(* * A complete Pascal wrapper for Lua 5.1 DLL module. * * Created by Geo Massar, 2006 * Distributed as free/open source. *)interface{.$DEFINE LUA_GETHOOK}{$INCLUDE "config.inc"}type size_t = type Cardinal; Psize_t = ^size_t; PPointer = ^Pointer; lua_State = record end; Plua_State = ^lua_State;const LuaLibName = cLuaLibrary;(*****************************************************************************)(* luaconfig.h *)(*****************************************************************************)(*** $Id: luaconf.h,v 1.81 2006/02/10 17:44:06 roberto Exp $** Configuration file for Lua** See Copyright Notice in lua.h*)(*** {==================================================================@@ LUA_NUMBER is the type of numbers in Lua.** CHANGE the following definitions only if you want to build Lua** with a number type different from double. You may also need to** change lua_number2int & lua_number2integer.** ===================================================================*)type LUA_NUMBER_ = type Double; // ending underscore is needed in Pascal LUA_INTEGER_ = type LongInt;(*@@ LUA_IDSIZE gives the maximum size for the description of the source@* of a function in debug information.** CHANGE it if you want a different size.*)const LUA_IDSIZE = 60;(*@@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system.*)const LUAL_BUFFERSIZE = 1024;(*@@ LUA_PROMPT is the default prompt used by stand-alone Lua.@@ LUA_PROMPT2 is the default continuation prompt used by stand-alone Lua.** CHANGE them if you want different prompts. (You can also change the** prompts dynamically, assigning to globals _PROMPT/_PROMPT2.)*)const LUA_PROMPT = '> '; LUA_PROMPT2 = '>> ';(*@@ lua_readline defines how to show a prompt and then read a line from@* the standard input.@@ lua_saveline defines how to "save" a read line in a "history".@@ lua_freeline defines how to free a line read by lua_readline.** CHANGE them if you want to improve this functionality (e.g., by using** GNU readline and history facilities).*)function lua_readline(L : Plua_State; var b : PChar; p : PChar): Boolean;procedure lua_saveline(L : Plua_State; idx : LongInt);procedure lua_freeline(L : Plua_State; b : PChar);(*@@ lua_stdin_is_tty detects whether the standard input is a 'tty' (that@* is, whether we're running lua interactively).** CHANGE it if you have a better definition for non-POSIX/non-Windows** systems.*/#include <io.h>#include <stdio.h>#define lua_stdin_is_tty() _isatty(_fileno(stdin))*)const lua_stdin_is_tty = TRUE;(*****************************************************************************)(* lua.h *)(*****************************************************************************)(*** $Id: lua.h,v 1.216 2006/01/10 12:50:13 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*)const LUA_VERSION = 'Lua 5.1'; LUA_VERSION_NUM = 501; LUA_COPYRIGHT = 'Copyright (C) 1994-2006 Tecgraf, PUC-Rio'; LUA_AUTHORS = 'R. Ierusalimschy, L. H. de Figueiredo & W. Celes'; (* mark for precompiled code (`<esc>Lua') *) LUA_SIGNATURE = #27'Lua'; (* option for multiple returns in `lua_pcall' and `lua_call' *) LUA_MULTRET = -1; (* ** pseudo-indices *) LUA_REGISTRYINDEX = -10000; LUA_ENVIRONINDEX = -10001; LUA_GLOBALSINDEX = -10002;function lua_upvalueindex(idx : LongInt) : LongInt; // a marcoconst (* thread status; 0 is OK *) LUA_YIELD_ = 1; // Note: the ending underscore is needed in Pascal LUA_ERRRUN = 2; LUA_ERRSYNTAX = 3; LUA_ERRMEM = 4; LUA_ERRERR = 5;type lua_CFunction = function(L : Plua_State) : LongInt; cdecl; (* ** functions that read/write blocks when loading/dumping Lua chunks *) lua_Reader = function (L : Plua_State; ud : Pointer; sz : Psize_t) : PChar; cdecl; lua_Writer = function (L : Plua_State; const p : Pointer; sz : size_t; ud : Pointer) : LongInt; cdecl; (* ** prototype for memory-allocation functions *) lua_Alloc = function (ud, ptr : Pointer; osize, nsize : size_t) : Pointer; cdecl;const (* ** basic types *) LUA_TNONE = -1; LUA_TNIL = 0; LUA_TBOOLEAN = 1; LUA_TLIGHTUSERDATA = 2; LUA_TNUMBER = 3; LUA_TSTRING = 4; LUA_TTABLE = 5; LUA_TFUNCTION = 6; LUA_TUSERDATA = 7; LUA_TTHREAD = 8; (* minimum Lua stack available to a C function *) LUA_MINSTACK = 20;type (* type of numbers in Lua *) lua_Number = LUA_NUMBER_; (* type for integer functions *) lua_Integer = LUA_INTEGER_;(*** state manipulation*)function lua_newstate(f : lua_Alloc; ud : Pointer) : Plua_State; cdecl; external LuaLibName;procedure lua_close(L: Plua_State); cdecl; external LuaLibName;function lua_newthread(L : Plua_State) : Plua_State; cdecl; external LuaLibName;function lua_atpanic(L : Plua_State; panicf : lua_CFunction) : lua_CFunction; cdecl; external LuaLibName;(*** basic stack manipulation*)function lua_gettop(L : Plua_State) : LongInt; cdecl; external LuaLibName;procedure lua_settop(L : Plua_State; idx : LongInt); cdecl; external LuaLibName;procedure lua_pushvalue(L : Plua_State; idx : LongInt); cdecl; external LuaLibName;procedure lua_remove(L : Plua_State; idx : LongInt); cdecl; external LuaLibName;procedure lua_insert(L : Plua_State; idx : LongInt); cdecl; external LuaLibName;procedure lua_replace(L : Plua_State; idx : LongInt); cdecl; external LuaLibName;function lua_checkstack(L : Plua_State; sz : LongInt) : LongBool; cdecl; external LuaLibName;procedure lua_xmove(src, dest : Plua_State; n : LongInt); cdecl; external LuaLibName;(*** access functions (stack -> C)*)function lua_isnumber(L : Plua_State; idx : LongInt) : LongBool; cdecl; external LuaLibName;function lua_isstring(L : Plua_State; idx : LongInt) : LongBool; cdecl; external LuaLibName;function lua_iscfunction(L : Plua_State; idx : LongInt) : LongBool; cdecl; external LuaLibName;function lua_isuserdata(L : Plua_State; idx : LongInt) : LongBool; cdecl; external LuaLibName;function lua_type(L : Plua_State; idx : LongInt) : LongInt; cdecl; external LuaLibName;function lua_typename(L : Plua_State; tp : LongInt) : PChar; cdecl; external LuaLibName;function lua_equal(L : Plua_State; idx1, idx2 : LongInt) : LongBool; cdecl; external LuaLibName;function lua_rawequal(L : Plua_State; idx1, idx2 : LongInt) : LongBool; cdecl; external LuaLibName;function lua_lessthan(L : Plua_State; idx1, idx2 : LongInt) : LongBool; cdecl; external LuaLibName;function lua_tonumber(L : Plua_State; idx : LongInt) : lua_Number; cdecl; external LuaLibName;function lua_tointeger(L : Plua_State; idx : LongInt) : lua_Integer; cdecl; external LuaLibName;function lua_toboolean(L : Plua_State; idx : LongInt) : LongBool; cdecl; external LuaLibName;function lua_tolstring(L : Plua_State; idx : LongInt; len : Psize_t) : PChar; cdecl; external LuaLibName;function lua_objlen(L : Plua_State; idx : LongInt) : size_t; cdecl; external LuaLibName;function lua_tocfunction(L : Plua_State; idx : LongInt) : lua_CFunction; cdecl; external LuaLibName;function lua_touserdata(L : Plua_State; idx : LongInt) : Pointer; cdecl; external LuaLibName;function lua_tothread(L : Plua_State; idx : LongInt) : Plua_State; cdecl; external LuaLibName;function lua_topointer(L : Plua_State; idx : LongInt) : Pointer; cdecl; external LuaLibName;(*** push functions (C -> stack)*)procedure lua_pushnil(L : Plua_State); cdecl; external LuaLibName;procedure lua_pushnumber(L : Plua_State; n : lua_Number); cdecl; external LuaLibName;procedure lua_pushinteger(L : Plua_State; n : lua_Integer); cdecl; external LuaLibName;procedure lua_pushlstring(L : Plua_State; const s : PChar; ls : size_t); cdecl; external LuaLibName;procedure lua_pushstring(L : Plua_State; const s : PChar); cdecl; external LuaLibName;function lua_pushvfstring(L : Plua_State; const fmt : PChar; argp : Pointer) : PChar; cdecl; external LuaLibName;function lua_pushfstring(L : Plua_State; const fmt : PChar) : PChar; varargs; cdecl; external LuaLibName;procedure lua_pushcclosure(L : Plua_State; fn : lua_CFunction; n : LongInt); cdecl; external LuaLibName;procedure lua_pushboolean(L : Plua_State; b : LongBool); cdecl; external LuaLibName;procedure lua_pushlightuserdata(L : Plua_State; p : Pointer); cdecl; external LuaLibName;function lua_pushthread(L : Plua_state) : Cardinal; cdecl; external LuaLibName;(*** get functions (Lua -> stack)*)procedure lua_gettable(L : Plua_State ; idx : LongInt); cdecl; external LuaLibName;procedure lua_getfield(L : Plua_State; idx : LongInt; k : PChar); cdecl; external LuaLibName;procedure lua_rawget(L : Plua_State; idx : LongInt); cdecl; external LuaLibName;procedure lua_rawgeti(L : Plua_State; idx, n : LongInt); cdecl; external LuaLibName;procedure lua_createtable(L : Plua_State; narr, nrec : LongInt); cdecl; external LuaLibName;function lua_newuserdata(L : Plua_State; sz : size_t) : Pointer; cdecl; external LuaLibName;function lua_getmetatable(L : Plua_State; objindex : LongInt) : LongBool; cdecl; external LuaLibName;procedure lua_getfenv(L : Plua_State; idx : LongInt); cdecl; external LuaLibName;(*** set functions (stack -> Lua)*)procedure lua_settable(L : Plua_State; idx : LongInt); cdecl; external LuaLibName;procedure lua_setfield(L : Plua_State; idx : LongInt; const k : PChar); cdecl; external LuaLibName;procedure lua_rawset(L : Plua_State; idx : LongInt); cdecl; external LuaLibName;procedure lua_rawseti(L : Plua_State; idx , n: LongInt); cdecl; external LuaLibName;function lua_setmetatable(L : Plua_State; objindex : LongInt): LongBool; cdecl; external LuaLibName;function lua_setfenv(L : Plua_State; idx : LongInt): LongBool; cdecl; external LuaLibName;(*** `load' and `call' functions (load and run Lua code)*)procedure lua_call(L : Plua_State; nargs, nresults : LongInt); cdecl; external LuaLibName;function lua_pcall(L : Plua_State; nargs, nresults, errfunc : LongInt) : LongInt; cdecl; external LuaLibName;function lua_cpcall(L : Plua_State; func : lua_CFunction; ud : Pointer) : LongInt; cdecl; external LuaLibName;function lua_load(L : Plua_State; reader : lua_Reader; dt : Pointer; const chunkname : PChar) : LongInt; cdecl; external LuaLibName;function lua_dump(L : Plua_State; writer : lua_Writer; data: Pointer) : LongInt; cdecl; external LuaLibName;(*** coroutine functions*)function lua_yield(L : Plua_State; nresults : LongInt) : LongInt; cdecl; external LuaLibName;function lua_resume(L : Plua_State; narg : LongInt) : LongInt; cdecl; external LuaLibName;function lua_status(L : Plua_State) : LongInt; cdecl; external LuaLibName;(*** garbage-collection functions and options*)const LUA_GCSTOP = 0; LUA_GCRESTART = 1; LUA_GCCOLLECT = 2; LUA_GCCOUNT = 3; LUA_GCCOUNTB = 4; LUA_GCSTEP = 5; LUA_GCSETPAUSE = 6; LUA_GCSETSTEPMUL = 7;function lua_gc(L : Plua_State; what, data : LongInt) : LongInt; cdecl; external LuaLibName;(*** miscellaneous functions*)function lua_error(L : Plua_State) : LongInt; cdecl; external LuaLibName;function lua_next(L : Plua_State; idx : LongInt) : LongInt; cdecl; external LuaLibName;procedure lua_concat(L : Plua_State; n : LongInt); cdecl; external LuaLibName;function lua_getallocf(L : Plua_State; ud : PPointer) : lua_Alloc; cdecl; external LuaLibName;procedure lua_setallocf(L : Plua_State; f : lua_Alloc; ud : Pointer); cdecl; external LuaLibName;(*** ===============================================================** some useful macros** ===============================================================*)procedure lua_pop(L : Plua_State; n : LongInt);procedure lua_newtable(L : Plua_State);procedure lua_register(L : Plua_State; n : PChar; f : lua_CFunction);procedure lua_pushcfunction(L : Plua_State; f : lua_CFunction);function lua_strlen(L : Plua_State; idx : LongInt) : LongInt;function lua_isfunction(L : Plua_State; n : LongInt) : Boolean;function lua_istable(L : Plua_State; n : LongInt) : Boolean;function lua_islightuserdata(L : Plua_State; n : LongInt) : Boolean;function lua_isnil(L : Plua_State; n : LongInt) : Boolean;function lua_isboolean(L : Plua_State; n : LongInt) : Boolean;function lua_isthread(L : Plua_State; n : LongInt) : Boolean;function lua_isnone(L : Plua_State; n : LongInt) : Boolean;function lua_isnoneornil(L : Plua_State; n : LongInt) : Boolean;procedure lua_pushliteral(L : Plua_State; s : PChar);procedure lua_setglobal(L : Plua_State; s : PChar);procedure lua_getglobal(L : Plua_State; s : PChar);function lua_tostring(L : Plua_State; idx : LongInt) : PChar;(*** compatibility macros and functions*)function lua_open : Plua_State;procedure lua_getregistry(L : Plua_State);function lua_getgccount(L : Plua_State) : LongInt;type lua_Chuckreader = type lua_Reader; lua_Chuckwriter = type lua_Writer;(* ====================================================================== *)(*** {======================================================================** Debug API** =======================================================================*)(*** Event codes*)const LUA_HOOKCALL = 0; LUA_HOOKRET = 1; LUA_HOOKLINE = 2; LUA_HOOKCOUNT = 3; LUA_HOOKTAILRET = 4;(*** Event masks*) LUA_MASKCALL = 1 shl LUA_HOOKCALL; LUA_MASKRET = 1 shl LUA_HOOKRET; LUA_MASKLINE = 1 shl LUA_HOOKLINE; LUA_MASKCOUNT = 1 shl LUA_HOOKCOUNT;type lua_Debug = packed record event : LongInt; name : PChar; (* (n) *) namewhat : PChar; (* (n) `global', `local', `field', `method' *) what : PChar; (* (S) `Lua', `C', `main', `tail' *) source : PChar; (* (S) *) currentline : LongInt; (* (l) *) nups : LongInt; (* (u) number of upvalues *) linedefined : LongInt; (* (S) *) short_src : array [0..LUA_IDSIZE-1] of Char; (* (S) *) (* private part *) i_ci : LongInt; (* active function *) end; Plua_Debug = ^lua_Debug; (* Functions to be called by the debuger in specific events *) lua_Hook = procedure (L : Plua_State; ar : Plua_Debug); cdecl;function lua_getstack(L : Plua_State; level : LongInt; ar : Plua_Debug) : LongInt; cdecl; external LuaLibName;function lua_getinfo(L : Plua_State; const what : PChar; ar: Plua_Debug): LongInt; cdecl; external LuaLibName;function lua_getlocal(L : Plua_State; ar : Plua_Debug; n : LongInt) : PChar; cdecl; external LuaLibName;function lua_setlocal(L : Plua_State; ar : Plua_Debug; n : LongInt) : PChar; cdecl; external LuaLibName;function lua_getupvalue(L : Plua_State; funcindex, n : LongInt) : PChar; cdecl; external LuaLibName;function lua_setupvalue(L : Plua_State; funcindex, n : LongInt) : PChar; cdecl; external LuaLibName;function lua_sethook(L : Plua_State; func : lua_Hook; mask, count: LongInt): LongInt; cdecl; external LuaLibName;{$IFDEF LUA_GETHOOK}function lua_gethook(L : Plua_State) : lua_Hook; cdecl; external LuaLibName;{$ENDIF}function lua_gethookmask(L : Plua_State) : LongInt; cdecl; external LuaLibName;function lua_gethookcount(L : Plua_State) : LongInt; cdecl; external LuaLibName;(*****************************************************************************)(* lualib.h *)(*****************************************************************************)(*** $Id: lualib.h,v 1.36 2005/12/27 17:12:00 roberto Exp $** Lua standard libraries** See Copyright Notice at the end of this file*)const (* Key to file-handle type *) LUA_FILEHANDLE = 'FILE*'; LUA_COLIBNAME = 'coroutine'; LUA_TABLIBNAME = 'table'; LUA_IOLIBNAME = 'io'; LUA_OSLIBNAME = 'os'; LUA_STRLIBNAME = 'string'; LUA_MATHLIBNAME = 'math'; LUA_DBLIBNAME = 'debug'; LUA_LOADLIBNAME = 'package';function luaopen_base(L : Plua_State) : LongInt; cdecl; external LuaLibName;function luaopen_table(L : Plua_State) : LongInt; cdecl; external LuaLibName;function luaopen_io(L : Plua_State) : LongInt; cdecl; external LuaLibName;function luaopen_os(L : Plua_State) : LongInt; cdecl; external LuaLibName;function luaopen_string(L : Plua_State) : LongInt; cdecl; external LuaLibName;function luaopen_math(L : Plua_State) : LongInt; cdecl; external LuaLibName;function luaopen_debug(L : Plua_State) : LongInt; cdecl; external LuaLibName;function luaopen_package(L : Plua_State) : LongInt; cdecl; external LuaLibName;procedure luaL_openlibs(L : Plua_State); cdecl; external LuaLibName;procedure lua_assert(x : Boolean); // a macro(*****************************************************************************)(* lauxlib.h *)(*****************************************************************************)(*** $Id: lauxlib.h,v 1.87 2005/12/29 15:32:11 roberto Exp $** Auxiliary functions for building Lua libraries** See Copyright Notice at the end of this file.*)// not compatibility with the behavior of setn/getn in Lua 5.0function luaL_getn(L : Plua_State; idx : LongInt) : LongInt;procedure luaL_setn(L : Plua_State; i, j : LongInt);const LUA_ERRFILE = LUA_ERRERR + 1;type luaL_Reg = packed record name : PChar; func : lua_CFunction; end; PluaL_Reg = ^luaL_Reg;procedure luaL_openlib(L : Plua_State; const libname : PChar; const lr : PluaL_Reg; nup : LongInt); cdecl; external LuaLibName;procedure luaL_register(L : Plua_State; const libname : PChar; const lr : PluaL_Reg); cdecl; external LuaLibName;function luaL_getmetafield(L : Plua_State; obj : LongInt; const e : PChar) : LongInt; cdecl; external LuaLibName;function luaL_callmeta(L : Plua_State; obj : LongInt; const e : PChar) : LongInt; cdecl; external LuaLibName;function luaL_typerror(L : Plua_State; narg : LongInt; const tname : PChar) : LongInt; cdecl; external LuaLibName;function luaL_argerror(L : Plua_State; numarg : LongInt; const extramsg : PChar) : LongInt; cdecl; external LuaLibName;function luaL_checklstring(L : Plua_State; numArg : LongInt; ls : Psize_t) : PChar; cdecl; external LuaLibName;function luaL_optlstring(L : Plua_State; numArg : LongInt; const def: PChar; ls: Psize_t) : PChar; cdecl; external LuaLibName;function luaL_checknumber(L : Plua_State; numArg : LongInt) : lua_Number; cdecl; external LuaLibName;function luaL_optnumber(L : Plua_State; nArg : LongInt; def : lua_Number) : lua_Number; cdecl; external LuaLibName;function luaL_checkinteger(L : Plua_State; numArg : LongInt) : lua_Integer; cdecl; external LuaLibName;function luaL_optinteger(L : Plua_State; nArg : LongInt; def : lua_Integer) : lua_Integer; cdecl; external LuaLibName;procedure luaL_checkstack(L : Plua_State; sz : LongInt; const msg : PChar); cdecl; external LuaLibName;procedure luaL_checktype(L : Plua_State; narg, t : LongInt); cdecl; external LuaLibName;procedure luaL_checkany(L : Plua_State; narg : LongInt); cdecl; external LuaLibName;function luaL_newmetatable(L : Plua_State; const tname : PChar) : LongInt; cdecl; external LuaLibName;function luaL_checkudata(L : Plua_State; ud : LongInt; const tname : PChar) : Pointer; cdecl; external LuaLibName;procedure luaL_where(L : Plua_State; lvl : LongInt); cdecl; external LuaLibName;function luaL_error(L : Plua_State; const fmt : PChar) : LongInt; varargs; cdecl; external LuaLibName;function luaL_checkoption(L : Plua_State; narg : LongInt; const def : PChar; const lst : array of PChar) : LongInt; cdecl; external LuaLibName;function luaL_ref(L : Plua_State; t : LongInt) : LongInt; cdecl; external LuaLibName;procedure luaL_unref(L : Plua_State; t, ref : LongInt); cdecl; external LuaLibName;function luaL_loadfile(L : Plua_State; const filename : PChar) : LongInt; cdecl; external LuaLibName;function luaL_loadbuffer(L : Plua_State; const buff : PChar; sz : size_t; const name: PChar) : LongInt; cdecl; external LuaLibName;function luaL_loadstring(L : Plua_State; const s : Pchar) : LongInt; cdecl; external LuaLibName;function luaL_newstate : Plua_State; cdecl; external LuaLibName;function luaL_gsub(L : Plua_State; const s, p, r : PChar) : PChar; cdecl; external LuaLibName;function luaL_findtable(L : Plua_State; idx : LongInt; const fname : PChar; szhint : LongInt) : PChar; cdecl; external LuaLibName;(*** ===============================================================** some useful macros** ===============================================================*)function luaL_argcheck(L : Plua_State; cond : Boolean; numarg : LongInt; extramsg : PChar): LongInt;function luaL_checkstring(L : Plua_State; n : LongInt) : PChar;function luaL_optstring(L : Plua_State; n : LongInt; d : PChar) : PChar;function luaL_checkint(L : Plua_State; n : LongInt) : LongInt;function luaL_optint(L : Plua_State; n, d : LongInt): LongInt;function luaL_checklong(L : Plua_State; n : LongInt) : LongInt;function luaL_optlong(L : Plua_State; n : LongInt; d : LongInt) : LongInt;function luaL_typename(L : Plua_State; idx : LongInt) : PChar;function luaL_dofile(L : Plua_State; fn : PChar) : LongInt;function luaL_dostring(L : Plua_State; s : PChar) : LongInt;procedure luaL_getmetatable(L : Plua_State; n : PChar);(* not implemented yet#define luaL_opt(L,f,n,d) (lua_isnoneornil(L,(n)) ? (d) : f(L,(n)))*)(*** {======================================================** Generic Buffer manipulation** =======================================================*)type luaL_Buffer = packed record p : PChar; (* current position in buffer *) lvl : LongInt; (* number of strings in the stack (level) *) L : Plua_State; buffer : array [0..LUAL_BUFFERSIZE-1] of Char; end; PluaL_Buffer = ^luaL_Buffer;procedure luaL_addchar(B : PluaL_Buffer; c : Char);(* compatibility only *)procedure luaL_putchar(B : PluaL_Buffer; c : Char);procedure luaL_addsize(B : PluaL_Buffer; n : LongInt);procedure luaL_buffinit(L : Plua_State; B : PluaL_Buffer); cdecl; external LuaLibName;function luaL_prepbuffer(B : PluaL_Buffer) : PChar; cdecl; external LuaLibName;procedure luaL_addlstring(B : PluaL_Buffer; const s : PChar; ls : size_t); cdecl; external LuaLibName;procedure luaL_addstring(B : PluaL_Buffer; const s : PChar); cdecl; external LuaLibName;procedure luaL_addvalue(B : PluaL_Buffer); cdecl; external LuaLibName;procedure luaL_pushresult(B : PluaL_Buffer); cdecl; external LuaLibName;(* ====================================================== *)(* compatibility with ref system *)(* pre-defined references *)const LUA_NOREF = -2; LUA_REFNIL = -1;function lua_ref(L : Plua_State; lock : Boolean) : LongInt;procedure lua_unref(L : Plua_State; ref : LongInt);procedure lua_getref(L : Plua_State; ref : LongInt);(******************************************************************************)(******************************************************************************)(******************************************************************************)implementationuses SysUtils;(*****************************************************************************)(* luaconfig.h *)(*****************************************************************************)function lua_readline(L : Plua_State; var b : PChar; p : PChar): Boolean;var s : AnsiString;begin Write(p); // show prompt ReadLn(s); // get line b := PChar(s); // and return it lua_readline := (b[0] <> #4); // test for ctrl-Dend;procedure lua_saveline(L : Plua_State; idx : LongInt);beginend;procedure lua_freeline(L : Plua_State; b : PChar);beginend;(*****************************************************************************)(* lua.h *)(*****************************************************************************)function lua_upvalueindex(idx : LongInt) : LongInt;begin lua_upvalueindex := LUA_GLOBALSINDEX - idx;end;procedure lua_pop(L : Plua_State; n : LongInt);begin lua_settop(L, -n - 1);end;procedure lua_newtable(L : Plua_State);begin lua_createtable(L, 0, 0);end;procedure lua_register(L : Plua_State; n : PChar; f : lua_CFunction);begin lua_pushcfunction(L, f); lua_setglobal(L, n);end;procedure lua_pushcfunction(L : Plua_State; f : lua_CFunction);begin lua_pushcclosure(L, f, 0);end;function lua_strlen(L : Plua_State; idx : LongInt) : LongInt;begin lua_strlen := lua_objlen(L, idx);end;function lua_isfunction(L : Plua_State; n : LongInt) : Boolean;begin lua_isfunction := lua_type(L, n) = LUA_TFUNCTION;end;function lua_istable(L : Plua_State; n : LongInt) : Boolean;begin lua_istable := lua_type(L, n) = LUA_TTABLE;end;function lua_islightuserdata(L : Plua_State; n : LongInt) : Boolean;begin lua_islightuserdata := lua_type(L, n) = LUA_TLIGHTUSERDATA;end;function lua_isnil(L : Plua_State; n : LongInt) : Boolean;begin lua_isnil := lua_type(L, n) = LUA_TNIL;end;function lua_isboolean(L : Plua_State; n : LongInt) : Boolean;begin lua_isboolean := lua_type(L, n) = LUA_TBOOLEAN;end;function lua_isthread(L : Plua_State; n : LongInt) : Boolean;begin lua_isthread := lua_type(L, n) = LUA_TTHREAD;end;function lua_isnone(L : Plua_State; n : LongInt) : Boolean;begin lua_isnone := lua_type(L, n) = LUA_TNONE;end;function lua_isnoneornil(L : Plua_State; n : LongInt) : Boolean;begin lua_isnoneornil := lua_type(L, n) <= 0;end;procedure lua_pushliteral(L : Plua_State; s : PChar);begin lua_pushlstring(L, s, StrLen(s));end;procedure lua_setglobal(L : Plua_State; s : PChar);begin lua_setfield(L, LUA_GLOBALSINDEX, s);end;procedure lua_getglobal(L: Plua_State; s: PChar);begin lua_getfield(L, LUA_GLOBALSINDEX, s);end;function lua_tostring(L : Plua_State; idx : LongInt) : PChar;begin lua_tostring := lua_tolstring(L, idx, nil);end;function lua_open : Plua_State;begin lua_open := luaL_newstate;end;procedure lua_getregistry(L : Plua_State);begin lua_pushvalue(L, LUA_REGISTRYINDEX);end;function lua_getgccount(L : Plua_State) : LongInt;begin lua_getgccount := lua_gc(L, LUA_GCCOUNT, 0);end;(*****************************************************************************)(* lualib.h *)(*****************************************************************************)procedure lua_assert(x : Boolean);beginend;(*****************************************************************************)(* lauxlib.h n *)(*****************************************************************************)function luaL_getn(L : Plua_State; idx : LongInt) : LongInt;begin luaL_getn := lua_objlen(L, idx);end;procedure luaL_setn(L : plua_State; i, j : LongInt);begin (* no op *)end;function luaL_argcheck(L : Plua_State; cond : Boolean; numarg : LongInt; extramsg : PChar): LongInt;begin if not cond then luaL_argcheck := luaL_argerror(L, numarg, extramsg) else luaL_argcheck := 0;end;function luaL_checkstring(L : Plua_State; n : LongInt) : PChar;begin luaL_checkstring := luaL_checklstring(L, n, nil);end;function luaL_optstring(L : Plua_State; n : LongInt; d : PChar) : PChar;begin luaL_optstring := luaL_optlstring(L, n, d, nil);end;function luaL_checkint(L : Plua_State; n : LongInt) : LongInt;begin luaL_checkint := luaL_checkinteger(L, n);end;function luaL_optint(L : Plua_State; n, d : LongInt): LongInt;begin luaL_optint := luaL_optinteger(L, n, d);end;function luaL_checklong(L : Plua_State; n : LongInt) : LongInt;begin luaL_checklong := luaL_checkinteger(L, n);end;function luaL_optlong(L : Plua_State; n : LongInt; d : LongInt) : LongInt;begin luaL_optlong := luaL_optinteger(L, n, d);end;function luaL_typename(L : Plua_State; idx : LongInt) : PChar;begin luaL_typename := lua_typename( L, lua_type(L, idx) );end;function luaL_dofile(L : Plua_State; fn : PChar) : LongInt;begin luaL_dofile := luaL_loadfile(L, fn); if luaL_dofile = 0 then luaL_dofile := lua_pcall(L, 0, 0, 0);end;function luaL_dostring(L : Plua_State; s : PChar) : LongInt;begin luaL_dostring := luaL_loadstring(L, s); if luaL_dostring = 0 then luaL_dostring := lua_pcall(L, 0, 0, 0);end;procedure luaL_getmetatable(L : Plua_State; n : PChar);begin lua_getfield(L, LUA_REGISTRYINDEX, n);end;procedure luaL_addchar(B : PluaL_Buffer; c : Char);begin if not(B^.p < B^.buffer + LUAL_BUFFERSIZE) then luaL_prepbuffer(B); B^.p^ := c; Inc(B^.p);end;procedure luaL_putchar(B : PluaL_Buffer; c : Char);begin luaL_addchar(B, c);end;procedure luaL_addsize(B : PluaL_Buffer; n : LongInt);begin Inc(B^.p, n);end;function lua_ref(L : Plua_State; lock : Boolean) : LongInt;begin if lock then lua_ref := luaL_ref(L, LUA_REGISTRYINDEX) else begin lua_pushstring(L, 'unlocked references are obsolete'); lua_error(L); lua_ref := 0; end;end;procedure lua_unref(L : Plua_State; ref : LongInt);begin luaL_unref(L, LUA_REGISTRYINDEX, ref);end;procedure lua_getref(L : Plua_State; ref : LongInt);begin lua_rawgeti(L, LUA_REGISTRYINDEX, ref);end;(******************************************************************************* Original copyright for the lua source and headers:* 1994-2004 Tecgraf, PUC-Rio.* www.lua.org.*** 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.******************************************************************************)end.{$HINTS ON}