ViewVC Help

View File | Revision Log | Show Annotations | Download File

/cvs/deliantra/server/server/cfperl.xs

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.176 by root, Sun Mar 11 02:12:45 2007 UTC vs.
Revision 1.209 by root, Thu May 17 14:14:55 2007 UTC

1	/*****************************************************************************/
2	/* CrossFire, A Multiplayer game for the X Window System */
3	/*****************************************************************************/
4
5	/*	1	/*
		2	* CrossFire, A Multiplayer game
		3	*
6	* This code is placed under the GNU General Public Licence (GPL)	4	* This code is placed under the GNU General Public Licence (GPL)
7	*	5	*
8	* Copyright (C) 2001-2005 by Chachkoff Yann	6	* Copyright (C) 2001-2005 by Chachkoff Yann
9	* Copyright (C) 2006,2007 by Marc Lehmann <cf@schmorp.de>	7	* Copyright (C) 2006,2007 by Marc Lehmann <cf@schmorp.de>
10	*	8	*
…		…
21	* You should have received a copy of the GNU General Public License	19	* You should have received a copy of the GNU General Public License
22	* along with this program; if not, write to the Free Software	20	* along with this program; if not, write to the Free Software
23	* Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA	21	* Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
24	*/	22	*/
25		23
		24	#include "autoconf.h"
		25
26	#define PLUGIN_NAME "perl"	26	#define PLUGIN_NAME "perl"
27	#define PLUGIN_VERSION "cfperl 0.5"	27	#define PLUGIN_VERSION "cfperl 0.5"
		28
		29	#define CEDES_PER_TICK 5
		30
		31	#if HAVE_EXECINFO_H
		32	# include <execinfo.h>
		33	#endif
28		34
29	#include <plugin_common.h>	35	#include <plugin_common.h>
30	#include <sounds.h>	36	#include <sounds.h>
31	#include <cstdarg>	37	#include <cstdarg>
32	#include <sproto.h>	38	#include <sproto.h>
…		…
49		55
50	extern sint64 *levels; // the experience table	56	extern sint64 *levels; // the experience table
51		57
52	typedef object object_ornull;	58	typedef object object_ornull;
53	typedef maptile maptile_ornull;	59	typedef maptile maptile_ornull;
		60
		61	typedef char *octet_string;
		62	typedef char *utf8_string;
		63	typedef const char *const_octet_string;
		64	typedef const char *const_utf8_string;
		65
		66	typedef std::string std__string;
54		67
55	#if IVSIZE >= 8	68	#if IVSIZE >= 8
56	typedef IV val64;	69	typedef IV val64;
57	# define newSVval64 newSViv	70	# define newSVval64 newSViv
58	# define SvVAL64 SvIV	71	# define SvVAL64 SvIV
…		…
70		83
71	double runtime;	84	double runtime;
72		85
73	global gbl_ev;	86	global gbl_ev;
74	static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map;	87	static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map;
75	static SV *sv_runtime;	88	static SV *sv_runtime, *sv_next_tick;
76		89
77	static HV	90	static HV
78	*stash_cf,	91	*stash_cf,
79	*stash_cf_object_wrap,	92	*stash_cf_object_wrap,
80	*stash_cf_object_player_wrap,	93	*stash_cf_object_player_wrap,
…		…
102		115
103	unordered_vector<attachable *> attachable::mortals;	116	unordered_vector<attachable *> attachable::mortals;
104		117
105	attachable::~attachable ()	118	attachable::~attachable ()
106	{	119	{
107	flags |=0x3300;//D
108	assert (!self);	120	assert (!self);
109	assert (!cb);	121	assert (!cb);
110	}	122	}
111		123
112	int	124	int
…		…
128	sv_unmagic ((SV *)self, PERL_MAGIC_ext);	140	sv_unmagic ((SV *)self, PERL_MAGIC_ext);
129	SvREFCNT_dec (self);	141	SvREFCNT_dec (self);
130		142
131	// self *must* be null now because thats sv_unmagic's job.	143	// self *must* be null now because thats sv_unmagic's job.
132	assert (!this->self);	144	assert (!this->self);
133	flags |= 0x80; // severed //D
134	}	145	}
135	}	146	}
136		147
137	void	148	void
138	attachable::optimise ()	149	attachable::optimise ()
139	{	150	{
140	if (self	151	if (self
141	&& SvREFCNT (self) == 1	152	&& SvREFCNT (self) == 1
142	&& !HvTOTALKEYS (self))	153	&& !HvTOTALKEYS (self))
143	flags |= 0x40,//D
144	sever_self ();	154	sever_self ();
145	}	155	}
146		156
147	// check wether the object really is dead	157	// check wether the object really is dead
148	void	158	void
…		…
163	{	173	{
164	SvREFCNT_dec (cb);	174	SvREFCNT_dec (cb);
165	cb = 0;	175	cb = 0;
166	}	176	}
167		177
168	if (self)
169	sever_self ();
170
171	flags |= 0x20; //D
172	mortals.push_back (this);	178	mortals.push_back (this);
173	}	179	}
174		180
175	void	181	void
176	attachable::destroy ()	182	attachable::destroy ()
…		…
178	if (destroyed ())	184	if (destroyed ())
179	return;	185	return;
180		186
181	flags |= F_DESTROYED;	187	flags |= F_DESTROYED;
182	do_destroy ();	188	do_destroy ();
		189	sever_self ();
183	}	190	}
184		191
185	void	192	void
186	attachable::check_mortals ()	193	attachable::check_mortals ()
187	{	194	{
…		…
192	if (i >= mortals.size ())	199	if (i >= mortals.size ())
193	{	200	{
194	i = 0;	201	i = 0;
195		202
196	if (mortals.size () > 1000)	203	if (mortals.size () > 1000)
197	fprintf (stderr, "mortal queue size (%d) exceeds 1000.\n", (int)mortals.size ());	204	LOG (llevInfo, "mortal queue size (%d) exceeds 1000.\n", (int)mortals.size ());
198		205
199	break;	206	break;
200	}	207	}
201		208
202	attachable *obj = mortals [i];	209	attachable *obj = mortals [i];
203		210
204	obj->refcnt_chk (); // unborrow from perl, if necessary	211	#if 0
205		212	if (obj->self)//D make this an assert later
206	//if (obj->refcnt > 0 || obj->self)
207	if (obj->refcnt || obj->self)
208	{	213	{
209	//printf ("%p rc %d\n", obj, obj->refcnt_cnt ());//D	214	LOG (llevError, "check_mortals: object '%s' still has self\n", typeid (obj).name ());
		215	obj->sever_self ();
		216	}
		217	#endif
		218
		219	if (obj->refcnt)
		220	{
210	++i; // further delay freeing	221	++i; // further delay freeing
211		222
212	if (!(i & 0x3ff))	223	if (!(i & 0x3ff))
213	break;	224	break;
214	}	225	}
215	else	226	else
216	{	227	{
217	mortals.erase (i);	228	mortals.erase (i);
		229	obj->sever_self ();
218	delete obj;	230	delete obj;
219	}	231	}
220	}	232	}
221	}	233	}
222		234
…		…
271		283
272	if (!obj->self)	284	if (!obj->self)
273	{	285	{
274	obj->self = newHV ();	286	obj->self = newHV ();
275	sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0);	287	sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0);
276	obj->flags |= (obj->flags & 0xc0) << 8;
277	obj->flags &= ~0xc0;//D
278	obj->flags |= 0x10;//D
279		288
280	// now bless the object _once_	289	// now bless the object _once_
281	return sv_bless (newRV_inc ((SV *)obj->self), stash);	290	return sv_bless (newRV_inc ((SV *)obj->self), stash);
282	}	291	}
283	else	292	else
…		…
349	inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); }	358	inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); }
350		359
351	inline SV *to_sv (object & v) { return to_sv (&v); }	360	inline SV *to_sv (object & v) { return to_sv (&v); }
352	inline SV *to_sv (living & v) { return to_sv (&v); }	361	inline SV *to_sv (living & v) { return to_sv (&v); }
353		362
354	//inline SV *to_sv (faceinfo * v) { return to_sv (v->name); }
355	inline SV *to_sv (treasurelist * v) { return to_sv (v->name); }
356	inline SV *to_sv (std::string & v) { return newSVpvn (v.data (), v.size ()); }	363	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
		364	inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); }
357		365
358	inline SV *to_sv (UUID v)	366	inline SV *to_sv (UUID v)
359	{	367	{
360	char buf[128];	368	char buf[128];
361	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);	369	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
…		…
386	inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }	394	inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
387	inline void sv_to (SV *sv, region * &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }	395	inline void sv_to (SV *sv, region * &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }
388	inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }	396	inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
389		397
390	//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }	398	//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
391	inline void sv_to (SV *sv, treasurelist * &v) { v = find_treasurelist (SvPV_nolen (sv)); }	399	inline void sv_to (SV *sv, treasurelist * &v) { v = treasurelist::find (SvPV_nolen (sv)); }
392		400
393	template<class T>	401	template<class T>
394	inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; }	402	inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; }
395		403
396	template<int N>	404	template<int N>
397	inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); }	405	inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); }
398		406
399	inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); }
400	inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }	407	inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }
401	inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }	408	inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }
402	inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }	409	inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
403	inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }	410	inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }
404		411
…		…
606	perl = perl_alloc ();	613	perl = perl_alloc ();
607	perl_construct (perl);	614	perl_construct (perl);
608		615
609	PL_exit_flags |= PERL_EXIT_DESTRUCT_END;	616	PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
610		617
611	char *argv[] = {	618	const char *argv[] = {
612	"",	619	settings.argv [0],
613	"-e"	620	"-e"
614	"use Event; use Coro;" // required for bootstrap	621	"use Event; use Coro;" // required for bootstrap
615	"cf->bootstrap;" // required for datadir :*>	622	"cf->bootstrap;" // required for datadir :*>
616	"unshift @INC, cf::datadir ();"	623	"unshift @INC, cf::datadir ();"
617	"require cf;"	624	"require cf;"
618	};	625	};
619		626
620	if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl))	627	if (perl_parse (perl, xs_init, 2, (char **)argv, (char **)NULL)
		628	|| perl_run (perl))
621	{	629	{
622	printf ("unable to initialize perl-interpreter, aborting.\n");	630	printf ("unable to initialize perl-interpreter, aborting.\n");
623	exit (EXIT_FAILURE);	631	exit (EXIT_FAILURE);
624	}	632	}
625		633
…		…
938	CALL_ARG (exit);	946	CALL_ARG (exit);
939	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	947	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
940	CALL_END;	948	CALL_END;
941	}	949	}
942		950
		951	void
		952	log_backtrace (const char *msg)
		953	{
		954	#if HAVE_BACKTRACE
		955	void *addr [20];
		956	int size = backtrace (addr, 20);
		957
		958	CALL_BEGIN (size);
		959	CALL_ARG (msg);
		960	for (int i = 0; i < size; ++i)
		961	CALL_ARG ((IV)addr [i]);
		962	CALL_CALL ("cf::_log_backtrace", G_VOID);
		963	CALL_END;
		964	#endif
		965	}
		966
943	/////////////////////////////////////////////////////////////////////////////	967	/////////////////////////////////////////////////////////////////////////////
944		968
945	struct EventAPI *watcher_base::GEventAPI;	969	struct EventAPI *watcher_base::GEventAPI;
946	struct CoroAPI *coroapi::GCoroAPI;	970	struct CoroAPI *coroapi::GCoroAPI;
947		971
948	int coroapi::cede_counter;	972	int coroapi::cede_counter;
		973	double (*coroapi::time)();
		974	double coroapi::next_cede;
949		975
		976	void coroapi::do_cede_to_tick ()
		977	{
		978	cede_counter = 0;
		979
		980	cede ();
		981
		982	next_cede += (TICK / CEDES_PER_TICK) * 0.99;
		983	if (next_cede > SvNV (sv_next_tick) - 0.02)
		984	next_cede = SvNV (sv_next_tick);
		985	}
		986
		987	void coroapi::do_cede_every ()
		988	{
		989	cede_counter = 0;
		990
		991	if (coroapi::nready ())
		992	coroapi::cede ();
		993	}
		994
		995	void coroapi::do_cede_to_tick_every ()
		996	{
		997	cede_counter = 0;
		998
		999	cede_to_tick ();
		1000	}
		1001
		1002	void
		1003	coroapi::wait_for_tick ()
		1004	{
		1005	CALL_BEGIN (0);
		1006	CALL_CALL ("cf::wait_for_tick", G_DISCARD);
		1007	CALL_END;
		1008	}
		1009
		1010	void
		1011	coroapi::wait_for_tick_begin ()
		1012	{
		1013	CALL_BEGIN (0);
		1014	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
		1015	CALL_END;
		1016	}
		1017
		1018	static void
950	static void iw_dispatch (pe_event *ev)	1019	iw_dispatch (pe_event *ev)
951	{	1020	{
952	iw *w = (iw *)ev->ext_data;	1021	iw *w = (iw *)ev->ext_data;
953	w->call (*w);	1022	w->call (*w);
954	}	1023	}
955		1024
…		…
1018	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1087	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1019	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1088	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1020	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1089	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1021	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1090	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1022		1091
1023	sv_runtime = get_sv ("cf::RUNTIME", 1);	1092	sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV);
1024	sv_upgrade (sv_runtime, SVt_NV);	1093	sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV);
1025		1094
1026	cb_global = get_av ("cf::CB_GLOBAL", 1);	1095	cb_global = get_av ("cf::CB_GLOBAL", 1);
1027	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1096	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1028	cb_object = get_av ("cf::CB_OBJECT", 1);	1097	cb_object = get_av ("cf::CB_OBJECT", 1);
1029	cb_player = get_av ("cf::CB_PLAYER", 1);	1098	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1034		1103
1035	MODULE = cf PACKAGE = cf PREFIX = cf_	1104	MODULE = cf PACKAGE = cf PREFIX = cf_
1036		1105
1037	BOOT:	1106	BOOT:
1038	{	1107	{
1039	_connect_to_perl ();
1040
1041	I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;	1108	I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;
1042	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;	1109	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
1043		1110
		1111	_connect_to_perl ();
		1112
1044	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));	1113	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
		1114
		1115	{
		1116	require_pv ("Time::HiRes");
		1117
		1118	SV **svp = hv_fetch (PL_modglobal, "Time::NVtime", 12, 0);
		1119	if (!svp) croak ("Time::HiRes is required");
		1120	if (!SvIOK(*svp)) croak ("Time::NVtime isn’t a function pointer");
		1121	coroapi::time = INT2PTR (double(*)(), SvIV(*svp));
		1122	}
1045		1123
1046	static const struct {	1124	static const struct {
1047	const char *name;	1125	const char *name;
1048	IV iv;	1126	IV iv;
1049	} *civ, const_iv[] = {	1127	} *civ, const_iv[] = {
1050	# define const_iv(name) { # name, (IV)name },	1128	# define const_iv(name) { # name, (IV)name },
1051	const_iv (llevError)	1129	const_iv (llevError) const_iv (llevInfo) const_iv (llevDebug) const_iv (llevMonster)
1052	const_iv (llevInfo)	1130	const_iv (logBacktrace)
1053	const_iv (llevDebug)	1131
1054	const_iv (llevMonster)	1132	const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)
		1133
		1134	const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)
1055		1135
1056	const_iv (MAX_TIME)	1136	const_iv (MAX_TIME)
1057	const_iv (PLAYER)	1137
1058	const_iv (TRANSPORT)
1059	const_iv (ROD)
1060	const_iv (TREASURE)
1061	const_iv (POTION)
1062	const_iv (FOOD)
1063	const_iv (POISON)
1064	const_iv (BOOK)
1065	const_iv (CLOCK)
1066	const_iv (ARROW)
1067	const_iv (BOW)
1068	const_iv (WEAPON)
1069	const_iv (ARMOUR)
1070	const_iv (PEDESTAL)
1071	const_iv (ALTAR)
1072	const_iv (LOCKED_DOOR)
1073	const_iv (SPECIAL_KEY)
1074	const_iv (MAP)
1075	const_iv (DOOR)
1076	const_iv (KEY)
1077	const_iv (TIMED_GATE)
1078	const_iv (TRIGGER)
1079	const_iv (GRIMREAPER)
1080	const_iv (MAGIC_EAR)
1081	const_iv (TRIGGER_BUTTON)
1082	const_iv (TRIGGER_ALTAR)
1083	const_iv (TRIGGER_PEDESTAL)
1084	const_iv (SHIELD)
1085	const_iv (HELMET)
1086	const_iv (HORN)
1087	const_iv (MONEY)
1088	const_iv (CLASS)
1089	const_iv (GRAVESTONE)
1090	const_iv (AMULET)
1091	const_iv (PLAYERMOVER)
1092	const_iv (TELEPORTER)
1093	const_iv (CREATOR)
1094	const_iv (SKILL)
1095	const_iv (EARTHWALL)
1096	const_iv (GOLEM)
1097	const_iv (THROWN_OBJ)
1098	const_iv (BLINDNESS)
1099	const_iv (GOD)
1100	const_iv (DETECTOR)
1101	const_iv (TRIGGER_MARKER)
1102	const_iv (DEAD_OBJECT)
1103	const_iv (DRINK)
1104	const_iv (MARKER)
1105	const_iv (HOLY_ALTAR)
1106	const_iv (PLAYER_CHANGER)
1107	const_iv (BATTLEGROUND)
1108	const_iv (PEACEMAKER)
1109	const_iv (GEM)
1110	const_iv (FIREWALL)
1111	const_iv (ANVIL)
1112	const_iv (CHECK_INV)
1113	const_iv (MOOD_FLOOR)	1138	const_iv (NUM_BODY_LOCATIONS)
1114	const_iv (EXIT)	1139	const_iv (body_range) const_iv (body_shield) const_iv (body_combat)
1115	const_iv (ENCOUNTER)	1140	const_iv (body_arm) const_iv (body_torso) const_iv (body_head)
1116	const_iv (SHOP_FLOOR)	1141	const_iv (body_neck) const_iv (body_skill) const_iv (body_finger)
1117	const_iv (SHOP_MAT)	1142	const_iv (body_shoulder) const_iv (body_foot) const_iv (body_hand)
1118	const_iv (RING)	1143	const_iv (body_wrist) const_iv (body_waist)
1119	const_iv (FLOOR)	1144
1120	const_iv (FLESH)	1145	const_iv (PLAYER) const_iv (TRANSPORT) const_iv (ROD) const_iv (TREASURE)
1121	const_iv (INORGANIC)	1146	const_iv (POTION) const_iv (FOOD) const_iv (POISON) const_iv (BOOK)
1122	const_iv (SKILL_TOOL)	1147	const_iv (CLOCK) const_iv (ARROW) const_iv (BOW) const_iv (WEAPON)
1123	const_iv (LIGHTER)	1148	const_iv (ARMOUR) const_iv (PEDESTAL) const_iv (ALTAR) const_iv (LOCKED_DOOR)
1124	const_iv (BUILDABLE_WALL)	1149	const_iv (SPECIAL_KEY) const_iv (MAP) const_iv (DOOR) const_iv (KEY)
1125	const_iv (MISC_OBJECT)	1150	const_iv (TIMED_GATE) const_iv (TRIGGER) const_iv (GRIMREAPER) const_iv (MAGIC_EAR)
1126	const_iv (LAMP)	1151	const_iv (TRIGGER_BUTTON) const_iv (TRIGGER_ALTAR) const_iv (TRIGGER_PEDESTAL) const_iv (SHIELD)
1127	const_iv (DUPLICATOR)	1152	const_iv (HELMET) const_iv (HORN) const_iv (MONEY) const_iv (CLASS)
1128	const_iv (SPELLBOOK)	1153	const_iv (GRAVESTONE) const_iv (AMULET) const_iv (PLAYERMOVER) const_iv (TELEPORTER)
1129	const_iv (CLOAK)	1154	const_iv (CREATOR) const_iv (SKILL) const_iv (EARTHWALL) const_iv (GOLEM)
1130	const_iv (SPINNER)	1155	const_iv (THROWN_OBJ) const_iv (BLINDNESS) const_iv (GOD) const_iv (DETECTOR)
1131	const_iv (GATE)	1156	const_iv (TRIGGER_MARKER) const_iv (DEAD_OBJECT) const_iv (DRINK) const_iv (MARKER)
1132	const_iv (BUTTON)	1157	const_iv (HOLY_ALTAR) const_iv (PLAYER_CHANGER) const_iv (BATTLEGROUND) const_iv (PEACEMAKER)
1133	const_iv (CF_HANDLE)	1158	const_iv (GEM) const_iv (FIREWALL) const_iv (ANVIL) const_iv (CHECK_INV)
1134	const_iv (HOLE)	1159	const_iv (MOOD_FLOOR) const_iv (EXIT) const_iv (ENCOUNTER) const_iv (SHOP_FLOOR)
1135	const_iv (TRAPDOOR)	1160	const_iv (SHOP_MAT) const_iv (RING) const_iv (FLOOR) const_iv (FLESH)
1136	const_iv (SIGN)	1161	const_iv (INORGANIC) const_iv (SKILL_TOOL) const_iv (LIGHTER) const_iv (BUILDABLE_WALL)
1137	const_iv (BOOTS)	1162	const_iv (MISC_OBJECT) const_iv (LAMP) const_iv (DUPLICATOR) const_iv (SPELLBOOK)
1138	const_iv (GLOVES)	1163	const_iv (CLOAK) const_iv (SPINNER) const_iv (GATE) const_iv (BUTTON)
1139	const_iv (SPELL)	1164	const_iv (CF_HANDLE) const_iv (HOLE) const_iv (TRAPDOOR) const_iv (SIGN)
1140	const_iv (SPELL_EFFECT)	1165	const_iv (BOOTS) const_iv (GLOVES) const_iv (SPELL) const_iv (SPELL_EFFECT)
1141	const_iv (CONVERTER)	1166	const_iv (CONVERTER) const_iv (BRACERS) const_iv (POISONING) const_iv (SAVEBED)
1142	const_iv (BRACERS)	1167	const_iv (WAND) const_iv (SCROLL) const_iv (DIRECTOR) const_iv (GIRDLE)
1143	const_iv (POISONING)	1168	const_iv (FORCE) const_iv (POTION_EFFECT) const_iv (EVENT_CONNECTOR) const_iv (CLOSE_CON)
1144	const_iv (SAVEBED)	1169	const_iv (CONTAINER) const_iv (ARMOUR_IMPROVER) const_iv (WEAPON_IMPROVER) const_iv (SKILLSCROLL)
1145	const_iv (WAND)	1170	const_iv (DEEP_SWAMP) const_iv (IDENTIFY_ALTAR) const_iv (MENU) const_iv (RUNE)
1146	const_iv (SCROLL)	1171	const_iv (TRAP) const_iv (POWER_CRYSTAL) const_iv (CORPSE) const_iv (DISEASE)
1147	const_iv (DIRECTOR)	1172	const_iv (SYMPTOM) const_iv (BUILDER) const_iv (MATERIAL) const_iv (ITEM_TRANSFORMER)
1148	const_iv (GIRDLE)
1149	const_iv (FORCE)
1150	const_iv (POTION_EFFECT)
1151	const_iv (EVENT_CONNECTOR)
1152	const_iv (CLOSE_CON)
1153	const_iv (CONTAINER)
1154	const_iv (ARMOUR_IMPROVER)
1155	const_iv (WEAPON_IMPROVER)
1156	const_iv (SKILLSCROLL)
1157	const_iv (DEEP_SWAMP)
1158	const_iv (IDENTIFY_ALTAR)
1159	const_iv (MENU)
1160	const_iv (RUNE)
1161	const_iv (TRAP)
1162	const_iv (POWER_CRYSTAL)
1163	const_iv (CORPSE)
1164	const_iv (DISEASE)
1165	const_iv (SYMPTOM)
1166	const_iv (BUILDER)
1167	const_iv (MATERIAL)
1168	const_iv (ITEM_TRANSFORMER)
1169		1173
1170	const_iv (NUM_SUBTYPES)	1174	const_iv (NUM_SUBTYPES)
1171		1175
1172	const_iv (ST_BD_BUILD)	1176	const_iv (ST_BD_BUILD) const_iv (ST_BD_REMOVE)
1173	const_iv (ST_BD_REMOVE)	1177	const_iv (ST_MAT_FLOOR) const_iv (ST_MAT_WALL) const_iv (ST_MAT_ITEM)
1174		1178
1175	const_iv (ST_MAT_FLOOR)	1179	const_iv (AT_PHYSICAL) const_iv (AT_MAGIC) const_iv (AT_FIRE) const_iv (AT_ELECTRICITY)
1176	const_iv (ST_MAT_WALL)	1180	const_iv (AT_COLD) const_iv (AT_CONFUSION) const_iv (AT_ACID) const_iv (AT_DRAIN)
1177	const_iv (ST_MAT_ITEM)	1181	const_iv (AT_WEAPONMAGIC) const_iv (AT_GHOSTHIT) const_iv (AT_POISON) const_iv (AT_SLOW)
		1182	const_iv (AT_PARALYZE) const_iv (AT_TURN_UNDEAD) const_iv (AT_FEAR) const_iv (AT_CANCELLATION)
		1183	const_iv (AT_DEPLETE) const_iv (AT_DEATH) const_iv (AT_CHAOS) const_iv (AT_COUNTERSPELL)
		1184	const_iv (AT_GODPOWER) const_iv (AT_HOLYWORD) const_iv (AT_BLIND) const_iv (AT_INTERNAL)
		1185	const_iv (AT_LIFE_STEALING) const_iv (AT_DISEASE)
1178		1186
1179	const_iv (AT_PHYSICAL)	1187	const_iv (WEAP_HIT) const_iv (WEAP_SLASH) const_iv (WEAP_PIERCE) const_iv (WEAP_CLEAVE)
1180	const_iv (AT_MAGIC)	1188	const_iv (WEAP_SLICE) const_iv (WEAP_STAB) const_iv (WEAP_WHIP) const_iv (WEAP_CRUSH)
1181	const_iv (AT_FIRE)
1182	const_iv (AT_ELECTRICITY)
1183	const_iv (AT_COLD)
1184	const_iv (AT_CONFUSION)
1185	const_iv (AT_ACID)
1186	const_iv (AT_DRAIN)
1187	const_iv (AT_WEAPONMAGIC)
1188	const_iv (AT_GHOSTHIT)
1189	const_iv (AT_POISON)
1190	const_iv (AT_SLOW)
1191	const_iv (AT_PARALYZE)
1192	const_iv (AT_TURN_UNDEAD)
1193	const_iv (AT_FEAR)
1194	const_iv (AT_CANCELLATION)
1195	const_iv (AT_DEPLETE)
1196	const_iv (AT_DEATH)
1197	const_iv (AT_CHAOS)
1198	const_iv (AT_COUNTERSPELL)
1199	const_iv (AT_GODPOWER)
1200	const_iv (AT_HOLYWORD)
1201	const_iv (AT_BLIND)
1202	const_iv (AT_INTERNAL)
1203	const_iv (AT_LIFE_STEALING)
1204	const_iv (AT_DISEASE)
1205
1206	const_iv (WEAP_HIT)
1207	const_iv (WEAP_SLASH)
1208	const_iv (WEAP_PIERCE)
1209	const_iv (WEAP_CLEAVE)
1210	const_iv (WEAP_SLICE)
1211	const_iv (WEAP_STAB)
1212	const_iv (WEAP_WHIP)
1213	const_iv (WEAP_CRUSH)
1214	const_iv (WEAP_BLUD)	1189	const_iv (WEAP_BLUD)
1215		1190
1216	const_iv (FLAG_ALIVE)	1191	const_iv (FLAG_ALIVE) const_iv (FLAG_WIZ) const_iv (FLAG_REMOVED) const_iv (FLAG_FREED)
1217	const_iv (FLAG_WIZ)	1192	const_iv (FLAG_APPLIED) const_iv (FLAG_UNPAID) const_iv (FLAG_USE_SHIELD)
1218	const_iv (FLAG_REMOVED)	1193	const_iv (FLAG_NO_PICK) const_iv (FLAG_ANIMATE) const_iv (FLAG_MONSTER) const_iv (FLAG_FRIENDLY)
1219	const_iv (FLAG_FREED)	1194	const_iv (FLAG_GENERATOR) const_iv (FLAG_IS_THROWN) const_iv (FLAG_AUTO_APPLY) const_iv (FLAG_PLAYER_SOLD)
1220	const_iv (FLAG_WAS_WIZ)	1195	const_iv (FLAG_SEE_INVISIBLE) const_iv (FLAG_CAN_ROLL) const_iv (FLAG_OVERLAY_FLOOR) const_iv (FLAG_IS_TURNABLE)
1221	const_iv (FLAG_APPLIED)	1196	const_iv (FLAG_IS_USED_UP) const_iv (FLAG_IDENTIFIED) const_iv (FLAG_REFLECTING) const_iv (FLAG_CHANGING)
1222	const_iv (FLAG_UNPAID)	1197	const_iv (FLAG_SPLITTING) const_iv (FLAG_HITBACK) const_iv (FLAG_STARTEQUIP) const_iv (FLAG_BLOCKSVIEW)
1223	const_iv (FLAG_USE_SHIELD)	1198	const_iv (FLAG_UNDEAD) const_iv (FLAG_SCARED) const_iv (FLAG_UNAGGRESSIVE) const_iv (FLAG_REFL_MISSILE)
1224	const_iv (FLAG_NO_PICK)	1199	const_iv (FLAG_REFL_SPELL) const_iv (FLAG_NO_MAGIC) const_iv (FLAG_NO_FIX_PLAYER) const_iv (FLAG_IS_LIGHTABLE)
1225	const_iv (FLAG_ANIMATE)	1200	const_iv (FLAG_TEAR_DOWN) const_iv (FLAG_RUN_AWAY) const_iv (FLAG_PICK_UP) const_iv (FLAG_UNIQUE)
1226	const_iv (FLAG_MONSTER)	1201	const_iv (FLAG_NO_DROP) const_iv (FLAG_WIZCAST) const_iv (FLAG_CAST_SPELL) const_iv (FLAG_USE_SCROLL)
1227	const_iv (FLAG_FRIENDLY)	1202	const_iv (FLAG_USE_RANGE) const_iv (FLAG_USE_BOW) const_iv (FLAG_USE_ARMOUR) const_iv (FLAG_USE_WEAPON)
1228	const_iv (FLAG_GENERATOR)	1203	const_iv (FLAG_USE_RING) const_iv (FLAG_READY_RANGE) const_iv (FLAG_READY_BOW) const_iv (FLAG_XRAYS)
1229	const_iv (FLAG_IS_THROWN)	1204	const_iv (FLAG_NO_APPLY) const_iv (FLAG_IS_FLOOR) const_iv (FLAG_LIFESAVE) const_iv (FLAG_NO_STRENGTH)
1230	const_iv (FLAG_AUTO_APPLY)	1205	const_iv (FLAG_SLEEP) const_iv (FLAG_STAND_STILL) const_iv (FLAG_RANDOM_MOVE) const_iv (FLAG_ONLY_ATTACK)
1231	const_iv (FLAG_PLAYER_SOLD)	1206	const_iv (FLAG_CONFUSED) const_iv (FLAG_STEALTH) const_iv (FLAG_WIZPASS) const_iv (FLAG_IS_LINKED)
1232	const_iv (FLAG_SEE_INVISIBLE)	1207	const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)
1233	const_iv (FLAG_CAN_ROLL)	1208	const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)
1234	const_iv (FLAG_OVERLAY_FLOOR)	1209	const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)
1235	const_iv (FLAG_IS_TURNABLE)	1210	const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)
1236	const_iv (FLAG_IS_USED_UP)	1211	const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)
1237	const_iv (FLAG_IDENTIFIED)	1212	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)
1238	const_iv (FLAG_REFLECTING)	1213	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1239	const_iv (FLAG_CHANGING)	1214	const_iv (FLAG_OBJ_SAVE_ON_OVL) const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)
1240	const_iv (FLAG_SPLITTING)	1215	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1241	const_iv (FLAG_HITBACK)	1216	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1242	const_iv (FLAG_STARTEQUIP)
1243	const_iv (FLAG_BLOCKSVIEW)
1244	const_iv (FLAG_UNDEAD)
1245	const_iv (FLAG_SCARED)
1246	const_iv (FLAG_UNAGGRESSIVE)
1247	const_iv (FLAG_REFL_MISSILE)
1248	const_iv (FLAG_REFL_SPELL)
1249	const_iv (FLAG_NO_MAGIC)
1250	const_iv (FLAG_NO_FIX_PLAYER)
1251	const_iv (FLAG_IS_LIGHTABLE)
1252	const_iv (FLAG_TEAR_DOWN)
1253	const_iv (FLAG_RUN_AWAY)
1254	const_iv (FLAG_PICK_UP)
1255	const_iv (FLAG_UNIQUE)
1256	const_iv (FLAG_NO_DROP)
1257	const_iv (FLAG_WIZCAST)
1258	const_iv (FLAG_CAST_SPELL)
1259	const_iv (FLAG_USE_SCROLL)
1260	const_iv (FLAG_USE_RANGE)
1261	const_iv (FLAG_USE_BOW)
1262	const_iv (FLAG_USE_ARMOUR)
1263	const_iv (FLAG_USE_WEAPON)
1264	const_iv (FLAG_USE_RING)
1265	const_iv (FLAG_READY_RANGE)
1266	const_iv (FLAG_READY_BOW)
1267	const_iv (FLAG_XRAYS)
1268	const_iv (FLAG_NO_APPLY)
1269	const_iv (FLAG_IS_FLOOR)
1270	const_iv (FLAG_LIFESAVE)
1271	const_iv (FLAG_NO_STRENGTH)
1272	const_iv (FLAG_SLEEP)
1273	const_iv (FLAG_STAND_STILL)
1274	const_iv (FLAG_RANDOM_MOVE)
1275	const_iv (FLAG_ONLY_ATTACK)
1276	const_iv (FLAG_CONFUSED)
1277	const_iv (FLAG_STEALTH)
1278	const_iv (FLAG_WIZPASS)
1279	const_iv (FLAG_IS_LINKED)
1280	const_iv (FLAG_CURSED)
1281	const_iv (FLAG_DAMNED)
1282	const_iv (FLAG_SEE_ANYWHERE)
1283	const_iv (FLAG_KNOWN_MAGICAL)
1284	const_iv (FLAG_KNOWN_CURSED)
1285	const_iv (FLAG_CAN_USE_SKILL)
1286	const_iv (FLAG_BEEN_APPLIED)
1287	const_iv (FLAG_READY_SCROLL)
1288	const_iv (FLAG_USE_ROD)
1289	const_iv (FLAG_USE_HORN)
1290	const_iv (FLAG_MAKE_INVIS)
1291	const_iv (FLAG_INV_LOCKED)
1292	const_iv (FLAG_IS_WOODED)
1293	const_iv (FLAG_IS_HILLY)
1294	const_iv (FLAG_READY_SKILL)
1295	const_iv (FLAG_READY_WEAPON)
1296	const_iv (FLAG_NO_SKILL_IDENT)
1297	const_iv (FLAG_BLIND)
1298	const_iv (FLAG_SEE_IN_DARK)
1299	const_iv (FLAG_IS_CAULDRON)
1300	const_iv (FLAG_NO_STEAL)
1301	const_iv (FLAG_ONE_HIT)
1302	const_iv (FLAG_CLIENT_SENT)
1303	const_iv (FLAG_BERSERK)
1304	const_iv (FLAG_NEUTRAL)
1305	const_iv (FLAG_NO_ATTACK)
1306	const_iv (FLAG_NO_DAMAGE)
1307	const_iv (FLAG_OBJ_ORIGINAL)
1308	const_iv (FLAG_OBJ_SAVE_ON_OVL)
1309	const_iv (FLAG_ACTIVATE_ON_PUSH)
1310	const_iv (FLAG_ACTIVATE_ON_RELEASE)
1311	const_iv (FLAG_IS_WATER)
1312	const_iv (FLAG_CONTENT_ON_GEN)
1313	const_iv (FLAG_IS_A_TEMPLATE)
1314	const_iv (FLAG_IS_BUILDABLE)
1315	const_iv (FLAG_DESTROY_ON_DEATH)
1316	const_iv (FLAG_NO_MAP_SAVE)
1317		1217
1318	const_iv (NDI_BLACK)	1218	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1319	const_iv (NDI_WHITE)	1219	const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1320	const_iv (NDI_NAVY)	1220	const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1321	const_iv (NDI_RED)	1221	const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1322	const_iv (NDI_ORANGE)
1323	const_iv (NDI_BLUE)
1324	const_iv (NDI_DK_ORANGE)
1325	const_iv (NDI_GREEN)
1326	const_iv (NDI_LT_GREEN)
1327	const_iv (NDI_GREY)
1328	const_iv (NDI_BROWN)
1329	const_iv (NDI_GOLD)
1330	const_iv (NDI_TAN)
1331	const_iv (NDI_MAX_COLOR)
1332	const_iv (NDI_COLOR_MASK)
1333	const_iv (NDI_UNIQUE)
1334	const_iv (NDI_ALL)	1222	const_iv (NDI_ALL)
1335		1223
1336	const_iv (UPD_LOCATION)	1224	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1337	const_iv (UPD_FLAGS)	1225	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1338	const_iv (UPD_WEIGHT)
1339	const_iv (UPD_FACE)
1340	const_iv (UPD_NAME)
1341	const_iv (UPD_ANIM)
1342	const_iv (UPD_ANIMSPEED)
1343	const_iv (UPD_NROF)
1344		1226
1345	const_iv (UPD_SP_MANA)	1227	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
1346	const_iv (UPD_SP_GRACE)
1347	const_iv (UPD_SP_DAMAGE)
1348		1228
1349	const_iv (F_APPLIED)	1229	const_iv (F_APPLIED) const_iv (F_LOCATION) const_iv (F_UNPAID) const_iv (F_MAGIC)
1350	const_iv (F_LOCATION)	1230	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1351	const_iv (F_UNPAID)
1352	const_iv (F_MAGIC)
1353	const_iv (F_CURSED)
1354	const_iv (F_DAMNED)
1355	const_iv (F_OPEN)
1356	const_iv (F_NOPICK)
1357	const_iv (F_LOCKED)	1231	const_iv (F_LOCKED)
1358		1232
1359	const_iv (F_BUY)	1233	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1360	const_iv (F_SHOP)
1361	const_iv (F_SELL)
1362		1234
1363	const_iv (P_BLOCKSVIEW)	1235	const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)
1364	const_iv (P_PLAYER)	1236	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1365	const_iv (P_NO_MAGIC)
1366	const_iv (P_IS_ALIVE)
1367	const_iv (P_NO_CLERIC)
1368	const_iv (P_OUT_OF_MAP)
1369	const_iv (P_NEW_MAP)
1370	const_iv (P_UPTODATE)
1371		1237
1372	const_iv (UP_OBJ_INSERT)	1238	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1373	const_iv (UP_OBJ_REMOVE)
1374	const_iv (UP_OBJ_CHANGE)
1375	const_iv (UP_OBJ_FACE)
1376		1239
1377	const_iv (INS_NO_MERGE)	1240	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
1378	const_iv (INS_ABOVE_FLOOR_ONLY)	1241	const_iv (INS_ON_TOP) const_iv (INS_BELOW_ORIGINATOR) const_iv (INS_MAP_LOAD)
1379	const_iv (INS_NO_WALK_ON)
1380	const_iv (INS_ON_TOP)
1381	const_iv (INS_BELOW_ORIGINATOR)
1382	const_iv (INS_MAP_LOAD)
1383		1242
1384	const_iv (WILL_APPLY_HANDLE)	1243	const_iv (WILL_APPLY_HANDLE) const_iv (WILL_APPLY_TREASURE) const_iv (WILL_APPLY_EARTHWALL)
1385	const_iv (WILL_APPLY_TREASURE)	1244	const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)
1386	const_iv (WILL_APPLY_EARTHWALL)
1387	const_iv (WILL_APPLY_DOOR)
1388	const_iv (WILL_APPLY_FOOD)
1389		1245
1390	const_iv (SAVE_MODE)	1246	const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)
1391	const_iv (SAVE_DIR_MODE)
1392		1247
1393	const_iv (M_PAPER)	1248	const_iv (M_PAPER) const_iv (M_IRON) const_iv (M_GLASS) const_iv (M_LEATHER)
1394	const_iv (M_IRON)	1249	const_iv (M_WOOD) const_iv (M_ORGANIC) const_iv (M_STONE) const_iv (M_CLOTH)
1395	const_iv (M_GLASS)	1250	const_iv (M_ADAMANT) const_iv (M_LIQUID) const_iv (M_SOFT_METAL) const_iv (M_BONE)
1396	const_iv (M_LEATHER)	1251	const_iv (M_ICE) const_iv (M_SPECIAL)
1397	const_iv (M_WOOD)
1398	const_iv (M_ORGANIC)
1399	const_iv (M_STONE)
1400	const_iv (M_CLOTH)
1401	const_iv (M_ADAMANT)
1402	const_iv (M_LIQUID)
1403	const_iv (M_SOFT_METAL)
1404	const_iv (M_BONE)
1405	const_iv (M_ICE)
1406	const_iv (M_SPECIAL)
1407		1252
1408	const_iv (SK_EXP_ADD_SKILL)	1253	const_iv (SK_EXP_ADD_SKILL) const_iv (SK_EXP_TOTAL) const_iv (SK_EXP_NONE)
1409	const_iv (SK_EXP_TOTAL)	1254	const_iv (SK_SUBTRACT_SKILL_EXP) const_iv (SK_EXP_SKILL_ONLY)
1410	const_iv (SK_EXP_NONE)
1411	const_iv (SK_SUBTRACT_SKILL_EXP)
1412	const_iv (SK_EXP_SKILL_ONLY)
1413		1255
1414	const_iv (SK_LOCKPICKING)	1256	const_iv (SK_LOCKPICKING) const_iv (SK_HIDING) const_iv (SK_SMITHERY) const_iv (SK_BOWYER)
1415	const_iv (SK_HIDING)	1257	const_iv (SK_JEWELER) const_iv (SK_ALCHEMY) const_iv (SK_STEALING) const_iv (SK_LITERACY)
1416	const_iv (SK_SMITHERY)	1258	const_iv (SK_BARGAINING) const_iv (SK_JUMPING) const_iv (SK_DET_MAGIC) const_iv (SK_ORATORY)
1417	const_iv (SK_BOWYER)	1259	const_iv (SK_SINGING) const_iv (SK_DET_CURSE) const_iv (SK_FIND_TRAPS) const_iv (SK_MEDITATION)
1418	const_iv (SK_JEWELER)	1260	const_iv (SK_PUNCHING) const_iv (SK_FLAME_TOUCH) const_iv (SK_KARATE) const_iv (SK_CLIMBING)
1419	const_iv (SK_ALCHEMY)	1261	const_iv (SK_WOODSMAN) const_iv (SK_INSCRIPTION) const_iv (SK_ONE_HANDED_WEAPON) const_iv (SK_MISSILE_WEAPON)
1420	const_iv (SK_STEALING)	1262	const_iv (SK_THROWING) const_iv (SK_USE_MAGIC_ITEM) const_iv (SK_DISARM_TRAPS) const_iv (SK_SET_TRAP)
1421	const_iv (SK_LITERACY)	1263	const_iv (SK_THAUMATURGY) const_iv (SK_PRAYING) const_iv (SK_CLAWING) const_iv (SK_LEVITATION)
1422	const_iv (SK_BARGAINING)	1264	const_iv (SK_SUMMONING) const_iv (SK_PYROMANCY) const_iv (SK_EVOCATION) const_iv (SK_SORCERY)
1423	const_iv (SK_JUMPING)	1265	const_iv (SK_TWO_HANDED_WEAPON) const_iv (SK_SPARK_TOUCH) const_iv (SK_SHIVER) const_iv (SK_ACID_SPLASH)
1424	const_iv (SK_DET_MAGIC)
1425	const_iv (SK_ORATORY)
1426	const_iv (SK_SINGING)
1427	const_iv (SK_DET_CURSE)
1428	const_iv (SK_FIND_TRAPS)
1429	const_iv (SK_MEDITATION)
1430	const_iv (SK_PUNCHING)
1431	const_iv (SK_FLAME_TOUCH)
1432	const_iv (SK_KARATE)
1433	const_iv (SK_CLIMBING)
1434	const_iv (SK_WOODSMAN)
1435	const_iv (SK_INSCRIPTION)
1436	const_iv (SK_ONE_HANDED_WEAPON)
1437	const_iv (SK_MISSILE_WEAPON)
1438	const_iv (SK_THROWING)
1439	const_iv (SK_USE_MAGIC_ITEM)
1440	const_iv (SK_DISARM_TRAPS)
1441	const_iv (SK_SET_TRAP)
1442	const_iv (SK_THAUMATURGY)
1443	const_iv (SK_PRAYING)
1444	const_iv (SK_CLAWING)
1445	const_iv (SK_LEVITATION)
1446	const_iv (SK_SUMMONING)
1447	const_iv (SK_PYROMANCY)
1448	const_iv (SK_EVOCATION)
1449	const_iv (SK_SORCERY)
1450	const_iv (SK_TWO_HANDED_WEAPON)
1451	const_iv (SK_SPARK_TOUCH)
1452	const_iv (SK_SHIVER)
1453	const_iv (SK_ACID_SPLASH)
1454	const_iv (SK_POISON_NAIL)	1266	const_iv (SK_POISON_NAIL)
1455		1267
1456	const_iv (SOUND_NEW_PLAYER)	1268	const_iv (SOUND_NEW_PLAYER) const_iv (SOUND_FIRE_ARROW) const_iv (SOUND_LEARN_SPELL) const_iv (SOUND_FUMBLE_SPELL)
1457	const_iv (SOUND_FIRE_ARROW)	1269	const_iv (SOUND_WAND_POOF) const_iv (SOUND_OPEN_DOOR) const_iv (SOUND_PUSH_PLAYER) const_iv (SOUND_PLAYER_HITS1)
1458	const_iv (SOUND_LEARN_SPELL)	1270	const_iv (SOUND_PLAYER_HITS2) const_iv (SOUND_PLAYER_HITS3) const_iv (SOUND_PLAYER_HITS4) const_iv (SOUND_PLAYER_IS_HIT1)
1459	const_iv (SOUND_FUMBLE_SPELL)	1271	const_iv (SOUND_PLAYER_IS_HIT2) const_iv (SOUND_PLAYER_IS_HIT3) const_iv (SOUND_PLAYER_KILLS) const_iv (SOUND_PET_IS_KILLED)
1460	const_iv (SOUND_WAND_POOF)	1272	const_iv (SOUND_PLAYER_DIES) const_iv (SOUND_OB_EVAPORATE) const_iv (SOUND_OB_EXPLODE) const_iv (SOUND_CLOCK)
1461	const_iv (SOUND_OPEN_DOOR)	1273	const_iv (SOUND_TURN_HANDLE) const_iv (SOUND_FALL_HOLE) const_iv (SOUND_DRINK_POISON) const_iv (SOUND_CAST_SPELL_0)
1462	const_iv (SOUND_PUSH_PLAYER)
1463	const_iv (SOUND_PLAYER_HITS1)
1464	const_iv (SOUND_PLAYER_HITS2)
1465	const_iv (SOUND_PLAYER_HITS3)
1466	const_iv (SOUND_PLAYER_HITS4)
1467	const_iv (SOUND_PLAYER_IS_HIT1)
1468	const_iv (SOUND_PLAYER_IS_HIT2)
1469	const_iv (SOUND_PLAYER_IS_HIT3)
1470	const_iv (SOUND_PLAYER_KILLS)
1471	const_iv (SOUND_PET_IS_KILLED)
1472	const_iv (SOUND_PLAYER_DIES)
1473	const_iv (SOUND_OB_EVAPORATE)
1474	const_iv (SOUND_OB_EXPLODE)
1475	const_iv (SOUND_CLOCK)
1476	const_iv (SOUND_TURN_HANDLE)
1477	const_iv (SOUND_FALL_HOLE)
1478	const_iv (SOUND_DRINK_POISON)
1479	const_iv (SOUND_CAST_SPELL_0)
1480		1274
1481	const_iv (PREFER_LOW)	1275	const_iv (PREFER_LOW) const_iv (PREFER_HIGH)
1482	const_iv (PREFER_HIGH)
1483		1276
1484	const_iv (ATNR_PHYSICAL)	1277	const_iv (ATNR_PHYSICAL) const_iv (ATNR_MAGIC) const_iv (ATNR_FIRE) const_iv (ATNR_ELECTRICITY)
1485	const_iv (ATNR_MAGIC)	1278	const_iv (ATNR_COLD) const_iv (ATNR_CONFUSION) const_iv (ATNR_ACID) const_iv (ATNR_DRAIN)
1486	const_iv (ATNR_FIRE)	1279	const_iv (ATNR_WEAPONMAGIC) const_iv (ATNR_GHOSTHIT) const_iv (ATNR_POISON) const_iv (ATNR_SLOW)
1487	const_iv (ATNR_ELECTRICITY)	1280	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1488	const_iv (ATNR_COLD)	1281	const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1489	const_iv (ATNR_CONFUSION)	1282	const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1490	const_iv (ATNR_ACID)	1283	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1491	const_iv (ATNR_DRAIN)
1492	const_iv (ATNR_WEAPONMAGIC)
1493	const_iv (ATNR_GHOSTHIT)
1494	const_iv (ATNR_POISON)
1495	const_iv (ATNR_SLOW)
1496	const_iv (ATNR_PARALYZE)
1497	const_iv (ATNR_TURN_UNDEAD)
1498	const_iv (ATNR_FEAR)
1499	const_iv (ATNR_CANCELLATION)
1500	const_iv (ATNR_DEPLETE)
1501	const_iv (ATNR_DEATH)
1502	const_iv (ATNR_CHAOS)
1503	const_iv (ATNR_COUNTERSPELL)
1504	const_iv (ATNR_GODPOWER)
1505	const_iv (ATNR_HOLYWORD)
1506	const_iv (ATNR_BLIND)
1507	const_iv (ATNR_INTERNAL)
1508	const_iv (ATNR_LIFE_STEALING)
1509	const_iv (ATNR_DISEASE)
1510		1284
1511	const_iv (MAP_IN_MEMORY)	1285	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
1512	const_iv (MAP_SWAPPED)
1513	const_iv (MAP_LOADING)
1514	const_iv (MAP_SAVING)
1515		1286
1516	const_iv (KLASS_ATTACHABLE)	1287	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1517	const_iv (KLASS_GLOBAL)	1288	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1518	const_iv (KLASS_OBJECT)
1519	const_iv (KLASS_CLIENT)
1520	const_iv (KLASS_PLAYER)
1521	const_iv (KLASS_MAP)
1522		1289
1523	const_iv (CS_QUERY_YESNO)	1290	const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT)
1524	const_iv (CS_QUERY_SINGLECHAR)
1525	const_iv (CS_QUERY_HIDEINPUT)
1526		1291
1527	const_iv (ST_DEAD)	1292	const_iv (ST_DEAD) const_iv (ST_SETUP) const_iv (ST_PLAYING) const_iv (ST_CUSTOM)
1528	const_iv (ST_SETUP)
1529	const_iv (ST_PLAYING)
1530	const_iv (ST_CUSTOM)
1531		1293
1532	const_iv (ST_CHANGE_CLASS)	1294	const_iv (IO_HEADER) const_iv (IO_OBJECTS) const_iv (IO_UNIQUES)
1533
1534	const_iv (IO_HEADER)
1535	const_iv (IO_OBJECTS)
1536	const_iv (IO_UNIQUES)
1537		1295
1538	// random map generator	1296	// random map generator
1539	const_iv (LAYOUT_NONE)	1297	const_iv (LAYOUT_NONE) const_iv (LAYOUT_ONION) const_iv (LAYOUT_MAZE) const_iv (LAYOUT_SPIRAL)
1540	const_iv (LAYOUT_ONION)	1298	const_iv (LAYOUT_ROGUELIKE) const_iv (LAYOUT_SNAKE) const_iv (LAYOUT_SQUARE_SPIRAL)
1541	const_iv (LAYOUT_MAZE)
1542	const_iv (LAYOUT_SPIRAL)
1543	const_iv (LAYOUT_ROGUELIKE)
1544	const_iv (LAYOUT_SNAKE)
1545	const_iv (LAYOUT_SQUARE_SPIRAL)
1546		1299
1547	const_iv (RMOPT_RANDOM)	1300	const_iv (RMOPT_RANDOM) const_iv (RMOPT_CENTERED) const_iv (RMOPT_LINEAR)
1548	const_iv (RMOPT_CENTERED)	1301	const_iv (RMOPT_BOTTOM_C) const_iv (RMOPT_BOTTOM_R) const_iv (RMOPT_IRR_SPACE)
1549	const_iv (RMOPT_LINEAR)	1302	const_iv (RMOPT_WALL_OFF) const_iv (RMOPT_WALLS_ONLY) const_iv (RMOPT_NO_DOORS)
1550	const_iv (RMOPT_BOTTOM_C)
1551	const_iv (RMOPT_BOTTOM_R)
1552	const_iv (RMOPT_IRR_SPACE)
1553	const_iv (RMOPT_WALL_OFF)
1554	const_iv (RMOPT_WALLS_ONLY)
1555	const_iv (RMOPT_NO_DOORS)
1556		1303
1557	const_iv (SYMMETRY_RANDOM)	1304	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1558	const_iv (SYMMETRY_NONE)	1305	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1559	const_iv (SYMMETRY_X)	1306
1560	const_iv (SYMMETRY_Y)	1307	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1561	const_iv (SYMMETRY_XY)	1308	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)
		1309	const_iv (GT_MINIMAL)
1562	};	1310	};
1563		1311
1564	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	1312	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1565	newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));	1313	newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));
1566		1314
…		…
1598		1346
1599	for_all_objects (op)	1347	for_all_objects (op)
1600	op->reattach ();	1348	op->reattach ();
1601	}	1349	}
1602		1350
		1351	void _post_tick ()
		1352	CODE:
		1353	coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);
		1354
		1355	# support function for map-world.ext
		1356	void _quantise (SV *data_sv, SV *plt_sv)
		1357	CODE:
		1358	{
		1359	if (!SvROK (plt_sv) || SvTYPE (SvRV (plt_sv)) != SVt_PVAV)
		1360	croak ("_quantise called with invalid agruments");
		1361
		1362	plt_sv = SvRV (plt_sv);
		1363	SV **plt = AvARRAY (plt_sv);
		1364	int plt_count = AvFILL (plt_sv) + 1;
		1365
		1366	STRLEN len;
		1367	char *data = SvPVbyte (data_sv, len);
		1368	char *dst = data;
		1369
		1370	while (len >= 3)
		1371	{
		1372	for (SV **val_sv = plt + plt_count; val_sv-- > plt; )
		1373	{
		1374	char *val = SvPVX (*val_sv);
		1375
		1376	if (val [0] == data [0]
		1377	&& val [1] == data [1]
		1378	&& val [2] == data [2])
		1379	{
		1380	*dst++ = val [3];
		1381	goto next;
		1382	}
		1383	}
		1384
		1385	croak ("_quantise: color not found in palette: #%02x%02x%02x, at offset %d %d",
		1386	(uint8_t)data [0], (uint8_t)data [1], (uint8_t)data [2],
		1387	dst - SvPVX (data_sv), len);
		1388
		1389	next:
		1390	data += 3;
		1391	len -= 3;
		1392	}
		1393
		1394	SvCUR_set (data_sv, dst - SvPVX (data_sv));
		1395	}
		1396
1603	NV floor (NV x)	1397	NV floor (NV x)
1604		1398
1605	NV ceil (NV x)	1399	NV ceil (NV x)
1606		1400
1607	NV rndm (...)	1401	NV rndm (...)
…		…
1614	default: croak ("cf::rndm requires none, one or two parameters."); break;	1408	default: croak ("cf::rndm requires none, one or two parameters."); break;
1615	}	1409	}
1616	OUTPUT:	1410	OUTPUT:
1617	RETVAL	1411	RETVAL
1618		1412
		1413	NV clamp (NV value, NV min_value, NV max_value)
		1414	CODE:
		1415	RETVAL = clamp (value, min_value, max_value);
		1416	OUTPUT:
		1417	RETVAL
		1418
		1419	NV lerp (NV value, NV min_in, NV max_in, NV min_out, NV max_out)
		1420	CODE:
		1421	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
		1422	OUTPUT:
		1423	RETVAL
		1424
		1425	void cede_to_tick ()
		1426	CODE:
		1427	coroapi::cede_to_tick ();
		1428
1619	void server_tick ()	1429	void server_tick ()
1620	CODE:	1430	CODE:
1621	runtime = SvNVx (sv_runtime);	1431	runtime = SvNVx (sv_runtime);
1622	server_tick ();	1432	server_tick ();
1623		1433
1624	void	1434	void
1625	LOG (int level, char *msg)	1435	log_backtrace (utf8_string msg)
		1436
		1437	void
		1438	LOG (int flags, utf8_string msg)
1626	PROTOTYPE: $$	1439	PROTOTYPE: $$
1627	C_ARGS: (LogLevel)level, "%s", msg	1440	C_ARGS: flags, "%s", msg
1628		1441
1629	char *path_combine (char *base, char *path)	1442	octet_string path_combine (octet_string base, octet_string path)
1630	PROTOTYPE: $$	1443	PROTOTYPE: $$
1631		1444
1632	char *path_combine_and_normalize (char *base, char *path)	1445	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1633	PROTOTYPE: $$	1446	PROTOTYPE: $$
1634		1447
1635	const char *	1448	const_octet_string
1636	get_maps_directory (char *path)	1449	get_maps_directory (octet_string path)
1637	PROTOTYPE: $	1450	PROTOTYPE: $
1638	ALIAS: maps_directory = 0	1451	ALIAS: maps_directory = 0
1639	CODE:	1452	CODE:
1640	RETVAL = create_pathname (path);	1453	RETVAL = create_pathname (path);
1641	OUTPUT: RETVAL	1454	OUTPUT: RETVAL
…		…
1643	void	1456	void
1644	sub_generation_inc ()	1457	sub_generation_inc ()
1645	CODE:	1458	CODE:
1646	PL_sub_generation++;	1459	PL_sub_generation++;
1647		1460
1648	char *	1461	const_octet_string
1649	mapdir ()	1462	mapdir ()
1650	PROTOTYPE:	1463	PROTOTYPE:
1651	ALIAS:	1464	ALIAS:
1652	mapdir = 0	1465	mapdir = 0
1653	uniquedir = 1	1466	uniquedir = 1
…		…
1669	}	1482	}
1670	OUTPUT: RETVAL	1483	OUTPUT: RETVAL
1671		1484
1672	void abort ()	1485	void abort ()
1673		1486
		1487	void reset_signals ()
		1488
1674	void fork_abort (char *cause = "cf::fork_abort")	1489	void fork_abort (octet_string cause = "cf::fork_abort")
1675		1490
1676	void cleanup (const char *cause, bool make_core = false)	1491	void cleanup (octet_string cause, bool make_core = false)
1677		1492
1678	void emergency_save ()	1493	void emergency_save ()
1679		1494
1680	void _exit (int status = EXIT_SUCCESS)	1495	void _exit (int status = EXIT_SUCCESS)
1681		1496
…		…
1691		1506
1692	int munlockall ()	1507	int munlockall ()
1693		1508
1694	#endif	1509	#endif
1695		1510
1696	int find_animation (char *text)	1511	int find_animation (utf8_string text)
1697	PROTOTYPE: $	1512	PROTOTYPE: $
1698		1513
1699	int random_roll (int min, int max, object *op, int goodbad);	1514	int random_roll (int min, int max, object *op, int goodbad);
1700		1515
1701	const char *cost_string_from_value(uint64 cost, int approx = 0)	1516	const_utf8_string cost_string_from_value(uint64 cost, int approx = 0)
1702		1517
1703	int	1518	int
1704	exp_to_level (val64 exp)	1519	exp_to_level (val64 exp)
1705	CODE:	1520	CODE:
1706	{	1521	{
…		…
1738	else	1553	else
1739	XSRETURN_UNDEF;	1554	XSRETURN_UNDEF;
1740	OUTPUT: RETVAL	1555	OUTPUT: RETVAL
1741		1556
1742	bool	1557	bool
1743	load_resource_file (const char *filename)	1558	load_resource_file (octet_string filename)
1744		1559
1745	MODULE = cf PACKAGE = cf::attachable	1560	MODULE = cf PACKAGE = cf::attachable
1746		1561
1747	int	1562	int
1748	valid (SV *obj)	1563	valid (SV *obj)
…		…
1812	object *actives (U32 index)	1627	object *actives (U32 index)
1813	CODE:	1628	CODE:
1814	RETVAL = index < actives.size () ? actives [index] : 0;	1629	RETVAL = index < actives.size () ? actives [index] : 0;
1815	OUTPUT: RETVAL	1630	OUTPUT: RETVAL
1816		1631
		1632	const char *slot_save_name (U32 slot)
		1633	ALIAS:
		1634	slot_use_name = 1
		1635	slot_nonuse_name = 2
		1636	CODE:
		1637	{
		1638	if (slot >= NUM_BODY_LOCATIONS)
		1639	croak ("body slot index out of range");
		1640
		1641	switch (ix)
		1642	{
		1643	case 0: RETVAL = body_locations[slot].save_name; break;
		1644	case 1: RETVAL = body_locations[slot].use_name; break;
		1645	case 2: RETVAL = body_locations[slot].nonuse_name; break;
		1646	}
		1647	}
		1648	OUTPUT:
		1649	RETVAL
		1650
1817	# missing properties	1651	# missing properties
1818		1652
1819	object *head (object *op)	1653	object *head (object *op)
1820	PROTOTYPE: $	1654	PROTOTYPE: $
1821	CODE:	1655	CODE:
…		…
1847	num_animations (object *op)	1681	num_animations (object *op)
1848	CODE:	1682	CODE:
1849	RETVAL = NUM_ANIMATIONS (op);	1683	RETVAL = NUM_ANIMATIONS (op);
1850	OUTPUT: RETVAL	1684	OUTPUT: RETVAL
1851		1685
		1686	int slot_info (object *op, UV slot, int value = 0)
		1687	ALIAS:
		1688	slot_used = 1
		1689	CODE:
		1690	{
		1691	if (slot >= NUM_BODY_LOCATIONS)
		1692	croak ("body slot index out of range");
		1693
		1694	RETVAL = ix ? op->slot[slot].used : op->slot[slot].info;
		1695
		1696	if (items > 2)
		1697	if (ix)
		1698	op->slot[slot].used = value;
		1699	else
		1700	op->slot[slot].info = value;
		1701	}
		1702	OUTPUT:
		1703	RETVAL
		1704
1852	object *find_best_object_match (object *op, const char *match)	1705	object *find_best_object_match (object *op, utf8_string match)
1853		1706
1854	object *find_marked_object (object *op)	1707	object *find_marked_object (object *op)
1855		1708
1856	int need_identify (object *obj);	1709	int need_identify (object *obj);
1857		1710
…		…
1877	CODE:	1730	CODE:
1878	player_apply_below (op);	1731	player_apply_below (op);
1879		1732
1880	int cast_heal (object *op, object *caster, object *spell, int dir = 0)	1733	int cast_heal (object *op, object *caster, object *spell, int dir = 0)
1881		1734
1882	object *cf_object_present_archname_inside (object *op, char *whatstr)	1735	object *cf_object_present_archname_inside (object *op, utf8_string whatstr)
1883		1736
1884	int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)	1737	int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)
1885		1738
1886	int cf_object_change_map (object *op, int x, int y, maptile *map)	1739	int cf_object_change_map (object *op, int x, int y, maptile *map)
1887		1740
…		…
1907	RETVAL = pay_for_amount (amount, op);	1760	RETVAL = pay_for_amount (amount, op);
1908	OUTPUT: RETVAL	1761	OUTPUT: RETVAL
1909		1762
1910	void pay_player (object *op, uint64 amount)	1763	void pay_player (object *op, uint64 amount)
1911		1764
1912	val64 pay_player_arch (object *op, const char *arch, uint64 amount)	1765	val64 pay_player_arch (object *op, utf8_string arch, uint64 amount)
1913		1766
1914	int cast_spell (object *op, object *caster, int dir, object *spell_ob, char *stringarg = 0)	1767	int cast_spell (object *op, object *caster, int dir, object *spell_ob, utf8_string stringarg = 0)
1915		1768
1916	void learn_spell (object *op, object *sp, int special_prayer = 0)	1769	void learn_spell (object *op, object *sp, int special_prayer = 0)
1917	CODE:	1770	CODE:
1918	do_learn_spell (op, sp, special_prayer);	1771	do_learn_spell (op, sp, special_prayer);
1919		1772
1920	void forget_spell (object *op, object *sp)	1773	void forget_spell (object *op, object *sp)
1921	CODE:	1774	CODE:
1922	do_forget_spell (op, query_name (sp));	1775	do_forget_spell (op, query_name (sp));
1923		1776
1924	object *check_for_spell (object *op, char *spellname)	1777	object *check_for_spell (object *op, utf8_string spellname)
1925	CODE:	1778	CODE:
1926	RETVAL = check_spell_known (op, spellname);	1779	RETVAL = check_spell_known (op, spellname);
1927	OUTPUT: RETVAL	1780	OUTPUT: RETVAL
1928		1781
1929	int query_money (object *op)	1782	int query_money (object *op)
…		…
1942		1795
1943	int cf_object_teleport (object *op, maptile *map, int x, int y)	1796	int cf_object_teleport (object *op, maptile *map, int x, int y)
1944		1797
1945	void update_object (object *op, int action)	1798	void update_object (object *op, int action)
1946		1799
1947	object *cf_create_object_by_name (const char *name)	1800	object *cf_create_object_by_name (utf8_string name)
1948		1801
1949	void change_exp (object *op, uint64 exp, const char *skill_name = 0, int flag = 0)	1802	void change_exp (object *op, uint64 exp, utf8_string skill_name = 0, int flag = 0)
1950		1803
1951	void player_lvl_adj (object *who, object *skill = 0)	1804	void player_lvl_adj (object *who, object *skill = 0)
1952		1805
1953	int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)	1806	int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1954		1807
…		…
1968	object *cf_insert_ob_in_ob (object *ob, object *where)	1821	object *cf_insert_ob_in_ob (object *ob, object *where)
1969		1822
1970	# no clean way to get an object from an archetype - stupid idiotic	1823	# no clean way to get an object from an archetype - stupid idiotic
1971	# dumb kludgy misdesigned plug-in api slowly gets on my nerves.	1824	# dumb kludgy misdesigned plug-in api slowly gets on my nerves.
1972		1825
1973	object *new (const char *archetype = 0)	1826	object *new (utf8_string archetype = 0)
1974	PROTOTYPE: ;$	1827	PROTOTYPE: ;$
1975	CODE:	1828	CODE:
1976	RETVAL = archetype ? get_archetype (archetype) : cf_create_object ();	1829	RETVAL = archetype ? get_archetype (archetype) : cf_create_object ();
1977	OUTPUT:	1830	OUTPUT:
1978	RETVAL	1831	RETVAL
…		…
1983	{	1836	{
1984	int unused_type;	1837	int unused_type;
1985	RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);	1838	RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1986	}	1839	}
1987		1840
1988	# syntatic sugar for easier use in event callbacks.
1989	const char *options (object *op)
1990	CODE:
1991	RETVAL = op->name;
1992	OUTPUT:
1993	RETVAL
1994
1995	player *contr (object *op)	1841	player *contr (object *op)
1996	CODE:	1842	CODE:
1997	RETVAL = op->contr;	1843	RETVAL = op->contr;
1998	OUTPUT: RETVAL	1844	OUTPUT: RETVAL
1999		1845
2000	const char *get_ob_key_value (object *op, const char *key)	1846	const_utf8_string get_ob_key_value (object *op, utf8_string key)
2001		1847
2002	bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)	1848	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)
2003		1849
2004	object *get_nearest_player (object *ob)	1850	object *get_nearest_player (object *ob)
2005	ALIAS: nearest_player = 0	1851	ALIAS: nearest_player = 0
2006	PREINIT:	1852	PREINIT:
2007	extern object *get_nearest_player (object *);	1853	extern object *get_nearest_player (object *);
…		…
2023	bool on_same_map_as (object *ob, object *other)	1869	bool on_same_map_as (object *ob, object *other)
2024	CODE:	1870	CODE:
2025	RETVAL = on_same_map (ob, other);	1871	RETVAL = on_same_map (ob, other);
2026	OUTPUT: RETVAL	1872	OUTPUT: RETVAL
2027		1873
2028	const char *	1874	const_utf8_string
2029	base_name (object *op, int plural = op->nrof > 1)	1875	base_name (object *op, int plural = op->nrof > 1)
2030	CODE:	1876	CODE:
2031	RETVAL = query_base_name (op, plural);	1877	RETVAL = query_base_name (op, plural);
2032	OUTPUT: RETVAL	1878	OUTPUT: RETVAL
2033		1879
…		…
2040	RETVAL = op->contr;	1886	RETVAL = op->contr;
2041	OUTPUT: RETVAL	1887	OUTPUT: RETVAL
2042		1888
2043	void check_score (object *op)	1889	void check_score (object *op)
2044		1890
2045	void message (object *op, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE)	1891	void message (object *op, utf8_string txt, int flags = NDI_ORANGE | NDI_UNIQUE)
2046	CODE:	1892	CODE:
2047	new_draw_info (flags, 0, op, txt);	1893	new_draw_info (flags, 0, op, txt);
2048		1894
2049	object *cf_player_send_inventory (object *op)	1895	object *cf_player_send_inventory (object *op)
2050		1896
2051	char *cf_player_get_ip (object *op)	1897	octet_string cf_player_get_ip (object *op)
2052	ALIAS: ip = 0	1898	ALIAS: ip = 0
2053		1899
2054	object *cf_player_get_marked_item (object *op)	1900	object *cf_player_get_marked_item (object *op)
2055	ALIAS: marked_item = 0	1901	ALIAS: marked_item = 0
2056		1902
…		…
2066	void esrv_update_item (object *op, int what, object *item)	1912	void esrv_update_item (object *op, int what, object *item)
2067	C_ARGS: what, op, item	1913	C_ARGS: what, op, item
2068		1914
2069	void clear_los (object *op)	1915	void clear_los (object *op)
2070		1916
2071	int command_summon (object *op, char *params)	1917	int command_summon (object *op, utf8_string params)
2072		1918
2073	int command_arrest (object *op, char *params)	1919	int command_arrest (object *op, utf8_string params)
2074		1920
2075		1921
2076	MODULE = cf PACKAGE = cf::player PREFIX = cf_player_	1922	MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2077		1923
2078	INCLUDE: $PERL $srcdir/genacc player ../include/player.h |	1924	INCLUDE: $PERL $srcdir/genacc player ../include/player.h |
…		…
2211	if (SV **elem = av_fetch ((AV *)palette, idx [offs], 0))	2057	if (SV **elem = av_fetch ((AV *)palette, idx [offs], 0))
2212	{	2058	{
2213	object *ob = get_archetype (SvPVutf8_nolen (*elem));	2059	object *ob = get_archetype (SvPVutf8_nolen (*elem));
2214	ob->flag [FLAG_NO_MAP_SAVE] = true;	2060	ob->flag [FLAG_NO_MAP_SAVE] = true;
2215	THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY);	2061	THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY);
		2062
		2063	if (ob->randomitems)
		2064	{
		2065	if (!ob->above)
		2066	{
		2067	ob->create_treasure (ob->randomitems);
		2068
		2069	for (object *op = ob->above; op; op = op->above)
		2070	op->flag [FLAG_NO_MAP_SAVE] = true;
		2071	}
		2072
		2073	ob->randomitems = 0;
		2074	}
2216	}	2075	}
2217	}	2076	}
2218	}	2077	}
2219		2078
2220	skip_space: ;	2079	skip_space: ;
…		…
2247	sfree (THIS->regions, THIS->size ());	2106	sfree (THIS->regions, THIS->size ());
2248	free (THIS->regionmap);	2107	free (THIS->regionmap);
2249		2108
2250	THIS->regions = regions;	2109	THIS->regions = regions;
2251	THIS->regionmap = regionmap;	2110	THIS->regionmap = regionmap;
		2111	}
		2112
		2113	void
		2114	maptile::create_region_treasure ()
		2115	CODE:
		2116	{
		2117	object *op = object::create ();
		2118	op->type = FLOOR;
		2119	op->map = THIS;
		2120
		2121	for (int x = 0; x < THIS->width; ++x)
		2122	for (int y = 0; y < THIS->height; ++y)
		2123	{
		2124	region *rgn = THIS->region (x, y);
		2125
		2126	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D
		2127	if (rgn->treasure && rndm () < rgn->treasure_density)
		2128	{
		2129	op->x = x;
		2130	op->y = y;
		2131	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
		2132	}
		2133	}
		2134
		2135	op->destroy ();
2252	}	2136	}
2253		2137
2254	void play_sound_map (maptile *map, int x, int y, int sound_num)	2138	void play_sound_map (maptile *map, int x, int y, int sound_num)
2255		2139
2256	int out_of_map (maptile *map, int x, int y)	2140	int out_of_map (maptile *map, int x, int y)
…		…
2343		2227
2344	# worst xs function of my life	2228	# worst xs function of my life
2345	bool	2229	bool
2346	_create_random_map (\	2230	_create_random_map (\
2347	maptile *self,\	2231	maptile *self,\
2348	char *wallstyle,\	2232	utf8_string wallstyle,\
2349	char *wall_name,\	2233	utf8_string wall_name,\
2350	char *floorstyle,\	2234	utf8_string floorstyle,\
2351	char *monsterstyle,\	2235	utf8_string monsterstyle,\
2352	char *treasurestyle,\	2236	utf8_string treasurestyle,\
2353	char *layoutstyle,\	2237	utf8_string layoutstyle,\
2354	char *doorstyle,\	2238	utf8_string doorstyle,\
2355	char *decorstyle,\	2239	utf8_string decorstyle,\
2356	char *origin_map,\	2240	utf8_string origin_map,\
2357	char *final_map,\	2241	utf8_string final_map,\
2358	char *exitstyle,\	2242	utf8_string exitstyle,\
2359	char *this_map,\	2243	utf8_string this_map,\
2360	char *exit_on_final_map,\	2244	utf8_string exit_on_final_map,\
2361	int xsize,\	2245	int xsize,\
2362	int ysize,\	2246	int ysize,\
2363	int expand2x,\	2247	int expand2x,\
2364	int layoutoptions1,\	2248	int layoutoptions1,\
2365	int layoutoptions2,\	2249	int layoutoptions2,\
…		…
2378	val64 total_map_hp,\	2262	val64 total_map_hp,\
2379	int map_layout_style,\	2263	int map_layout_style,\
2380	int treasureoptions,\	2264	int treasureoptions,\
2381	int symmetry_used,\	2265	int symmetry_used,\
2382	region *region,\	2266	region *region,\
2383	char *custom\	2267	utf8_string custom\
2384	)	2268	)
2385	CODE:	2269	CODE:
2386	{	2270	{
2387	random_map_params rmp;	2271	random_map_params rmp;
2388		2272
…		…
2429	OUTPUT:	2313	OUTPUT:
2430	RETVAL	2314	RETVAL
2431		2315
2432	MODULE = cf PACKAGE = cf::arch	2316	MODULE = cf PACKAGE = cf::arch
2433		2317
2434	archetype *find (const char *name)	2318	archetype *find (utf8_string name)
2435	CODE:	2319	CODE:
2436	RETVAL = archetype::find (name);	2320	RETVAL = archetype::find (name);
2437	OUTPUT:	2321	OUTPUT:
2438	RETVAL	2322	RETVAL
2439		2323
…		…
2461	list ()	2345	list ()
2462	PPCODE:	2346	PPCODE:
2463	for_all_regions (rgn)	2347	for_all_regions (rgn)
2464	XPUSHs (sv_2mortal (to_sv (rgn)));	2348	XPUSHs (sv_2mortal (to_sv (rgn)));
2465		2349
2466	region *find (char *name)	2350	region *find (utf8_string name)
2467	PROTOTYPE: $	2351	PROTOTYPE: $
2468	CODE:	2352	CODE:
2469	RETVAL = region::find (name);	2353	RETVAL = region::find (name);
2470	OUTPUT: RETVAL	2354	OUTPUT: RETVAL
2471		2355
2472	region *find_fuzzy (char *name)	2356	region *find_fuzzy (utf8_string name)
2473	PROTOTYPE: $	2357	PROTOTYPE: $
2474	CODE:	2358	CODE:
2475	RETVAL = region::find_fuzzy (name);	2359	RETVAL = region::find_fuzzy (name);
2476	OUTPUT: RETVAL	2360	OUTPUT: RETVAL
2477		2361
		2362	int specificity (region *rgn)
		2363	CODE:
		2364	RETVAL = 0;
		2365	while (rgn = rgn->parent)
		2366	RETVAL++;
		2367	OUTPUT: RETVAL
		2368
2478	INCLUDE: $PERL $srcdir/genacc region ../include/map.h |	2369	INCLUDE: $PERL $srcdir/genacc region ../include/region.h |
2479		2370
2480	MODULE = cf PACKAGE = cf::living	2371	MODULE = cf PACKAGE = cf::living
2481		2372
2482	INCLUDE: $PERL $srcdir/genacc living ../include/living.h |	2373	INCLUDE: $PERL $srcdir/genacc living ../include/living.h |
2483		2374
…		…
2516	THIS->send_packet (buf, len);	2407	THIS->send_packet (buf, len);
2517	}	2408	}
2518		2409
2519	MODULE = cf PACKAGE = cf::face PREFIX = face_	2410	MODULE = cf PACKAGE = cf::face PREFIX = face_
2520		2411
2521	INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |	2412	#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |
2522		2413
2523	int face_find (const char *name, int defidx = 0)	2414	faceidx face_find (utf8_string name, faceidx defidx = 0)
2524		2415
2525	int alloc (const char *name)	2416	faceidx alloc (utf8_string name)
2526	CODE:	2417	CODE:
2527	{	2418	{
2528	do	2419	do
2529	{	2420	{
2530	RETVAL = faces.size ();	2421	RETVAL = faces.size ();
2531	faces.resize (RETVAL + 1);	2422	faces.resize (RETVAL + 1);
2532	face32.resize (RETVAL + 1);
2533	face64.resize (RETVAL + 1);
2534	}	2423	}
2535	while (!RETVAL); // crude way to leave index 0	2424	while (!RETVAL); // crude way to leave index 0
2536		2425
2537	faces [RETVAL].name = name;	2426	faces [RETVAL].name = name;
2538	facehash.insert (std::make_pair (faces [RETVAL].name, RETVAL));	2427	facehash.insert (std::make_pair (faces [RETVAL].name, RETVAL));
…		…
2540	if (!strcmp (name, BLANK_FACE_NAME)) blank_face = RETVAL;	2429	if (!strcmp (name, BLANK_FACE_NAME)) blank_face = RETVAL;
2541	if (!strcmp (name, EMPTY_FACE_NAME)) empty_face = RETVAL;	2430	if (!strcmp (name, EMPTY_FACE_NAME)) empty_face = RETVAL;
2542	}	2431	}
2543	OUTPUT: RETVAL	2432	OUTPUT: RETVAL
2544		2433
2545	void set (int idx, int visibility, int magicmap)	2434	void set (faceidx idx, int visibility, int magicmap)
2546	CODE:	2435	CODE:
		2436	faceinfo *f = face_info (idx);
		2437	assert (f);
2547	faces [idx].visibility = visibility;	2438	f->visibility = visibility;
2548	faces [idx].magicmap = magicmap;	2439	f->magicmap = magicmap;
2549		2440
		2441	void set_smooth (faceidx idx, faceidx smooth, int smoothlevel)
		2442	CODE:
		2443	faceinfo *f = face_info (idx); assert (f);
		2444	f->smooth = smooth;
		2445	f->smoothlevel = smoothlevel;
		2446
2550	void set_data (int idx, int faceset, SV *data, SV *chksum)	2447	void set_data (faceidx idx, int faceset, SV *data, SV *chksum)
2551	CODE:	2448	CODE:
		2449	{
2552	facedata *d = face_data (idx, faceset);	2450	facedata *d = face_data (idx, faceset);
2553	assert (sv_len (chksum) == CHKSUM_SIZE);	2451	assert (d);
2554	sv_to (data, d->data); memcpy (d->chksum, SvPVbyte_nolen (chksum), CHKSUM_SIZE);	2452	sv_to (data, d->data);
		2453	STRLEN clen;
		2454	char *cdata = SvPVbyte (chksum, clen);
		2455	clen = min (CHKSUM_SIZE, clen);
2555		2456
		2457	if (memcmp (d->chksum, cdata, clen))
		2458	{
		2459	memcpy (d->chksum, cdata, clen);
		2460
		2461	// invalidate existing client face info
		2462	for_all_clients (ns)
		2463	if (ns->faceset == faceset)
		2464	{
		2465	ns->faces_sent [idx] = false;
		2466	ns->force_newmap = true;
		2467	}
		2468	}
		2469	}
		2470
		2471	void invalidate (faceidx idx)
		2472	CODE:
		2473	for_all_clients (ns)
		2474	{
		2475	ns->faces_sent [idx] = false;
		2476	ns->force_newmap = true;
		2477	}
		2478
		2479	void invalidate_all ()
		2480	CODE:
		2481	for_all_clients (ns)
		2482	{
		2483	ns->faces_sent.reset ();
		2484	ns->force_newmap = true;
		2485	}
		2486
		2487	MODULE = cf PACKAGE = cf::anim PREFIX = anim_
		2488
		2489	#INCLUDE: $PERL $srcdir/genacc faceset ../include/anim.h |
		2490
		2491	animidx anim_find (utf8_string name)
		2492	CODE:
		2493	RETVAL = animation::find (name).number;
		2494	OUTPUT: RETVAL
		2495
		2496	animidx set (utf8_string name, SV *frames, int facings = 1)
		2497	CODE:
		2498	{
		2499	if (!SvROK (frames) && SvTYPE (SvRV (frames)) != SVt_PVAV)
		2500	croak ("frames must be an arrayref");
		2501
		2502	AV *av = (AV *)SvRV (frames);
		2503
		2504	animation *anim = &animation::find (name);
		2505	if (anim->number)
		2506	{
		2507	anim->resize (av_len (av) + 1);
		2508	anim->facings = facings;
		2509	}
		2510	else
		2511	anim = &animation::create (name, av_len (av) + 1, facings);
		2512
		2513	for (int i = 0; i < anim->num_animations; ++i)
		2514	anim->faces [i] = face_find (SvPVutf8_nolen (*av_fetch (av, i, 1)));
		2515	}
		2516	OUTPUT: RETVAL
		2517
		2518	void invalidate_all ()
		2519	CODE:
		2520	for_all_clients (ns)
		2521	ns->anims_sent.reset ();
		2522

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines