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.137 by root, Thu Jan 11 00:41:08 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 1354
1271 const_iv (NDI_BLACK) 1355 const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1272 const_iv (NDI_WHITE) 1356 const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1273 const_iv (NDI_NAVY) 1357 const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1274 const_iv (NDI_RED) 1358 const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1275 const_iv (NDI_ORANGE)
1276 const_iv (NDI_BLUE)
1277 const_iv (NDI_DK_ORANGE)
1278 const_iv (NDI_GREEN)
1279 const_iv (NDI_LT_GREEN)
1280 const_iv (NDI_GREY)
1281 const_iv (NDI_BROWN)
1282 const_iv (NDI_GOLD)
1283 const_iv (NDI_TAN)
1284 const_iv (NDI_MAX_COLOR)
1285 const_iv (NDI_COLOR_MASK)
1286 const_iv (NDI_UNIQUE)
1287 const_iv (NDI_ALL) 1359 const_iv (NDI_ALL)
1288 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)
1289 const_iv (UPD_LOCATION) 1371 const_iv (SP_EXPLOSION)
1290 const_iv (UPD_FLAGS)
1291 const_iv (UPD_WEIGHT)
1292 const_iv (UPD_FACE) 1372 const_iv (SP_CONE)
1373 const_iv (SP_BOMB)
1374 const_iv (SP_WONDER)
1293 const_iv (UPD_NAME) 1375 const_iv (SP_SMITE)
1294 const_iv (UPD_ANIM) 1376 const_iv (SP_MAGIC_MISSILE)
1295 const_iv (UPD_ANIMSPEED) 1377 const_iv (SP_SUMMON_GOLEM)
1296 const_iv (UPD_NROF) 1378 const_iv (SP_DIMENSION_DOOR)
1297 1379 const_iv (SP_MAGIC_MAPPING)
1298 const_iv (UPD_SP_MANA)
1299 const_iv (UPD_SP_GRACE)
1300 const_iv (UPD_SP_DAMAGE)
1301
1302 const_iv (F_APPLIED)
1303 const_iv (F_LOCATION)
1304 const_iv (F_UNPAID)
1305 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)
1306 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)
1307 const_iv (F_DAMNED) 1401 const_iv (SP_SWARM)
1402 const_iv (SP_CHANGE_MANA)
1308 const_iv (F_OPEN) 1403 const_iv (SP_DISPEL_RUNE)
1309 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)
1310 const_iv (F_LOCKED) 1417 const_iv (F_LOCKED)
1311 1418
1312 const_iv (F_BUY) 1419 const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1313 const_iv (F_SHOP)
1314 const_iv (F_SELL)
1315 1420
1316 const_iv (P_BLOCKSVIEW) 1421 const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)
1317 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)
1318 const_iv (P_NO_MAGIC)
1319 const_iv (P_IS_ALIVE)
1320 const_iv (P_NO_CLERIC)
1321 const_iv (P_OUT_OF_MAP)
1322 const_iv (P_NEW_MAP)
1323 const_iv (P_UPTODATE)
1324 1423
1325 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)
1326 const_iv (UP_OBJ_REMOVE)
1327 const_iv (UP_OBJ_CHANGE)
1328 const_iv (UP_OBJ_FACE)
1329 1425
1330 const_iv (INS_NO_MERGE) 1426 const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
1331 const_iv (INS_ABOVE_FLOOR_ONLY) 1427 const_iv (INS_ON_TOP) const_iv (INS_BELOW_ORIGINATOR) const_iv (INS_MAP_LOAD)
1332 const_iv (INS_NO_WALK_ON)
1333 const_iv (INS_ON_TOP)
1334 const_iv (INS_BELOW_ORIGINATOR)
1335 const_iv (INS_MAP_LOAD)
1336 1428
1337 const_iv (WILL_APPLY_HANDLE) 1429 const_iv (WILL_APPLY_HANDLE) const_iv (WILL_APPLY_TREASURE) const_iv (WILL_APPLY_EARTHWALL)
1338 const_iv (WILL_APPLY_TREASURE) 1430 const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)
1339 const_iv (WILL_APPLY_EARTHWALL)
1340 const_iv (WILL_APPLY_DOOR)
1341 const_iv (WILL_APPLY_FOOD)
1342 1431
1343 const_iv (SAVE_MODE) 1432 const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)
1344 const_iv (SAVE_DIR_MODE)
1345 1433
1346 const_iv (M_PAPER) 1434 const_iv (M_PAPER) const_iv (M_IRON) const_iv (M_GLASS) const_iv (M_LEATHER)
1347 const_iv (M_IRON) 1435 const_iv (M_WOOD) const_iv (M_ORGANIC) const_iv (M_STONE) const_iv (M_CLOTH)
1348 const_iv (M_GLASS) 1436 const_iv (M_ADAMANT) const_iv (M_LIQUID) const_iv (M_SOFT_METAL) const_iv (M_BONE)
1349 const_iv (M_LEATHER) 1437 const_iv (M_ICE) const_iv (M_SPECIAL)
1350 const_iv (M_WOOD)
1351 const_iv (M_ORGANIC)
1352 const_iv (M_STONE)
1353 const_iv (M_CLOTH)
1354 const_iv (M_ADAMANT)
1355 const_iv (M_LIQUID)
1356 const_iv (M_SOFT_METAL)
1357 const_iv (M_BONE)
1358 const_iv (M_ICE)
1359 const_iv (M_SPECIAL)
1360 1438
1361 const_iv (SK_EXP_ADD_SKILL) 1439 const_iv (SK_EXP_ADD_SKILL) const_iv (SK_EXP_TOTAL) const_iv (SK_EXP_NONE)
1362 const_iv (SK_EXP_TOTAL) 1440 const_iv (SK_SUBTRACT_SKILL_EXP) const_iv (SK_EXP_SKILL_ONLY)
1363 const_iv (SK_EXP_NONE)
1364 const_iv (SK_SUBTRACT_SKILL_EXP)
1365 const_iv (SK_EXP_SKILL_ONLY)
1366 1441
1367 const_iv (SK_LOCKPICKING) 1442 const_iv (SK_LOCKPICKING) const_iv (SK_HIDING) const_iv (SK_SMITHERY) const_iv (SK_BOWYER)
1368 const_iv (SK_HIDING) 1443 const_iv (SK_JEWELER) const_iv (SK_ALCHEMY) const_iv (SK_STEALING) const_iv (SK_LITERACY)
1369 const_iv (SK_SMITHERY) 1444 const_iv (SK_BARGAINING) const_iv (SK_JUMPING) const_iv (SK_DET_MAGIC) const_iv (SK_ORATORY)
1370 const_iv (SK_BOWYER) 1445 const_iv (SK_SINGING) const_iv (SK_DET_CURSE) const_iv (SK_FIND_TRAPS) const_iv (SK_MEDITATION)
1371 const_iv (SK_JEWELER) 1446 const_iv (SK_PUNCHING) const_iv (SK_FLAME_TOUCH) const_iv (SK_KARATE) const_iv (SK_CLIMBING)
1372 const_iv (SK_ALCHEMY) 1447 const_iv (SK_WOODSMAN) const_iv (SK_INSCRIPTION) const_iv (SK_ONE_HANDED_WEAPON) const_iv (SK_MISSILE_WEAPON)
1373 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)
1374 const_iv (SK_LITERACY) 1449 const_iv (SK_THAUMATURGY) const_iv (SK_PRAYING) const_iv (SK_CLAWING) const_iv (SK_LEVITATION)
1375 const_iv (SK_BARGAINING) 1450 const_iv (SK_SUMMONING) const_iv (SK_PYROMANCY) const_iv (SK_EVOCATION) const_iv (SK_SORCERY)
1376 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)
1377 const_iv (SK_DET_MAGIC)
1378 const_iv (SK_ORATORY)
1379 const_iv (SK_SINGING)
1380 const_iv (SK_DET_CURSE)
1381 const_iv (SK_FIND_TRAPS)
1382 const_iv (SK_MEDITATION)
1383 const_iv (SK_PUNCHING)
1384 const_iv (SK_FLAME_TOUCH)
1385 const_iv (SK_KARATE)
1386 const_iv (SK_CLIMBING)
1387 const_iv (SK_WOODSMAN)
1388 const_iv (SK_INSCRIPTION)
1389 const_iv (SK_ONE_HANDED_WEAPON)
1390 const_iv (SK_MISSILE_WEAPON)
1391 const_iv (SK_THROWING)
1392 const_iv (SK_USE_MAGIC_ITEM)
1393 const_iv (SK_DISARM_TRAPS)
1394 const_iv (SK_SET_TRAP)
1395 const_iv (SK_THAUMATURGY)
1396 const_iv (SK_PRAYING)
1397 const_iv (SK_CLAWING)
1398 const_iv (SK_LEVITATION)
1399 const_iv (SK_SUMMONING)
1400 const_iv (SK_PYROMANCY)
1401 const_iv (SK_EVOCATION)
1402 const_iv (SK_SORCERY)
1403 const_iv (SK_TWO_HANDED_WEAPON)
1404 const_iv (SK_SPARK_TOUCH)
1405 const_iv (SK_SHIVER)
1406 const_iv (SK_ACID_SPLASH)
1407 const_iv (SK_POISON_NAIL) 1452 const_iv (SK_POISON_NAIL)
1408 1453
1409 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)
1410 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)
1411 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)
1412 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)
1413 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)
1414 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)
1415 const_iv (SOUND_PUSH_PLAYER)
1416 const_iv (SOUND_PLAYER_HITS1)
1417 const_iv (SOUND_PLAYER_HITS2)
1418 const_iv (SOUND_PLAYER_HITS3)
1419 const_iv (SOUND_PLAYER_HITS4)
1420 const_iv (SOUND_PLAYER_IS_HIT1)
1421 const_iv (SOUND_PLAYER_IS_HIT2)
1422 const_iv (SOUND_PLAYER_IS_HIT3)
1423 const_iv (SOUND_PLAYER_KILLS)
1424 const_iv (SOUND_PET_IS_KILLED)
1425 const_iv (SOUND_PLAYER_DIES)
1426 const_iv (SOUND_OB_EVAPORATE)
1427 const_iv (SOUND_OB_EXPLODE)
1428 const_iv (SOUND_CLOCK)
1429 const_iv (SOUND_TURN_HANDLE)
1430 const_iv (SOUND_FALL_HOLE)
1431 const_iv (SOUND_DRINK_POISON)
1432 const_iv (SOUND_CAST_SPELL_0)
1433 1460
1434 const_iv (PREFER_LOW) 1461 const_iv (PREFER_LOW) const_iv (PREFER_HIGH)
1435 const_iv (PREFER_HIGH)
1436 1462
1437 const_iv (ATNR_PHYSICAL) 1463 const_iv (ATNR_PHYSICAL) const_iv (ATNR_MAGIC) const_iv (ATNR_FIRE) const_iv (ATNR_ELECTRICITY)
1438 const_iv (ATNR_MAGIC) 1464 const_iv (ATNR_COLD) const_iv (ATNR_CONFUSION) const_iv (ATNR_ACID) const_iv (ATNR_DRAIN)
1439 const_iv (ATNR_FIRE) 1465 const_iv (ATNR_WEAPONMAGIC) const_iv (ATNR_GHOSTHIT) const_iv (ATNR_POISON) const_iv (ATNR_SLOW)
1440 const_iv (ATNR_ELECTRICITY) 1466 const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1441 const_iv (ATNR_COLD) 1467 const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1442 const_iv (ATNR_CONFUSION) 1468 const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1443 const_iv (ATNR_ACID) 1469 const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1444 const_iv (ATNR_DRAIN)
1445 const_iv (ATNR_WEAPONMAGIC)
1446 const_iv (ATNR_GHOSTHIT)
1447 const_iv (ATNR_POISON)
1448 const_iv (ATNR_SLOW)
1449 const_iv (ATNR_PARALYZE)
1450 const_iv (ATNR_TURN_UNDEAD)
1451 const_iv (ATNR_FEAR)
1452 const_iv (ATNR_CANCELLATION)
1453 const_iv (ATNR_DEPLETE)
1454 const_iv (ATNR_DEATH)
1455 const_iv (ATNR_CHAOS)
1456 const_iv (ATNR_COUNTERSPELL)
1457 const_iv (ATNR_GODPOWER)
1458 const_iv (ATNR_HOLYWORD)
1459 const_iv (ATNR_BLIND)
1460 const_iv (ATNR_INTERNAL)
1461 const_iv (ATNR_LIFE_STEALING)
1462 const_iv (ATNR_DISEASE)
1463 1470
1464 const_iv (MAP_FLUSH) 1471 const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
1465 const_iv (MAP_PLAYER_UNIQUE)
1466 const_iv (MAP_BLOCK)
1467 const_iv (MAP_STYLE)
1468 const_iv (MAP_OVERLAY)
1469 1472
1470 const_iv (MAP_IN_MEMORY) 1473 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1471 const_iv (MAP_SWAPPED) 1474 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1472 const_iv (MAP_LOADING)
1473 const_iv (MAP_SAVING)
1474 1475
1475 const_iv (KLASS_ATTACHABLE) 1476 const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT)
1476 const_iv (KLASS_GLOBAL)
1477 const_iv (KLASS_OBJECT)
1478 const_iv (KLASS_CLIENT)
1479 const_iv (KLASS_PLAYER)
1480 const_iv (KLASS_MAP)
1481 1477
1482 const_iv (CS_QUERY_YESNO) 1478 const_iv (ST_DEAD) const_iv (ST_SETUP) const_iv (ST_PLAYING) const_iv (ST_CUSTOM)
1483 const_iv (CS_QUERY_SINGLECHAR)
1484 const_iv (CS_QUERY_HIDEINPUT)
1485 1479
1486 const_iv (ST_DEAD) 1480 const_iv (IO_HEADER) const_iv (IO_OBJECTS) const_iv (IO_UNIQUES)
1487 const_iv (ST_SETUP)
1488 const_iv (ST_PLAYING)
1489 const_iv (ST_CUSTOM)
1490
1491 const_iv (ST_CHANGE_CLASS)
1492
1493 const_iv (IO_HEADER)
1494 const_iv (IO_OBJECTS)
1495 const_iv (IO_UNIQUES)
1496 1481
1497 // random map generator 1482 // random map generator
1498 const_iv (LAYOUT_NONE) 1483 const_iv (LAYOUT_NONE) const_iv (LAYOUT_ONION) const_iv (LAYOUT_MAZE) const_iv (LAYOUT_SPIRAL)
1499 const_iv (LAYOUT_ONION) 1484 const_iv (LAYOUT_ROGUELIKE) const_iv (LAYOUT_SNAKE) const_iv (LAYOUT_SQUARE_SPIRAL)
1500 const_iv (LAYOUT_MAZE)
1501 const_iv (LAYOUT_SPIRAL)
1502 const_iv (LAYOUT_ROGUELIKE)
1503 const_iv (LAYOUT_SNAKE)
1504 const_iv (LAYOUT_SQUARE_SPIRAL)
1505 1485
1506 const_iv (RMOPT_RANDOM) 1486 const_iv (RMOPT_RANDOM) const_iv (RMOPT_CENTERED) const_iv (RMOPT_LINEAR)
1507 const_iv (RMOPT_CENTERED) 1487 const_iv (RMOPT_BOTTOM_C) const_iv (RMOPT_BOTTOM_R) const_iv (RMOPT_IRR_SPACE)
1508 const_iv (RMOPT_LINEAR) 1488 const_iv (RMOPT_WALL_OFF) const_iv (RMOPT_WALLS_ONLY) const_iv (RMOPT_NO_DOORS)
1509 const_iv (RMOPT_BOTTOM_C)
1510 const_iv (RMOPT_BOTTOM_R)
1511 const_iv (RMOPT_IRR_SPACE)
1512 const_iv (RMOPT_WALL_OFF)
1513 const_iv (RMOPT_WALLS_ONLY)
1514 const_iv (RMOPT_NO_DOORS)
1515 1489
1516 const_iv (SYMMETRY_RANDOM) 1490 const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1517 const_iv (SYMMETRY_NONE) 1491 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1518 const_iv (SYMMETRY_X) 1492
1519 const_iv (SYMMETRY_Y) 1493 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1520 const_iv (SYMMETRY_XY) 1494 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)
1495 const_iv (GT_MINIMAL)
1521 }; 1496 };
1522 1497
1523 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; )
1524 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv)); 1499 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));
1525 1500
… …
1546 } 1521 }
1547} 1522}
1548 1523
1549void _connect_to_perl () 1524void _connect_to_perl ()
1550 1525
1526void _recalc_want ()
1527
1551void _global_reattach () 1528void _global_reattach ()
1552 CODE: 1529 CODE:
1553{ 1530{
1554 // reattach to all attachable objects in the game. 1531 // reattach to all attachable objects in the game.
1555 for_all_clients (ns) 1532 for_all_clients (ns)
1556 ns->reattach (); 1533 ns->reattach ();
1557 1534
1558 for_all_players (pl)
1559 pl->reattach ();
1560
1561 //TODO
1562 //for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)
1563 // i->second->reattach ();
1564
1565 for_all_objects (op) 1535 for_all_objects (op)
1566 op->reattach (); 1536 op->reattach ();
1567} 1537}
1568 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
1569NV floor (NV x) 1585NV floor (NV x)
1570 1586
1571NV ceil (NV x) 1587NV ceil (NV x)
1572 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
1573void server_tick () 1617void server_tick ()
1574 CODE: 1618 CODE:
1619 NOW = now ();
1575 runtime = SvNVx (sv_runtime); 1620 runtime = SvNVx (sv_runtime);
1576 server_tick (); 1621 server_tick ();
1577 1622
1578void 1623void
1579LOG (int level, char *msg) 1624log_backtrace (utf8_string msg)
1625
1626void
1627LOG (int flags, utf8_string msg)
1580 PROTOTYPE: $$ 1628 PROTOTYPE: $$
1581 C_ARGS: (LogLevel)level, "%s", msg 1629 C_ARGS: flags, "%s", msg
1582 1630
1583char *path_combine (char *base, char *path) 1631octet_string path_combine (octet_string base, octet_string path)
1584 PROTOTYPE: $$ 1632 PROTOTYPE: $$
1585 1633
1586char *path_combine_and_normalize (char *base, char *path) 1634octet_string path_combine_and_normalize (octet_string base, octet_string path)
1587 PROTOTYPE: $$ 1635 PROTOTYPE: $$
1588 1636
1589const char * 1637const_octet_string
1590get_maps_directory (char *path) 1638get_maps_directory (octet_string path)
1591 PROTOTYPE: $ 1639 PROTOTYPE: $
1592 ALIAS: maps_directory = 0 1640 ALIAS: maps_directory = 0
1593 CODE: 1641 CODE:
1594 RETVAL = create_pathname (path); 1642 RETVAL = create_pathname (path);
1595 OUTPUT: RETVAL 1643 OUTPUT: RETVAL
… …
1597void 1645void
1598sub_generation_inc () 1646sub_generation_inc ()
1599 CODE: 1647 CODE:
1600 PL_sub_generation++; 1648 PL_sub_generation++;
1601 1649
1602char * 1650const_octet_string
1603mapdir () 1651mapdir ()
1604 PROTOTYPE: 1652 PROTOTYPE:
1605 ALIAS: 1653 ALIAS:
1606 mapdir = 0 1654 mapdir = 0
1607 uniquedir = 1 1655 uniquedir = 1
… …
1623 } 1671 }
1624 OUTPUT: RETVAL 1672 OUTPUT: RETVAL
1625 1673
1626void abort () 1674void abort ()
1627 1675
1676void reset_signals ()
1677
1678void fork_abort (octet_string cause = "cf::fork_abort")
1679
1628void cleanup (const char *cause, bool make_core = false) 1680void cleanup (octet_string cause, bool make_core = false)
1629 1681
1630void emergency_save () 1682void emergency_save ()
1631 1683
1632void _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
1633 1691
1634#if _POSIX_MEMLOCK 1692#if _POSIX_MEMLOCK
1635 1693
1636int mlockall (int flags = MCL_CURRENT | MCL_FUTURE) 1694int mlockall (int flags = MCL_CURRENT | MCL_FUTURE)
1637 1695
1638int munlockall () 1696int munlockall ()
1639 1697
1640#endif 1698#endif
1641 1699
1642int find_animation (char *text) 1700int find_animation (utf8_string text)
1643 PROTOTYPE: $ 1701 PROTOTYPE: $
1644 1702
1645int random_roll (int min, int max, object *op, int goodbad); 1703int random_roll (int min, int max, object *op, int goodbad);
1646 1704
1647const char *cost_string_from_value(uint64 cost, int approx = 0) 1705const_utf8_string cost_string_from_value(uint64 cost, int approx = 0)
1648 1706
1649int 1707int
1650exp_to_level (val64 exp) 1708exp_to_level (val64 exp)
1651 CODE: 1709 CODE:
1652{ 1710{
… …
1683 RETVAL = newSVpv (resist_plus[atnr], 0); 1741 RETVAL = newSVpv (resist_plus[atnr], 0);
1684 else 1742 else
1685 XSRETURN_UNDEF; 1743 XSRETURN_UNDEF;
1686 OUTPUT: RETVAL 1744 OUTPUT: RETVAL
1687 1745
1746bool
1747load_resource_file (octet_string filename)
1748
1688MODULE = cf PACKAGE = cf::attachable 1749MODULE = cf PACKAGE = cf::attachable
1689 1750
1690int 1751int
1691valid (SV *obj) 1752valid (SV *obj)
1692 CODE: 1753 CODE:
1693 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext); 1754 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1694 OUTPUT: 1755 OUTPUT:
1695 RETVAL 1756 RETVAL
1696 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
1697INCLUDE: $PERL genacc attachable ../include/cfperl.h | 1775INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h |
1698 1776
1699MODULE = cf PACKAGE = cf::global 1777MODULE = cf PACKAGE = cf::global
1700 1778
1701int invoke (SV *klass, int event, ...) 1779int invoke (SV *klass, int event, ...)
1702 CODE: 1780 CODE:
… …
1706 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);
1707 OUTPUT: RETVAL 1785 OUTPUT: RETVAL
1708 1786
1709MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1787MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1710 1788
1711INCLUDE: $PERL genacc object ../include/object.h | 1789INCLUDE: $PERL $srcdir/genacc object ../include/object.h |
1712 1790
1713int invoke (object *op, int event, ...) 1791int invoke (object *op, int event, ...)
1714 CODE: 1792 CODE:
1715 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");
1716 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 1794 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
1718 RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END); 1796 RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);
1719 OUTPUT: RETVAL 1797 OUTPUT: RETVAL
1720 1798
1721SV *registry (object *op) 1799SV *registry (object *op)
1722 1800
1723void mortals ()
1724 PPCODE:
1725 EXTEND (SP, object::mortals.size ());
1726 for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i)
1727 PUSHs (to_sv (*i));
1728
1729int objects_size () 1801int objects_size ()
1730 CODE: 1802 CODE:
1731 RETVAL = objects.size (); 1803 RETVAL = objects.size ();
1732 OUTPUT: RETVAL 1804 OUTPUT: RETVAL
1733 1805
… …
1744object *actives (U32 index) 1816object *actives (U32 index)
1745 CODE: 1817 CODE:
1746 RETVAL = index < actives.size () ? actives [index] : 0; 1818 RETVAL = index < actives.size () ? actives [index] : 0;
1747 OUTPUT: RETVAL 1819 OUTPUT: RETVAL
1748 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
1749# missing properties 1838# missing properties
1750 1839
1751object *head (object *op) 1840object *head (object *op)
1752 PROTOTYPE: $ 1841 PROTOTYPE: $
1753 CODE: 1842 CODE:
1754 RETVAL = op->head_ (); 1843 RETVAL = op->head_ ();
1755 OUTPUT: RETVAL
1756
1757int is_head (object *op)
1758 PROTOTYPE: $
1759 CODE:
1760 RETVAL = op->head_ () == op;
1761 OUTPUT: RETVAL 1844 OUTPUT: RETVAL
1762 1845
1763void 1846void
1764inv (object *obj) 1847inv (object *obj)
1765 PROTOTYPE: $ 1848 PROTOTYPE: $
… …
1773void 1856void
1774set_animation (object *op, int idx) 1857set_animation (object *op, int idx)
1775 CODE: 1858 CODE:
1776 SET_ANIMATION (op, idx); 1859 SET_ANIMATION (op, idx);
1777 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
1778object *find_best_object_match (object *op, const char *match) 1886object *find_best_object_match (object *op, utf8_string match)
1779 1887
1780object *find_marked_object (object *op) 1888object *find_marked_object (object *op)
1781 1889
1782int need_identify (object *obj); 1890int need_identify (object *obj);
1783 1891
1784int 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
1785 1899
1786int move (object *op, int dir, object *originator = op) 1900int move (object *op, int dir, object *originator = op)
1787 CODE: 1901 CODE:
1788 RETVAL = move_ob (op, dir, originator); 1902 RETVAL = move_ob (op, dir, originator);
1789 OUTPUT: 1903 OUTPUT:
… …
1795 1909
1796void apply_below (object *op) 1910void apply_below (object *op)
1797 CODE: 1911 CODE:
1798 player_apply_below (op); 1912 player_apply_below (op);
1799 1913
1914int cast_heal (object *op, object *caster, object *spell, int dir = 0)
1915
1800object *cf_object_present_archname_inside (object *op, char *whatstr) 1916object *cf_object_present_archname_inside (object *op, utf8_string whatstr)
1801 1917
1802int 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)
1803 1919
1804int 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)
1805 1921
… …
1825 RETVAL = pay_for_amount (amount, op); 1941 RETVAL = pay_for_amount (amount, op);
1826 OUTPUT: RETVAL 1942 OUTPUT: RETVAL
1827 1943
1828void pay_player (object *op, uint64 amount) 1944void pay_player (object *op, uint64 amount)
1829 1945
1830val64 pay_player_arch (object *op, const char *arch, uint64 amount) 1946val64 pay_player_arch (object *op, utf8_string arch, uint64 amount)
1831 1947
1832int 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)
1833 1949
1834void learn_spell (object *op, object *sp, int special_prayer = 0) 1950void learn_spell (object *op, object *sp, int special_prayer = 0)
1835 CODE: 1951 CODE:
1836 do_learn_spell (op, sp, special_prayer); 1952 do_learn_spell (op, sp, special_prayer);
1837 1953
1838void forget_spell (object *op, object *sp) 1954void forget_spell (object *op, object *sp)
1839 CODE: 1955 CODE:
1840 do_forget_spell (op, query_name (sp)); 1956 do_forget_spell (op, query_name (sp));
1841 1957
1842object *check_for_spell (object *op, char *spellname) 1958object *check_for_spell (object *op, utf8_string spellname)
1843 CODE: 1959 CODE:
1844 RETVAL = check_spell_known (op, spellname); 1960 RETVAL = check_spell_known (op, spellname);
1845 OUTPUT: RETVAL 1961 OUTPUT: RETVAL
1846 1962
1847int query_money (object *op) 1963int query_money (object *op)
… …
1856 1972
1857void drop (object *who, object *op) 1973void drop (object *who, object *op)
1858 1974
1859void pick_up (object *who, object *op) 1975void pick_up (object *who, object *op)
1860 1976
1861object *cf_object_insert_object (object *op, object *container)
1862
1863object *cf_object_insert_in_ob (object *ob, object *where)
1864
1865int cf_object_teleport (object *op, maptile *map, int x, int y) 1977int cf_object_teleport (object *op, maptile *map, int x, int y)
1866 1978
1867void update_object (object *op, int action) 1979void update_object (object *op, int action)
1868 1980
1869object *cf_create_object_by_name (const char *name) 1981object *cf_create_object_by_name (utf8_string name)
1870 1982
1871void 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)
1872 1984
1873void player_lvl_adj (object *who, object *skill = 0) 1985void player_lvl_adj (object *who, object *skill = 0)
1874 1986
1875int 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)
1876 1988
… …
1890object *cf_insert_ob_in_ob (object *ob, object *where) 2002object *cf_insert_ob_in_ob (object *ob, object *where)
1891 2003
1892# 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
1893# dumb kludgy misdesigned plug-in api slowly gets on my nerves. 2005# dumb kludgy misdesigned plug-in api slowly gets on my nerves.
1894 2006
1895object *new (const char *archetype = 0) 2007object *new (utf8_string archetype = 0)
1896 PROTOTYPE: ;$ 2008 PROTOTYPE: ;$
1897 CODE: 2009 CODE:
1898 RETVAL = archetype ? get_archetype (archetype) : cf_create_object (); 2010 RETVAL = archetype ? get_archetype (archetype) : object::create ();
1899 OUTPUT: 2011 OUTPUT:
1900 RETVAL 2012 RETVAL
1901 2013
2014object *find_object (U32 tag)
2015
2016# TODO: nuke
1902object *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)
1903 PROTOTYPE: $$$$$$ 2018 PROTOTYPE: $$$$$$
1904 CODE: 2019 CODE:
1905{ 2020{
1906 int unused_type; 2021 int unused_type;
1907 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);
1908} 2023}
1909 2024
1910# syntatic sugar for easier use in event callbacks. 2025const_utf8_string get_ob_key_value (object *op, utf8_string key)
1911const char *options (object *op)
1912 CODE:
1913 RETVAL = op->name;
1914 OUTPUT:
1915 RETVAL
1916 2026
1917player *contr (object *op)
1918 CODE:
1919 RETVAL = op->contr;
1920 OUTPUT: RETVAL
1921
1922const char *get_ob_key_value (object *op, const char *key)
1923
1924bool 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)
1925 2028
1926object *get_nearest_player (object *ob) 2029object *get_nearest_player (object *ob)
1927 ALIAS: nearest_player = 0 2030 ALIAS: nearest_player = 0
1928 PREINIT: 2031 PREINIT:
1929 extern object *get_nearest_player (object *); 2032 extern object *get_nearest_player (object *);
… …
1945bool on_same_map_as (object *ob, object *other) 2048bool on_same_map_as (object *ob, object *other)
1946 CODE: 2049 CODE:
1947 RETVAL = on_same_map (ob, other); 2050 RETVAL = on_same_map (ob, other);
1948 OUTPUT: RETVAL 2051 OUTPUT: RETVAL
1949 2052
1950const char * 2053const_utf8_string
1951base_name (object *op, int plural = op->nrof > 1) 2054base_name (object *op, int plural = op->nrof > 1)
1952 CODE: 2055 CODE:
1953 RETVAL = query_base_name (op, plural); 2056 RETVAL = query_base_name (op, plural);
1954 OUTPUT: RETVAL 2057 OUTPUT: RETVAL
1955 2058
… …
1962 RETVAL = op->contr; 2065 RETVAL = op->contr;
1963 OUTPUT: RETVAL 2066 OUTPUT: RETVAL
1964 2067
1965void check_score (object *op) 2068void check_score (object *op)
1966 2069
1967void message (object *op, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 2070void message (object *op, utf8_string txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1968 CODE: 2071 CODE:
1969 new_draw_info (flags, 0, op, txt); 2072 new_draw_info (flags, 0, op, txt);
1970
1971object *cf_player_send_inventory (object *op)
1972
1973char *cf_player_get_ip (object *op)
1974 ALIAS: ip = 0
1975
1976object *cf_player_get_marked_item (object *op)
1977 ALIAS: marked_item = 0
1978
1979void cf_player_set_marked_item (object *op, object *ob)
1980
1981partylist *cf_player_get_party (object *op)
1982 ALIAS: party = 0
1983
1984void cf_player_set_party (object *op, partylist *party)
1985 2073
1986void kill_player (object *op) 2074void kill_player (object *op)
1987 2075
1988void esrv_update_item (object *op, int what, object *item) 2076void esrv_update_item (object *op, int what, object *item)
1989 C_ARGS: what, op, item 2077 C_ARGS: what, op, item
1990 2078
1991void clear_los (object *op)
1992
1993int command_teleport (object *op, char *params)
1994
1995int command_summon (object *op, char *params) 2079int command_summon (object *op, utf8_string params)
1996 2080
1997int command_arrest (object *op, char *params) 2081int command_arrest (object *op, utf8_string params)
1998
1999int command_kick (object *op, char *params)
2000
2001int command_banish (object *op, char *params)
2002 2082
2003 2083
2004MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 2084MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2005 2085
2006INCLUDE: $PERL genacc player ../include/player.h | 2086INCLUDE: $PERL $srcdir/genacc player ../include/player.h |
2007 2087
2008int invoke (player *pl, int event, ...) 2088int invoke (player *pl, int event, ...)
2009 CODE: 2089 CODE:
2010 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");
2011 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2091 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2021 pl->ob->stats.hp = pl->ob->stats.maxhp; 2101 pl->ob->stats.hp = pl->ob->stats.maxhp;
2022 pl->ob->stats.sp = pl->ob->stats.maxsp; 2102 pl->ob->stats.sp = pl->ob->stats.maxsp;
2023 pl->ob->stats.grace = pl->ob->stats.maxgrace; 2103 pl->ob->stats.grace = pl->ob->stats.maxgrace;
2024 pl->orig_stats = pl->ob->stats; 2104 pl->orig_stats = pl->ob->stats;
2025 2105
2106void clear_los (player *pl)
2107
2026void cf_player_move (player *pl, int dir) 2108void cf_player_move (player *pl, int dir)
2027 2109
2028void 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);
2029
2030player *first ()
2031 CODE:
2032 RETVAL = first_player;
2033 OUTPUT: RETVAL
2034 2111
2035bool 2112bool
2036cell_visible (player *pl, int dx, int dy) 2113cell_visible (player *pl, int dx, int dy)
2037 CODE: 2114 CODE:
2038 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
… …
2091 RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END); 2168 RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);
2092 OUTPUT: RETVAL 2169 OUTPUT: RETVAL
2093 2170
2094SV *registry (maptile *map) 2171SV *registry (maptile *map)
2095 2172
2096INCLUDE: $PERL genacc maptile ../include/map.h | 2173INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h |
2097 2174
2098void 2175void
2099maptile::instantiate () 2176maptile::instantiate ()
2100 2177
2101maptile *new () 2178maptile *new ()
… …
2116 for_all_players (pl) 2193 for_all_players (pl)
2117 if (pl->ob && pl->ob->map == THIS) 2194 if (pl->ob && pl->ob->map == THIS)
2118 PUSHs (sv_2mortal (to_sv (pl->ob))); 2195 PUSHs (sv_2mortal (to_sv (pl->ob)));
2119 } 2196 }
2120 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
2121void 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)
2122 2303
2123int out_of_map (maptile *map, int x, int y) 2304int out_of_map (maptile *map, int x, int y)
2124 2305
2125void 2306void
… …
2141 2322
2142object* 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)
2143 C_ARGS: str, map, nx, ny 2324 C_ARGS: str, map, nx, ny
2144 2325
2145void 2326void
2146cf_map_normalise (maptile *map, int x, int y) 2327get_map_flags (maptile *map, int x, int y)
2147 PPCODE: 2328 PPCODE:
2148{ 2329{
2149 maptile *nmap = 0; 2330 maptile *nmap = 0;
2150 I16 nx = 0, ny = 0; 2331 I16 nx = 0, ny = 0;
2151 int flags = get_map_flags (map, &nmap, x, y, &nx, &ny); 2332 int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
… …
2206 2387
2207void fix_walls (maptile *map, int x, int y) 2388void fix_walls (maptile *map, int x, int y)
2208 2389
2209void fix_walls_around (maptile *map, int x, int y) 2390void fix_walls_around (maptile *map, int x, int y)
2210 2391
2211const char *
2212region_name (maptile *m)
2213 CODE:
2214 RETVAL = get_name_of_region_for_map (m);
2215 OUTPUT: RETVAL
2216
2217# worst xs function of my life 2392# worst xs function of my life
2218maptile * 2393bool
2219_create_random_map (\ 2394_create_random_map (\
2220 char *path,\ 2395 maptile *self,\
2221 char *wallstyle,\ 2396 utf8_string wallstyle,\
2222 char *wall_name,\ 2397 utf8_string wall_name,\
2223 char *floorstyle,\ 2398 utf8_string floorstyle,\
2224 char *monsterstyle,\ 2399 utf8_string monsterstyle,\
2225 char *treasurestyle,\ 2400 utf8_string treasurestyle,\
2226 char *layoutstyle,\ 2401 utf8_string layoutstyle,\
2227 char *doorstyle,\ 2402 utf8_string doorstyle,\
2228 char *decorstyle,\ 2403 utf8_string decorstyle,\
2229 char *origin_map,\ 2404 utf8_string origin_map,\
2230 char *final_map,\ 2405 utf8_string final_map,\
2231 char *exitstyle,\ 2406 utf8_string exitstyle,\
2232 char *this_map,\ 2407 utf8_string this_map,\
2233 char *exit_on_final_map,\ 2408 utf8_string exit_on_final_map,\
2234 int Xsize,\ 2409 int xsize,\
2235 int Ysize,\ 2410 int ysize,\
2236 int expand2x,\ 2411 int expand2x,\
2237 int layoutoptions1,\ 2412 int layoutoptions1,\
2238 int layoutoptions2,\ 2413 int layoutoptions2,\
2239 int layoutoptions3,\ 2414 int layoutoptions3,\
2240 int symmetry,\ 2415 int symmetry,\
… …
2245 int dungeon_depth,\ 2420 int dungeon_depth,\
2246 int decoroptions,\ 2421 int decoroptions,\
2247 int orientation,\ 2422 int orientation,\
2248 int origin_y,\ 2423 int origin_y,\
2249 int origin_x,\ 2424 int origin_x,\
2250 int random_seed,\ 2425 U32 random_seed,\
2251 val64 total_map_hp,\ 2426 val64 total_map_hp,\
2252 int map_layout_style,\ 2427 int map_layout_style,\
2253 int treasureoptions,\ 2428 int treasureoptions,\
2254 int symmetry_used,\ 2429 int symmetry_used,\
2255 region *region,\ 2430 region *region,\
2256 char *custom\ 2431 utf8_string custom\
2257) 2432)
2258 CODE: 2433 CODE:
2259{ 2434{
2260 random_map_params rmp; 2435 random_map_params rmp;
2261 2436
… …
2271 assign (rmp.exit_on_final_map, exit_on_final_map); 2446 assign (rmp.exit_on_final_map, exit_on_final_map);
2272 2447
2273 rmp.origin_map = origin_map; 2448 rmp.origin_map = origin_map;
2274 rmp.final_map = final_map; 2449 rmp.final_map = final_map;
2275 rmp.this_map = this_map; 2450 rmp.this_map = this_map;
2276 rmp.Xsize = Xsize; 2451 rmp.xsize = xsize;
2277 rmp.Ysize = Ysize; 2452 rmp.ysize = ysize;
2278 rmp.expand2x = expand2x; 2453 rmp.expand2x = expand2x;
2279 rmp.layoutoptions1 = layoutoptions1; 2454 rmp.layoutoptions1 = layoutoptions1;
2280 rmp.layoutoptions2 = layoutoptions2; 2455 rmp.layoutoptions2 = layoutoptions2;
2281 rmp.layoutoptions3 = layoutoptions3; 2456 rmp.layoutoptions3 = layoutoptions3;
2282 rmp.symmetry = symmetry; 2457 rmp.symmetry = symmetry;
… …
2288 rmp.decoroptions = decoroptions; 2463 rmp.decoroptions = decoroptions;
2289 rmp.orientation = orientation; 2464 rmp.orientation = orientation;
2290 rmp.origin_y = origin_y; 2465 rmp.origin_y = origin_y;
2291 rmp.origin_x = origin_x; 2466 rmp.origin_x = origin_x;
2292 rmp.random_seed = random_seed; 2467 rmp.random_seed = random_seed;
2293 rmp.total_map_hp = total_map_hp; 2468 rmp.total_map_hp = (uint64_t) total_map_hp;
2294 rmp.map_layout_style = map_layout_style; 2469 rmp.map_layout_style = map_layout_style;
2295 rmp.treasureoptions = treasureoptions; 2470 rmp.treasureoptions = treasureoptions;
2296 rmp.symmetry_used = symmetry_used; 2471 rmp.symmetry_used = symmetry_used;
2297 rmp.region = region; 2472 rmp.region = region;
2298 rmp.custom = custom; 2473 rmp.custom = custom;
2299 2474
2300 RETVAL = generate_random_map (path, &rmp); 2475 RETVAL = self->generate_random_map (&rmp);
2301} 2476}
2302 OUTPUT: 2477 OUTPUT:
2303 RETVAL 2478 RETVAL
2304 2479
2305MODULE = cf PACKAGE = cf::arch 2480MODULE = cf PACKAGE = cf::arch
2306 2481
2307archetype *find (const char *name) 2482archetype *find (utf8_string name)
2308 CODE: 2483 CODE:
2309 RETVAL = archetype::find (name); 2484 RETVAL = archetype::find (name);
2310 OUTPUT: 2485 OUTPUT:
2311 RETVAL 2486 RETVAL
2312 2487
2313archetype *first() 2488int archetypes_size ()
2314 PROTOTYPE: 2489 CODE:
2315 CODE:
2316 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:
2317 OUTPUT: RETVAL 2502 RETVAL
2318 2503
2319INCLUDE: $PERL genacc archetype ../include/object.h | 2504INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h |
2320 2505
2321MODULE = cf PACKAGE = cf::party 2506MODULE = cf PACKAGE = cf::party
2322 2507
2323partylist *first () 2508partylist *first ()
2324 PROTOTYPE: 2509 PROTOTYPE:
2325 CODE: 2510 CODE:
2326 RETVAL = get_firstparty (); 2511 RETVAL = get_firstparty ();
2327 OUTPUT: RETVAL 2512 OUTPUT: RETVAL
2328 2513
2329INCLUDE: $PERL genacc partylist ../include/player.h | 2514INCLUDE: $PERL $srcdir/genacc partylist ../include/player.h |
2330 2515
2331MODULE = cf PACKAGE = cf::region 2516MODULE = cf PACKAGE = cf::region
2332 2517
2333region *first () 2518void
2334 PROTOTYPE: 2519list ()
2335 CODE: 2520 PPCODE:
2336 RETVAL = first_region; 2521 for_all_regions (rgn)
2337 OUTPUT: RETVAL 2522 XPUSHs (sv_2mortal (to_sv (rgn)));
2338 2523
2339region *find (char *name) 2524region *find (utf8_string name)
2340 PROTOTYPE: $ 2525 PROTOTYPE: $
2341 CODE: 2526 CODE:
2342 RETVAL = get_region_by_name (name); 2527 RETVAL = region::find (name);
2343 OUTPUT: RETVAL 2528 OUTPUT: RETVAL
2344 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
2345INCLUDE: $PERL genacc region ../include/map.h | 2543INCLUDE: $PERL $srcdir/genacc region ../include/region.h |
2346 2544
2347MODULE = cf PACKAGE = cf::living 2545MODULE = cf PACKAGE = cf::living
2348 2546
2349INCLUDE: $PERL genacc living ../include/living.h | 2547INCLUDE: $PERL $srcdir/genacc living ../include/living.h |
2350 2548
2351MODULE = cf PACKAGE = cf::settings 2549MODULE = cf PACKAGE = cf::settings
2352 2550
2353INCLUDE: $PERL genacc Settings ../include/global.h | 2551INCLUDE: $PERL $srcdir/genacc Settings ../include/global.h |
2354 2552
2355MODULE = cf PACKAGE = cf::client 2553MODULE = cf PACKAGE = cf::client
2356 2554
2357INCLUDE: $PERL genacc client ../include/client.h | 2555INCLUDE: $PERL $srcdir/genacc client ../include/client.h |
2358 2556
2359int invoke (client *ns, int event, ...) 2557int invoke (client *ns, int event, ...)
2360 CODE: 2558 CODE:
2361 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");
2362 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2560 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2381 char *buf = SvPVbyte (packet, len); 2579 char *buf = SvPVbyte (packet, len);
2382 2580
2383 THIS->send_packet (buf, len); 2581 THIS->send_packet (buf, len);
2384} 2582}
2385 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