ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/cfperl.xs
(Generate patch)

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.138 by root, Thu Jan 11 01:10:01 2007 UTC vs.
Revision 1.227 by root, Tue Jul 10 16:24:00 2007 UTC

1/*****************************************************************************/
2/* CrossFire, A Multiplayer game for the X Window System */
3/*****************************************************************************/
4
5/* 1/*
6 * This code is placed under the GNU General Public Licence (GPL) 2 * This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
7 * 3 *
4 * Copyright (©) 2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
8 * Copyright (C) 2001-2005 by Chachkoff Yann 5 * Copyright (©) 2001-2005,2007 by Chachkoff Yann
9 * Copyright (C) 2006 by Marc Lehmann <cf@schmorp.de> 6 * Copyright (©) 2006,2007 by Marc Lehmann <cf@schmorp.de>
10 * 7 *
11 * This program is free software; you can redistribute it and/or modify 8 * Crossfire TRT is free software: you can redistribute it and/or modify
12 * it under the terms of the GNU General Public License as published by 9 * 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 10 * the Free Software Foundation, either version 3 of the License, or
14 * (at your option) any later version. 11 * (at your option) any later version.
15 * 12 *
16 * This program is distributed in the hope that it will be useful, 13 * This program is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of 14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU General Public License for more details. 16 * GNU General Public License for more details.
20 * 17 *
21 * You should have received a copy of the GNU General Public License 18 * You should have received a copy of the GNU General Public License
22 * along with this program; if not, write to the Free Software 19 * along with this program. If not, see <http://www.gnu.org/licenses/>.
23 * Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 20 *
21 * The authors can be reached via e-mail to <crossfire@schmorp.de>
24 */ 22 */
23
24#include "autoconf.h"
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
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>
33 39
40#include "loader.h"
34#include "cfperl.h" 41#include "cfperl.h"
35#include "shstr.h" 42#include "shstr.h"
36 43
37#include <unistd.h> 44#include <unistd.h>
38#if _POSIX_MEMLOCK 45#if _POSIX_MEMLOCK
… …
48 55
49extern sint64 *levels; // the experience table 56extern sint64 *levels; // the experience table
50 57
51typedef object object_ornull; 58typedef object object_ornull;
52typedef maptile maptile_ornull; 59typedef maptile maptile_ornull;
60
61typedef char *octet_string;
62typedef char *utf8_string;
63typedef const char *const_octet_string;
64typedef const char *const_utf8_string;
65
66typedef std::string std__string;
53 67
54#if IVSIZE >= 8 68#if IVSIZE >= 8
55 typedef IV val64; 69 typedef IV val64;
56# define newSVval64 newSViv 70# define newSVval64 newSViv
57# define SvVAL64 SvIV 71# define SvVAL64 SvIV
… …
60# define newSVval64 newSVnv 74# define newSVval64 newSVnv
61# define SvVAL64 SvNV 75# define SvVAL64 SvNV
62#endif 76#endif
63 77
64static f_plug_api gethook = cfapi_get_hooks; 78static f_plug_api gethook = cfapi_get_hooks;
65static f_plug_api object_set_property = cfapi_object_set_property;
66static f_plug_api object_insert = cfapi_object_insert; 79static f_plug_api object_insert = cfapi_object_insert;
67 80
68static PerlInterpreter *perl; 81static PerlInterpreter *perl;
69 82
70double runtime; 83tstamp NOW, runtime;
71 84
72global gbl_ev; 85global gbl_ev;
73static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map; 86static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map;
74static SV *sv_runtime; 87static SV *sv_runtime, *sv_next_tick;
88
89bitset<NUM_EVENT_TYPES> ev_want_event;
90bitset<NUM_TYPES> ev_want_type;
75 91
76static HV 92static HV
77 *stash_cf, 93 *stash_cf,
78 *stash_cf_object_wrap, 94 *stash_cf_object_wrap,
79 *stash_cf_object_player_wrap, 95 *stash_cf_object_player_wrap,
… …
102unordered_vector<attachable *> attachable::mortals; 118unordered_vector<attachable *> attachable::mortals;
103 119
104attachable::~attachable () 120attachable::~attachable ()
105{ 121{
106 assert (!self); 122 assert (!self);
123 assert (!cb);
107} 124}
108 125
109int 126int
110attachable::refcnt_cnt () const 127attachable::refcnt_cnt () const
111{ 128{
112 return refcnt + (self ? SvREFCNT (self) : 0); 129 return refcnt + (self ? SvREFCNT (self) - 1 : 0);
130}
131
132void
133attachable::sever_self ()
134{
135 if (HV *self = this->self)
136 {
137 // keep a refcount because sv_unmagic might call attachable_free,
138 // which might clear self, causing sv_unmagic to crash on a now
139 // invalid object.
140 SvREFCNT_inc (self);
141 hv_clear (self);
142 sv_unmagic ((SV *)self, PERL_MAGIC_ext);
143 SvREFCNT_dec (self);
144
145 // self *must* be null now because thats sv_unmagic's job.
146 assert (!this->self);
147 }
113} 148}
114 149
115void 150void
116attachable::optimise () 151attachable::optimise ()
117{ 152{
118 if (self 153 if (self
119 && SvREFCNT (self) == 1 154 && SvREFCNT (self) == 1
120 && !HvTOTALKEYS (self)) 155 && !HvTOTALKEYS (self))
156 sever_self ();
157}
158
159// check wether the object really is dead
160void
161attachable::do_check ()
162{
163 if (refcnt_cnt () > 0)
164 return;
165
166 destroy ();
167}
168
169void
170attachable::do_destroy ()
171{
172 INVOKE_ATTACHABLE (DESTROY, this);
173
174 if (cb)
121 { 175 {
122 refcnt_inc ();
123 SvREFCNT_dec ((SV *)self); 176 SvREFCNT_dec (cb);
177 cb = 0;
124 } 178 }
125}
126
127// check wether the object really is dead
128void
129attachable::do_check ()
130{
131 if (refcnt > 0 || refcnt_cnt () > 0)
132 return;
133
134 destroy ();
135
136 if (self)
137 {
138 hv_clear (self);
139 sv_unmagic ((SV *)self, PERL_MAGIC_ext);
140 SvREFCNT_dec (self);
141 self = 0;
142 }
143}
144
145void
146attachable::do_destroy ()
147{
148 invoke (EVENT_ATTACHABLE_DESTROY, DT_END);
149
150 if (self)
151 hv_clear (self);
152 179
153 mortals.push_back (this); 180 mortals.push_back (this);
154} 181}
155 182
156void 183void
… …
159 if (destroyed ()) 186 if (destroyed ())
160 return; 187 return;
161 188
162 flags |= F_DESTROYED; 189 flags |= F_DESTROYED;
163 do_destroy (); 190 do_destroy ();
191 sever_self ();
164} 192}
165 193
166void 194void
167attachable::check_mortals () 195attachable::check_mortals ()
168{ 196{
169 for (int i = 0; i < mortals.size (); ) 197 static int i = 0;
198
199 for (;;)
170 { 200 {
201 if (i >= mortals.size ())
202 {
203 i = 0;
204
205 if (mortals.size () >= 512)
206 {
207 static int last_mortalcount;
208 if (mortals.size () != last_mortalcount)
209 {
210 last_mortalcount = mortals.size ();
211 LOG (llevInfo, "%d mortals.\n", (int)mortals.size ());
212
213 if (0)
214 {
215 for (int j = 0; j < mortals.size (); ++j)//D
216 fprintf (stderr, "%d:%s %p ", j, &((object *)mortals[j])->name, mortals[j]);//D
217 fprintf (stderr, "\n");//D
218 }
219 }
220 }
221
222 break;
223 }
224
171 attachable *obj = mortals [i]; 225 attachable *obj = mortals [i];
172 226
173 obj->refcnt_chk (); // unborrow from perl, if necessary 227#if 0
174 228 if (obj->self)//D make this an assert later
175 if (obj->refcnt || obj->self)
176 { 229 {
177#if 0 230 LOG (llevError, "check_mortals: object '%s' still has self\n", typeid (obj).name ());
178 if (mortals.size() > 5)fprintf (stderr, "%d delaying %d:%p:%s %d (self %p:%d)\n", time(0),i, obj, typeid (*obj).name (), 231 obj->sever_self ();
179 obj->refcnt, obj->self, obj->self ? SvREFCNT(obj->self): - 1);//D 232 }
180#endif 233#endif
181 234
235 if (obj->refcnt)
236 {
182 ++i; // further delay freeing 237 ++i; // further delay freeing
238
239 if (!(i & 0x3ff))
240 break;
183 }//D 241 }
184 else 242 else
185 { 243 {
186 //Dfprintf (stderr, "deleteing %d:%p:%s\n", i, obj,typeid (*obj).name ());//D
187 mortals.erase (i); 244 mortals.erase (i);
245 obj->sever_self ();
188 delete obj; 246 delete obj;
189 } 247 }
190 } 248 }
191} 249}
192 250
… …
198 256
199 attach = src.attach; 257 attach = src.attach;
200 return *this; 258 return *this;
201} 259}
202 260
261template<typename T>
262static bool
263find_backref (void *ptr, T *obj)
264{
265 char *s = (char *)obj;
266 while (s < (char *)obj + sizeof (T))
267 {
268 if (ptr == *(void **)s)
269 return true;
270
271 s += sizeof (void *); // assume natural alignment
272 }
273
274 return false;
275}
276
277// for debugging, find "live" objects containing this ptr
278void
279find_backref (void *ptr)
280{
281 for_all_objects (op)
282 if (find_backref (ptr, op))
283 fprintf (stderr, "O %p %d:'%s'\n", op, op->count, &op->name);
284
285 for_all_players (pl)
286 if (find_backref (ptr, pl))
287 fprintf (stderr, "P %p\n", pl);
288
289 for_all_clients (ns)
290 if (find_backref (ptr, ns))
291 fprintf (stderr, "C %p\n", ns);
292
293}
294
203////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 295//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
204 296
205static SV * 297static SV *
206newSVptr (void *ptr, HV *stash, HV *hv = newHV ()) 298newSVptr (void *ptr, HV *stash, HV *hv = newHV ())
207{ 299{
… …
216 308
217static int 309static int
218attachable_free (pTHX_ SV *sv, MAGIC *mg) 310attachable_free (pTHX_ SV *sv, MAGIC *mg)
219{ 311{
220 attachable *at = (attachable *)mg->mg_ptr; 312 attachable *at = (attachable *)mg->mg_ptr;
313
314 //TODO: check if transaction behaviour is really required here
315 if (SV *self = (SV *)at->self)
316 {
221 at->self = 0; 317 at->self = 0;
318 SvREFCNT_dec (self);
319 }
320
222 // next line makes sense, but most objects still have refcnt 0 by default 321 // next line makes sense, but most objects still have refcnt 0 by default
223 //at->refcnt_chk (); 322 //at->refcnt_chk ();
224 return 0; 323 return 0;
225} 324}
226 325
… …
235 if (!obj->self) 334 if (!obj->self)
236 { 335 {
237 obj->self = newHV (); 336 obj->self = newHV ();
238 sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0); 337 sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0);
239 338
240 // borrow the refcnt from the object
241 // it is important thta no refcnt_chk is being executed here
242 obj->refcnt_dec ();
243
244 // now bless the object _once_ 339 // now bless the object _once_
245 return sv_bless (newRV_inc ((SV *)obj->self), stash); 340 return sv_bless (newRV_inc ((SV *)obj->self), stash);
246 } 341 }
247 else 342 else
343 {
248 return newRV_inc ((SV *)obj->self); 344 SV *sv = newRV_inc ((SV *)obj->self);
345
346 if (Gv_AMG (stash)) // handle overload correctly, as the perl core does not
347 SvAMAGIC_on (sv);
348
349 return sv;
350 }
249} 351}
250 352
251static void 353static void
252clearSVptr (SV *sv) 354clearSVptr (SV *sv)
253{ 355{
… …
279 return SvPTR (sv, klass); 381 return SvPTR (sv, klass);
280 else 382 else
281 return 0; 383 return 0;
282} 384}
283 385
386static inline SV *
387newSVpv_utf8 (const char *s)
388{
389 SV *sv = newSVpv (s, 0);
390 SvUTF8_on (sv);
391 return sv;
392}
393
394static inline SV *
395newSVpvn_utf8 (const char *s, STRLEN l)
396{
397 SV *sv = newSVpvn (s, l);
398 SvUTF8_on (sv);
399 return sv;
400}
401
284inline SV *to_sv (const shstr & v) { return v ? newSVpvn ((const char *)v, v.length ()) : &PL_sv_undef; } 402inline SV *to_sv (const shstr & v) { return v ? newSVpvn_utf8 ((const char *)v, v.length ()) : &PL_sv_undef; }
285inline SV *to_sv (const char * v) { return newSVpv (v, 0); } 403inline SV *to_sv (const char * v) { return newSVpv (v, 0); }
286inline SV *to_sv (bool v) { return newSViv (v); } 404inline SV *to_sv (bool v) { return newSViv (v); }
287inline SV *to_sv ( signed char v) { return newSViv (v); } 405inline SV *to_sv ( signed char v) { return newSViv (v); }
288inline SV *to_sv (unsigned char v) { return newSViv (v); } 406inline SV *to_sv (unsigned char v) { return newSViv (v); }
289inline SV *to_sv ( signed short v) { return newSViv (v); } 407inline SV *to_sv ( signed short v) { return newSViv (v); }
… …
306inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); } 424inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); }
307 425
308inline SV *to_sv (object & v) { return to_sv (&v); } 426inline SV *to_sv (object & v) { return to_sv (&v); }
309inline SV *to_sv (living & v) { return to_sv (&v); } 427inline SV *to_sv (living & v) { return to_sv (&v); }
310 428
311inline SV *to_sv (New_Face * v) { return to_sv (v->name); } 429inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
312inline SV *to_sv (treasurelist * v) { return to_sv (v->name); } 430inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); }
313 431
314inline SV *to_sv (UUID v) 432inline SV *to_sv (UUID v)
315{ 433{
316 char buf[128]; 434 char buf[128];
317 snprintf (buf, 128, "<1,%" PRIx64 ">", v.seq); 435 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
318 return newSVpv (buf, 0); 436 return newSVpv (buf, 0);
319} 437}
320 438
321inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; } 439inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
322inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; } 440inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
323inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); } 441inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
324inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); } 442inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
325inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); } 443inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); }
326inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); } 444inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); }
… …
341inline void sv_to (SV *sv, attachable * &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); } 459inline void sv_to (SV *sv, attachable * &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
342inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); } 460inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
343inline void sv_to (SV *sv, region * &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); } 461inline void sv_to (SV *sv, region * &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }
344inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); } 462inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
345 463
346inline void sv_to (SV *sv, New_Face * &v) { v = &new_faces[FindFace (SvPV_nolen (sv), 0)]; } 464//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
347inline void sv_to (SV *sv, treasurelist * &v) { v = find_treasurelist (SvPV_nolen (sv)); } 465inline void sv_to (SV *sv, treasurelist * &v) { v = treasurelist::find (SvPV_nolen (sv)); }
348 466
349template<class T> 467template<class T>
350inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; } 468inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; }
351 469
352template<int N> 470template<int N>
353inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); } 471inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); }
354 472
355inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); }
356inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); } 473inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }
357inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); } 474inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }
358inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); } 475inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
359inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); } 476inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }
477
478inline void sv_to (SV *sv, std::string &v)
479{
480 STRLEN len;
481 char *data = SvPVbyte (sv, len);
482 v.assign (data, len);
483}
360 484
361inline void sv_to (SV *sv, UUID &v) 485inline void sv_to (SV *sv, UUID &v)
362{ 486{
363 unsigned int version; 487 unsigned int version;
364 488
… …
488 if (!ext->cb) 612 if (!ext->cb)
489 ext->cb = newAV (); 613 ext->cb = newAV ();
490 614
491 return newRV_inc ((SV *)ext->cb); 615 return newRV_inc ((SV *)ext->cb);
492} 616}
493
494#if 0
495void attachable::clear ()
496{
497 if (self)
498 {
499 // disconnect Perl from C, to avoid crashes
500 sv_unmagic (SvRV ((SV *)self), PERL_MAGIC_ext);
501
502 // clear the perl hash, might or might not be a good idea
503 hv_clear ((HV *)SvRV ((SV *)self));
504
505 SvREFCNT_dec (self);
506 self = 0;
507 }
508
509 if (cb)
510 {
511 SvREFCNT_dec (cb);
512 cb = 0;
513 }
514
515 attach = 0;
516}
517#endif
518 617
519///////////////////////////////////////////////////////////////////////////// 618/////////////////////////////////////////////////////////////////////////////
520 619
521extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr) 620extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)
522{ 621{
… …
580 perl = perl_alloc (); 679 perl = perl_alloc ();
581 perl_construct (perl); 680 perl_construct (perl);
582 681
583 PL_exit_flags |= PERL_EXIT_DESTRUCT_END; 682 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
584 683
585 char *argv[] = { 684 const char *argv[] = {
586 "", 685 settings.argv [0],
587 "-e" 686 "-e"
588 "use Event; use Coro;" // required for bootstrap 687 "use Event; use Coro;" // required for bootstrap
589 "cf->bootstrap;" // required for datadir :*> 688 "cf->bootstrap;" // required for datadir :*>
590 "unshift @INC, cf::datadir ();" 689 "unshift @INC, cf::datadir ();"
591 "require cf;" 690 "require cf;"
592 }; 691 };
593 692
594 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl)) 693 if (perl_parse (perl, xs_init, 2, (char **)argv, (char **)NULL)
694 || perl_run (perl))
595 { 695 {
596 printf ("unable to initialize perl-interpreter, aborting.\n"); 696 printf ("unable to initialize perl-interpreter, aborting.\n");
597 exit (EXIT_FAILURE); 697 exit (EXIT_FAILURE);
598 } 698 }
699
700 {
701 dSP;
702
703 PUSHMARK (SP);
704 PUTBACK;
705 call_pv ("cf::init", G_DISCARD | G_VOID);
706 }
599} 707}
600 708
601void cfperl_main () 709void cfperl_main ()
602{ 710{
603 dSP; 711 dSP;
… …
610void 718void
611attachable::instantiate () 719attachable::instantiate ()
612{ 720{
613 if (attach) 721 if (attach)
614 { 722 {
615 invoke (EVENT_ATTACHABLE_INSTANTIATE, ARG_STRING (attach), DT_END); 723 INVOKE_ATTACHABLE (INSTANTIATE, this, ARG_STRING (attach));
616 attach = 0; 724 attach = 0;
617 } 725 }
618} 726}
619 727
620void 728void
621attachable::reattach () 729attachable::reattach ()
622{ 730{
623 optimise (); 731 optimise ();
624 //TODO: check for _attachment's, very important for restarts 732 //TODO: check for _attachment's, very important for restarts
625 invoke (EVENT_ATTACHABLE_REATTACH, DT_END); 733 INVOKE_ATTACHABLE (REATTACH, this);
626} 734}
627 735
628static event_klass klass_of[NUM_EVENT_TYPES] = { 736static event_klass klass_of[NUM_EVENT_TYPES] = {
629# define def(type,name) KLASS_ ## type, 737# define def(type,name) KLASS_ ## type,
630# include "eventinc.h" 738# include "eventinc.h"
… …
673} 781}
674 782
675void 783void
676global::gather_callbacks (AV *&callbacks, event_type event) const 784global::gather_callbacks (AV *&callbacks, event_type event) const
677{ 785{
678 ::gather_callbacks (callbacks, cb_object, event); 786 ::gather_callbacks (callbacks, cb_global, event);
679} 787}
680 788
681void 789void
682object::gather_callbacks (AV *&callbacks, event_type event) const 790object::gather_callbacks (AV *&callbacks, event_type event) const
683{ 791{
684 if (subtype && type + subtype * NUM_SUBTYPES <= AvFILLp (cb_type)) 792 if (subtype && type + subtype * NUM_TYPES <= AvFILLp (cb_type))
685 { 793 {
686 SV *registry = AvARRAY (cb_type)[type + subtype * NUM_SUBTYPES]; 794 SV *registry = AvARRAY (cb_type)[type + subtype * NUM_TYPES];
687 795
688 if (registry && SvROK (registry) && SvTYPE (SvRV (registry)) == SVt_PVAV) 796 if (registry && SvROK (registry) && SvTYPE (SvRV (registry)) == SVt_PVAV)
689 ::gather_callbacks (callbacks, (AV *)SvRV (registry), event); 797 ::gather_callbacks (callbacks, (AV *)SvRV (registry), event);
690 } 798 }
691 799
… …
727{ 835{
728 attachable::gather_callbacks (callbacks, event); 836 attachable::gather_callbacks (callbacks, event);
729 ::gather_callbacks (callbacks, cb_map, event); 837 ::gather_callbacks (callbacks, cb_map, event);
730} 838}
731 839
840void
841_recalc_want (bitset<NUM_EVENT_TYPES> &set, AV *registry)
842{
843 for (int event = 0; event <= AvFILLp (registry); ++event)
844 {
845 SV *cbs_ = AvARRAY (registry)[event];
846
847 // element must be list of callback entries
848 if (cbs_ && SvROK (cbs_) && SvTYPE (SvRV (cbs_)) == SVt_PVAV)
849 {
850 AV *cbs = (AV *)SvRV (cbs_);
851
852 // no callback entries, no callbacks to call
853 if (AvFILLp (cbs) >= 0)
854 set.set (event);
855 }
856 }
857}
858
859// very slow and inefficient way to recalculate the global want bitsets
860void
861_recalc_want ()
862{
863 ev_want_event.reset ();
864
865 _recalc_want (ev_want_event, cb_global);
866 _recalc_want (ev_want_event, cb_attachable);
867 _recalc_want (ev_want_event, cb_object);
868 _recalc_want (ev_want_event, cb_client);
869 _recalc_want (ev_want_event, cb_player);
870 _recalc_want (ev_want_event, cb_map);
871
872 ev_want_type.reset ();
873
874 for (int type = 0; type <= AvFILLp (cb_type); ++type)
875 {
876 SV *cbs_ = AvARRAY (cb_type)[type];
877
878 // element must be list of callback entries
879 if (cbs_ && SvROK (cbs_) && SvTYPE (SvRV (cbs_)) == SVt_PVAV)
880 {
881 AV *cbs = (AV *)SvRV (cbs_);
882
883 // no callback entries, no callbacks to call
884 if (AvFILLp (cbs) >= 0)
885 ev_want_type.set (type % NUM_TYPES);
886 }
887 }
888}
889
732bool 890bool
733attachable::invoke (event_type event, ...) 891attachable::invoke (event_type event, ...)
734{ 892{
735 data_type dt; 893 data_type dt;
736 va_list ap;
737
738 va_start (ap, event);
739 894
740 // callback call ordering should be: 895 // callback call ordering should be:
741 // 1. per-object callback 896 // 1. per-object callback
742 // 2. per-class object 897 // 2. per-class object
743 // 3. per-type callback 898 // 3. per-type callback
… …
747 gather_callbacks (callbacks, event); 902 gather_callbacks (callbacks, event);
748 903
749 // short-circuit processing if no callbacks found/defined 904 // short-circuit processing if no callbacks found/defined
750 if (!callbacks) 905 if (!callbacks)
751 return 0; 906 return 0;
907
908 va_list ap;
909 va_start (ap, event);
752 910
753 CALL_BEGIN (3); 911 CALL_BEGIN (3);
754 CALL_ARG_SV (newSViv (event)); // only used for debugging nowadays 912 CALL_ARG_SV (newSViv (event)); // only used for debugging nowadays
755 CALL_ARG_SV (newRV_noinc ((SV *)callbacks)); 913 CALL_ARG_SV (newRV_noinc ((SV *)callbacks));
756 914
… …
824 CALL_BEGIN (0); 982 CALL_BEGIN (0);
825 CALL_CALL ("cf::emergency_save", G_VOID); 983 CALL_CALL ("cf::emergency_save", G_VOID);
826 CALL_END; 984 CALL_END;
827} 985}
828 986
987void
988cfperl_cleanup (int make_core)
989{
990 CALL_BEGIN (1);
991 CALL_ARG (make_core);
992 CALL_CALL ("cf::post_cleanup", G_VOID);
993 CALL_END;
994}
995
996void
997cfperl_make_book (object *book, int level)
998{
999 CALL_BEGIN (2);
1000 CALL_ARG (book);
1001 CALL_ARG (level);
1002 CALL_CALL ("ext::books::make_book", G_VOID);
1003 CALL_END;
1004}
1005
1006void
1007cfperl_send_msg (client *ns, int color, const char *type, const char *msg)
1008{
1009 CALL_BEGIN (4);
1010 CALL_ARG (ns);
1011 CALL_ARG (color);
1012 CALL_ARG (type);
1013 CALL_ARG_SV (newSVpv_utf8 (msg));
1014 CALL_CALL ("cf::client::send_msg", G_VOID);
1015 CALL_END;
1016}
1017
829maptile * 1018maptile *
830maptile::find_sync (const char *path, maptile *origin) 1019maptile::find_sync (const char *path, maptile *origin)
831{ 1020{
832 CALL_BEGIN (2); 1021 CALL_BEGIN (2);
833 CALL_ARG (path); 1022 CALL_ARG (path);
… …
895 CALL_ARG (exit); 1084 CALL_ARG (exit);
896 CALL_CALL ("cf::object::player::enter_exit", G_VOID); 1085 CALL_CALL ("cf::object::player::enter_exit", G_VOID);
897 CALL_END; 1086 CALL_END;
898} 1087}
899 1088
1089void
1090log_backtrace (const char *msg)
1091{
1092#if HAVE_BACKTRACE
1093 void *addr [20];
1094 int size = backtrace (addr, 20);
1095
1096 CALL_BEGIN (size);
1097 CALL_ARG (msg);
1098 for (int i = 0; i < size; ++i)
1099 CALL_ARG ((IV)addr [i]);
1100 CALL_CALL ("cf::_log_backtrace", G_VOID);
1101 CALL_END;
1102#endif
1103}
1104
900///////////////////////////////////////////////////////////////////////////// 1105/////////////////////////////////////////////////////////////////////////////
901 1106
902struct EventAPI *watcher_base::GEventAPI; 1107struct EventAPI *watcher_base::GEventAPI;
903struct CoroAPI *coroapi::GCoroAPI; 1108struct CoroAPI *coroapi::GCoroAPI;
904 1109
905int coroapi::cede_counter; 1110int coroapi::cede_counter;
1111tstamp coroapi::next_cede;
906 1112
1113void coroapi::do_cede_to_tick ()
1114{
1115 cede_counter = 0;
1116
1117 cede ();
1118
1119 next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1120 if (next_cede > SvNV (sv_next_tick) - 0.02)
1121 next_cede = SvNV (sv_next_tick);
1122}
1123
1124void coroapi::do_cede_every ()
1125{
1126 cede_counter = 0;
1127
1128 if (coroapi::nready ())
1129 coroapi::cede ();
1130}
1131
1132void coroapi::do_cede_to_tick_every ()
1133{
1134 cede_counter = 0;
1135
1136 cede_to_tick ();
1137}
1138
1139void
1140coroapi::wait_for_tick ()
1141{
1142 CALL_BEGIN (0);
1143 CALL_CALL ("cf::wait_for_tick", G_DISCARD);
1144 CALL_END;
1145}
1146
1147void
1148coroapi::wait_for_tick_begin ()
1149{
1150 CALL_BEGIN (0);
1151 CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
1152 CALL_END;
1153}
1154
1155static void
907static void iw_dispatch (pe_event *ev) 1156iw_dispatch (pe_event *ev)
908{ 1157{
909 iw *w = (iw *)ev->ext_data; 1158 iw *w = (iw *)ev->ext_data;
910 w->call (*w); 1159 w->call (*w);
911} 1160}
912 1161
913void 1162void
914iw::alloc () 1163iw::alloc ()
915{ 1164{
916 pe = GEventAPI->new_idle (0, 0); 1165 pe = GEventAPI->new_idle (0, 0);
917 1166
1167 WaREENTRANT_off (pe);
918 pe->base.callback = (void *)iw_dispatch; 1168 pe->base.callback = (void *)iw_dispatch;
919 pe->base.ext_data = (void *)this; 1169 pe->base.ext_data = (void *)this;
920} 1170}
921 1171
922static void iow_dispatch (pe_event *ev) 1172static void iow_dispatch (pe_event *ev)
… …
928void 1178void
929iow::alloc () 1179iow::alloc ()
930{ 1180{
931 pe = GEventAPI->new_io (0, 0); 1181 pe = GEventAPI->new_io (0, 0);
932 1182
1183 WaREENTRANT_off (pe);
933 pe->base.callback = (void *)iow_dispatch; 1184 pe->base.callback = (void *)iow_dispatch;
934 pe->base.ext_data = (void *)this; 1185 pe->base.ext_data = (void *)this;
935 1186
936 pe->fd = -1; 1187 pe->fd = -1;
937 pe->poll = 0; 1188 pe->poll = 0;
… …
973 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1); 1224 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
974 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1); 1225 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
975 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1); 1226 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
976 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1); 1227 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
977 1228
978 sv_runtime = get_sv ("cf::RUNTIME", 1); 1229 sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV);
979 sv_upgrade (sv_runtime, SVt_NV); 1230 sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV);
980 1231
981 cb_global = get_av ("cf::CB_GLOBAL", 1); 1232 cb_global = get_av ("cf::CB_GLOBAL", 1);
982 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1); 1233 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
983 cb_object = get_av ("cf::CB_OBJECT", 1); 1234 cb_object = get_av ("cf::CB_OBJECT", 1);
984 cb_player = get_av ("cf::CB_PLAYER", 1); 1235 cb_player = get_av ("cf::CB_PLAYER", 1);
… …
989 1240
990MODULE = cf PACKAGE = cf PREFIX = cf_ 1241MODULE = cf PACKAGE = cf PREFIX = cf_
991 1242
992BOOT: 1243BOOT:
993{ 1244{
994 _connect_to_perl ();
995
996 I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI; 1245 I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;
997 I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI; 1246 I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
998 1247
1248 _connect_to_perl ();
1249
999 newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1)); 1250 newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
1251
1252 //{
1253 // require_pv ("Time::HiRes");
1254 //
1255 // SV **svp = hv_fetch (PL_modglobal, "Time::NVtime", 12, 0);
1256 // if (!svp) croak ("Time::HiRes is required");
1257 // if (!SvIOK(*svp)) croak ("Time::NVtime isn’t a function pointer");
1258 // coroapi::time = INT2PTR (double(*)(), SvIV(*svp));
1259 //}
1000 1260
1001 static const struct { 1261 static const struct {
1002 const char *name; 1262 const char *name;
1003 IV iv; 1263 IV iv;
1004 } *civ, const_iv[] = { 1264 } *civ, const_iv[] = {
1005# define const_iv(name) { # name, (IV)name }, 1265# define const_iv(name) { # name, (IV)name },
1006 const_iv (llevError) 1266 const_iv (llevError) const_iv (llevInfo) const_iv (llevDebug) const_iv (llevMonster)
1007 const_iv (llevInfo) 1267 const_iv (logBacktrace)
1008 const_iv (llevDebug) 1268
1009 const_iv (llevMonster) 1269 const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)
1270
1271 const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)
1010 1272
1011 const_iv (MAX_TIME) 1273 const_iv (MAX_TIME)
1012 const_iv (PLAYER) 1274
1013 const_iv (TRANSPORT)
1014 const_iv (ROD)
1015 const_iv (TREASURE)
1016 const_iv (POTION)
1017 const_iv (FOOD)
1018 const_iv (POISON)
1019 const_iv (BOOK)
1020 const_iv (CLOCK)
1021 const_iv (ARROW)
1022 const_iv (BOW)
1023 const_iv (WEAPON)
1024 const_iv (ARMOUR)
1025 const_iv (PEDESTAL)
1026 const_iv (ALTAR)
1027 const_iv (LOCKED_DOOR)
1028 const_iv (SPECIAL_KEY)
1029 const_iv (MAP)
1030 const_iv (DOOR)
1031 const_iv (KEY)
1032 const_iv (TIMED_GATE)
1033 const_iv (TRIGGER)
1034 const_iv (GRIMREAPER)
1035 const_iv (MAGIC_EAR)
1036 const_iv (TRIGGER_BUTTON)
1037 const_iv (TRIGGER_ALTAR)
1038 const_iv (TRIGGER_PEDESTAL)
1039 const_iv (SHIELD)
1040 const_iv (HELMET)
1041 const_iv (HORN)
1042 const_iv (MONEY)
1043 const_iv (CLASS)
1044 const_iv (GRAVESTONE)
1045 const_iv (AMULET)
1046 const_iv (PLAYERMOVER)
1047 const_iv (TELEPORTER)
1048 const_iv (CREATOR)
1049 const_iv (SKILL)
1050 const_iv (EARTHWALL)
1051 const_iv (GOLEM)
1052 const_iv (THROWN_OBJ)
1053 const_iv (BLINDNESS)
1054 const_iv (GOD)
1055 const_iv (DETECTOR)
1056 const_iv (TRIGGER_MARKER)
1057 const_iv (DEAD_OBJECT)
1058 const_iv (DRINK)
1059 const_iv (MARKER)
1060 const_iv (HOLY_ALTAR)
1061 const_iv (PLAYER_CHANGER)
1062 const_iv (BATTLEGROUND)
1063 const_iv (PEACEMAKER)
1064 const_iv (GEM)
1065 const_iv (FIREWALL)
1066 const_iv (ANVIL)
1067 const_iv (CHECK_INV)
1068 const_iv (MOOD_FLOOR) 1275 const_iv (NUM_BODY_LOCATIONS)
1069 const_iv (EXIT) 1276 const_iv (body_range) const_iv (body_shield) const_iv (body_combat)
1070 const_iv (ENCOUNTER) 1277 const_iv (body_arm) const_iv (body_torso) const_iv (body_head)
1071 const_iv (SHOP_FLOOR) 1278 const_iv (body_neck) const_iv (body_skill) const_iv (body_finger)
1072 const_iv (SHOP_MAT) 1279 const_iv (body_shoulder) const_iv (body_foot) const_iv (body_hand)
1073 const_iv (RING) 1280 const_iv (body_wrist) const_iv (body_waist)
1074 const_iv (FLOOR)
1075 const_iv (FLESH)
1076 const_iv (INORGANIC)
1077 const_iv (SKILL_TOOL)
1078 const_iv (LIGHTER)
1079 const_iv (BUILDABLE_WALL)
1080 const_iv (MISC_OBJECT)
1081 const_iv (LAMP)
1082 const_iv (DUPLICATOR)
1083 const_iv (SPELLBOOK)
1084 const_iv (CLOAK)
1085 const_iv (SPINNER)
1086 const_iv (GATE)
1087 const_iv (BUTTON)
1088 const_iv (CF_HANDLE)
1089 const_iv (HOLE)
1090 const_iv (TRAPDOOR)
1091 const_iv (SIGN)
1092 const_iv (BOOTS)
1093 const_iv (GLOVES)
1094 const_iv (SPELL)
1095 const_iv (SPELL_EFFECT)
1096 const_iv (CONVERTER)
1097 const_iv (BRACERS)
1098 const_iv (POISONING)
1099 const_iv (SAVEBED)
1100 const_iv (WAND)
1101 const_iv (SCROLL)
1102 const_iv (DIRECTOR)
1103 const_iv (GIRDLE)
1104 const_iv (FORCE)
1105 const_iv (POTION_EFFECT)
1106 const_iv (EVENT_CONNECTOR)
1107 const_iv (CLOSE_CON)
1108 const_iv (CONTAINER)
1109 const_iv (ARMOUR_IMPROVER)
1110 const_iv (WEAPON_IMPROVER)
1111 const_iv (SKILLSCROLL)
1112 const_iv (DEEP_SWAMP)
1113 const_iv (IDENTIFY_ALTAR)
1114 const_iv (MENU)
1115 const_iv (RUNE)
1116 const_iv (TRAP)
1117 const_iv (POWER_CRYSTAL)
1118 const_iv (CORPSE)
1119 const_iv (DISEASE)
1120 const_iv (SYMPTOM)
1121 const_iv (BUILDER)
1122 const_iv (MATERIAL)
1123 const_iv (ITEM_TRANSFORMER)
1124 1281
1125 const_iv (NUM_SUBTYPES) 1282 const_iv (PLAYER) const_iv (TRANSPORT) const_iv (ROD) const_iv (TREASURE)
1283 const_iv (POTION) const_iv (FOOD) const_iv (POISON) const_iv (BOOK)
1284 const_iv (CLOCK) const_iv (ARROW) const_iv (BOW) const_iv (WEAPON)
1285 const_iv (ARMOUR) const_iv (PEDESTAL) const_iv (ALTAR) const_iv (LOCKED_DOOR)
1286 const_iv (SPECIAL_KEY) const_iv (MAP) const_iv (DOOR) const_iv (KEY)
1287 const_iv (TIMED_GATE) const_iv (TRIGGER) const_iv (GRIMREAPER) const_iv (MAGIC_EAR)
1288 const_iv (TRIGGER_BUTTON) const_iv (TRIGGER_ALTAR) const_iv (TRIGGER_PEDESTAL) const_iv (SHIELD)
1289 const_iv (HELMET) const_iv (HORN) const_iv (MONEY) const_iv (CLASS)
1290 const_iv (GRAVESTONE) const_iv (AMULET) const_iv (PLAYERMOVER) const_iv (TELEPORTER)
1291 const_iv (CREATOR) const_iv (SKILL) const_iv (EARTHWALL) const_iv (GOLEM)
1292 const_iv (THROWN_OBJ) const_iv (BLINDNESS) const_iv (GOD) const_iv (DETECTOR)
1293 const_iv (TRIGGER_MARKER) const_iv (DEAD_OBJECT) const_iv (DRINK) const_iv (MARKER)
1294 const_iv (HOLY_ALTAR) const_iv (PLAYER_CHANGER) const_iv (BATTLEGROUND) const_iv (PEACEMAKER)
1295 const_iv (GEM) const_iv (FIREWALL) const_iv (ANVIL) const_iv (CHECK_INV)
1296 const_iv (MOOD_FLOOR) const_iv (EXIT) const_iv (ENCOUNTER) const_iv (SHOP_FLOOR)
1297 const_iv (SHOP_MAT) const_iv (RING) const_iv (FLOOR) const_iv (FLESH)
1298 const_iv (INORGANIC) const_iv (SKILL_TOOL) const_iv (LIGHTER) const_iv (BUILDABLE_WALL)
1299 const_iv (MISC_OBJECT) const_iv (LAMP) const_iv (DUPLICATOR) const_iv (SPELLBOOK)
1300 const_iv (CLOAK) const_iv (SPINNER) const_iv (GATE) const_iv (BUTTON)
1301 const_iv (CF_HANDLE) const_iv (HOLE) const_iv (TRAPDOOR) const_iv (SIGN)
1302 const_iv (BOOTS) const_iv (GLOVES) const_iv (SPELL) const_iv (SPELL_EFFECT)
1303 const_iv (CONVERTER) const_iv (BRACERS) const_iv (POISONING) const_iv (SAVEBED)
1304 const_iv (WAND) const_iv (SCROLL) const_iv (DIRECTOR) const_iv (GIRDLE)
1305 const_iv (FORCE) const_iv (POTION_EFFECT) const_iv (EVENT_CONNECTOR) const_iv (CLOSE_CON)
1306 const_iv (CONTAINER) const_iv (ARMOUR_IMPROVER) const_iv (WEAPON_IMPROVER) const_iv (SKILLSCROLL)
1307 const_iv (DEEP_SWAMP) const_iv (IDENTIFY_ALTAR) const_iv (MENU) const_iv (RUNE)
1308 const_iv (TRAP) const_iv (POWER_CRYSTAL) const_iv (CORPSE) const_iv (DISEASE)
1309 const_iv (SYMPTOM) const_iv (BUILDER) const_iv (MATERIAL) const_iv (ITEM_TRANSFORMER)
1126 1310
1127 const_iv (ST_BD_BUILD) 1311 const_iv (NUM_TYPES) const_iv (NUM_SUBTYPES)
1128 const_iv (ST_BD_REMOVE)
1129 1312
1130 const_iv (ST_MAT_FLOOR) 1313 const_iv (ST_BD_BUILD) const_iv (ST_BD_REMOVE)
1131 const_iv (ST_MAT_WALL) 1314 const_iv (ST_MAT_FLOOR) const_iv (ST_MAT_WALL) const_iv (ST_MAT_ITEM)
1132 const_iv (ST_MAT_ITEM)
1133 1315
1134 const_iv (AT_PHYSICAL) 1316 const_iv (AT_PHYSICAL) const_iv (AT_MAGIC) const_iv (AT_FIRE) const_iv (AT_ELECTRICITY)
1135 const_iv (AT_MAGIC) 1317 const_iv (AT_COLD) const_iv (AT_CONFUSION) const_iv (AT_ACID) const_iv (AT_DRAIN)
1136 const_iv (AT_FIRE) 1318 const_iv (AT_WEAPONMAGIC) const_iv (AT_GHOSTHIT) const_iv (AT_POISON) const_iv (AT_SLOW)
1137 const_iv (AT_ELECTRICITY) 1319 const_iv (AT_PARALYZE) const_iv (AT_TURN_UNDEAD) const_iv (AT_FEAR) const_iv (AT_CANCELLATION)
1138 const_iv (AT_COLD) 1320 const_iv (AT_DEPLETE) const_iv (AT_DEATH) const_iv (AT_CHAOS) const_iv (AT_COUNTERSPELL)
1139 const_iv (AT_CONFUSION) 1321 const_iv (AT_GODPOWER) const_iv (AT_HOLYWORD) const_iv (AT_BLIND) const_iv (AT_INTERNAL)
1140 const_iv (AT_ACID) 1322 const_iv (AT_LIFE_STEALING) const_iv (AT_DISEASE)
1141 const_iv (AT_DRAIN)
1142 const_iv (AT_WEAPONMAGIC)
1143 const_iv (AT_GHOSTHIT)
1144 const_iv (AT_POISON)
1145 const_iv (AT_SLOW)
1146 const_iv (AT_PARALYZE)
1147 const_iv (AT_TURN_UNDEAD)
1148 const_iv (AT_FEAR)
1149 const_iv (AT_CANCELLATION)
1150 const_iv (AT_DEPLETE)
1151 const_iv (AT_DEATH)
1152 const_iv (AT_CHAOS)
1153 const_iv (AT_COUNTERSPELL)
1154 const_iv (AT_GODPOWER)
1155 const_iv (AT_HOLYWORD)
1156 const_iv (AT_BLIND)
1157 const_iv (AT_INTERNAL)
1158 const_iv (AT_LIFE_STEALING)
1159 const_iv (AT_DISEASE)
1160 1323
1161 const_iv (WEAP_HIT) 1324 const_iv (WEAP_HIT) const_iv (WEAP_SLASH) const_iv (WEAP_PIERCE) const_iv (WEAP_CLEAVE)
1162 const_iv (WEAP_SLASH) 1325 const_iv (WEAP_SLICE) const_iv (WEAP_STAB) const_iv (WEAP_WHIP) const_iv (WEAP_CRUSH)
1163 const_iv (WEAP_PIERCE)
1164 const_iv (WEAP_CLEAVE)
1165 const_iv (WEAP_SLICE)
1166 const_iv (WEAP_STAB)
1167 const_iv (WEAP_WHIP)
1168 const_iv (WEAP_CRUSH)
1169 const_iv (WEAP_BLUD) 1326 const_iv (WEAP_BLUD)
1170 1327
1171 const_iv (FLAG_ALIVE) 1328 const_iv (FLAG_ALIVE) const_iv (FLAG_WIZ) const_iv (FLAG_REMOVED) const_iv (FLAG_FREED)
1172 const_iv (FLAG_WIZ) 1329 const_iv (FLAG_APPLIED) const_iv (FLAG_UNPAID) const_iv (FLAG_USE_SHIELD)
1173 const_iv (FLAG_REMOVED) 1330 const_iv (FLAG_NO_PICK) const_iv (FLAG_ANIMATE) const_iv (FLAG_MONSTER) const_iv (FLAG_FRIENDLY)
1174 const_iv (FLAG_FREED) 1331 const_iv (FLAG_GENERATOR) const_iv (FLAG_IS_THROWN) const_iv (FLAG_AUTO_APPLY) const_iv (FLAG_PLAYER_SOLD)
1175 const_iv (FLAG_WAS_WIZ) 1332 const_iv (FLAG_SEE_INVISIBLE) const_iv (FLAG_CAN_ROLL) const_iv (FLAG_OVERLAY_FLOOR) const_iv (FLAG_IS_TURNABLE)
1176 const_iv (FLAG_APPLIED) 1333 const_iv (FLAG_IS_USED_UP) const_iv (FLAG_IDENTIFIED) const_iv (FLAG_REFLECTING) const_iv (FLAG_CHANGING)
1177 const_iv (FLAG_UNPAID) 1334 const_iv (FLAG_SPLITTING) const_iv (FLAG_HITBACK) const_iv (FLAG_STARTEQUIP) const_iv (FLAG_BLOCKSVIEW)
1178 const_iv (FLAG_USE_SHIELD) 1335 const_iv (FLAG_UNDEAD) const_iv (FLAG_SCARED) const_iv (FLAG_UNAGGRESSIVE) const_iv (FLAG_REFL_MISSILE)
1179 const_iv (FLAG_NO_PICK) 1336 const_iv (FLAG_REFL_SPELL) const_iv (FLAG_NO_MAGIC) const_iv (FLAG_NO_FIX_PLAYER) const_iv (FLAG_IS_LIGHTABLE)
1180 const_iv (FLAG_ANIMATE) 1337 const_iv (FLAG_TEAR_DOWN) const_iv (FLAG_RUN_AWAY) const_iv (FLAG_PICK_UP) const_iv (FLAG_UNIQUE)
1181 const_iv (FLAG_MONSTER) 1338 const_iv (FLAG_NO_DROP) const_iv (FLAG_WIZCAST) const_iv (FLAG_CAST_SPELL) const_iv (FLAG_USE_SCROLL)
1182 const_iv (FLAG_FRIENDLY) 1339 const_iv (FLAG_USE_RANGE) const_iv (FLAG_USE_BOW) const_iv (FLAG_USE_ARMOUR) const_iv (FLAG_USE_WEAPON)
1183 const_iv (FLAG_GENERATOR) 1340 const_iv (FLAG_USE_RING) const_iv (FLAG_READY_RANGE) const_iv (FLAG_READY_BOW) const_iv (FLAG_XRAYS)
1184 const_iv (FLAG_IS_THROWN) 1341 const_iv (FLAG_NO_APPLY) const_iv (FLAG_IS_FLOOR) const_iv (FLAG_LIFESAVE) const_iv (FLAG_NO_STRENGTH)
1185 const_iv (FLAG_AUTO_APPLY) 1342 const_iv (FLAG_SLEEP) const_iv (FLAG_STAND_STILL) const_iv (FLAG_RANDOM_MOVE) const_iv (FLAG_ONLY_ATTACK)
1186 const_iv (FLAG_PLAYER_SOLD) 1343 const_iv (FLAG_CONFUSED) const_iv (FLAG_STEALTH) const_iv (FLAG_WIZPASS) const_iv (FLAG_IS_LINKED)
1187 const_iv (FLAG_SEE_INVISIBLE) 1344 const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)
1188 const_iv (FLAG_CAN_ROLL) 1345 const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)
1189 const_iv (FLAG_OVERLAY_FLOOR) 1346 const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)
1190 const_iv (FLAG_IS_TURNABLE) 1347 const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)
1191 const_iv (FLAG_IS_USED_UP) 1348 const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)
1192 const_iv (FLAG_IDENTIFIED) 1349 const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)
1193 const_iv (FLAG_REFLECTING) 1350 const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1194 const_iv (FLAG_CHANGING) 1351 const_iv (FLAG_OBJ_SAVE_ON_OVL) const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)
1195 const_iv (FLAG_SPLITTING) 1352 const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1196 const_iv (FLAG_HITBACK) 1353 const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1197 const_iv (FLAG_STARTEQUIP)
1198 const_iv (FLAG_BLOCKSVIEW)
1199 const_iv (FLAG_UNDEAD)
1200 const_iv (FLAG_SCARED)
1201 const_iv (FLAG_UNAGGRESSIVE)
1202 const_iv (FLAG_REFL_MISSILE)
1203 const_iv (FLAG_REFL_SPELL)
1204 const_iv (FLAG_NO_MAGIC)
1205 const_iv (FLAG_NO_FIX_PLAYER)
1206 const_iv (FLAG_IS_LIGHTABLE)
1207 const_iv (FLAG_TEAR_DOWN)
1208 const_iv (FLAG_RUN_AWAY)
1209 const_iv (FLAG_PICK_UP)
1210 const_iv (FLAG_UNIQUE)
1211 const_iv (FLAG_NO_DROP)
1212 const_iv (FLAG_WIZCAST)
1213 const_iv (FLAG_CAST_SPELL)
1214 const_iv (FLAG_USE_SCROLL)
1215 const_iv (FLAG_USE_RANGE)
1216 const_iv (FLAG_USE_BOW)
1217 const_iv (FLAG_USE_ARMOUR)
1218 const_iv (FLAG_USE_WEAPON)
1219 const_iv (FLAG_USE_RING)
1220 const_iv (FLAG_READY_RANGE)
1221 const_iv (FLAG_READY_BOW)
1222 const_iv (FLAG_XRAYS)
1223 const_iv (FLAG_NO_APPLY)
1224 const_iv (FLAG_IS_FLOOR)
1225 const_iv (FLAG_LIFESAVE)
1226 const_iv (FLAG_NO_STRENGTH)
1227 const_iv (FLAG_SLEEP)
1228 const_iv (FLAG_STAND_STILL)
1229 const_iv (FLAG_RANDOM_MOVE)
1230 const_iv (FLAG_ONLY_ATTACK)
1231 const_iv (FLAG_CONFUSED)
1232 const_iv (FLAG_STEALTH)
1233 const_iv (FLAG_WIZPASS)
1234 const_iv (FLAG_IS_LINKED)
1235 const_iv (FLAG_CURSED)
1236 const_iv (FLAG_DAMNED)
1237 const_iv (FLAG_SEE_ANYWHERE)
1238 const_iv (FLAG_KNOWN_MAGICAL)
1239 const_iv (FLAG_KNOWN_CURSED)
1240 const_iv (FLAG_CAN_USE_SKILL)
1241 const_iv (FLAG_BEEN_APPLIED)
1242 const_iv (FLAG_READY_SCROLL)
1243 const_iv (FLAG_USE_ROD)
1244 const_iv (FLAG_USE_HORN)
1245 const_iv (FLAG_MAKE_INVIS)
1246 const_iv (FLAG_INV_LOCKED)
1247 const_iv (FLAG_IS_WOODED)
1248 const_iv (FLAG_IS_HILLY)
1249 const_iv (FLAG_READY_SKILL)
1250 const_iv (FLAG_READY_WEAPON)
1251 const_iv (FLAG_NO_SKILL_IDENT)
1252 const_iv (FLAG_BLIND)
1253 const_iv (FLAG_SEE_IN_DARK)
1254 const_iv (FLAG_IS_CAULDRON)
1255 const_iv (FLAG_NO_STEAL)
1256 const_iv (FLAG_ONE_HIT)
1257 const_iv (FLAG_CLIENT_SENT)
1258 const_iv (FLAG_BERSERK)
1259 const_iv (FLAG_NEUTRAL)
1260 const_iv (FLAG_NO_ATTACK)
1261 const_iv (FLAG_NO_DAMAGE)
1262 const_iv (FLAG_OBJ_ORIGINAL)
1263 const_iv (FLAG_OBJ_SAVE_ON_OVL)
1264 const_iv (FLAG_ACTIVATE_ON_PUSH)
1265 const_iv (FLAG_ACTIVATE_ON_RELEASE)
1266 const_iv (FLAG_IS_WATER)
1267 const_iv (FLAG_CONTENT_ON_GEN)
1268 const_iv (FLAG_IS_A_TEMPLATE)
1269 const_iv (FLAG_IS_BUILDABLE)
1270 const_iv (FLAG_DESTROY_ON_DEATH)
1271 const_iv (FLAG_NO_SAVE)
1272 1354
1273 const_iv (NDI_BLACK) 1355 const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1274 const_iv (NDI_WHITE) 1356 const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1275 const_iv (NDI_NAVY) 1357 const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1276 const_iv (NDI_RED) 1358 const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1277 const_iv (NDI_ORANGE)
1278 const_iv (NDI_BLUE)
1279 const_iv (NDI_DK_ORANGE)
1280 const_iv (NDI_GREEN)
1281 const_iv (NDI_LT_GREEN)
1282 const_iv (NDI_GREY)
1283 const_iv (NDI_BROWN)
1284 const_iv (NDI_GOLD)
1285 const_iv (NDI_TAN)
1286 const_iv (NDI_MAX_COLOR)
1287 const_iv (NDI_COLOR_MASK)
1288 const_iv (NDI_UNIQUE)
1289 const_iv (NDI_ALL) 1359 const_iv (NDI_ALL)
1290 1360
1361 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1362 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1363
1364 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
1365
1366 const_iv (SP_RAISE_DEAD)
1367 const_iv (SP_RUNE)
1368 const_iv (SP_MAKE_MARK)
1369 const_iv (SP_BOLT)
1370 const_iv (SP_BULLET)
1291 const_iv (UPD_LOCATION) 1371 const_iv (SP_EXPLOSION)
1292 const_iv (UPD_FLAGS)
1293 const_iv (UPD_WEIGHT)
1294 const_iv (UPD_FACE) 1372 const_iv (SP_CONE)
1373 const_iv (SP_BOMB)
1374 const_iv (SP_WONDER)
1295 const_iv (UPD_NAME) 1375 const_iv (SP_SMITE)
1296 const_iv (UPD_ANIM) 1376 const_iv (SP_MAGIC_MISSILE)
1297 const_iv (UPD_ANIMSPEED) 1377 const_iv (SP_SUMMON_GOLEM)
1298 const_iv (UPD_NROF) 1378 const_iv (SP_DIMENSION_DOOR)
1299 1379 const_iv (SP_MAGIC_MAPPING)
1300 const_iv (UPD_SP_MANA)
1301 const_iv (UPD_SP_GRACE)
1302 const_iv (UPD_SP_DAMAGE)
1303
1304 const_iv (F_APPLIED)
1305 const_iv (F_LOCATION)
1306 const_iv (F_UNPAID)
1307 const_iv (F_MAGIC) 1380 const_iv (SP_MAGIC_WALL)
1381 const_iv (SP_DESTRUCTION)
1382 const_iv (SP_PERCEIVE_SELF)
1383 const_iv (SP_WORD_OF_RECALL)
1384 const_iv (SP_INVISIBLE)
1385 const_iv (SP_PROBE)
1386 const_iv (SP_HEALING)
1387 const_iv (SP_CREATE_FOOD)
1388 const_iv (SP_EARTH_TO_DUST)
1389 const_iv (SP_CHANGE_ABILITY)
1390 const_iv (SP_BLESS)
1308 const_iv (F_CURSED) 1391 const_iv (SP_CURSE)
1392 const_iv (SP_SUMMON_MONSTER)
1393 const_iv (SP_CHARGING)
1394 const_iv (SP_POLYMORPH)
1395 const_iv (SP_ALCHEMY)
1396 const_iv (SP_REMOVE_CURSE)
1397 const_iv (SP_IDENTIFY)
1398 const_iv (SP_DETECTION)
1399 const_iv (SP_MOOD_CHANGE)
1400 const_iv (SP_MOVING_BALL)
1309 const_iv (F_DAMNED) 1401 const_iv (SP_SWARM)
1402 const_iv (SP_CHANGE_MANA)
1310 const_iv (F_OPEN) 1403 const_iv (SP_DISPEL_RUNE)
1311 const_iv (F_NOPICK) 1404 const_iv (SP_CREATE_MISSILE)
1405 const_iv (SP_CONSECRATE)
1406 const_iv (SP_ANIMATE_WEAPON)
1407 const_iv (SP_LIGHT)
1408 const_iv (SP_CHANGE_MAP_LIGHT)
1409 const_iv (SP_FAERY_FIRE)
1410 const_iv (SP_CAUSE_DISEASE)
1411 const_iv (SP_AURA)
1412 const_iv (SP_TOWN_PORTAL)
1413 const_iv (SP_PARTY_SPELL)
1414
1415 const_iv (F_APPLIED) const_iv (F_LOCATION) const_iv (F_UNPAID) const_iv (F_MAGIC)
1416 const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1312 const_iv (F_LOCKED) 1417 const_iv (F_LOCKED)
1313 1418
1314 const_iv (F_BUY) 1419 const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1315 const_iv (F_SHOP)
1316 const_iv (F_SELL)
1317 1420
1318 const_iv (P_BLOCKSVIEW) 1421 const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)
1319 const_iv (P_PLAYER) 1422 const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1320 const_iv (P_NO_MAGIC)
1321 const_iv (P_IS_ALIVE)
1322 const_iv (P_NO_CLERIC)
1323 const_iv (P_OUT_OF_MAP)
1324 const_iv (P_NEW_MAP)
1325 const_iv (P_UPTODATE)
1326 1423
1327 const_iv (UP_OBJ_INSERT) 1424 const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1328 const_iv (UP_OBJ_REMOVE)
1329 const_iv (UP_OBJ_CHANGE)
1330 const_iv (UP_OBJ_FACE)
1331 1425
1332 const_iv (INS_NO_MERGE) 1426 const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
1333 const_iv (INS_ABOVE_FLOOR_ONLY) 1427 const_iv (INS_ON_TOP) const_iv (INS_BELOW_ORIGINATOR) const_iv (INS_MAP_LOAD)
1334 const_iv (INS_NO_WALK_ON)
1335 const_iv (INS_ON_TOP)
1336 const_iv (INS_BELOW_ORIGINATOR)
1337 const_iv (INS_MAP_LOAD)
1338 1428
1339 const_iv (WILL_APPLY_HANDLE) 1429 const_iv (WILL_APPLY_HANDLE) const_iv (WILL_APPLY_TREASURE) const_iv (WILL_APPLY_EARTHWALL)
1340 const_iv (WILL_APPLY_TREASURE) 1430 const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)
1341 const_iv (WILL_APPLY_EARTHWALL)
1342 const_iv (WILL_APPLY_DOOR)
1343 const_iv (WILL_APPLY_FOOD)
1344 1431
1345 const_iv (SAVE_MODE) 1432 const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)
1346 const_iv (SAVE_DIR_MODE)
1347 1433
1348 const_iv (M_PAPER) 1434 const_iv (M_PAPER) const_iv (M_IRON) const_iv (M_GLASS) const_iv (M_LEATHER)
1349 const_iv (M_IRON) 1435 const_iv (M_WOOD) const_iv (M_ORGANIC) const_iv (M_STONE) const_iv (M_CLOTH)
1350 const_iv (M_GLASS) 1436 const_iv (M_ADAMANT) const_iv (M_LIQUID) const_iv (M_SOFT_METAL) const_iv (M_BONE)
1351 const_iv (M_LEATHER) 1437 const_iv (M_ICE) const_iv (M_SPECIAL)
1352 const_iv (M_WOOD)
1353 const_iv (M_ORGANIC)
1354 const_iv (M_STONE)
1355 const_iv (M_CLOTH)
1356 const_iv (M_ADAMANT)
1357 const_iv (M_LIQUID)
1358 const_iv (M_SOFT_METAL)
1359 const_iv (M_BONE)
1360 const_iv (M_ICE)
1361 const_iv (M_SPECIAL)
1362 1438
1363 const_iv (SK_EXP_ADD_SKILL) 1439 const_iv (SK_EXP_ADD_SKILL) const_iv (SK_EXP_TOTAL) const_iv (SK_EXP_NONE)
1364 const_iv (SK_EXP_TOTAL) 1440 const_iv (SK_SUBTRACT_SKILL_EXP) const_iv (SK_EXP_SKILL_ONLY)
1365 const_iv (SK_EXP_NONE)
1366 const_iv (SK_SUBTRACT_SKILL_EXP)
1367 const_iv (SK_EXP_SKILL_ONLY)
1368 1441
1369 const_iv (SK_LOCKPICKING) 1442 const_iv (SK_LOCKPICKING) const_iv (SK_HIDING) const_iv (SK_SMITHERY) const_iv (SK_BOWYER)
1370 const_iv (SK_HIDING) 1443 const_iv (SK_JEWELER) const_iv (SK_ALCHEMY) const_iv (SK_STEALING) const_iv (SK_LITERACY)
1371 const_iv (SK_SMITHERY) 1444 const_iv (SK_BARGAINING) const_iv (SK_JUMPING) const_iv (SK_DET_MAGIC) const_iv (SK_ORATORY)
1372 const_iv (SK_BOWYER) 1445 const_iv (SK_SINGING) const_iv (SK_DET_CURSE) const_iv (SK_FIND_TRAPS) const_iv (SK_MEDITATION)
1373 const_iv (SK_JEWELER) 1446 const_iv (SK_PUNCHING) const_iv (SK_FLAME_TOUCH) const_iv (SK_KARATE) const_iv (SK_CLIMBING)
1374 const_iv (SK_ALCHEMY) 1447 const_iv (SK_WOODSMAN) const_iv (SK_INSCRIPTION) const_iv (SK_ONE_HANDED_WEAPON) const_iv (SK_MISSILE_WEAPON)
1375 const_iv (SK_STEALING) 1448 const_iv (SK_THROWING) const_iv (SK_USE_MAGIC_ITEM) const_iv (SK_DISARM_TRAPS) const_iv (SK_SET_TRAP)
1376 const_iv (SK_LITERACY) 1449 const_iv (SK_THAUMATURGY) const_iv (SK_PRAYING) const_iv (SK_CLAWING) const_iv (SK_LEVITATION)
1377 const_iv (SK_BARGAINING) 1450 const_iv (SK_SUMMONING) const_iv (SK_PYROMANCY) const_iv (SK_EVOCATION) const_iv (SK_SORCERY)
1378 const_iv (SK_JUMPING) 1451 const_iv (SK_TWO_HANDED_WEAPON) const_iv (SK_SPARK_TOUCH) const_iv (SK_SHIVER) const_iv (SK_ACID_SPLASH)
1379 const_iv (SK_DET_MAGIC)
1380 const_iv (SK_ORATORY)
1381 const_iv (SK_SINGING)
1382 const_iv (SK_DET_CURSE)
1383 const_iv (SK_FIND_TRAPS)
1384 const_iv (SK_MEDITATION)
1385 const_iv (SK_PUNCHING)
1386 const_iv (SK_FLAME_TOUCH)
1387 const_iv (SK_KARATE)
1388 const_iv (SK_CLIMBING)
1389 const_iv (SK_WOODSMAN)
1390 const_iv (SK_INSCRIPTION)
1391 const_iv (SK_ONE_HANDED_WEAPON)
1392 const_iv (SK_MISSILE_WEAPON)
1393 const_iv (SK_THROWING)
1394 const_iv (SK_USE_MAGIC_ITEM)
1395 const_iv (SK_DISARM_TRAPS)
1396 const_iv (SK_SET_TRAP)
1397 const_iv (SK_THAUMATURGY)
1398 const_iv (SK_PRAYING)
1399 const_iv (SK_CLAWING)
1400 const_iv (SK_LEVITATION)
1401 const_iv (SK_SUMMONING)
1402 const_iv (SK_PYROMANCY)
1403 const_iv (SK_EVOCATION)
1404 const_iv (SK_SORCERY)
1405 const_iv (SK_TWO_HANDED_WEAPON)
1406 const_iv (SK_SPARK_TOUCH)
1407 const_iv (SK_SHIVER)
1408 const_iv (SK_ACID_SPLASH)
1409 const_iv (SK_POISON_NAIL) 1452 const_iv (SK_POISON_NAIL)
1410 1453
1411 const_iv (SOUND_NEW_PLAYER) 1454 const_iv (SOUND_NEW_PLAYER) const_iv (SOUND_FIRE_ARROW) const_iv (SOUND_LEARN_SPELL) const_iv (SOUND_FUMBLE_SPELL)
1412 const_iv (SOUND_FIRE_ARROW) 1455 const_iv (SOUND_WAND_POOF) const_iv (SOUND_OPEN_DOOR) const_iv (SOUND_PUSH_PLAYER) const_iv (SOUND_PLAYER_HITS1)
1413 const_iv (SOUND_LEARN_SPELL) 1456 const_iv (SOUND_PLAYER_HITS2) const_iv (SOUND_PLAYER_HITS3) const_iv (SOUND_PLAYER_HITS4) const_iv (SOUND_PLAYER_IS_HIT1)
1414 const_iv (SOUND_FUMBLE_SPELL) 1457 const_iv (SOUND_PLAYER_IS_HIT2) const_iv (SOUND_PLAYER_IS_HIT3) const_iv (SOUND_PLAYER_KILLS) const_iv (SOUND_PET_IS_KILLED)
1415 const_iv (SOUND_WAND_POOF) 1458 const_iv (SOUND_PLAYER_DIES) const_iv (SOUND_OB_EVAPORATE) const_iv (SOUND_OB_EXPLODE) const_iv (SOUND_CLOCK)
1416 const_iv (SOUND_OPEN_DOOR) 1459 const_iv (SOUND_TURN_HANDLE) const_iv (SOUND_FALL_HOLE) const_iv (SOUND_DRINK_POISON) const_iv (SOUND_CAST_SPELL_0)
1417 const_iv (SOUND_PUSH_PLAYER)
1418 const_iv (SOUND_PLAYER_HITS1)
1419 const_iv (SOUND_PLAYER_HITS2)
1420 const_iv (SOUND_PLAYER_HITS3)
1421 const_iv (SOUND_PLAYER_HITS4)
1422 const_iv (SOUND_PLAYER_IS_HIT1)
1423 const_iv (SOUND_PLAYER_IS_HIT2)
1424 const_iv (SOUND_PLAYER_IS_HIT3)
1425 const_iv (SOUND_PLAYER_KILLS)
1426 const_iv (SOUND_PET_IS_KILLED)
1427 const_iv (SOUND_PLAYER_DIES)
1428 const_iv (SOUND_OB_EVAPORATE)
1429 const_iv (SOUND_OB_EXPLODE)
1430 const_iv (SOUND_CLOCK)
1431 const_iv (SOUND_TURN_HANDLE)
1432 const_iv (SOUND_FALL_HOLE)
1433 const_iv (SOUND_DRINK_POISON)
1434 const_iv (SOUND_CAST_SPELL_0)
1435 1460
1436 const_iv (PREFER_LOW) 1461 const_iv (PREFER_LOW) const_iv (PREFER_HIGH)
1437 const_iv (PREFER_HIGH)
1438 1462
1439 const_iv (ATNR_PHYSICAL) 1463 const_iv (ATNR_PHYSICAL) const_iv (ATNR_MAGIC) const_iv (ATNR_FIRE) const_iv (ATNR_ELECTRICITY)
1440 const_iv (ATNR_MAGIC) 1464 const_iv (ATNR_COLD) const_iv (ATNR_CONFUSION) const_iv (ATNR_ACID) const_iv (ATNR_DRAIN)
1441 const_iv (ATNR_FIRE) 1465 const_iv (ATNR_WEAPONMAGIC) const_iv (ATNR_GHOSTHIT) const_iv (ATNR_POISON) const_iv (ATNR_SLOW)
1442 const_iv (ATNR_ELECTRICITY) 1466 const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1443 const_iv (ATNR_COLD) 1467 const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1444 const_iv (ATNR_CONFUSION) 1468 const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1445 const_iv (ATNR_ACID) 1469 const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1446 const_iv (ATNR_DRAIN)
1447 const_iv (ATNR_WEAPONMAGIC)
1448 const_iv (ATNR_GHOSTHIT)
1449 const_iv (ATNR_POISON)
1450 const_iv (ATNR_SLOW)
1451 const_iv (ATNR_PARALYZE)
1452 const_iv (ATNR_TURN_UNDEAD)
1453 const_iv (ATNR_FEAR)
1454 const_iv (ATNR_CANCELLATION)
1455 const_iv (ATNR_DEPLETE)
1456 const_iv (ATNR_DEATH)
1457 const_iv (ATNR_CHAOS)
1458 const_iv (ATNR_COUNTERSPELL)
1459 const_iv (ATNR_GODPOWER)
1460 const_iv (ATNR_HOLYWORD)
1461 const_iv (ATNR_BLIND)
1462 const_iv (ATNR_INTERNAL)
1463 const_iv (ATNR_LIFE_STEALING)
1464 const_iv (ATNR_DISEASE)
1465 1470
1466 const_iv (MAP_FLUSH) 1471 const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
1467 const_iv (MAP_PLAYER_UNIQUE)
1468 const_iv (MAP_BLOCK)
1469 const_iv (MAP_STYLE)
1470 const_iv (MAP_OVERLAY)
1471 1472
1472 const_iv (MAP_IN_MEMORY) 1473 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1473 const_iv (MAP_SWAPPED) 1474 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1474 const_iv (MAP_LOADING)
1475 const_iv (MAP_SAVING)
1476 1475
1477 const_iv (KLASS_ATTACHABLE) 1476 const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT)
1478 const_iv (KLASS_GLOBAL)
1479 const_iv (KLASS_OBJECT)
1480 const_iv (KLASS_CLIENT)
1481 const_iv (KLASS_PLAYER)
1482 const_iv (KLASS_MAP)
1483 1477
1484 const_iv (CS_QUERY_YESNO) 1478 const_iv (ST_DEAD) const_iv (ST_SETUP) const_iv (ST_PLAYING) const_iv (ST_CUSTOM)
1485 const_iv (CS_QUERY_SINGLECHAR)
1486 const_iv (CS_QUERY_HIDEINPUT)
1487 1479
1488 const_iv (ST_DEAD) 1480 const_iv (IO_HEADER) const_iv (IO_OBJECTS) const_iv (IO_UNIQUES)
1489 const_iv (ST_SETUP)
1490 const_iv (ST_PLAYING)
1491 const_iv (ST_CUSTOM)
1492
1493 const_iv (ST_CHANGE_CLASS)
1494
1495 const_iv (IO_HEADER)
1496 const_iv (IO_OBJECTS)
1497 const_iv (IO_UNIQUES)
1498 1481
1499 // random map generator 1482 // random map generator
1500 const_iv (LAYOUT_NONE) 1483 const_iv (LAYOUT_NONE) const_iv (LAYOUT_ONION) const_iv (LAYOUT_MAZE) const_iv (LAYOUT_SPIRAL)
1501 const_iv (LAYOUT_ONION) 1484 const_iv (LAYOUT_ROGUELIKE) const_iv (LAYOUT_SNAKE) const_iv (LAYOUT_SQUARE_SPIRAL)
1502 const_iv (LAYOUT_MAZE)
1503 const_iv (LAYOUT_SPIRAL)
1504 const_iv (LAYOUT_ROGUELIKE)
1505 const_iv (LAYOUT_SNAKE)
1506 const_iv (LAYOUT_SQUARE_SPIRAL)
1507 1485
1508 const_iv (RMOPT_RANDOM) 1486 const_iv (RMOPT_RANDOM) const_iv (RMOPT_CENTERED) const_iv (RMOPT_LINEAR)
1509 const_iv (RMOPT_CENTERED) 1487 const_iv (RMOPT_BOTTOM_C) const_iv (RMOPT_BOTTOM_R) const_iv (RMOPT_IRR_SPACE)
1510 const_iv (RMOPT_LINEAR) 1488 const_iv (RMOPT_WALL_OFF) const_iv (RMOPT_WALLS_ONLY) const_iv (RMOPT_NO_DOORS)
1511 const_iv (RMOPT_BOTTOM_C)
1512 const_iv (RMOPT_BOTTOM_R)
1513 const_iv (RMOPT_IRR_SPACE)
1514 const_iv (RMOPT_WALL_OFF)
1515 const_iv (RMOPT_WALLS_ONLY)
1516 const_iv (RMOPT_NO_DOORS)
1517 1489
1518 const_iv (SYMMETRY_RANDOM) 1490 const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1519 const_iv (SYMMETRY_NONE) 1491 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1520 const_iv (SYMMETRY_X) 1492
1521 const_iv (SYMMETRY_Y) 1493 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1522 const_iv (SYMMETRY_XY) 1494 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)
1495 const_iv (GT_MINIMAL)
1523 }; 1496 };
1524 1497
1525 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1498 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1526 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv)); 1499 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));
1527 1500
… …
1548 } 1521 }
1549} 1522}
1550 1523
1551void _connect_to_perl () 1524void _connect_to_perl ()
1552 1525
1526void _recalc_want ()
1527
1553void _global_reattach () 1528void _global_reattach ()
1554 CODE: 1529 CODE:
1555{ 1530{
1556 // reattach to all attachable objects in the game. 1531 // reattach to all attachable objects in the game.
1557 for_all_clients (ns) 1532 for_all_clients (ns)
1558 ns->reattach (); 1533 ns->reattach ();
1559 1534
1560 for_all_players (pl)
1561 pl->reattach ();
1562
1563 //TODO
1564 //for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)
1565 // i->second->reattach ();
1566
1567 for_all_objects (op) 1535 for_all_objects (op)
1568 op->reattach (); 1536 op->reattach ();
1569} 1537}
1570 1538
1539void _post_tick ()
1540 CODE:
1541 coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);
1542
1543# support function for map-world.ext
1544void _quantise (SV *data_sv, SV *plt_sv)
1545 CODE:
1546{
1547 if (!SvROK (plt_sv) || SvTYPE (SvRV (plt_sv)) != SVt_PVAV)
1548 croak ("_quantise called with invalid agruments");
1549
1550 plt_sv = SvRV (plt_sv);
1551 SV **plt = AvARRAY (plt_sv);
1552 int plt_count = AvFILL (plt_sv) + 1;
1553
1554 STRLEN len;
1555 char *data = SvPVbyte (data_sv, len);
1556 char *dst = data;
1557
1558 while (len >= 3)
1559 {
1560 for (SV **val_sv = plt + plt_count; val_sv-- > plt; )
1561 {
1562 char *val = SvPVX (*val_sv);
1563
1564 if (val [0] == data [0]
1565 && val [1] == data [1]
1566 && val [2] == data [2])
1567 {
1568 *dst++ = val [3];
1569 goto next;
1570 }
1571 }
1572
1573 croak ("_quantise: color not found in palette: #%02x%02x%02x, at offset %d %d",
1574 (uint8_t)data [0], (uint8_t)data [1], (uint8_t)data [2],
1575 dst - SvPVX (data_sv), len);
1576
1577 next:
1578 data += 3;
1579 len -= 3;
1580 }
1581
1582 SvCUR_set (data_sv, dst - SvPVX (data_sv));
1583}
1584
1571NV floor (NV x) 1585NV floor (NV x)
1572 1586
1573NV ceil (NV x) 1587NV ceil (NV x)
1574 1588
1589NV rndm (...)
1590 CODE:
1591 switch (items)
1592 {
1593 case 0: RETVAL = rndm (); break;
1594 case 1: RETVAL = rndm (SvUV (ST (0))); break;
1595 case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;
1596 default: croak ("cf::rndm requires none, one or two parameters."); break;
1597 }
1598 OUTPUT:
1599 RETVAL
1600
1601NV clamp (NV value, NV min_value, NV max_value)
1602 CODE:
1603 RETVAL = clamp (value, min_value, max_value);
1604 OUTPUT:
1605 RETVAL
1606
1607NV lerp (NV value, NV min_in, NV max_in, NV min_out, NV max_out)
1608 CODE:
1609 RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1610 OUTPUT:
1611 RETVAL
1612
1613void cede_to_tick ()
1614 CODE:
1615 coroapi::cede_to_tick ();
1616
1575void server_tick () 1617void server_tick ()
1576 CODE: 1618 CODE:
1619 NOW = now ();
1577 runtime = SvNVx (sv_runtime); 1620 runtime = SvNVx (sv_runtime);
1578 server_tick (); 1621 server_tick ();
1579 1622
1580void 1623void
1581LOG (int level, char *msg) 1624log_backtrace (utf8_string msg)
1625
1626void
1627LOG (int flags, utf8_string msg)
1582 PROTOTYPE: $$ 1628 PROTOTYPE: $$
1583 C_ARGS: (LogLevel)level, "%s", msg 1629 C_ARGS: flags, "%s", msg
1584 1630
1585char *path_combine (char *base, char *path) 1631octet_string path_combine (octet_string base, octet_string path)
1586 PROTOTYPE: $$ 1632 PROTOTYPE: $$
1587 1633
1588char *path_combine_and_normalize (char *base, char *path) 1634octet_string path_combine_and_normalize (octet_string base, octet_string path)
1589 PROTOTYPE: $$ 1635 PROTOTYPE: $$
1590 1636
1591const char * 1637const_octet_string
1592get_maps_directory (char *path) 1638get_maps_directory (octet_string path)
1593 PROTOTYPE: $ 1639 PROTOTYPE: $
1594 ALIAS: maps_directory = 0 1640 ALIAS: maps_directory = 0
1595 CODE: 1641 CODE:
1596 RETVAL = create_pathname (path); 1642 RETVAL = create_pathname (path);
1597 OUTPUT: RETVAL 1643 OUTPUT: RETVAL
… …
1599void 1645void
1600sub_generation_inc () 1646sub_generation_inc ()
1601 CODE: 1647 CODE:
1602 PL_sub_generation++; 1648 PL_sub_generation++;
1603 1649
1604char * 1650const_octet_string
1605mapdir () 1651mapdir ()
1606 PROTOTYPE: 1652 PROTOTYPE:
1607 ALIAS: 1653 ALIAS:
1608 mapdir = 0 1654 mapdir = 0
1609 uniquedir = 1 1655 uniquedir = 1
… …
1625 } 1671 }
1626 OUTPUT: RETVAL 1672 OUTPUT: RETVAL
1627 1673
1628void abort () 1674void abort ()
1629 1675
1676void reset_signals ()
1677
1678void fork_abort (octet_string cause = "cf::fork_abort")
1679
1630void cleanup (const char *cause, bool make_core = false) 1680void cleanup (octet_string cause, bool make_core = false)
1631 1681
1632void emergency_save () 1682void emergency_save ()
1633 1683
1634void _exit (int status = 0) 1684void _exit (int status = EXIT_SUCCESS)
1685
1686UV sv_2watcher (SV *w)
1687 CODE:
1688 RETVAL = (UV)GEventAPI->sv_2watcher (w);
1689 OUTPUT:
1690 RETVAL
1635 1691
1636#if _POSIX_MEMLOCK 1692#if _POSIX_MEMLOCK
1637 1693
1638int mlockall (int flags = MCL_CURRENT | MCL_FUTURE) 1694int mlockall (int flags = MCL_CURRENT | MCL_FUTURE)
1639 1695
1640int munlockall () 1696int munlockall ()
1641 1697
1642#endif 1698#endif
1643 1699
1644int find_animation (char *text) 1700int find_animation (utf8_string text)
1645 PROTOTYPE: $ 1701 PROTOTYPE: $
1646 1702
1647int random_roll (int min, int max, object *op, int goodbad); 1703int random_roll (int min, int max, object *op, int goodbad);
1648 1704
1649const char *cost_string_from_value(uint64 cost, int approx = 0) 1705const_utf8_string cost_string_from_value(uint64 cost, int approx = 0)
1650 1706
1651int 1707int
1652exp_to_level (val64 exp) 1708exp_to_level (val64 exp)
1653 CODE: 1709 CODE:
1654{ 1710{
… …
1685 RETVAL = newSVpv (resist_plus[atnr], 0); 1741 RETVAL = newSVpv (resist_plus[atnr], 0);
1686 else 1742 else
1687 XSRETURN_UNDEF; 1743 XSRETURN_UNDEF;
1688 OUTPUT: RETVAL 1744 OUTPUT: RETVAL
1689 1745
1746bool
1747load_resource_file (octet_string filename)
1748
1690MODULE = cf PACKAGE = cf::attachable 1749MODULE = cf PACKAGE = cf::attachable
1691 1750
1692int 1751int
1693valid (SV *obj) 1752valid (SV *obj)
1694 CODE: 1753 CODE:
1695 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext); 1754 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1696 OUTPUT: 1755 OUTPUT:
1697 RETVAL 1756 RETVAL
1698 1757
1758void
1759debug_trace (attachable *obj, bool on = true)
1760 CODE:
1761 obj->flags &= ~attachable::F_DEBUG_TRACE;
1762 if (on)
1763 obj->flags |= attachable::F_DEBUG_TRACE;
1764
1765int mortals_size ()
1766 CODE:
1767 RETVAL = attachable::mortals.size ();
1768 OUTPUT: RETVAL
1769
1770#object *mortals (U32 index)
1771# CODE:
1772# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0;
1773# OUTPUT: RETVAL
1774
1699INCLUDE: $PERL genacc attachable ../include/cfperl.h | 1775INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h |
1700 1776
1701MODULE = cf PACKAGE = cf::global 1777MODULE = cf PACKAGE = cf::global
1702 1778
1703int invoke (SV *klass, int event, ...) 1779int invoke (SV *klass, int event, ...)
1704 CODE: 1780 CODE:
… …
1708 RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END); 1784 RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END);
1709 OUTPUT: RETVAL 1785 OUTPUT: RETVAL
1710 1786
1711MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1787MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1712 1788
1713INCLUDE: $PERL genacc object ../include/object.h | 1789INCLUDE: $PERL $srcdir/genacc object ../include/object.h |
1714 1790
1715int invoke (object *op, int event, ...) 1791int invoke (object *op, int event, ...)
1716 CODE: 1792 CODE:
1717 if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT"); 1793 if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT");
1718 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 1794 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
1720 RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END); 1796 RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);
1721 OUTPUT: RETVAL 1797 OUTPUT: RETVAL
1722 1798
1723SV *registry (object *op) 1799SV *registry (object *op)
1724 1800
1725void mortals ()
1726 PPCODE:
1727 EXTEND (SP, object::mortals.size ());
1728 for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i)
1729 PUSHs (to_sv (*i));
1730
1731int objects_size () 1801int objects_size ()
1732 CODE: 1802 CODE:
1733 RETVAL = objects.size (); 1803 RETVAL = objects.size ();
1734 OUTPUT: RETVAL 1804 OUTPUT: RETVAL
1735 1805
… …
1746object *actives (U32 index) 1816object *actives (U32 index)
1747 CODE: 1817 CODE:
1748 RETVAL = index < actives.size () ? actives [index] : 0; 1818 RETVAL = index < actives.size () ? actives [index] : 0;
1749 OUTPUT: RETVAL 1819 OUTPUT: RETVAL
1750 1820
1821const char *slot_use_name (U32 slot)
1822 ALIAS:
1823 slot_nonuse_name = 1
1824 CODE:
1825{
1826 if (slot >= NUM_BODY_LOCATIONS)
1827 croak ("body slot index out of range");
1828
1829 switch (ix)
1830 {
1831 case 0: RETVAL = body_locations[slot].use_name; break;
1832 case 1: RETVAL = body_locations[slot].nonuse_name; break;
1833 }
1834}
1835 OUTPUT:
1836 RETVAL
1837
1751# missing properties 1838# missing properties
1752 1839
1753object *head (object *op) 1840object *head (object *op)
1754 PROTOTYPE: $ 1841 PROTOTYPE: $
1755 CODE: 1842 CODE:
1756 RETVAL = op->head_ (); 1843 RETVAL = op->head_ ();
1757 OUTPUT: RETVAL
1758
1759int is_head (object *op)
1760 PROTOTYPE: $
1761 CODE:
1762 RETVAL = op->head_ () == op;
1763 OUTPUT: RETVAL 1844 OUTPUT: RETVAL
1764 1845
1765void 1846void
1766inv (object *obj) 1847inv (object *obj)
1767 PROTOTYPE: $ 1848 PROTOTYPE: $
… …
1775void 1856void
1776set_animation (object *op, int idx) 1857set_animation (object *op, int idx)
1777 CODE: 1858 CODE:
1778 SET_ANIMATION (op, idx); 1859 SET_ANIMATION (op, idx);
1779 1860
1861int
1862num_animations (object *op)
1863 CODE:
1864 RETVAL = NUM_ANIMATIONS (op);
1865 OUTPUT: RETVAL
1866
1867int slot_info (object *op, UV slot, int value = 0)
1868 ALIAS:
1869 slot_used = 1
1870 CODE:
1871{
1872 if (slot >= NUM_BODY_LOCATIONS)
1873 croak ("body slot index out of range");
1874
1875 RETVAL = ix ? op->slot[slot].used : op->slot[slot].info;
1876
1877 if (items > 2)
1878 if (ix)
1879 op->slot[slot].used = value;
1880 else
1881 op->slot[slot].info = value;
1882}
1883 OUTPUT:
1884 RETVAL
1885
1780object *find_best_object_match (object *op, const char *match) 1886object *find_best_object_match (object *op, utf8_string match)
1781 1887
1782object *find_marked_object (object *op) 1888object *find_marked_object (object *op)
1783 1889
1784int need_identify (object *obj); 1890int need_identify (object *obj);
1785 1891
1786int apply_shop_mat (object *shop_mat, object *op); 1892int apply_shop_mat (object *shop_mat, object *op);
1893
1894int move_player (object *op, int dir)
1895 CODE:
1896 RETVAL = move_player (op, dir);
1897 OUTPUT:
1898 RETVAL
1787 1899
1788int move (object *op, int dir, object *originator = op) 1900int move (object *op, int dir, object *originator = op)
1789 CODE: 1901 CODE:
1790 RETVAL = move_ob (op, dir, originator); 1902 RETVAL = move_ob (op, dir, originator);
1791 OUTPUT: 1903 OUTPUT:
… …
1797 1909
1798void apply_below (object *op) 1910void apply_below (object *op)
1799 CODE: 1911 CODE:
1800 player_apply_below (op); 1912 player_apply_below (op);
1801 1913
1914int cast_heal (object *op, object *caster, object *spell, int dir = 0)
1915
1802object *cf_object_present_archname_inside (object *op, char *whatstr) 1916object *cf_object_present_archname_inside (object *op, utf8_string whatstr)
1803 1917
1804int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0) 1918int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)
1805 1919
1806int cf_object_change_map (object *op, int x, int y, maptile *map) 1920int cf_object_change_map (object *op, int x, int y, maptile *map)
1807 1921
… …
1827 RETVAL = pay_for_amount (amount, op); 1941 RETVAL = pay_for_amount (amount, op);
1828 OUTPUT: RETVAL 1942 OUTPUT: RETVAL
1829 1943
1830void pay_player (object *op, uint64 amount) 1944void pay_player (object *op, uint64 amount)
1831 1945
1832val64 pay_player_arch (object *op, const char *arch, uint64 amount) 1946val64 pay_player_arch (object *op, utf8_string arch, uint64 amount)
1833 1947
1834int cast_spell (object *op, object *caster, int dir, object *spell_ob, char *stringarg = 0) 1948int cast_spell (object *op, object *caster, int dir, object *spell_ob, utf8_string stringarg = 0)
1835 1949
1836void learn_spell (object *op, object *sp, int special_prayer = 0) 1950void learn_spell (object *op, object *sp, int special_prayer = 0)
1837 CODE: 1951 CODE:
1838 do_learn_spell (op, sp, special_prayer); 1952 do_learn_spell (op, sp, special_prayer);
1839 1953
1840void forget_spell (object *op, object *sp) 1954void forget_spell (object *op, object *sp)
1841 CODE: 1955 CODE:
1842 do_forget_spell (op, query_name (sp)); 1956 do_forget_spell (op, query_name (sp));
1843 1957
1844object *check_for_spell (object *op, char *spellname) 1958object *check_for_spell (object *op, utf8_string spellname)
1845 CODE: 1959 CODE:
1846 RETVAL = check_spell_known (op, spellname); 1960 RETVAL = check_spell_known (op, spellname);
1847 OUTPUT: RETVAL 1961 OUTPUT: RETVAL
1848 1962
1849int query_money (object *op) 1963int query_money (object *op)
… …
1858 1972
1859void drop (object *who, object *op) 1973void drop (object *who, object *op)
1860 1974
1861void pick_up (object *who, object *op) 1975void pick_up (object *who, object *op)
1862 1976
1863object *cf_object_insert_object (object *op, object *container)
1864
1865object *cf_object_insert_in_ob (object *ob, object *where)
1866
1867int cf_object_teleport (object *op, maptile *map, int x, int y) 1977int cf_object_teleport (object *op, maptile *map, int x, int y)
1868 1978
1869void update_object (object *op, int action) 1979void update_object (object *op, int action)
1870 1980
1871object *cf_create_object_by_name (const char *name) 1981object *cf_create_object_by_name (utf8_string name)
1872 1982
1873void change_exp (object *op, uint64 exp, const char *skill_name = 0, int flag = 0) 1983void change_exp (object *op, uint64 exp, utf8_string skill_name = 0, int flag = 0)
1874 1984
1875void player_lvl_adj (object *who, object *skill = 0) 1985void player_lvl_adj (object *who, object *skill = 0)
1876 1986
1877int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL) 1987int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1878 1988
… …
1892object *cf_insert_ob_in_ob (object *ob, object *where) 2002object *cf_insert_ob_in_ob (object *ob, object *where)
1893 2003
1894# no clean way to get an object from an archetype - stupid idiotic 2004# no clean way to get an object from an archetype - stupid idiotic
1895# dumb kludgy misdesigned plug-in api slowly gets on my nerves. 2005# dumb kludgy misdesigned plug-in api slowly gets on my nerves.
1896 2006
1897object *new (const char *archetype = 0) 2007object *new (utf8_string archetype = 0)
1898 PROTOTYPE: ;$ 2008 PROTOTYPE: ;$
1899 CODE: 2009 CODE:
1900 RETVAL = archetype ? get_archetype (archetype) : cf_create_object (); 2010 RETVAL = archetype ? get_archetype (archetype) : object::create ();
1901 OUTPUT: 2011 OUTPUT:
1902 RETVAL 2012 RETVAL
1903 2013
2014object *find_object (U32 tag)
2015
2016# TODO: nuke
1904object *insert_ob_in_map_at (object *ob, maptile *where, object_ornull *orig, int flag, int x, int y) 2017object *insert_ob_in_map_at (object *ob, maptile *where, object_ornull *orig, int flag, int x, int y)
1905 PROTOTYPE: $$$$$$ 2018 PROTOTYPE: $$$$$$
1906 CODE: 2019 CODE:
1907{ 2020{
1908 int unused_type; 2021 int unused_type;
1909 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y); 2022 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1910} 2023}
1911 2024
1912# syntatic sugar for easier use in event callbacks. 2025const_utf8_string get_ob_key_value (object *op, utf8_string key)
1913const char *options (object *op)
1914 CODE:
1915 RETVAL = op->name;
1916 OUTPUT:
1917 RETVAL
1918 2026
1919player *contr (object *op)
1920 CODE:
1921 RETVAL = op->contr;
1922 OUTPUT: RETVAL
1923
1924const char *get_ob_key_value (object *op, const char *key)
1925
1926bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1) 2027bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)
1927 2028
1928object *get_nearest_player (object *ob) 2029object *get_nearest_player (object *ob)
1929 ALIAS: nearest_player = 0 2030 ALIAS: nearest_player = 0
1930 PREINIT: 2031 PREINIT:
1931 extern object *get_nearest_player (object *); 2032 extern object *get_nearest_player (object *);
… …
1947bool on_same_map_as (object *ob, object *other) 2048bool on_same_map_as (object *ob, object *other)
1948 CODE: 2049 CODE:
1949 RETVAL = on_same_map (ob, other); 2050 RETVAL = on_same_map (ob, other);
1950 OUTPUT: RETVAL 2051 OUTPUT: RETVAL
1951 2052
1952const char * 2053const_utf8_string
1953base_name (object *op, int plural = op->nrof > 1) 2054base_name (object *op, int plural = op->nrof > 1)
1954 CODE: 2055 CODE:
1955 RETVAL = query_base_name (op, plural); 2056 RETVAL = query_base_name (op, plural);
1956 OUTPUT: RETVAL 2057 OUTPUT: RETVAL
1957 2058
… …
1964 RETVAL = op->contr; 2065 RETVAL = op->contr;
1965 OUTPUT: RETVAL 2066 OUTPUT: RETVAL
1966 2067
1967void check_score (object *op) 2068void check_score (object *op)
1968 2069
1969void message (object *op, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 2070void message (object *op, utf8_string txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1970 CODE: 2071 CODE:
1971 new_draw_info (flags, 0, op, txt); 2072 new_draw_info (flags, 0, op, txt);
1972
1973object *cf_player_send_inventory (object *op)
1974
1975char *cf_player_get_ip (object *op)
1976 ALIAS: ip = 0
1977
1978object *cf_player_get_marked_item (object *op)
1979 ALIAS: marked_item = 0
1980
1981void cf_player_set_marked_item (object *op, object *ob)
1982
1983partylist *cf_player_get_party (object *op)
1984 ALIAS: party = 0
1985
1986void cf_player_set_party (object *op, partylist *party)
1987 2073
1988void kill_player (object *op) 2074void kill_player (object *op)
1989 2075
1990void esrv_update_item (object *op, int what, object *item) 2076void esrv_update_item (object *op, int what, object *item)
1991 C_ARGS: what, op, item 2077 C_ARGS: what, op, item
1992 2078
1993void clear_los (object *op)
1994
1995int command_teleport (object *op, char *params)
1996
1997int command_summon (object *op, char *params) 2079int command_summon (object *op, utf8_string params)
1998 2080
1999int command_arrest (object *op, char *params) 2081int command_arrest (object *op, utf8_string params)
2000
2001int command_kick (object *op, char *params)
2002
2003int command_banish (object *op, char *params)
2004 2082
2005 2083
2006MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 2084MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2007 2085
2008INCLUDE: $PERL genacc player ../include/player.h | 2086INCLUDE: $PERL $srcdir/genacc player ../include/player.h |
2009 2087
2010int invoke (player *pl, int event, ...) 2088int invoke (player *pl, int event, ...)
2011 CODE: 2089 CODE:
2012 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER"); 2090 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER");
2013 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2091 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2023 pl->ob->stats.hp = pl->ob->stats.maxhp; 2101 pl->ob->stats.hp = pl->ob->stats.maxhp;
2024 pl->ob->stats.sp = pl->ob->stats.maxsp; 2102 pl->ob->stats.sp = pl->ob->stats.maxsp;
2025 pl->ob->stats.grace = pl->ob->stats.maxgrace; 2103 pl->ob->stats.grace = pl->ob->stats.maxgrace;
2026 pl->orig_stats = pl->ob->stats; 2104 pl->orig_stats = pl->ob->stats;
2027 2105
2106void clear_los (player *pl)
2107
2028void cf_player_move (player *pl, int dir) 2108void cf_player_move (player *pl, int dir)
2029 2109
2030void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0); 2110void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
2031
2032player *first ()
2033 CODE:
2034 RETVAL = first_player;
2035 OUTPUT: RETVAL
2036 2111
2037bool 2112bool
2038cell_visible (player *pl, int dx, int dy) 2113cell_visible (player *pl, int dx, int dy)
2039 CODE: 2114 CODE:
2040 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2 2115 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2
… …
2093 RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END); 2168 RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);
2094 OUTPUT: RETVAL 2169 OUTPUT: RETVAL
2095 2170
2096SV *registry (maptile *map) 2171SV *registry (maptile *map)
2097 2172
2098INCLUDE: $PERL genacc maptile ../include/map.h | 2173INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h |
2099 2174
2100void 2175void
2101maptile::instantiate () 2176maptile::instantiate ()
2102 2177
2103maptile *new () 2178maptile *new ()
… …
2118 for_all_players (pl) 2193 for_all_players (pl)
2119 if (pl->ob && pl->ob->map == THIS) 2194 if (pl->ob && pl->ob->map == THIS)
2120 PUSHs (sv_2mortal (to_sv (pl->ob))); 2195 PUSHs (sv_2mortal (to_sv (pl->ob)));
2121 } 2196 }
2122 2197
2198void
2199maptile::add_underlay (SV *data, int offset, int stride, SV *palette)
2200 CODE:
2201{
2202 if (!SvROK (palette) || SvTYPE (SvRV (palette)) != SVt_PVAV)
2203 croak ("maptile::add_underlay: palette must be arrayref");
2204
2205 palette = SvRV (palette);
2206
2207 STRLEN idxlen;
2208 const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen);
2209
2210 for (int x = 0; x < THIS->width; ++x)
2211 for (int y = 0; y < THIS->height; ++y)
2212 {
2213 for (object *op = THIS->at (x, y).bot; op; op = op->above)
2214 if (op->flag [FLAG_IS_FLOOR])
2215 goto skip_space;
2216
2217 {
2218 int offs = offset + y * stride + x;
2219 if (IN_RANGE_EXC (offs, 0, idxlen))
2220 {
2221 if (SV **elem = av_fetch ((AV *)palette, idx [offs], 0))
2222 {
2223 object *ob = get_archetype (SvPVutf8_nolen (*elem));
2224 ob->flag [FLAG_NO_MAP_SAVE] = true;
2225 THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY);
2226
2227 if (ob->randomitems)
2228 {
2229 if (!ob->above)
2230 {
2231 ob->create_treasure (ob->randomitems);
2232
2233 for (object *op = ob->above; op; op = op->above)
2234 op->flag [FLAG_NO_MAP_SAVE] = true;
2235 }
2236
2237 ob->randomitems = 0;
2238 }
2239 }
2240 }
2241 }
2242
2243 skip_space: ;
2244 }
2245}
2246
2247void
2248maptile::set_regiondata (SV *data, int offset, int stride, SV *palette)
2249 CODE:
2250{
2251 if (!SvROK (palette) || SvTYPE (SvRV (palette)) != SVt_PVAV)
2252 croak ("maptile::set_regiondata: palette must be arrayref");
2253
2254 palette = SvRV (palette);
2255
2256 STRLEN idxlen;
2257 const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen);
2258
2259 region **regionmap = (region **)malloc (
2260 (av_len ((AV *)palette) + 1) * sizeof (region *));
2261 uint8_t *regions = salloc<uint8_t> (THIS->size ());
2262
2263 for (int i = av_len ((AV *)palette) + 1; i--; )
2264 regionmap [i] = region::find (
2265 SvPVutf8_nolen (*av_fetch ((AV *)palette, i, 1)));
2266
2267 for (int y = 0; y < THIS->height; ++y)
2268 memcpy (regions + y * THIS->width, idx + offset + y * stride, THIS->width);
2269
2270 sfree (THIS->regions, THIS->size ());
2271 free (THIS->regionmap);
2272
2273 THIS->regions = regions;
2274 THIS->regionmap = regionmap;
2275}
2276
2277void
2278maptile::create_region_treasure ()
2279 CODE:
2280{
2281 object *op = object::create ();
2282 op->type = FLOOR;
2283 op->map = THIS;
2284
2285 for (int x = 0; x < THIS->width; ++x)
2286 for (int y = 0; y < THIS->height; ++y)
2287 {
2288 region *rgn = THIS->region (x, y);
2289
2290 //fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D
2291 if (rgn->treasure && rndm () < rgn->treasure_density)
2292 {
2293 op->x = x;
2294 op->y = y;
2295 create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2296 }
2297 }
2298
2299 op->destroy ();
2300}
2301
2123void play_sound_map (maptile *map, int x, int y, int sound_num) 2302void play_sound_map (maptile *map, int x, int y, int sound_num)
2124 2303
2125int out_of_map (maptile *map, int x, int y) 2304int out_of_map (maptile *map, int x, int y)
2126 2305
2127void 2306void
… …
2143 2322
2144object* cf_map_present_arch_by_name (maptile *map, const char* str, int nx, int ny) 2323object* cf_map_present_arch_by_name (maptile *map, const char* str, int nx, int ny)
2145 C_ARGS: str, map, nx, ny 2324 C_ARGS: str, map, nx, ny
2146 2325
2147void 2326void
2148cf_map_normalise (maptile *map, int x, int y) 2327get_map_flags (maptile *map, int x, int y)
2149 PPCODE: 2328 PPCODE:
2150{ 2329{
2151 maptile *nmap = 0; 2330 maptile *nmap = 0;
2152 I16 nx = 0, ny = 0; 2331 I16 nx = 0, ny = 0;
2153 int flags = get_map_flags (map, &nmap, x, y, &nx, &ny); 2332 int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
… …
2208 2387
2209void fix_walls (maptile *map, int x, int y) 2388void fix_walls (maptile *map, int x, int y)
2210 2389
2211void fix_walls_around (maptile *map, int x, int y) 2390void fix_walls_around (maptile *map, int x, int y)
2212 2391
2213const char *
2214region_name (maptile *m)
2215 CODE:
2216 RETVAL = get_name_of_region_for_map (m);
2217 OUTPUT: RETVAL
2218
2219# worst xs function of my life 2392# worst xs function of my life
2220maptile * 2393bool
2221_create_random_map (\ 2394_create_random_map (\
2222 char *path,\ 2395 maptile *self,\
2223 char *wallstyle,\ 2396 utf8_string wallstyle,\
2224 char *wall_name,\ 2397 utf8_string wall_name,\
2225 char *floorstyle,\ 2398 utf8_string floorstyle,\
2226 char *monsterstyle,\ 2399 utf8_string monsterstyle,\
2227 char *treasurestyle,\ 2400 utf8_string treasurestyle,\
2228 char *layoutstyle,\ 2401 utf8_string layoutstyle,\
2229 char *doorstyle,\ 2402 utf8_string doorstyle,\
2230 char *decorstyle,\ 2403 utf8_string decorstyle,\
2231 char *origin_map,\ 2404 utf8_string origin_map,\
2232 char *final_map,\ 2405 utf8_string final_map,\
2233 char *exitstyle,\ 2406 utf8_string exitstyle,\
2234 char *this_map,\ 2407 utf8_string this_map,\
2235 char *exit_on_final_map,\ 2408 utf8_string exit_on_final_map,\
2236 int Xsize,\ 2409 int xsize,\
2237 int Ysize,\ 2410 int ysize,\
2238 int expand2x,\ 2411 int expand2x,\
2239 int layoutoptions1,\ 2412 int layoutoptions1,\
2240 int layoutoptions2,\ 2413 int layoutoptions2,\
2241 int layoutoptions3,\ 2414 int layoutoptions3,\
2242 int symmetry,\ 2415 int symmetry,\
… …
2247 int dungeon_depth,\ 2420 int dungeon_depth,\
2248 int decoroptions,\ 2421 int decoroptions,\
2249 int orientation,\ 2422 int orientation,\
2250 int origin_y,\ 2423 int origin_y,\
2251 int origin_x,\ 2424 int origin_x,\
2252 int random_seed,\ 2425 U32 random_seed,\
2253 val64 total_map_hp,\ 2426 val64 total_map_hp,\
2254 int map_layout_style,\ 2427 int map_layout_style,\
2255 int treasureoptions,\ 2428 int treasureoptions,\
2256 int symmetry_used,\ 2429 int symmetry_used,\
2257 region *region,\ 2430 region *region,\
2258 char *custom\ 2431 utf8_string custom\
2259) 2432)
2260 CODE: 2433 CODE:
2261{ 2434{
2262 random_map_params rmp; 2435 random_map_params rmp;
2263 2436
… …
2273 assign (rmp.exit_on_final_map, exit_on_final_map); 2446 assign (rmp.exit_on_final_map, exit_on_final_map);
2274 2447
2275 rmp.origin_map = origin_map; 2448 rmp.origin_map = origin_map;
2276 rmp.final_map = final_map; 2449 rmp.final_map = final_map;
2277 rmp.this_map = this_map; 2450 rmp.this_map = this_map;
2278 rmp.Xsize = Xsize; 2451 rmp.xsize = xsize;
2279 rmp.Ysize = Ysize; 2452 rmp.ysize = ysize;
2280 rmp.expand2x = expand2x; 2453 rmp.expand2x = expand2x;
2281 rmp.layoutoptions1 = layoutoptions1; 2454 rmp.layoutoptions1 = layoutoptions1;
2282 rmp.layoutoptions2 = layoutoptions2; 2455 rmp.layoutoptions2 = layoutoptions2;
2283 rmp.layoutoptions3 = layoutoptions3; 2456 rmp.layoutoptions3 = layoutoptions3;
2284 rmp.symmetry = symmetry; 2457 rmp.symmetry = symmetry;
… …
2290 rmp.decoroptions = decoroptions; 2463 rmp.decoroptions = decoroptions;
2291 rmp.orientation = orientation; 2464 rmp.orientation = orientation;
2292 rmp.origin_y = origin_y; 2465 rmp.origin_y = origin_y;
2293 rmp.origin_x = origin_x; 2466 rmp.origin_x = origin_x;
2294 rmp.random_seed = random_seed; 2467 rmp.random_seed = random_seed;
2295 rmp.total_map_hp = total_map_hp; 2468 rmp.total_map_hp = (uint64_t) total_map_hp;
2296 rmp.map_layout_style = map_layout_style; 2469 rmp.map_layout_style = map_layout_style;
2297 rmp.treasureoptions = treasureoptions; 2470 rmp.treasureoptions = treasureoptions;
2298 rmp.symmetry_used = symmetry_used; 2471 rmp.symmetry_used = symmetry_used;
2299 rmp.region = region; 2472 rmp.region = region;
2300 rmp.custom = custom; 2473 rmp.custom = custom;
2301 2474
2302 RETVAL = generate_random_map (path, &rmp); 2475 RETVAL = self->generate_random_map (&rmp);
2303} 2476}
2304 OUTPUT: 2477 OUTPUT:
2305 RETVAL 2478 RETVAL
2306 2479
2307MODULE = cf PACKAGE = cf::arch 2480MODULE = cf PACKAGE = cf::arch
2308 2481
2309archetype *find (const char *name) 2482archetype *find (utf8_string name)
2310 CODE: 2483 CODE:
2311 RETVAL = archetype::find (name); 2484 RETVAL = archetype::find (name);
2312 OUTPUT: 2485 OUTPUT:
2313 RETVAL 2486 RETVAL
2314 2487
2315archetype *first() 2488int archetypes_size ()
2316 PROTOTYPE: 2489 CODE:
2317 CODE:
2318 RETVAL = first_archetype; 2490 RETVAL = archetypes.size ();
2491 OUTPUT: RETVAL
2492
2493archetype *archetypes (U32 index)
2494 CODE:
2495 RETVAL = index < archetypes.size () ? archetypes [index] : 0;
2496 OUTPUT: RETVAL
2497
2498object *instantiate (archetype *arch)
2499 CODE:
2500 RETVAL = arch_to_object (arch);
2501 OUTPUT:
2319 OUTPUT: RETVAL 2502 RETVAL
2320 2503
2321INCLUDE: $PERL genacc archetype ../include/object.h | 2504INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h |
2322 2505
2323MODULE = cf PACKAGE = cf::party 2506MODULE = cf PACKAGE = cf::party
2324 2507
2325partylist *first () 2508partylist *first ()
2326 PROTOTYPE: 2509 PROTOTYPE:
2327 CODE: 2510 CODE:
2328 RETVAL = get_firstparty (); 2511 RETVAL = get_firstparty ();
2329 OUTPUT: RETVAL 2512 OUTPUT: RETVAL
2330 2513
2331INCLUDE: $PERL genacc partylist ../include/player.h | 2514INCLUDE: $PERL $srcdir/genacc partylist ../include/player.h |
2332 2515
2333MODULE = cf PACKAGE = cf::region 2516MODULE = cf PACKAGE = cf::region
2334 2517
2335region *first () 2518void
2336 PROTOTYPE: 2519list ()
2337 CODE: 2520 PPCODE:
2338 RETVAL = first_region; 2521 for_all_regions (rgn)
2339 OUTPUT: RETVAL 2522 XPUSHs (sv_2mortal (to_sv (rgn)));
2340 2523
2341region *find (char *name) 2524region *find (utf8_string name)
2342 PROTOTYPE: $ 2525 PROTOTYPE: $
2343 CODE: 2526 CODE:
2344 RETVAL = get_region_by_name (name); 2527 RETVAL = region::find (name);
2345 OUTPUT: RETVAL 2528 OUTPUT: RETVAL
2346 2529
2530region *find_fuzzy (utf8_string name)
2531 PROTOTYPE: $
2532 CODE:
2533 RETVAL = region::find_fuzzy (name);
2534 OUTPUT: RETVAL
2535
2536int specificity (region *rgn)
2537 CODE:
2538 RETVAL = 0;
2539 while (rgn = rgn->parent)
2540 RETVAL++;
2541 OUTPUT: RETVAL
2542
2347INCLUDE: $PERL genacc region ../include/map.h | 2543INCLUDE: $PERL $srcdir/genacc region ../include/region.h |
2348 2544
2349MODULE = cf PACKAGE = cf::living 2545MODULE = cf PACKAGE = cf::living
2350 2546
2351INCLUDE: $PERL genacc living ../include/living.h | 2547INCLUDE: $PERL $srcdir/genacc living ../include/living.h |
2352 2548
2353MODULE = cf PACKAGE = cf::settings 2549MODULE = cf PACKAGE = cf::settings
2354 2550
2355INCLUDE: $PERL genacc Settings ../include/global.h | 2551INCLUDE: $PERL $srcdir/genacc Settings ../include/global.h |
2356 2552
2357MODULE = cf PACKAGE = cf::client 2553MODULE = cf PACKAGE = cf::client
2358 2554
2359INCLUDE: $PERL genacc client ../include/client.h | 2555INCLUDE: $PERL $srcdir/genacc client ../include/client.h |
2360 2556
2361int invoke (client *ns, int event, ...) 2557int invoke (client *ns, int event, ...)
2362 CODE: 2558 CODE:
2363 if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT"); 2559 if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT");
2364 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2560 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2383 char *buf = SvPVbyte (packet, len); 2579 char *buf = SvPVbyte (packet, len);
2384 2580
2385 THIS->send_packet (buf, len); 2581 THIS->send_packet (buf, len);
2386} 2582}
2387 2583
2584MODULE = cf PACKAGE = cf::face PREFIX = face_
2585
2586#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |
2587
2588faceidx face_find (utf8_string name, faceidx defidx = 0)
2589
2590faceidx alloc (utf8_string name)
2591 CODE:
2592{
2593 do
2594 {
2595 RETVAL = faces.size ();
2596 faces.resize (RETVAL + 1);
2597 }
2598 while (!RETVAL); // crude way to leave index 0
2599
2600 faces [RETVAL].name = name;
2601 facehash.insert (std::make_pair (faces [RETVAL].name, RETVAL));
2602
2603 if (!strcmp (name, BLANK_FACE_NAME)) blank_face = RETVAL;
2604 if (!strcmp (name, EMPTY_FACE_NAME)) empty_face = RETVAL;
2605}
2606 OUTPUT: RETVAL
2607
2608void set_type (faceidx idx, int value)
2609 ALIAS:
2610 set_type = 0
2611 set_visibility = 1
2612 set_magicmap = 2
2613 set_smooth = 3
2614 set_smoothlevel = 4
2615 CODE:
2616 faceinfo *f = face_info (idx);
2617 assert (f);
2618 switch (ix)
2619 {
2620 case 0: f->type = value; break;
2621 case 1: f->visibility = value; break;
2622 case 2: f->magicmap = value; break;
2623 case 3: f->smooth = value; break;
2624 case 4: f->smoothlevel = value; break;
2625 }
2626
2627void set_data (faceidx idx, int faceset, SV *data, SV *chksum)
2628 CODE:
2629{
2630 facedata *d = face_data (idx, faceset);
2631 assert (d);
2632 sv_to (data, d->data);
2633 STRLEN clen;
2634 char *cdata = SvPVbyte (chksum, clen);
2635 clen = min (CHKSUM_SIZE, clen);
2636
2637 if (memcmp (d->chksum, cdata, clen))
2638 {
2639 memcpy (d->chksum, cdata, clen);
2640
2641 // invalidate existing client face info
2642 for_all_clients (ns)
2643 if (ns->faceset == faceset)
2644 {
2645 ns->faces_sent [idx] = false;
2646 ns->force_newmap = true;
2647 }
2648 }
2649}
2650
2651void invalidate (faceidx idx)
2652 CODE:
2653 for_all_clients (ns)
2654 {
2655 ns->faces_sent [idx] = false;
2656 ns->force_newmap = true;
2657 }
2658
2659void invalidate_all ()
2660 CODE:
2661 for_all_clients (ns)
2662 {
2663 ns->faces_sent.reset ();
2664 ns->force_newmap = true;
2665 }
2666
2667MODULE = cf PACKAGE = cf::anim PREFIX = anim_
2668
2669#INCLUDE: $PERL $srcdir/genacc faceset ../include/anim.h |
2670
2671animidx anim_find (utf8_string name)
2672 CODE:
2673 RETVAL = animation::find (name).number;
2674 OUTPUT: RETVAL
2675
2676animidx set (utf8_string name, SV *frames, int facings = 1)
2677 CODE:
2678{
2679 if (!SvROK (frames) && SvTYPE (SvRV (frames)) != SVt_PVAV)
2680 croak ("frames must be an arrayref");
2681
2682 AV *av = (AV *)SvRV (frames);
2683
2684 animation *anim = &animation::find (name);
2685 if (anim->number)
2686 {
2687 anim->resize (av_len (av) + 1);
2688 anim->facings = facings;
2689 }
2690 else
2691 anim = &animation::create (name, av_len (av) + 1, facings);
2692
2693 for (int i = 0; i < anim->num_animations; ++i)
2694 anim->faces [i] = face_find (SvPVutf8_nolen (*av_fetch (av, i, 1)));
2695}
2696 OUTPUT: RETVAL
2697
2698void invalidate_all ()
2699 CODE:
2700 for_all_clients (ns)
2701 ns->anims_sent.reset ();
2702

Diff Legend

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