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.144 by root, Fri Jan 19 15:55:27 2007 UTC vs.
Revision 1.196 by root, Fri Apr 27 02:23:07 2007 UTC

…		…
4		4
5	/*	5	/*
6	* This code is placed under the GNU General Public Licence (GPL)	6	* This code is placed under the GNU General Public Licence (GPL)
7	*	7	*
8	* Copyright (C) 2001-2005 by Chachkoff Yann	8	* Copyright (C) 2001-2005 by Chachkoff Yann
9	* Copyright (C) 2006 by Marc Lehmann <cf@schmorp.de>	9	* Copyright (C) 2006,2007 by Marc Lehmann <cf@schmorp.de>
10	*	10	*
11	* This program is free software; you can redistribute it and/or modify	11	* This program is free software; you can redistribute it and/or modify
12	* it under the terms of the GNU General Public License as published by	12	* it under the terms of the GNU General Public License as published by
13	* the Free Software Foundation; either version 2 of the License, or	13	* the Free Software Foundation; either version 2 of the License, or
14	* (at your option) any later version.	14	* (at your option) any later version.
…		…
24	*/	24	*/
25		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		28
		29	#define CEDES_PER_TICK 5
		30
29	#include <plugin_common.h>	31	#include <plugin_common.h>
30	#include <sounds.h>	32	#include <sounds.h>
31	#include <cstdarg>	33	#include <cstdarg>
32	#include <sproto.h>	34	#include <sproto.h>
33		35
		36	#include "loader.h"
34	#include "cfperl.h"	37	#include "cfperl.h"
35	#include "shstr.h"	38	#include "shstr.h"
36		39
37	#include <unistd.h>	40	#include <unistd.h>
38	#if _POSIX_MEMLOCK	41	#if _POSIX_MEMLOCK
…		…
48		51
49	extern sint64 *levels; // the experience table	52	extern sint64 *levels; // the experience table
50		53
51	typedef object object_ornull;	54	typedef object object_ornull;
52	typedef maptile maptile_ornull;	55	typedef maptile maptile_ornull;
		56
		57	typedef char *octet_string;
		58	typedef char *utf8_string;
		59	typedef const char *const_octet_string;
		60	typedef const char *const_utf8_string;
		61
		62	typedef std::string std__string;
53		63
54	#if IVSIZE >= 8	64	#if IVSIZE >= 8
55	typedef IV val64;	65	typedef IV val64;
56	# define newSVval64 newSViv	66	# define newSVval64 newSViv
57	# define SvVAL64 SvIV	67	# define SvVAL64 SvIV
…		…
69		79
70	double runtime;	80	double runtime;
71		81
72	global gbl_ev;	82	global gbl_ev;
73	static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map;	83	static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map;
74	static SV *sv_runtime;	84	static SV *sv_runtime, *sv_next_tick;
75		85
76	static HV	86	static HV
77	*stash_cf,	87	*stash_cf,
78	*stash_cf_object_wrap,	88	*stash_cf_object_wrap,
79	*stash_cf_object_player_wrap,	89	*stash_cf_object_player_wrap,
…		…
102	unordered_vector<attachable *> attachable::mortals;	112	unordered_vector<attachable *> attachable::mortals;
103		113
104	attachable::~attachable ()	114	attachable::~attachable ()
105	{	115	{
106	assert (!self);	116	assert (!self);
		117	assert (!cb);
107	}	118	}
108		119
109	int	120	int
110	attachable::refcnt_cnt () const	121	attachable::refcnt_cnt () const
111	{	122	{
112	return refcnt + (self ? SvREFCNT (self) : 0);	123	return refcnt + (self ? SvREFCNT (self) - 1 : 0);
		124	}
		125
		126	void
		127	attachable::sever_self ()
		128	{
		129	if (HV *self = this->self)
		130	{
		131	// keep a refcount because sv_unmagic might call attachable_free,
		132	// which might clear self, causing sv_unmagic to crash on a now
		133	// invalid object.
		134	SvREFCNT_inc (self);
		135	hv_clear (self);
		136	sv_unmagic ((SV *)self, PERL_MAGIC_ext);
		137	SvREFCNT_dec (self);
		138
		139	// self *must* be null now because thats sv_unmagic's job.
		140	assert (!this->self);
		141	}
113	}	142	}
114		143
115	void	144	void
116	attachable::optimise ()	145	attachable::optimise ()
117	{	146	{
118	if (self	147	if (self
119	&& SvREFCNT (self) == 1	148	&& SvREFCNT (self) == 1
120	&& !HvTOTALKEYS (self))	149	&& !HvTOTALKEYS (self))
		150	sever_self ();
		151	}
		152
		153	// check wether the object really is dead
		154	void
		155	attachable::do_check ()
		156	{
		157	if (refcnt_cnt () > 0)
		158	return;
		159
		160	destroy ();
		161	}
		162
		163	void
		164	attachable::do_destroy ()
		165	{
		166	invoke (EVENT_ATTACHABLE_DESTROY, DT_END);
		167
		168	if (cb)
121	{	169	{
122	refcnt_inc ();
123	SvREFCNT_dec ((SV *)self);	170	SvREFCNT_dec (cb);
		171	cb = 0;
124	}	172	}
125	}
126
127	// check wether the object really is dead
128	void
129	attachable::do_check ()
130	{
131	if (refcnt > 0 || refcnt_cnt () > 0)
132	return;
133
134	destroy ();
135		173
136	if (self)	174	if (self)
137	{	175	sever_self ();
138	hv_clear (self);
139	sv_unmagic ((SV *)self, PERL_MAGIC_ext);
140	SvREFCNT_dec (self);
141	self = 0;
142	}
143	}
144
145	void
146	attachable::do_destroy ()
147	{
148	invoke (EVENT_ATTACHABLE_DESTROY, DT_END);
149
150	if (self)
151	hv_clear (self);
152		176
153	mortals.push_back (this);	177	mortals.push_back (this);
154	}	178	}
155		179
156	void	180	void
…		…
164	}	188	}
165		189
166	void	190	void
167	attachable::check_mortals ()	191	attachable::check_mortals ()
168	{	192	{
169	for (int i = 0; i < mortals.size (); )	193	static int i = 0;
		194
		195	for (;;)
170	{	196	{
		197	if (i >= mortals.size ())
		198	{
		199	i = 0;
		200
		201	if (mortals.size () > 1000)
		202	fprintf (stderr, "mortal queue size (%d) exceeds 1000.\n", (int)mortals.size ());
		203
		204	break;
		205	}
		206
171	attachable *obj = mortals [i];	207	attachable *obj = mortals [i];
172		208
173	obj->refcnt_chk (); // unborrow from perl, if necessary	209	obj->refcnt_chk (); // unborrow from perl, if necessary
174		210
175	if (obj->refcnt || obj->self)	211	if (obj->refcnt || obj->self)
176	{	212	{
177	#if 0
178	if (mortals.size() > 5)fprintf (stderr, "%d delaying %d:%p:%s %d (self %p:%d)\n", time(0),i, obj, typeid (*obj).name (),
179	obj->refcnt, obj->self, obj->self ? SvREFCNT(obj->self): - 1);//D
180	#endif
181
182	++i; // further delay freeing	213	++i; // further delay freeing
		214
		215	if (!(i & 0x3ff))
		216	break;
183	}//D	217	}
184	else	218	else
185	{	219	{
186	//Dfprintf (stderr, "deleteing %d:%p:%s\n", i, obj,typeid (*obj).name ());//D
187	mortals.erase (i);	220	mortals.erase (i);
188	delete obj;	221	delete obj;
189	}	222	}
190	}	223	}
191	}	224	}
…		…
216		249
217	static int	250	static int
218	attachable_free (pTHX_ SV *sv, MAGIC *mg)	251	attachable_free (pTHX_ SV *sv, MAGIC *mg)
219	{	252	{
220	attachable *at = (attachable *)mg->mg_ptr;	253	attachable *at = (attachable *)mg->mg_ptr;
		254
		255	//TODO: check if transaction behaviour is really required here
		256	if (SV *self = (SV *)at->self)
		257	{
221	at->self = 0;	258	at->self = 0;
		259	SvREFCNT_dec (self);
		260	}
		261
222	// next line makes sense, but most objects still have refcnt 0 by default	262	// next line makes sense, but most objects still have refcnt 0 by default
223	//at->refcnt_chk ();	263	//at->refcnt_chk ();
224	return 0;	264	return 0;
225	}	265	}
226		266
…		…
234		274
235	if (!obj->self)	275	if (!obj->self)
236	{	276	{
237	obj->self = newHV ();	277	obj->self = newHV ();
238	sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0);	278	sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0);
239
240	// borrow the refcnt from the object
241	// it is important thta no refcnt_chk is being executed here
242	obj->refcnt_dec ();
243		279
244	// now bless the object _once_	280	// now bless the object _once_
245	return sv_bless (newRV_inc ((SV *)obj->self), stash);	281	return sv_bless (newRV_inc ((SV *)obj->self), stash);
246	}	282	}
247	else	283	else
…		…
313	inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); }	349	inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); }
314		350
315	inline SV *to_sv (object & v) { return to_sv (&v); }	351	inline SV *to_sv (object & v) { return to_sv (&v); }
316	inline SV *to_sv (living & v) { return to_sv (&v); }	352	inline SV *to_sv (living & v) { return to_sv (&v); }
317		353
318	inline SV *to_sv (New_Face * v) { return to_sv (v->name); }	354	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
319	inline SV *to_sv (treasurelist * v) { return to_sv (v->name); }	355	inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); }
320		356
321	inline SV *to_sv (UUID v)	357	inline SV *to_sv (UUID v)
322	{	358	{
323	char buf[128];	359	char buf[128];
324	snprintf (buf, 128, "<1,%" PRIx64 ">", v.seq);	360	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
325	return newSVpv (buf, 0);	361	return newSVpv (buf, 0);
326	}	362	}
327		363
328	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; }	364	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; }
329	inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }	365	inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
…		…
348	inline void sv_to (SV *sv, attachable * &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }	384	inline void sv_to (SV *sv, attachable * &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
349	inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }	385	inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
350	inline void sv_to (SV *sv, region * &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }	386	inline void sv_to (SV *sv, region * &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }
351	inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }	387	inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
352		388
353	inline void sv_to (SV *sv, New_Face * &v) { v = &new_faces[FindFace (SvPV_nolen (sv), 0)]; }	389	//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
354	inline void sv_to (SV *sv, treasurelist * &v) { v = find_treasurelist (SvPV_nolen (sv)); }	390	inline void sv_to (SV *sv, treasurelist * &v) { v = treasurelist::find (SvPV_nolen (sv)); }
355		391
356	template<class T>	392	template<class T>
357	inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; }	393	inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; }
358		394
359	template<int N>	395	template<int N>
…		…
362	inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); }	398	inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); }
363	inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }	399	inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }
364	inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }	400	inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }
365	inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }	401	inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
366	inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }	402	inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }
		403
		404	inline void sv_to (SV *sv, std::string &v)
		405	{
		406	STRLEN len;
		407	char *data = SvPVbyte (sv, len);
		408	v.assign (data, len);
		409	}
367		410
368	inline void sv_to (SV *sv, UUID &v)	411	inline void sv_to (SV *sv, UUID &v)
369	{	412	{
370	unsigned int version;	413	unsigned int version;
371		414
…		…
562	perl = perl_alloc ();	605	perl = perl_alloc ();
563	perl_construct (perl);	606	perl_construct (perl);
564		607
565	PL_exit_flags |= PERL_EXIT_DESTRUCT_END;	608	PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
566		609
567	char *argv[] = {	610	const char *argv[] = {
568	"",	611	"",
569	"-e"	612	"-e"
570	"use Event; use Coro;" // required for bootstrap	613	"use Event; use Coro;" // required for bootstrap
571	"cf->bootstrap;" // required for datadir :*>	614	"cf->bootstrap;" // required for datadir :*>
572	"unshift @INC, cf::datadir ();"	615	"unshift @INC, cf::datadir ();"
573	"require cf;"	616	"require cf;"
574	};	617	};
575		618
576	if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl))	619	if (perl_parse (perl, xs_init, 2, (char **)argv, (char **)NULL)
		620	|| perl_run (perl))
577	{	621	{
578	printf ("unable to initialize perl-interpreter, aborting.\n");	622	printf ("unable to initialize perl-interpreter, aborting.\n");
579	exit (EXIT_FAILURE);	623	exit (EXIT_FAILURE);
580	}	624	}
		625
		626	{
		627	dSP;
		628
		629	PUSHMARK (SP);
		630	PUTBACK;
		631	call_pv ("cf::init", G_DISCARD | G_VOID);
		632	}
581	}	633	}
582		634
583	void cfperl_main ()	635	void cfperl_main ()
584	{	636	{
585	dSP;	637	dSP;
…		…
806	CALL_BEGIN (0);	858	CALL_BEGIN (0);
807	CALL_CALL ("cf::emergency_save", G_VOID);	859	CALL_CALL ("cf::emergency_save", G_VOID);
808	CALL_END;	860	CALL_END;
809	}	861	}
810		862
		863	void
		864	cfperl_cleanup (int make_core)
		865	{
		866	CALL_BEGIN (1);
		867	CALL_ARG (make_core);
		868	CALL_CALL ("cf::post_cleanup", G_VOID);
		869	CALL_END;
		870	}
		871
811	maptile *	872	maptile *
812	maptile::find_sync (const char *path, maptile *origin)	873	maptile::find_sync (const char *path, maptile *origin)
813	{	874	{
814	CALL_BEGIN (2);	875	CALL_BEGIN (2);
815	CALL_ARG (path);	876	CALL_ARG (path);
…		…
883		944
884	struct EventAPI *watcher_base::GEventAPI;	945	struct EventAPI *watcher_base::GEventAPI;
885	struct CoroAPI *coroapi::GCoroAPI;	946	struct CoroAPI *coroapi::GCoroAPI;
886		947
887	int coroapi::cede_counter;	948	int coroapi::cede_counter;
		949	double (*coroapi::time)();
		950	double coroapi::next_cede;
888		951
		952	void coroapi::do_cede_to_tick ()
		953	{
		954	cede_counter = 0;
		955
		956	cede ();
		957
		958	next_cede += (TICK / CEDES_PER_TICK) * 0.99;
		959	if (next_cede > SvNV (sv_next_tick) - 0.02)
		960	next_cede = SvNV (sv_next_tick);
		961	}
		962
		963	void coroapi::do_cede_every ()
		964	{
		965	cede_counter = 0;
		966
		967	if (coroapi::nready ())
		968	coroapi::cede ();
		969	}
		970
		971	void coroapi::do_cede_to_tick_every ()
		972	{
		973	cede_counter = 0;
		974
		975	cede_to_tick ();
		976	}
		977
		978	void
		979	coroapi::wait_for_tick ()
		980	{
		981	CALL_BEGIN (0);
		982	CALL_CALL ("cf::wait_for_tick", G_DISCARD);
		983	CALL_END;
		984	}
		985
		986	void
		987	coroapi::wait_for_tick_begin ()
		988	{
		989	CALL_BEGIN (0);
		990	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
		991	CALL_END;
		992	}
		993
		994	static void
889	static void iw_dispatch (pe_event *ev)	995	iw_dispatch (pe_event *ev)
890	{	996	{
891	iw *w = (iw *)ev->ext_data;	997	iw *w = (iw *)ev->ext_data;
892	w->call (*w);	998	w->call (*w);
893	}	999	}
894		1000
895	void	1001	void
896	iw::alloc ()	1002	iw::alloc ()
897	{	1003	{
898	pe = GEventAPI->new_idle (0, 0);	1004	pe = GEventAPI->new_idle (0, 0);
899		1005
		1006	WaREENTRANT_off (pe);
900	pe->base.callback = (void *)iw_dispatch;	1007	pe->base.callback = (void *)iw_dispatch;
901	pe->base.ext_data = (void *)this;	1008	pe->base.ext_data = (void *)this;
902	}	1009	}
903		1010
904	static void iow_dispatch (pe_event *ev)	1011	static void iow_dispatch (pe_event *ev)
…		…
910	void	1017	void
911	iow::alloc ()	1018	iow::alloc ()
912	{	1019	{
913	pe = GEventAPI->new_io (0, 0);	1020	pe = GEventAPI->new_io (0, 0);
914		1021
		1022	WaREENTRANT_off (pe);
915	pe->base.callback = (void *)iow_dispatch;	1023	pe->base.callback = (void *)iow_dispatch;
916	pe->base.ext_data = (void *)this;	1024	pe->base.ext_data = (void *)this;
917		1025
918	pe->fd = -1;	1026	pe->fd = -1;
919	pe->poll = 0;	1027	pe->poll = 0;
…		…
955	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1063	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
956	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1064	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
957	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1065	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
958	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1066	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
959		1067
960	sv_runtime = get_sv ("cf::RUNTIME", 1);	1068	sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV);
961	sv_upgrade (sv_runtime, SVt_NV);	1069	sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV);
962		1070
963	cb_global = get_av ("cf::CB_GLOBAL", 1);	1071	cb_global = get_av ("cf::CB_GLOBAL", 1);
964	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1072	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
965	cb_object = get_av ("cf::CB_OBJECT", 1);	1073	cb_object = get_av ("cf::CB_OBJECT", 1);
966	cb_player = get_av ("cf::CB_PLAYER", 1);	1074	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
971		1079
972	MODULE = cf PACKAGE = cf PREFIX = cf_	1080	MODULE = cf PACKAGE = cf PREFIX = cf_
973		1081
974	BOOT:	1082	BOOT:
975	{	1083	{
976	_connect_to_perl ();
977
978	I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;	1084	I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;
979	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;	1085	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
980		1086
		1087	_connect_to_perl ();
		1088
981	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));	1089	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
		1090
		1091	{
		1092	require_pv ("Time::HiRes");
		1093
		1094	SV **svp = hv_fetch (PL_modglobal, "Time::NVtime", 12, 0);
		1095	if (!svp) croak ("Time::HiRes is required");
		1096	if (!SvIOK(*svp)) croak ("Time::NVtime isn’t a function pointer");
		1097	coroapi::time = INT2PTR (double(*)(), SvIV(*svp));
		1098	}
982		1099
983	static const struct {	1100	static const struct {
984	const char *name;	1101	const char *name;
985	IV iv;	1102	IV iv;
986	} *civ, const_iv[] = {	1103	} *civ, const_iv[] = {
987	# define const_iv(name) { # name, (IV)name },	1104	# define const_iv(name) { # name, (IV)name },
988	const_iv (llevError)	1105	const_iv (llevError) const_iv (llevInfo) const_iv (llevDebug) const_iv (llevMonster)
989	const_iv (llevInfo)	1106
990	const_iv (llevDebug)	1107	const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)
991	const_iv (llevMonster)	1108
		1109	const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)
992		1110
993	const_iv (MAX_TIME)	1111	const_iv (MAX_TIME)
994	const_iv (PLAYER)	1112
995	const_iv (TRANSPORT)	1113	const_iv (PLAYER) const_iv (TRANSPORT) const_iv (ROD) const_iv (TREASURE)
996	const_iv (ROD)	1114	const_iv (POTION) const_iv (FOOD) const_iv (POISON) const_iv (BOOK)
997	const_iv (TREASURE)	1115	const_iv (CLOCK) const_iv (ARROW) const_iv (BOW) const_iv (WEAPON)
998	const_iv (POTION)	1116	const_iv (ARMOUR) const_iv (PEDESTAL) const_iv (ALTAR) const_iv (LOCKED_DOOR)
999	const_iv (FOOD)	1117	const_iv (SPECIAL_KEY) const_iv (MAP) const_iv (DOOR) const_iv (KEY)
1000	const_iv (POISON)	1118	const_iv (TIMED_GATE) const_iv (TRIGGER) const_iv (GRIMREAPER) const_iv (MAGIC_EAR)
1001	const_iv (BOOK)	1119	const_iv (TRIGGER_BUTTON) const_iv (TRIGGER_ALTAR) const_iv (TRIGGER_PEDESTAL) const_iv (SHIELD)
1002	const_iv (CLOCK)	1120	const_iv (HELMET) const_iv (HORN) const_iv (MONEY) const_iv (CLASS)
1003	const_iv (ARROW)	1121	const_iv (GRAVESTONE) const_iv (AMULET) const_iv (PLAYERMOVER) const_iv (TELEPORTER)
1004	const_iv (BOW)	1122	const_iv (CREATOR) const_iv (SKILL) const_iv (EARTHWALL) const_iv (GOLEM)
1005	const_iv (WEAPON)	1123	const_iv (THROWN_OBJ) const_iv (BLINDNESS) const_iv (GOD) const_iv (DETECTOR)
1006	const_iv (ARMOUR)	1124	const_iv (TRIGGER_MARKER) const_iv (DEAD_OBJECT) const_iv (DRINK) const_iv (MARKER)
1007	const_iv (PEDESTAL)	1125	const_iv (HOLY_ALTAR) const_iv (PLAYER_CHANGER) const_iv (BATTLEGROUND) const_iv (PEACEMAKER)
1008	const_iv (ALTAR)	1126	const_iv (GEM) const_iv (FIREWALL) const_iv (ANVIL) const_iv (CHECK_INV)
1009	const_iv (LOCKED_DOOR)	1127	const_iv (MOOD_FLOOR) const_iv (EXIT) const_iv (ENCOUNTER) const_iv (SHOP_FLOOR)
1010	const_iv (SPECIAL_KEY)	1128	const_iv (SHOP_MAT) const_iv (RING) const_iv (FLOOR) const_iv (FLESH)
1011	const_iv (MAP)	1129	const_iv (INORGANIC) const_iv (SKILL_TOOL) const_iv (LIGHTER) const_iv (BUILDABLE_WALL)
1012	const_iv (DOOR)	1130	const_iv (MISC_OBJECT) const_iv (LAMP) const_iv (DUPLICATOR) const_iv (SPELLBOOK)
1013	const_iv (KEY)	1131	const_iv (CLOAK) const_iv (SPINNER) const_iv (GATE) const_iv (BUTTON)
1014	const_iv (TIMED_GATE)	1132	const_iv (CF_HANDLE) const_iv (HOLE) const_iv (TRAPDOOR) const_iv (SIGN)
1015	const_iv (TRIGGER)	1133	const_iv (BOOTS) const_iv (GLOVES) const_iv (SPELL) const_iv (SPELL_EFFECT)
1016	const_iv (GRIMREAPER)	1134	const_iv (CONVERTER) const_iv (BRACERS) const_iv (POISONING) const_iv (SAVEBED)
1017	const_iv (MAGIC_EAR)	1135	const_iv (WAND) const_iv (SCROLL) const_iv (DIRECTOR) const_iv (GIRDLE)
1018	const_iv (TRIGGER_BUTTON)	1136	const_iv (FORCE) const_iv (POTION_EFFECT) const_iv (EVENT_CONNECTOR) const_iv (CLOSE_CON)
1019	const_iv (TRIGGER_ALTAR)	1137	const_iv (CONTAINER) const_iv (ARMOUR_IMPROVER) const_iv (WEAPON_IMPROVER) const_iv (SKILLSCROLL)
1020	const_iv (TRIGGER_PEDESTAL)	1138	const_iv (DEEP_SWAMP) const_iv (IDENTIFY_ALTAR) const_iv (MENU) const_iv (RUNE)
1021	const_iv (SHIELD)	1139	const_iv (TRAP) const_iv (POWER_CRYSTAL) const_iv (CORPSE) const_iv (DISEASE)
1022	const_iv (HELMET)	1140	const_iv (SYMPTOM) const_iv (BUILDER) const_iv (MATERIAL) const_iv (ITEM_TRANSFORMER)
1023	const_iv (HORN)
1024	const_iv (MONEY)
1025	const_iv (CLASS)
1026	const_iv (GRAVESTONE)
1027	const_iv (AMULET)
1028	const_iv (PLAYERMOVER)
1029	const_iv (TELEPORTER)
1030	const_iv (CREATOR)
1031	const_iv (SKILL)
1032	const_iv (EARTHWALL)
1033	const_iv (GOLEM)
1034	const_iv (THROWN_OBJ)
1035	const_iv (BLINDNESS)
1036	const_iv (GOD)
1037	const_iv (DETECTOR)
1038	const_iv (TRIGGER_MARKER)
1039	const_iv (DEAD_OBJECT)
1040	const_iv (DRINK)
1041	const_iv (MARKER)
1042	const_iv (HOLY_ALTAR)
1043	const_iv (PLAYER_CHANGER)
1044	const_iv (BATTLEGROUND)
1045	const_iv (PEACEMAKER)
1046	const_iv (GEM)
1047	const_iv (FIREWALL)
1048	const_iv (ANVIL)
1049	const_iv (CHECK_INV)
1050	const_iv (MOOD_FLOOR)
1051	const_iv (EXIT)
1052	const_iv (ENCOUNTER)
1053	const_iv (SHOP_FLOOR)
1054	const_iv (SHOP_MAT)
1055	const_iv (RING)
1056	const_iv (FLOOR)
1057	const_iv (FLESH)
1058	const_iv (INORGANIC)
1059	const_iv (SKILL_TOOL)
1060	const_iv (LIGHTER)
1061	const_iv (BUILDABLE_WALL)
1062	const_iv (MISC_OBJECT)
1063	const_iv (LAMP)
1064	const_iv (DUPLICATOR)
1065	const_iv (SPELLBOOK)
1066	const_iv (CLOAK)
1067	const_iv (SPINNER)
1068	const_iv (GATE)
1069	const_iv (BUTTON)
1070	const_iv (CF_HANDLE)
1071	const_iv (HOLE)
1072	const_iv (TRAPDOOR)
1073	const_iv (SIGN)
1074	const_iv (BOOTS)
1075	const_iv (GLOVES)
1076	const_iv (SPELL)
1077	const_iv (SPELL_EFFECT)
1078	const_iv (CONVERTER)
1079	const_iv (BRACERS)
1080	const_iv (POISONING)
1081	const_iv (SAVEBED)
1082	const_iv (WAND)
1083	const_iv (SCROLL)
1084	const_iv (DIRECTOR)
1085	const_iv (GIRDLE)
1086	const_iv (FORCE)
1087	const_iv (POTION_EFFECT)
1088	const_iv (EVENT_CONNECTOR)
1089	const_iv (CLOSE_CON)
1090	const_iv (CONTAINER)
1091	const_iv (ARMOUR_IMPROVER)
1092	const_iv (WEAPON_IMPROVER)
1093	const_iv (SKILLSCROLL)
1094	const_iv (DEEP_SWAMP)
1095	const_iv (IDENTIFY_ALTAR)
1096	const_iv (MENU)
1097	const_iv (RUNE)
1098	const_iv (TRAP)
1099	const_iv (POWER_CRYSTAL)
1100	const_iv (CORPSE)
1101	const_iv (DISEASE)
1102	const_iv (SYMPTOM)
1103	const_iv (BUILDER)
1104	const_iv (MATERIAL)
1105	const_iv (ITEM_TRANSFORMER)
1106		1141
1107	const_iv (NUM_SUBTYPES)	1142	const_iv (NUM_SUBTYPES)
1108		1143
1109	const_iv (ST_BD_BUILD)	1144	const_iv (ST_BD_BUILD) const_iv (ST_BD_REMOVE)
1110	const_iv (ST_BD_REMOVE)	1145	const_iv (ST_MAT_FLOOR) const_iv (ST_MAT_WALL) const_iv (ST_MAT_ITEM)
1111		1146
1112	const_iv (ST_MAT_FLOOR)	1147	const_iv (AT_PHYSICAL) const_iv (AT_MAGIC) const_iv (AT_FIRE) const_iv (AT_ELECTRICITY)
1113	const_iv (ST_MAT_WALL)	1148	const_iv (AT_COLD) const_iv (AT_CONFUSION) const_iv (AT_ACID) const_iv (AT_DRAIN)
1114	const_iv (ST_MAT_ITEM)	1149	const_iv (AT_WEAPONMAGIC) const_iv (AT_GHOSTHIT) const_iv (AT_POISON) const_iv (AT_SLOW)
		1150	const_iv (AT_PARALYZE) const_iv (AT_TURN_UNDEAD) const_iv (AT_FEAR) const_iv (AT_CANCELLATION)
		1151	const_iv (AT_DEPLETE) const_iv (AT_DEATH) const_iv (AT_CHAOS) const_iv (AT_COUNTERSPELL)
		1152	const_iv (AT_GODPOWER) const_iv (AT_HOLYWORD) const_iv (AT_BLIND) const_iv (AT_INTERNAL)
		1153	const_iv (AT_LIFE_STEALING) const_iv (AT_DISEASE)
1115		1154
1116	const_iv (AT_PHYSICAL)	1155	const_iv (WEAP_HIT) const_iv (WEAP_SLASH) const_iv (WEAP_PIERCE) const_iv (WEAP_CLEAVE)
1117	const_iv (AT_MAGIC)	1156	const_iv (WEAP_SLICE) const_iv (WEAP_STAB) const_iv (WEAP_WHIP) const_iv (WEAP_CRUSH)
1118	const_iv (AT_FIRE)
1119	const_iv (AT_ELECTRICITY)
1120	const_iv (AT_COLD)
1121	const_iv (AT_CONFUSION)
1122	const_iv (AT_ACID)
1123	const_iv (AT_DRAIN)
1124	const_iv (AT_WEAPONMAGIC)
1125	const_iv (AT_GHOSTHIT)
1126	const_iv (AT_POISON)
1127	const_iv (AT_SLOW)
1128	const_iv (AT_PARALYZE)
1129	const_iv (AT_TURN_UNDEAD)
1130	const_iv (AT_FEAR)
1131	const_iv (AT_CANCELLATION)
1132	const_iv (AT_DEPLETE)
1133	const_iv (AT_DEATH)
1134	const_iv (AT_CHAOS)
1135	const_iv (AT_COUNTERSPELL)
1136	const_iv (AT_GODPOWER)
1137	const_iv (AT_HOLYWORD)
1138	const_iv (AT_BLIND)
1139	const_iv (AT_INTERNAL)
1140	const_iv (AT_LIFE_STEALING)
1141	const_iv (AT_DISEASE)
1142
1143	const_iv (WEAP_HIT)
1144	const_iv (WEAP_SLASH)
1145	const_iv (WEAP_PIERCE)
1146	const_iv (WEAP_CLEAVE)
1147	const_iv (WEAP_SLICE)
1148	const_iv (WEAP_STAB)
1149	const_iv (WEAP_WHIP)
1150	const_iv (WEAP_CRUSH)
1151	const_iv (WEAP_BLUD)	1157	const_iv (WEAP_BLUD)
1152		1158
1153	const_iv (FLAG_ALIVE)	1159	const_iv (FLAG_ALIVE) const_iv (FLAG_WIZ) const_iv (FLAG_REMOVED) const_iv (FLAG_FREED)
1154	const_iv (FLAG_WIZ)	1160	const_iv (FLAG_WAS_WIZ) const_iv (FLAG_APPLIED) const_iv (FLAG_UNPAID) const_iv (FLAG_USE_SHIELD)
1155	const_iv (FLAG_REMOVED)	1161	const_iv (FLAG_NO_PICK) const_iv (FLAG_ANIMATE) const_iv (FLAG_MONSTER) const_iv (FLAG_FRIENDLY)
1156	const_iv (FLAG_FREED)	1162	const_iv (FLAG_GENERATOR) const_iv (FLAG_IS_THROWN) const_iv (FLAG_AUTO_APPLY) const_iv (FLAG_PLAYER_SOLD)
1157	const_iv (FLAG_WAS_WIZ)	1163	const_iv (FLAG_SEE_INVISIBLE) const_iv (FLAG_CAN_ROLL) const_iv (FLAG_OVERLAY_FLOOR) const_iv (FLAG_IS_TURNABLE)
1158	const_iv (FLAG_APPLIED)	1164	const_iv (FLAG_IS_USED_UP) const_iv (FLAG_IDENTIFIED) const_iv (FLAG_REFLECTING) const_iv (FLAG_CHANGING)
1159	const_iv (FLAG_UNPAID)	1165	const_iv (FLAG_SPLITTING) const_iv (FLAG_HITBACK) const_iv (FLAG_STARTEQUIP) const_iv (FLAG_BLOCKSVIEW)
1160	const_iv (FLAG_USE_SHIELD)	1166	const_iv (FLAG_UNDEAD) const_iv (FLAG_SCARED) const_iv (FLAG_UNAGGRESSIVE) const_iv (FLAG_REFL_MISSILE)
1161	const_iv (FLAG_NO_PICK)	1167	const_iv (FLAG_REFL_SPELL) const_iv (FLAG_NO_MAGIC) const_iv (FLAG_NO_FIX_PLAYER) const_iv (FLAG_IS_LIGHTABLE)
1162	const_iv (FLAG_ANIMATE)	1168	const_iv (FLAG_TEAR_DOWN) const_iv (FLAG_RUN_AWAY) const_iv (FLAG_PICK_UP) const_iv (FLAG_UNIQUE)
1163	const_iv (FLAG_MONSTER)	1169	const_iv (FLAG_NO_DROP) const_iv (FLAG_WIZCAST) const_iv (FLAG_CAST_SPELL) const_iv (FLAG_USE_SCROLL)
1164	const_iv (FLAG_FRIENDLY)	1170	const_iv (FLAG_USE_RANGE) const_iv (FLAG_USE_BOW) const_iv (FLAG_USE_ARMOUR) const_iv (FLAG_USE_WEAPON)
1165	const_iv (FLAG_GENERATOR)	1171	const_iv (FLAG_USE_RING) const_iv (FLAG_READY_RANGE) const_iv (FLAG_READY_BOW) const_iv (FLAG_XRAYS)
1166	const_iv (FLAG_IS_THROWN)	1172	const_iv (FLAG_NO_APPLY) const_iv (FLAG_IS_FLOOR) const_iv (FLAG_LIFESAVE) const_iv (FLAG_NO_STRENGTH)
1167	const_iv (FLAG_AUTO_APPLY)	1173	const_iv (FLAG_SLEEP) const_iv (FLAG_STAND_STILL) const_iv (FLAG_RANDOM_MOVE) const_iv (FLAG_ONLY_ATTACK)
1168	const_iv (FLAG_PLAYER_SOLD)	1174	const_iv (FLAG_CONFUSED) const_iv (FLAG_STEALTH) const_iv (FLAG_WIZPASS) const_iv (FLAG_IS_LINKED)
1169	const_iv (FLAG_SEE_INVISIBLE)	1175	const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)
1170	const_iv (FLAG_CAN_ROLL)	1176	const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)
1171	const_iv (FLAG_OVERLAY_FLOOR)	1177	const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)
1172	const_iv (FLAG_IS_TURNABLE)	1178	const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)
1173	const_iv (FLAG_IS_USED_UP)	1179	const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)
1174	const_iv (FLAG_IDENTIFIED)	1180	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)
1175	const_iv (FLAG_REFLECTING)	1181	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1176	const_iv (FLAG_CHANGING)	1182	const_iv (FLAG_OBJ_SAVE_ON_OVL) const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)
1177	const_iv (FLAG_SPLITTING)	1183	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1178	const_iv (FLAG_HITBACK)	1184	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1179	const_iv (FLAG_STARTEQUIP)
1180	const_iv (FLAG_BLOCKSVIEW)
1181	const_iv (FLAG_UNDEAD)
1182	const_iv (FLAG_SCARED)
1183	const_iv (FLAG_UNAGGRESSIVE)
1184	const_iv (FLAG_REFL_MISSILE)
1185	const_iv (FLAG_REFL_SPELL)
1186	const_iv (FLAG_NO_MAGIC)
1187	const_iv (FLAG_NO_FIX_PLAYER)
1188	const_iv (FLAG_IS_LIGHTABLE)
1189	const_iv (FLAG_TEAR_DOWN)
1190	const_iv (FLAG_RUN_AWAY)
1191	const_iv (FLAG_PICK_UP)
1192	const_iv (FLAG_UNIQUE)
1193	const_iv (FLAG_NO_DROP)
1194	const_iv (FLAG_WIZCAST)
1195	const_iv (FLAG_CAST_SPELL)
1196	const_iv (FLAG_USE_SCROLL)
1197	const_iv (FLAG_USE_RANGE)
1198	const_iv (FLAG_USE_BOW)
1199	const_iv (FLAG_USE_ARMOUR)
1200	const_iv (FLAG_USE_WEAPON)
1201	const_iv (FLAG_USE_RING)
1202	const_iv (FLAG_READY_RANGE)
1203	const_iv (FLAG_READY_BOW)
1204	const_iv (FLAG_XRAYS)
1205	const_iv (FLAG_NO_APPLY)
1206	const_iv (FLAG_IS_FLOOR)
1207	const_iv (FLAG_LIFESAVE)
1208	const_iv (FLAG_NO_STRENGTH)
1209	const_iv (FLAG_SLEEP)
1210	const_iv (FLAG_STAND_STILL)
1211	const_iv (FLAG_RANDOM_MOVE)
1212	const_iv (FLAG_ONLY_ATTACK)
1213	const_iv (FLAG_CONFUSED)
1214	const_iv (FLAG_STEALTH)
1215	const_iv (FLAG_WIZPASS)
1216	const_iv (FLAG_IS_LINKED)
1217	const_iv (FLAG_CURSED)
1218	const_iv (FLAG_DAMNED)
1219	const_iv (FLAG_SEE_ANYWHERE)
1220	const_iv (FLAG_KNOWN_MAGICAL)
1221	const_iv (FLAG_KNOWN_CURSED)
1222	const_iv (FLAG_CAN_USE_SKILL)
1223	const_iv (FLAG_BEEN_APPLIED)
1224	const_iv (FLAG_READY_SCROLL)
1225	const_iv (FLAG_USE_ROD)
1226	const_iv (FLAG_USE_HORN)
1227	const_iv (FLAG_MAKE_INVIS)
1228	const_iv (FLAG_INV_LOCKED)
1229	const_iv (FLAG_IS_WOODED)
1230	const_iv (FLAG_IS_HILLY)
1231	const_iv (FLAG_READY_SKILL)
1232	const_iv (FLAG_READY_WEAPON)
1233	const_iv (FLAG_NO_SKILL_IDENT)
1234	const_iv (FLAG_BLIND)
1235	const_iv (FLAG_SEE_IN_DARK)
1236	const_iv (FLAG_IS_CAULDRON)
1237	const_iv (FLAG_NO_STEAL)
1238	const_iv (FLAG_ONE_HIT)
1239	const_iv (FLAG_CLIENT_SENT)
1240	const_iv (FLAG_BERSERK)
1241	const_iv (FLAG_NEUTRAL)
1242	const_iv (FLAG_NO_ATTACK)
1243	const_iv (FLAG_NO_DAMAGE)
1244	const_iv (FLAG_OBJ_ORIGINAL)
1245	const_iv (FLAG_OBJ_SAVE_ON_OVL)
1246	const_iv (FLAG_ACTIVATE_ON_PUSH)
1247	const_iv (FLAG_ACTIVATE_ON_RELEASE)
1248	const_iv (FLAG_IS_WATER)
1249	const_iv (FLAG_CONTENT_ON_GEN)
1250	const_iv (FLAG_IS_A_TEMPLATE)
1251	const_iv (FLAG_IS_BUILDABLE)
1252	const_iv (FLAG_DESTROY_ON_DEATH)
1253	const_iv (FLAG_NO_SAVE)
1254		1185
1255	const_iv (NDI_BLACK)	1186	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1256	const_iv (NDI_WHITE)	1187	const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1257	const_iv (NDI_NAVY)	1188	const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1258	const_iv (NDI_RED)	1189	const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1259	const_iv (NDI_ORANGE)
1260	const_iv (NDI_BLUE)
1261	const_iv (NDI_DK_ORANGE)
1262	const_iv (NDI_GREEN)
1263	const_iv (NDI_LT_GREEN)
1264	const_iv (NDI_GREY)
1265	const_iv (NDI_BROWN)
1266	const_iv (NDI_GOLD)
1267	const_iv (NDI_TAN)
1268	const_iv (NDI_MAX_COLOR)
1269	const_iv (NDI_COLOR_MASK)
1270	const_iv (NDI_UNIQUE)
1271	const_iv (NDI_ALL)	1190	const_iv (NDI_ALL)
1272		1191
1273	const_iv (UPD_LOCATION)	1192	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1274	const_iv (UPD_FLAGS)	1193	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1275	const_iv (UPD_WEIGHT)
1276	const_iv (UPD_FACE)
1277	const_iv (UPD_NAME)
1278	const_iv (UPD_ANIM)
1279	const_iv (UPD_ANIMSPEED)
1280	const_iv (UPD_NROF)
1281		1194
1282	const_iv (UPD_SP_MANA)	1195	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
1283	const_iv (UPD_SP_GRACE)
1284	const_iv (UPD_SP_DAMAGE)
1285		1196
1286	const_iv (F_APPLIED)	1197	const_iv (F_APPLIED) const_iv (F_LOCATION) const_iv (F_UNPAID) const_iv (F_MAGIC)
1287	const_iv (F_LOCATION)	1198	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1288	const_iv (F_UNPAID)
1289	const_iv (F_MAGIC)
1290	const_iv (F_CURSED)
1291	const_iv (F_DAMNED)
1292	const_iv (F_OPEN)
1293	const_iv (F_NOPICK)
1294	const_iv (F_LOCKED)	1199	const_iv (F_LOCKED)
1295		1200
1296	const_iv (F_BUY)	1201	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1297	const_iv (F_SHOP)
1298	const_iv (F_SELL)
1299		1202
1300	const_iv (P_BLOCKSVIEW)	1203	const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)
1301	const_iv (P_PLAYER)	1204	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1302	const_iv (P_NO_MAGIC)
1303	const_iv (P_IS_ALIVE)
1304	const_iv (P_NO_CLERIC)
1305	const_iv (P_OUT_OF_MAP)
1306	const_iv (P_NEW_MAP)
1307	const_iv (P_UPTODATE)
1308		1205
1309	const_iv (UP_OBJ_INSERT)	1206	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1310	const_iv (UP_OBJ_REMOVE)
1311	const_iv (UP_OBJ_CHANGE)
1312	const_iv (UP_OBJ_FACE)
1313		1207
1314	const_iv (INS_NO_MERGE)	1208	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
1315	const_iv (INS_ABOVE_FLOOR_ONLY)	1209	const_iv (INS_ON_TOP) const_iv (INS_BELOW_ORIGINATOR) const_iv (INS_MAP_LOAD)
1316	const_iv (INS_NO_WALK_ON)
1317	const_iv (INS_ON_TOP)
1318	const_iv (INS_BELOW_ORIGINATOR)
1319	const_iv (INS_MAP_LOAD)
1320		1210
1321	const_iv (WILL_APPLY_HANDLE)	1211	const_iv (WILL_APPLY_HANDLE) const_iv (WILL_APPLY_TREASURE) const_iv (WILL_APPLY_EARTHWALL)
1322	const_iv (WILL_APPLY_TREASURE)	1212	const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)
1323	const_iv (WILL_APPLY_EARTHWALL)
1324	const_iv (WILL_APPLY_DOOR)
1325	const_iv (WILL_APPLY_FOOD)
1326		1213
1327	const_iv (SAVE_MODE)	1214	const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)
1328	const_iv (SAVE_DIR_MODE)
1329		1215
1330	const_iv (M_PAPER)	1216	const_iv (M_PAPER) const_iv (M_IRON) const_iv (M_GLASS) const_iv (M_LEATHER)
1331	const_iv (M_IRON)	1217	const_iv (M_WOOD) const_iv (M_ORGANIC) const_iv (M_STONE) const_iv (M_CLOTH)
1332	const_iv (M_GLASS)	1218	const_iv (M_ADAMANT) const_iv (M_LIQUID) const_iv (M_SOFT_METAL) const_iv (M_BONE)
1333	const_iv (M_LEATHER)	1219	const_iv (M_ICE) const_iv (M_SPECIAL)
1334	const_iv (M_WOOD)
1335	const_iv (M_ORGANIC)
1336	const_iv (M_STONE)
1337	const_iv (M_CLOTH)
1338	const_iv (M_ADAMANT)
1339	const_iv (M_LIQUID)
1340	const_iv (M_SOFT_METAL)
1341	const_iv (M_BONE)
1342	const_iv (M_ICE)
1343	const_iv (M_SPECIAL)
1344		1220
1345	const_iv (SK_EXP_ADD_SKILL)	1221	const_iv (SK_EXP_ADD_SKILL) const_iv (SK_EXP_TOTAL) const_iv (SK_EXP_NONE)
1346	const_iv (SK_EXP_TOTAL)	1222	const_iv (SK_SUBTRACT_SKILL_EXP) const_iv (SK_EXP_SKILL_ONLY)
1347	const_iv (SK_EXP_NONE)
1348	const_iv (SK_SUBTRACT_SKILL_EXP)
1349	const_iv (SK_EXP_SKILL_ONLY)
1350		1223
1351	const_iv (SK_LOCKPICKING)	1224	const_iv (SK_LOCKPICKING) const_iv (SK_HIDING) const_iv (SK_SMITHERY) const_iv (SK_BOWYER)
1352	const_iv (SK_HIDING)	1225	const_iv (SK_JEWELER) const_iv (SK_ALCHEMY) const_iv (SK_STEALING) const_iv (SK_LITERACY)
1353	const_iv (SK_SMITHERY)	1226	const_iv (SK_BARGAINING) const_iv (SK_JUMPING) const_iv (SK_DET_MAGIC) const_iv (SK_ORATORY)
1354	const_iv (SK_BOWYER)	1227	const_iv (SK_SINGING) const_iv (SK_DET_CURSE) const_iv (SK_FIND_TRAPS) const_iv (SK_MEDITATION)
1355	const_iv (SK_JEWELER)	1228	const_iv (SK_PUNCHING) const_iv (SK_FLAME_TOUCH) const_iv (SK_KARATE) const_iv (SK_CLIMBING)
1356	const_iv (SK_ALCHEMY)	1229	const_iv (SK_WOODSMAN) const_iv (SK_INSCRIPTION) const_iv (SK_ONE_HANDED_WEAPON) const_iv (SK_MISSILE_WEAPON)
1357	const_iv (SK_STEALING)	1230	const_iv (SK_THROWING) const_iv (SK_USE_MAGIC_ITEM) const_iv (SK_DISARM_TRAPS) const_iv (SK_SET_TRAP)
1358	const_iv (SK_LITERACY)	1231	const_iv (SK_THAUMATURGY) const_iv (SK_PRAYING) const_iv (SK_CLAWING) const_iv (SK_LEVITATION)
1359	const_iv (SK_BARGAINING)	1232	const_iv (SK_SUMMONING) const_iv (SK_PYROMANCY) const_iv (SK_EVOCATION) const_iv (SK_SORCERY)
1360	const_iv (SK_JUMPING)	1233	const_iv (SK_TWO_HANDED_WEAPON) const_iv (SK_SPARK_TOUCH) const_iv (SK_SHIVER) const_iv (SK_ACID_SPLASH)
1361	const_iv (SK_DET_MAGIC)
1362	const_iv (SK_ORATORY)
1363	const_iv (SK_SINGING)
1364	const_iv (SK_DET_CURSE)
1365	const_iv (SK_FIND_TRAPS)
1366	const_iv (SK_MEDITATION)
1367	const_iv (SK_PUNCHING)
1368	const_iv (SK_FLAME_TOUCH)
1369	const_iv (SK_KARATE)
1370	const_iv (SK_CLIMBING)
1371	const_iv (SK_WOODSMAN)
1372	const_iv (SK_INSCRIPTION)
1373	const_iv (SK_ONE_HANDED_WEAPON)
1374	const_iv (SK_MISSILE_WEAPON)
1375	const_iv (SK_THROWING)
1376	const_iv (SK_USE_MAGIC_ITEM)
1377	const_iv (SK_DISARM_TRAPS)
1378	const_iv (SK_SET_TRAP)
1379	const_iv (SK_THAUMATURGY)
1380	const_iv (SK_PRAYING)
1381	const_iv (SK_CLAWING)
1382	const_iv (SK_LEVITATION)
1383	const_iv (SK_SUMMONING)
1384	const_iv (SK_PYROMANCY)
1385	const_iv (SK_EVOCATION)
1386	const_iv (SK_SORCERY)
1387	const_iv (SK_TWO_HANDED_WEAPON)
1388	const_iv (SK_SPARK_TOUCH)
1389	const_iv (SK_SHIVER)
1390	const_iv (SK_ACID_SPLASH)
1391	const_iv (SK_POISON_NAIL)	1234	const_iv (SK_POISON_NAIL)
1392		1235
1393	const_iv (SOUND_NEW_PLAYER)	1236	const_iv (SOUND_NEW_PLAYER) const_iv (SOUND_FIRE_ARROW) const_iv (SOUND_LEARN_SPELL) const_iv (SOUND_FUMBLE_SPELL)
1394	const_iv (SOUND_FIRE_ARROW)	1237	const_iv (SOUND_WAND_POOF) const_iv (SOUND_OPEN_DOOR) const_iv (SOUND_PUSH_PLAYER) const_iv (SOUND_PLAYER_HITS1)
1395	const_iv (SOUND_LEARN_SPELL)	1238	const_iv (SOUND_PLAYER_HITS2) const_iv (SOUND_PLAYER_HITS3) const_iv (SOUND_PLAYER_HITS4) const_iv (SOUND_PLAYER_IS_HIT1)
1396	const_iv (SOUND_FUMBLE_SPELL)	1239	const_iv (SOUND_PLAYER_IS_HIT2) const_iv (SOUND_PLAYER_IS_HIT3) const_iv (SOUND_PLAYER_KILLS) const_iv (SOUND_PET_IS_KILLED)
1397	const_iv (SOUND_WAND_POOF)	1240	const_iv (SOUND_PLAYER_DIES) const_iv (SOUND_OB_EVAPORATE) const_iv (SOUND_OB_EXPLODE) const_iv (SOUND_CLOCK)
1398	const_iv (SOUND_OPEN_DOOR)	1241	const_iv (SOUND_TURN_HANDLE) const_iv (SOUND_FALL_HOLE) const_iv (SOUND_DRINK_POISON) const_iv (SOUND_CAST_SPELL_0)
1399	const_iv (SOUND_PUSH_PLAYER)
1400	const_iv (SOUND_PLAYER_HITS1)
1401	const_iv (SOUND_PLAYER_HITS2)
1402	const_iv (SOUND_PLAYER_HITS3)
1403	const_iv (SOUND_PLAYER_HITS4)
1404	const_iv (SOUND_PLAYER_IS_HIT1)
1405	const_iv (SOUND_PLAYER_IS_HIT2)
1406	const_iv (SOUND_PLAYER_IS_HIT3)
1407	const_iv (SOUND_PLAYER_KILLS)
1408	const_iv (SOUND_PET_IS_KILLED)
1409	const_iv (SOUND_PLAYER_DIES)
1410	const_iv (SOUND_OB_EVAPORATE)
1411	const_iv (SOUND_OB_EXPLODE)
1412	const_iv (SOUND_CLOCK)
1413	const_iv (SOUND_TURN_HANDLE)
1414	const_iv (SOUND_FALL_HOLE)
1415	const_iv (SOUND_DRINK_POISON)
1416	const_iv (SOUND_CAST_SPELL_0)
1417		1242
1418	const_iv (PREFER_LOW)	1243	const_iv (PREFER_LOW) const_iv (PREFER_HIGH)
1419	const_iv (PREFER_HIGH)
1420		1244
1421	const_iv (ATNR_PHYSICAL)	1245	const_iv (ATNR_PHYSICAL) const_iv (ATNR_MAGIC) const_iv (ATNR_FIRE) const_iv (ATNR_ELECTRICITY)
1422	const_iv (ATNR_MAGIC)	1246	const_iv (ATNR_COLD) const_iv (ATNR_CONFUSION) const_iv (ATNR_ACID) const_iv (ATNR_DRAIN)
1423	const_iv (ATNR_FIRE)	1247	const_iv (ATNR_WEAPONMAGIC) const_iv (ATNR_GHOSTHIT) const_iv (ATNR_POISON) const_iv (ATNR_SLOW)
1424	const_iv (ATNR_ELECTRICITY)	1248	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1425	const_iv (ATNR_COLD)	1249	const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1426	const_iv (ATNR_CONFUSION)	1250	const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1427	const_iv (ATNR_ACID)	1251	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1428	const_iv (ATNR_DRAIN)
1429	const_iv (ATNR_WEAPONMAGIC)
1430	const_iv (ATNR_GHOSTHIT)
1431	const_iv (ATNR_POISON)
1432	const_iv (ATNR_SLOW)
1433	const_iv (ATNR_PARALYZE)
1434	const_iv (ATNR_TURN_UNDEAD)
1435	const_iv (ATNR_FEAR)
1436	const_iv (ATNR_CANCELLATION)
1437	const_iv (ATNR_DEPLETE)
1438	const_iv (ATNR_DEATH)
1439	const_iv (ATNR_CHAOS)
1440	const_iv (ATNR_COUNTERSPELL)
1441	const_iv (ATNR_GODPOWER)
1442	const_iv (ATNR_HOLYWORD)
1443	const_iv (ATNR_BLIND)
1444	const_iv (ATNR_INTERNAL)
1445	const_iv (ATNR_LIFE_STEALING)
1446	const_iv (ATNR_DISEASE)
1447		1252
1448	const_iv (MAP_FLUSH)	1253	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
1449	const_iv (MAP_PLAYER_UNIQUE)
1450	const_iv (MAP_BLOCK)
1451	const_iv (MAP_STYLE)
1452	const_iv (MAP_OVERLAY)
1453		1254
1454	const_iv (MAP_IN_MEMORY)	1255	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1455	const_iv (MAP_SWAPPED)	1256	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1456	const_iv (MAP_LOADING)
1457	const_iv (MAP_SAVING)
1458		1257
1459	const_iv (KLASS_ATTACHABLE)	1258	const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT)
1460	const_iv (KLASS_GLOBAL)
1461	const_iv (KLASS_OBJECT)
1462	const_iv (KLASS_CLIENT)
1463	const_iv (KLASS_PLAYER)
1464	const_iv (KLASS_MAP)
1465		1259
1466	const_iv (CS_QUERY_YESNO)	1260	const_iv (ST_DEAD) const_iv (ST_SETUP) const_iv (ST_PLAYING) const_iv (ST_CUSTOM)
1467	const_iv (CS_QUERY_SINGLECHAR)
1468	const_iv (CS_QUERY_HIDEINPUT)
1469		1261
1470	const_iv (ST_DEAD)	1262	const_iv (IO_HEADER) const_iv (IO_OBJECTS) const_iv (IO_UNIQUES)
1471	const_iv (ST_SETUP)
1472	const_iv (ST_PLAYING)
1473	const_iv (ST_CUSTOM)
1474
1475	const_iv (ST_CHANGE_CLASS)
1476
1477	const_iv (IO_HEADER)
1478	const_iv (IO_OBJECTS)
1479	const_iv (IO_UNIQUES)
1480		1263
1481	// random map generator	1264	// random map generator
1482	const_iv (LAYOUT_NONE)	1265	const_iv (LAYOUT_NONE) const_iv (LAYOUT_ONION) const_iv (LAYOUT_MAZE) const_iv (LAYOUT_SPIRAL)
1483	const_iv (LAYOUT_ONION)	1266	const_iv (LAYOUT_ROGUELIKE) const_iv (LAYOUT_SNAKE) const_iv (LAYOUT_SQUARE_SPIRAL)
1484	const_iv (LAYOUT_MAZE)
1485	const_iv (LAYOUT_SPIRAL)
1486	const_iv (LAYOUT_ROGUELIKE)
1487	const_iv (LAYOUT_SNAKE)
1488	const_iv (LAYOUT_SQUARE_SPIRAL)
1489		1267
1490	const_iv (RMOPT_RANDOM)	1268	const_iv (RMOPT_RANDOM) const_iv (RMOPT_CENTERED) const_iv (RMOPT_LINEAR)
1491	const_iv (RMOPT_CENTERED)	1269	const_iv (RMOPT_BOTTOM_C) const_iv (RMOPT_BOTTOM_R) const_iv (RMOPT_IRR_SPACE)
1492	const_iv (RMOPT_LINEAR)	1270	const_iv (RMOPT_WALL_OFF) const_iv (RMOPT_WALLS_ONLY) const_iv (RMOPT_NO_DOORS)
1493	const_iv (RMOPT_BOTTOM_C)
1494	const_iv (RMOPT_BOTTOM_R)
1495	const_iv (RMOPT_IRR_SPACE)
1496	const_iv (RMOPT_WALL_OFF)
1497	const_iv (RMOPT_WALLS_ONLY)
1498	const_iv (RMOPT_NO_DOORS)
1499		1271
1500	const_iv (SYMMETRY_RANDOM)	1272	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1501	const_iv (SYMMETRY_NONE)	1273	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1502	const_iv (SYMMETRY_X)	1274
1503	const_iv (SYMMETRY_Y)	1275	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1504	const_iv (SYMMETRY_XY)	1276	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)
		1277	const_iv (GT_MINIMAL)
1505	};	1278	};
1506		1279
1507	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	1280	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1508	newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));	1281	newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));
1509		1282
…		…
1537	{	1310	{
1538	// reattach to all attachable objects in the game.	1311	// reattach to all attachable objects in the game.
1539	for_all_clients (ns)	1312	for_all_clients (ns)
1540	ns->reattach ();	1313	ns->reattach ();
1541		1314
1542	for_all_players (pl)
1543	pl->reattach ();
1544
1545	//TODO
1546	//for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)
1547	// i->second->reattach ();
1548
1549	for_all_objects (op)	1315	for_all_objects (op)
1550	op->reattach ();	1316	op->reattach ();
		1317	}
		1318
		1319	void _post_tick ()
		1320	CODE:
		1321	coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);
		1322
		1323	# support function for map-world.ext
		1324	void _quantise (SV *data_sv, SV *plt_sv)
		1325	CODE:
		1326	{
		1327	if (!SvROK (plt_sv) || SvTYPE (SvRV (plt_sv)) != SVt_PVAV)
		1328	croak ("_quantise called with invalid agruments");
		1329
		1330	plt_sv = SvRV (plt_sv);
		1331	SV **plt = AvARRAY (plt_sv);
		1332	int plt_count = AvFILL (plt_sv) + 1;
		1333
		1334	STRLEN len;
		1335	char *data = SvPVbyte (data_sv, len);
		1336	char *dst = data;
		1337
		1338	while (len >= 3)
		1339	{
		1340	for (SV **val_sv = plt + plt_count; val_sv-- > plt; )
		1341	{
		1342	char *val = SvPVX (*val_sv);
		1343
		1344	if (val [0] == data [0]
		1345	&& val [1] == data [1]
		1346	&& val [2] == data [2])
		1347	{
		1348	*dst++ = val [3];
		1349	goto next;
		1350	}
		1351	}
		1352
		1353	croak ("_quantise: color not found in palette: #%02x%02x%02x, at offset %d %d",
		1354	(uint8_t)data [0], (uint8_t)data [1], (uint8_t)data [2],
		1355	dst - SvPVX (data_sv), len);
		1356
		1357	next:
		1358	data += 3;
		1359	len -= 3;
		1360	}
		1361
		1362	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1551	}	1363	}
1552		1364
1553	NV floor (NV x)	1365	NV floor (NV x)
1554		1366
1555	NV ceil (NV x)	1367	NV ceil (NV x)
…		…
1570	CODE:	1382	CODE:
1571	runtime = SvNVx (sv_runtime);	1383	runtime = SvNVx (sv_runtime);
1572	server_tick ();	1384	server_tick ();
1573		1385
1574	void	1386	void
1575	LOG (int level, char *msg)	1387	LOG (int level, utf8_string msg)
1576	PROTOTYPE: $$	1388	PROTOTYPE: $$
1577	C_ARGS: (LogLevel)level, "%s", msg	1389	C_ARGS: (LogLevel)level, "%s", msg
1578		1390
1579	char *path_combine (char *base, char *path)	1391	octet_string path_combine (octet_string base, octet_string path)
1580	PROTOTYPE: $$	1392	PROTOTYPE: $$
1581		1393
1582	char *path_combine_and_normalize (char *base, char *path)	1394	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1583	PROTOTYPE: $$	1395	PROTOTYPE: $$
1584		1396
1585	const char *	1397	const_octet_string
1586	get_maps_directory (char *path)	1398	get_maps_directory (octet_string path)
1587	PROTOTYPE: $	1399	PROTOTYPE: $
1588	ALIAS: maps_directory = 0	1400	ALIAS: maps_directory = 0
1589	CODE:	1401	CODE:
1590	RETVAL = create_pathname (path);	1402	RETVAL = create_pathname (path);
1591	OUTPUT: RETVAL	1403	OUTPUT: RETVAL
…		…
1593	void	1405	void
1594	sub_generation_inc ()	1406	sub_generation_inc ()
1595	CODE:	1407	CODE:
1596	PL_sub_generation++;	1408	PL_sub_generation++;
1597		1409
1598	char *	1410	const_octet_string
1599	mapdir ()	1411	mapdir ()
1600	PROTOTYPE:	1412	PROTOTYPE:
1601	ALIAS:	1413	ALIAS:
1602	mapdir = 0	1414	mapdir = 0
1603	uniquedir = 1	1415	uniquedir = 1
…		…
1619	}	1431	}
1620	OUTPUT: RETVAL	1432	OUTPUT: RETVAL
1621		1433
1622	void abort ()	1434	void abort ()
1623		1435
1624	void fork_abort (char *cause = "cf::fork_abort")	1436	void fork_abort (octet_string cause = "cf::fork_abort")
1625		1437
1626	void cleanup (const char *cause, bool make_core = false)	1438	void cleanup (octet_string cause, bool make_core = false)
1627		1439
1628	void emergency_save ()	1440	void emergency_save ()
1629		1441
1630	void _exit (int status = 0)	1442	void _exit (int status = EXIT_SUCCESS)
		1443
		1444	UV sv_2watcher (SV *w)
		1445	CODE:
		1446	RETVAL = (UV)GEventAPI->sv_2watcher (w);
		1447	OUTPUT:
		1448	RETVAL
1631		1449
1632	#if _POSIX_MEMLOCK	1450	#if _POSIX_MEMLOCK
1633		1451
1634	int mlockall (int flags = MCL_CURRENT | MCL_FUTURE)	1452	int mlockall (int flags = MCL_CURRENT | MCL_FUTURE)
1635		1453
1636	int munlockall ()	1454	int munlockall ()
1637		1455
1638	#endif	1456	#endif
1639		1457
1640	int find_animation (char *text)	1458	int find_animation (utf8_string text)
1641	PROTOTYPE: $	1459	PROTOTYPE: $
1642		1460
1643	int random_roll (int min, int max, object *op, int goodbad);	1461	int random_roll (int min, int max, object *op, int goodbad);
1644		1462
1645	const char *cost_string_from_value(uint64 cost, int approx = 0)	1463	const_utf8_string cost_string_from_value(uint64 cost, int approx = 0)
1646		1464
1647	int	1465	int
1648	exp_to_level (val64 exp)	1466	exp_to_level (val64 exp)
1649	CODE:	1467	CODE:
1650	{	1468	{
…		…
1681	RETVAL = newSVpv (resist_plus[atnr], 0);	1499	RETVAL = newSVpv (resist_plus[atnr], 0);
1682	else	1500	else
1683	XSRETURN_UNDEF;	1501	XSRETURN_UNDEF;
1684	OUTPUT: RETVAL	1502	OUTPUT: RETVAL
1685		1503
		1504	bool
		1505	load_resource_file (octet_string filename)
		1506
1686	MODULE = cf PACKAGE = cf::attachable	1507	MODULE = cf PACKAGE = cf::attachable
1687		1508
1688	int	1509	int
1689	valid (SV *obj)	1510	valid (SV *obj)
1690	CODE:	1511	CODE:
1691	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);	1512	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1692	OUTPUT:	1513	OUTPUT:
1693	RETVAL	1514	RETVAL
1694		1515
		1516	void
		1517	debug_trace (attachable *obj, bool on = true)
		1518	CODE:
		1519	obj->flags &= ~attachable::F_DEBUG_TRACE;
		1520	if (on)
		1521	obj->flags |= attachable::F_DEBUG_TRACE;
		1522
		1523	int mortals_size ()
		1524	CODE:
		1525	RETVAL = attachable::mortals.size ();
		1526	OUTPUT: RETVAL
		1527
		1528	#object *mortals (U32 index)
		1529	# CODE:
		1530	# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0;
		1531	# OUTPUT: RETVAL
		1532
1695	INCLUDE: $PERL genacc attachable ../include/cfperl.h |	1533	INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h |
1696		1534
1697	MODULE = cf PACKAGE = cf::global	1535	MODULE = cf PACKAGE = cf::global
1698		1536
1699	int invoke (SV *klass, int event, ...)	1537	int invoke (SV *klass, int event, ...)
1700	CODE:	1538	CODE:
…		…
1704	RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END);	1542	RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END);
1705	OUTPUT: RETVAL	1543	OUTPUT: RETVAL
1706		1544
1707	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_	1545	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1708		1546
1709	INCLUDE: $PERL genacc object ../include/object.h |	1547	INCLUDE: $PERL $srcdir/genacc object ../include/object.h |
1710		1548
1711	int invoke (object *op, int event, ...)	1549	int invoke (object *op, int event, ...)
1712	CODE:	1550	CODE:
1713	if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT");	1551	if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT");
1714	AV *av = (AV *)sv_2mortal ((SV *)newAV ());	1552	AV *av = (AV *)sv_2mortal ((SV *)newAV ());
…		…
1716	RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);	1554	RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);
1717	OUTPUT: RETVAL	1555	OUTPUT: RETVAL
1718		1556
1719	SV *registry (object *op)	1557	SV *registry (object *op)
1720		1558
1721	void mortals ()
1722	PPCODE:
1723	EXTEND (SP, object::mortals.size ());
1724	for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i)
1725	PUSHs (to_sv (*i));
1726
1727	int objects_size ()	1559	int objects_size ()
1728	CODE:	1560	CODE:
1729	RETVAL = objects.size ();	1561	RETVAL = objects.size ();
1730	OUTPUT: RETVAL	1562	OUTPUT: RETVAL
1731		1563
…		…
1771	void	1603	void
1772	set_animation (object *op, int idx)	1604	set_animation (object *op, int idx)
1773	CODE:	1605	CODE:
1774	SET_ANIMATION (op, idx);	1606	SET_ANIMATION (op, idx);
1775		1607
		1608	int
		1609	num_animations (object *op)
		1610	CODE:
		1611	RETVAL = NUM_ANIMATIONS (op);
		1612	OUTPUT: RETVAL
		1613
1776	object *find_best_object_match (object *op, const char *match)	1614	object *find_best_object_match (object *op, utf8_string match)
1777		1615
1778	object *find_marked_object (object *op)	1616	object *find_marked_object (object *op)
1779		1617
1780	int need_identify (object *obj);	1618	int need_identify (object *obj);
1781		1619
1782	int apply_shop_mat (object *shop_mat, object *op);	1620	int apply_shop_mat (object *shop_mat, object *op);
		1621
		1622	int move_player (object *op, int dir)
		1623	CODE:
		1624	RETVAL = move_player (op, dir);
		1625	OUTPUT:
		1626	RETVAL
1783		1627
1784	int move (object *op, int dir, object *originator = op)	1628	int move (object *op, int dir, object *originator = op)
1785	CODE:	1629	CODE:
1786	RETVAL = move_ob (op, dir, originator);	1630	RETVAL = move_ob (op, dir, originator);
1787	OUTPUT:	1631	OUTPUT:
…		…
1793		1637
1794	void apply_below (object *op)	1638	void apply_below (object *op)
1795	CODE:	1639	CODE:
1796	player_apply_below (op);	1640	player_apply_below (op);
1797		1641
		1642	int cast_heal (object *op, object *caster, object *spell, int dir = 0)
		1643
1798	object *cf_object_present_archname_inside (object *op, char *whatstr)	1644	object *cf_object_present_archname_inside (object *op, utf8_string whatstr)
1799		1645
1800	int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)	1646	int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)
1801		1647
1802	int cf_object_change_map (object *op, int x, int y, maptile *map)	1648	int cf_object_change_map (object *op, int x, int y, maptile *map)
1803		1649
…		…
1823	RETVAL = pay_for_amount (amount, op);	1669	RETVAL = pay_for_amount (amount, op);
1824	OUTPUT: RETVAL	1670	OUTPUT: RETVAL
1825		1671
1826	void pay_player (object *op, uint64 amount)	1672	void pay_player (object *op, uint64 amount)
1827		1673
1828	val64 pay_player_arch (object *op, const char *arch, uint64 amount)	1674	val64 pay_player_arch (object *op, utf8_string arch, uint64 amount)
1829		1675
1830	int cast_spell (object *op, object *caster, int dir, object *spell_ob, char *stringarg = 0)	1676	int cast_spell (object *op, object *caster, int dir, object *spell_ob, utf8_string stringarg = 0)
1831		1677
1832	void learn_spell (object *op, object *sp, int special_prayer = 0)	1678	void learn_spell (object *op, object *sp, int special_prayer = 0)
1833	CODE:	1679	CODE:
1834	do_learn_spell (op, sp, special_prayer);	1680	do_learn_spell (op, sp, special_prayer);
1835		1681
1836	void forget_spell (object *op, object *sp)	1682	void forget_spell (object *op, object *sp)
1837	CODE:	1683	CODE:
1838	do_forget_spell (op, query_name (sp));	1684	do_forget_spell (op, query_name (sp));
1839		1685
1840	object *check_for_spell (object *op, char *spellname)	1686	object *check_for_spell (object *op, utf8_string spellname)
1841	CODE:	1687	CODE:
1842	RETVAL = check_spell_known (op, spellname);	1688	RETVAL = check_spell_known (op, spellname);
1843	OUTPUT: RETVAL	1689	OUTPUT: RETVAL
1844		1690
1845	int query_money (object *op)	1691	int query_money (object *op)
…		…
1858		1704
1859	int cf_object_teleport (object *op, maptile *map, int x, int y)	1705	int cf_object_teleport (object *op, maptile *map, int x, int y)
1860		1706
1861	void update_object (object *op, int action)	1707	void update_object (object *op, int action)
1862		1708
1863	object *cf_create_object_by_name (const char *name)	1709	object *cf_create_object_by_name (utf8_string name)
1864		1710
1865	void change_exp (object *op, uint64 exp, const char *skill_name = 0, int flag = 0)	1711	void change_exp (object *op, uint64 exp, utf8_string skill_name = 0, int flag = 0)
1866		1712
1867	void player_lvl_adj (object *who, object *skill = 0)	1713	void player_lvl_adj (object *who, object *skill = 0)
1868		1714
1869	int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)	1715	int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1870		1716
…		…
1884	object *cf_insert_ob_in_ob (object *ob, object *where)	1730	object *cf_insert_ob_in_ob (object *ob, object *where)
1885		1731
1886	# no clean way to get an object from an archetype - stupid idiotic	1732	# no clean way to get an object from an archetype - stupid idiotic
1887	# dumb kludgy misdesigned plug-in api slowly gets on my nerves.	1733	# dumb kludgy misdesigned plug-in api slowly gets on my nerves.
1888		1734
1889	object *new (const char *archetype = 0)	1735	object *new (utf8_string archetype = 0)
1890	PROTOTYPE: ;$	1736	PROTOTYPE: ;$
1891	CODE:	1737	CODE:
1892	RETVAL = archetype ? get_archetype (archetype) : cf_create_object ();	1738	RETVAL = archetype ? get_archetype (archetype) : cf_create_object ();
1893	OUTPUT:	1739	OUTPUT:
1894	RETVAL	1740	RETVAL
…		…
1899	{	1745	{
1900	int unused_type;	1746	int unused_type;
1901	RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);	1747	RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1902	}	1748	}
1903		1749
1904	# syntatic sugar for easier use in event callbacks.
1905	const char *options (object *op)
1906	CODE:
1907	RETVAL = op->name;
1908	OUTPUT:
1909	RETVAL
1910
1911	player *contr (object *op)	1750	player *contr (object *op)
1912	CODE:	1751	CODE:
1913	RETVAL = op->contr;	1752	RETVAL = op->contr;
1914	OUTPUT: RETVAL	1753	OUTPUT: RETVAL
1915		1754
1916	const char *get_ob_key_value (object *op, const char *key)	1755	const_utf8_string get_ob_key_value (object *op, utf8_string key)
1917		1756
1918	bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)	1757	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)
1919		1758
1920	object *get_nearest_player (object *ob)	1759	object *get_nearest_player (object *ob)
1921	ALIAS: nearest_player = 0	1760	ALIAS: nearest_player = 0
1922	PREINIT:	1761	PREINIT:
1923	extern object *get_nearest_player (object *);	1762	extern object *get_nearest_player (object *);
…		…
1939	bool on_same_map_as (object *ob, object *other)	1778	bool on_same_map_as (object *ob, object *other)
1940	CODE:	1779	CODE:
1941	RETVAL = on_same_map (ob, other);	1780	RETVAL = on_same_map (ob, other);
1942	OUTPUT: RETVAL	1781	OUTPUT: RETVAL
1943		1782
1944	const char *	1783	const_utf8_string
1945	base_name (object *op, int plural = op->nrof > 1)	1784	base_name (object *op, int plural = op->nrof > 1)
1946	CODE:	1785	CODE:
1947	RETVAL = query_base_name (op, plural);	1786	RETVAL = query_base_name (op, plural);
1948	OUTPUT: RETVAL	1787	OUTPUT: RETVAL
1949		1788
…		…
1956	RETVAL = op->contr;	1795	RETVAL = op->contr;
1957	OUTPUT: RETVAL	1796	OUTPUT: RETVAL
1958		1797
1959	void check_score (object *op)	1798	void check_score (object *op)
1960		1799
1961	void message (object *op, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE)	1800	void message (object *op, utf8_string txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1962	CODE:	1801	CODE:
1963	new_draw_info (flags, 0, op, txt);	1802	new_draw_info (flags, 0, op, txt);
1964		1803
1965	object *cf_player_send_inventory (object *op)	1804	object *cf_player_send_inventory (object *op)
1966		1805
1967	char *cf_player_get_ip (object *op)	1806	octet_string cf_player_get_ip (object *op)
1968	ALIAS: ip = 0	1807	ALIAS: ip = 0
1969		1808
1970	object *cf_player_get_marked_item (object *op)	1809	object *cf_player_get_marked_item (object *op)
1971	ALIAS: marked_item = 0	1810	ALIAS: marked_item = 0
1972		1811
…		…
1982	void esrv_update_item (object *op, int what, object *item)	1821	void esrv_update_item (object *op, int what, object *item)
1983	C_ARGS: what, op, item	1822	C_ARGS: what, op, item
1984		1823
1985	void clear_los (object *op)	1824	void clear_los (object *op)
1986		1825
1987	int command_summon (object *op, char *params)	1826	int command_summon (object *op, utf8_string params)
1988		1827
1989	int command_arrest (object *op, char *params)	1828	int command_arrest (object *op, utf8_string params)
1990
1991	int command_kick (object *op, char *params)
1992
1993	int command_banish (object *op, char *params)
1994		1829
1995		1830
1996	MODULE = cf PACKAGE = cf::player PREFIX = cf_player_	1831	MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1997		1832
1998	INCLUDE: $PERL genacc player ../include/player.h |	1833	INCLUDE: $PERL $srcdir/genacc player ../include/player.h |
1999		1834
2000	int invoke (player *pl, int event, ...)	1835	int invoke (player *pl, int event, ...)
2001	CODE:	1836	CODE:
2002	if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER");	1837	if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER");
2003	AV *av = (AV *)sv_2mortal ((SV *)newAV ());	1838	AV *av = (AV *)sv_2mortal ((SV *)newAV ());
…		…
2016	pl->orig_stats = pl->ob->stats;	1851	pl->orig_stats = pl->ob->stats;
2017		1852
2018	void cf_player_move (player *pl, int dir)	1853	void cf_player_move (player *pl, int dir)
2019		1854
2020	void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);	1855	void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
2021
2022	player *first ()
2023	CODE:
2024	RETVAL = first_player;
2025	OUTPUT: RETVAL
2026		1856
2027	bool	1857	bool
2028	cell_visible (player *pl, int dx, int dy)	1858	cell_visible (player *pl, int dx, int dy)
2029	CODE:	1859	CODE:
2030	RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2	1860	RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2
…		…
2083	RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);	1913	RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);
2084	OUTPUT: RETVAL	1914	OUTPUT: RETVAL
2085		1915
2086	SV *registry (maptile *map)	1916	SV *registry (maptile *map)
2087		1917
2088	INCLUDE: $PERL genacc maptile ../include/map.h |	1918	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h |
2089		1919
2090	void	1920	void
2091	maptile::instantiate ()	1921	maptile::instantiate ()
2092		1922
2093	maptile *new ()	1923	maptile *new ()
…		…
2107	EXTEND (SP, THIS->players);	1937	EXTEND (SP, THIS->players);
2108	for_all_players (pl)	1938	for_all_players (pl)
2109	if (pl->ob && pl->ob->map == THIS)	1939	if (pl->ob && pl->ob->map == THIS)
2110	PUSHs (sv_2mortal (to_sv (pl->ob)));	1940	PUSHs (sv_2mortal (to_sv (pl->ob)));
2111	}	1941	}
		1942
		1943	void
		1944	maptile::add_underlay (SV *data, int offset, int stride, SV *palette)
		1945	CODE:
		1946	{
		1947	if (!SvROK (palette) || SvTYPE (SvRV (palette)) != SVt_PVAV)
		1948	croak ("maptile::add_underlay: palette must be arrayref");
		1949
		1950	palette = SvRV (palette);
		1951
		1952	STRLEN idxlen;
		1953	const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen);
		1954
		1955	for (int x = 0; x < THIS->width; ++x)
		1956	for (int y = 0; y < THIS->height; ++y)
		1957	{
		1958	for (object *op = THIS->at (x, y).bot; op; op = op->above)
		1959	if (op->flag [FLAG_IS_FLOOR])
		1960	goto skip_space;
		1961
		1962	{
		1963	int offs = offset + y * stride + x;
		1964	if (IN_RANGE_EXC (offs, 0, idxlen))
		1965	{
		1966	if (SV **elem = av_fetch ((AV *)palette, idx [offs], 0))
		1967	{
		1968	object *ob = get_archetype (SvPVutf8_nolen (*elem));
		1969	ob->flag [FLAG_NO_MAP_SAVE] = true;
		1970	THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY);
		1971	}
		1972	}
		1973	}
		1974
		1975	skip_space: ;
		1976	}
		1977	}
		1978
		1979	void
		1980	maptile::set_regiondata (SV *data, int offset, int stride, SV *palette)
		1981	CODE:
		1982	{
		1983	if (!SvROK (palette) || SvTYPE (SvRV (palette)) != SVt_PVAV)
		1984	croak ("maptile::set_regiondata: palette must be arrayref");
		1985
		1986	palette = SvRV (palette);
		1987
		1988	STRLEN idxlen;
		1989	const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen);
		1990
		1991	region **regionmap = (region **)malloc (
		1992	(av_len ((AV *)palette) + 1) * sizeof (region *));
		1993	uint8_t *regions = salloc<uint8_t> (THIS->size ());
		1994
		1995	for (int i = av_len ((AV *)palette) + 1; i--; )
		1996	regionmap [i] = region::find (
		1997	SvPVutf8_nolen (*av_fetch ((AV *)palette, i, 1)));
		1998
		1999	for (int y = 0; y < THIS->height; ++y)
		2000	memcpy (regions + y * THIS->width, idx + offset + y * stride, THIS->width);
		2001
		2002	sfree (THIS->regions, THIS->size ());
		2003	free (THIS->regionmap);
		2004
		2005	THIS->regions = regions;
		2006	THIS->regionmap = regionmap;
		2007	}
		2008
		2009	void
		2010	maptile::create_region_treasure ()
		2011	CODE:
		2012	{
		2013	object *op = object::create ();
		2014	op->type = FLOOR;
		2015	op->map = THIS;
		2016
		2017	for (int x = 0; x < THIS->width; ++x)
		2018	for (int y = 0; y < THIS->height; ++y)
		2019	{
		2020	region *rgn = THIS->region (x, y);
		2021
		2022	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D
		2023	if (rgn->treasure && rndm () < rgn->treasure_density)
		2024	{
		2025	op->x = x;
		2026	op->y = y;
		2027	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
		2028	}
		2029	}
		2030
		2031	op->destroy ();
		2032	}
2112		2033
2113	void play_sound_map (maptile *map, int x, int y, int sound_num)	2034	void play_sound_map (maptile *map, int x, int y, int sound_num)
2114		2035
2115	int out_of_map (maptile *map, int x, int y)	2036	int out_of_map (maptile *map, int x, int y)
2116		2037
…		…
2198		2119
2199	void fix_walls (maptile *map, int x, int y)	2120	void fix_walls (maptile *map, int x, int y)
2200		2121
2201	void fix_walls_around (maptile *map, int x, int y)	2122	void fix_walls_around (maptile *map, int x, int y)
2202		2123
2203	const char *
2204	region_name (maptile *m)
2205	CODE:
2206	RETVAL = get_name_of_region_for_map (m);
2207	OUTPUT: RETVAL
2208
2209	# worst xs function of my life	2124	# worst xs function of my life
2210	bool	2125	bool
2211	_create_random_map (\	2126	_create_random_map (\
2212	maptile *self,\	2127	maptile *self,\
2213	char *wallstyle,\	2128	utf8_string wallstyle,\
2214	char *wall_name,\	2129	utf8_string wall_name,\
2215	char *floorstyle,\	2130	utf8_string floorstyle,\
2216	char *monsterstyle,\	2131	utf8_string monsterstyle,\
2217	char *treasurestyle,\	2132	utf8_string treasurestyle,\
2218	char *layoutstyle,\	2133	utf8_string layoutstyle,\
2219	char *doorstyle,\	2134	utf8_string doorstyle,\
2220	char *decorstyle,\	2135	utf8_string decorstyle,\
2221	char *origin_map,\	2136	utf8_string origin_map,\
2222	char *final_map,\	2137	utf8_string final_map,\
2223	char *exitstyle,\	2138	utf8_string exitstyle,\
2224	char *this_map,\	2139	utf8_string this_map,\
2225	char *exit_on_final_map,\	2140	utf8_string exit_on_final_map,\
2226	int Xsize,\	2141	int xsize,\
2227	int Ysize,\	2142	int ysize,\
2228	int expand2x,\	2143	int expand2x,\
2229	int layoutoptions1,\	2144	int layoutoptions1,\
2230	int layoutoptions2,\	2145	int layoutoptions2,\
2231	int layoutoptions3,\	2146	int layoutoptions3,\
2232	int symmetry,\	2147	int symmetry,\
…		…
2237	int dungeon_depth,\	2152	int dungeon_depth,\
2238	int decoroptions,\	2153	int decoroptions,\
2239	int orientation,\	2154	int orientation,\
2240	int origin_y,\	2155	int origin_y,\
2241	int origin_x,\	2156	int origin_x,\
2242	int random_seed,\	2157	U32 random_seed,\
2243	val64 total_map_hp,\	2158	val64 total_map_hp,\
2244	int map_layout_style,\	2159	int map_layout_style,\
2245	int treasureoptions,\	2160	int treasureoptions,\
2246	int symmetry_used,\	2161	int symmetry_used,\
2247	region *region,\	2162	region *region,\
2248	char *custom\	2163	utf8_string custom\
2249	)	2164	)
2250	CODE:	2165	CODE:
2251	{	2166	{
2252	random_map_params rmp;	2167	random_map_params rmp;
2253		2168
…		…
2263	assign (rmp.exit_on_final_map, exit_on_final_map);	2178	assign (rmp.exit_on_final_map, exit_on_final_map);
2264		2179
2265	rmp.origin_map = origin_map;	2180	rmp.origin_map = origin_map;
2266	rmp.final_map = final_map;	2181	rmp.final_map = final_map;
2267	rmp.this_map = this_map;	2182	rmp.this_map = this_map;
2268	rmp.Xsize = Xsize;	2183	rmp.xsize = xsize;
2269	rmp.Ysize = Ysize;	2184	rmp.ysize = ysize;
2270	rmp.expand2x = expand2x;	2185	rmp.expand2x = expand2x;
2271	rmp.layoutoptions1 = layoutoptions1;	2186	rmp.layoutoptions1 = layoutoptions1;
2272	rmp.layoutoptions2 = layoutoptions2;	2187	rmp.layoutoptions2 = layoutoptions2;
2273	rmp.layoutoptions3 = layoutoptions3;	2188	rmp.layoutoptions3 = layoutoptions3;
2274	rmp.symmetry = symmetry;	2189	rmp.symmetry = symmetry;
…		…
2294	OUTPUT:	2209	OUTPUT:
2295	RETVAL	2210	RETVAL
2296		2211
2297	MODULE = cf PACKAGE = cf::arch	2212	MODULE = cf PACKAGE = cf::arch
2298		2213
2299	archetype *find (const char *name)	2214	archetype *find (utf8_string name)
2300	CODE:	2215	CODE:
2301	RETVAL = archetype::find (name);	2216	RETVAL = archetype::find (name);
2302	OUTPUT:	2217	OUTPUT:
2303	RETVAL	2218	RETVAL
2304		2219
…		…
2306	PROTOTYPE:	2221	PROTOTYPE:
2307	CODE:	2222	CODE:
2308	RETVAL = first_archetype;	2223	RETVAL = first_archetype;
2309	OUTPUT: RETVAL	2224	OUTPUT: RETVAL
2310		2225
2311	INCLUDE: $PERL genacc archetype ../include/object.h |	2226	INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h |
2312		2227
2313	MODULE = cf PACKAGE = cf::party	2228	MODULE = cf PACKAGE = cf::party
2314		2229
2315	partylist *first ()	2230	partylist *first ()
2316	PROTOTYPE:	2231	PROTOTYPE:
2317	CODE:	2232	CODE:
2318	RETVAL = get_firstparty ();	2233	RETVAL = get_firstparty ();
2319	OUTPUT: RETVAL	2234	OUTPUT: RETVAL
2320		2235
2321	INCLUDE: $PERL genacc partylist ../include/player.h |	2236	INCLUDE: $PERL $srcdir/genacc partylist ../include/player.h |
2322		2237
2323	MODULE = cf PACKAGE = cf::region	2238	MODULE = cf PACKAGE = cf::region
2324		2239
2325	region *first ()	2240	void
2326	PROTOTYPE:	2241	list ()
2327	CODE:	2242	PPCODE:
2328	RETVAL = first_region;	2243	for_all_regions (rgn)
2329	OUTPUT: RETVAL	2244	XPUSHs (sv_2mortal (to_sv (rgn)));
2330		2245
2331	region *find (char *name)	2246	region *find (utf8_string name)
2332	PROTOTYPE: $	2247	PROTOTYPE: $
2333	CODE:	2248	CODE:
2334	RETVAL = get_region_by_name (name);	2249	RETVAL = region::find (name);
2335	OUTPUT: RETVAL	2250	OUTPUT: RETVAL
2336		2251
		2252	region *find_fuzzy (utf8_string name)
		2253	PROTOTYPE: $
		2254	CODE:
		2255	RETVAL = region::find_fuzzy (name);
		2256	OUTPUT: RETVAL
		2257
		2258	int specificity (region *rgn)
		2259	CODE:
		2260	RETVAL = 0;
		2261	while (rgn = rgn->parent)
		2262	RETVAL++;
		2263	OUTPUT: RETVAL
		2264
2337	INCLUDE: $PERL genacc region ../include/map.h |	2265	INCLUDE: $PERL $srcdir/genacc region ../include/region.h |
2338		2266
2339	MODULE = cf PACKAGE = cf::living	2267	MODULE = cf PACKAGE = cf::living
2340		2268
2341	INCLUDE: $PERL genacc living ../include/living.h |	2269	INCLUDE: $PERL $srcdir/genacc living ../include/living.h |
2342		2270
2343	MODULE = cf PACKAGE = cf::settings	2271	MODULE = cf PACKAGE = cf::settings
2344		2272
2345	INCLUDE: $PERL genacc Settings ../include/global.h |	2273	INCLUDE: $PERL $srcdir/genacc Settings ../include/global.h |
2346		2274
2347	MODULE = cf PACKAGE = cf::client	2275	MODULE = cf PACKAGE = cf::client
2348		2276
2349	INCLUDE: $PERL genacc client ../include/client.h |	2277	INCLUDE: $PERL $srcdir/genacc client ../include/client.h |
2350		2278
2351	int invoke (client *ns, int event, ...)	2279	int invoke (client *ns, int event, ...)
2352	CODE:	2280	CODE:
2353	if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT");	2281	if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT");
2354	AV *av = (AV *)sv_2mortal ((SV *)newAV ());	2282	AV *av = (AV *)sv_2mortal ((SV *)newAV ());
…		…
2373	char *buf = SvPVbyte (packet, len);	2301	char *buf = SvPVbyte (packet, len);
2374		2302
2375	THIS->send_packet (buf, len);	2303	THIS->send_packet (buf, len);
2376	}	2304	}
2377		2305
		2306	MODULE = cf PACKAGE = cf::face PREFIX = face_
		2307
		2308	#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |
		2309
		2310	faceidx face_find (utf8_string name, faceidx defidx = 0)
		2311
		2312	faceidx alloc (utf8_string name)
		2313	CODE:
		2314	{
		2315	do
		2316	{
		2317	RETVAL = faces.size ();
		2318	faces.resize (RETVAL + 1);
		2319	}
		2320	while (!RETVAL); // crude way to leave index 0
		2321
		2322	faces [RETVAL].name = name;
		2323	facehash.insert (std::make_pair (faces [RETVAL].name, RETVAL));
		2324
		2325	if (!strcmp (name, BLANK_FACE_NAME)) blank_face = RETVAL;
		2326	if (!strcmp (name, EMPTY_FACE_NAME)) empty_face = RETVAL;
		2327	}
		2328	OUTPUT: RETVAL
		2329
		2330	void set (faceidx idx, int visibility, int magicmap)
		2331	CODE:
		2332	faceinfo *f = face_info (idx);
		2333	assert (f);
		2334	f->visibility = visibility;
		2335	f->magicmap = magicmap;
		2336
		2337	void set_smooth (faceidx idx, faceidx smooth, int smoothlevel)
		2338	CODE:
		2339	faceinfo *f = face_info (idx); assert (f);
		2340	f->smooth = smooth;
		2341	f->smoothlevel = smoothlevel;
		2342
		2343	void set_data (faceidx idx, int faceset, SV *data, SV *chksum)
		2344	CODE:
		2345	{
		2346	facedata *d = face_data (idx, faceset);
		2347	assert (d);
		2348	sv_to (data, d->data);
		2349	STRLEN clen;
		2350	char *cdata = SvPVbyte (chksum, clen);
		2351	clen = min (CHKSUM_SIZE, clen);
		2352
		2353	if (memcmp (d->chksum, cdata, clen))
		2354	{
		2355	memcpy (d->chksum, cdata, clen);
		2356
		2357	// invalidate existing client face info
		2358	for_all_clients (ns)
		2359	if (ns->faceset == faceset)
		2360	{
		2361	ns->faces_sent [idx] = false;
		2362	ns->force_newmap = true;
		2363	}
		2364	}
		2365	}
		2366
		2367	void invalidate (faceidx idx)
		2368	CODE:
		2369	for_all_clients (ns)
		2370	{
		2371	ns->faces_sent [idx] = false;
		2372	ns->force_newmap = true;
		2373	}
		2374
		2375	void invalidate_all ()
		2376	CODE:
		2377	for_all_clients (ns)
		2378	{
		2379	ns->faces_sent.reset ();
		2380	ns->force_newmap = true;
		2381	}
		2382
		2383	MODULE = cf PACKAGE = cf::anim PREFIX = anim_
		2384
		2385	#INCLUDE: $PERL $srcdir/genacc faceset ../include/anim.h |
		2386
		2387	animidx anim_find (utf8_string name)
		2388	CODE:
		2389	RETVAL = animation::find (name).number;
		2390	OUTPUT: RETVAL
		2391
		2392	animidx set (utf8_string name, SV *frames, int facings = 1)
		2393	CODE:
		2394	{
		2395	if (!SvROK (frames) && SvTYPE (SvRV (frames)) != SVt_PVAV)
		2396	croak ("frames must be an arrayref");
		2397
		2398	AV *av = (AV *)SvRV (frames);
		2399
		2400	animation *anim = &animation::find (name);
		2401	if (anim->number)
		2402	{
		2403	anim->resize (av_len (av) + 1);
		2404	anim->facings = facings;
		2405	}
		2406	else
		2407	anim = &animation::create (name, av_len (av) + 1, facings);
		2408
		2409	for (int i = 0; i < anim->num_animations; ++i)
		2410	anim->faces [i] = face_find (SvPVutf8_nolen (*av_fetch (av, i, 1)));
		2411	}
		2412	OUTPUT: RETVAL
		2413
		2414	void invalidate_all ()
		2415	CODE:
		2416	for_all_clients (ns)
		2417	ns->anims_sent.reset ();
		2418

Diff Legend

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