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.134 by root, Tue Jan 9 21:32:42 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
311//TODO: 429inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
312inline SV *to_sv (New_Face * v) { return to_sv (v->name); }
313inline SV *to_sv (treasurelist * v) { return to_sv (v->name); } 430inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); }
314 431
315inline SV *to_sv (UUID v) 432inline SV *to_sv (UUID v)
316{ 433{
317 char buf[128]; 434 char buf[128];
318 snprintf (buf, 128, "<1,%" PRIx64 ">", v.seq); 435 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
319 return newSVpv (buf, 0); 436 return newSVpv (buf, 0);
320} 437}
321 438
322inline 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; }
323inline 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; }
324inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); } 441inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
325inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); } 442inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
326inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); } 443inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); }
327inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); } 444inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); }
… …
342inline 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"); }
343inline 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"); }
344inline 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"); }
345inline 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"); }
346 463
347inline void sv_to (SV *sv, New_Face * &v) { v = &new_faces[FindFace (SvPV_nolen (sv), 0)]; } //TODO 464//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
348inline void sv_to (SV *sv, treasurelist * &v) { v = find_treasurelist (SvPV_nolen (sv)); } // TODO 465inline void sv_to (SV *sv, treasurelist * &v) { v = treasurelist::find (SvPV_nolen (sv)); }
349 466
350template<class T> 467template<class T>
351inline 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; }
352 469
353template<int N> 470template<int N>
354inline 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)); }
355 472
356inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); }
357inline 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); }
358inline 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); }
359inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); } 475inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
360inline 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}
361 484
362inline void sv_to (SV *sv, UUID &v) 485inline void sv_to (SV *sv, UUID &v)
363{ 486{
364 unsigned int version; 487 unsigned int version;
365 488
… …
489 if (!ext->cb) 612 if (!ext->cb)
490 ext->cb = newAV (); 613 ext->cb = newAV ();
491 614
492 return newRV_inc ((SV *)ext->cb); 615 return newRV_inc ((SV *)ext->cb);
493} 616}
494
495#if 0
496void attachable::clear ()
497{
498 if (self)
499 {
500 // disconnect Perl from C, to avoid crashes
501 sv_unmagic (SvRV ((SV *)self), PERL_MAGIC_ext);
502
503 // clear the perl hash, might or might not be a good idea
504 hv_clear ((HV *)SvRV ((SV *)self));
505
506 SvREFCNT_dec (self);
507 self = 0;
508 }
509
510 if (cb)
511 {
512 SvREFCNT_dec (cb);
513 cb = 0;
514 }
515
516 attach = 0;
517}
518#endif
519 617
520///////////////////////////////////////////////////////////////////////////// 618/////////////////////////////////////////////////////////////////////////////
521 619
522extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr) 620extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)
523{ 621{
… …
581 perl = perl_alloc (); 679 perl = perl_alloc ();
582 perl_construct (perl); 680 perl_construct (perl);
583 681
584 PL_exit_flags |= PERL_EXIT_DESTRUCT_END; 682 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
585 683
586 char *argv[] = { 684 const char *argv[] = {
587 "", 685 settings.argv [0],
588 "-e" 686 "-e"
589 "use Event; use Coro;" // required for bootstrap 687 "use Event; use Coro;" // required for bootstrap
590 "cf->bootstrap;" // required for datadir :*> 688 "cf->bootstrap;" // required for datadir :*>
591 "unshift @INC, cf::datadir ();" 689 "unshift @INC, cf::datadir ();"
592 "require cf;" 690 "require cf;"
593 }; 691 };
594 692
595 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))
596 { 695 {
597 printf ("unable to initialize perl-interpreter, aborting.\n"); 696 printf ("unable to initialize perl-interpreter, aborting.\n");
598 exit (EXIT_FAILURE); 697 exit (EXIT_FAILURE);
599 } 698 }
699
700 {
701 dSP;
702
703 PUSHMARK (SP);
704 PUTBACK;
705 call_pv ("cf::init", G_DISCARD | G_VOID);
706 }
600} 707}
601 708
602void cfperl_main () 709void cfperl_main ()
603{ 710{
604 dSP; 711 dSP;
… …
611void 718void
612attachable::instantiate () 719attachable::instantiate ()
613{ 720{
614 if (attach) 721 if (attach)
615 { 722 {
616 invoke (EVENT_ATTACHABLE_INSTANTIATE, ARG_STRING (attach), DT_END); 723 INVOKE_ATTACHABLE (INSTANTIATE, this, ARG_STRING (attach));
617 attach = 0; 724 attach = 0;
618 } 725 }
619} 726}
620 727
621void 728void
622attachable::reattach () 729attachable::reattach ()
623{ 730{
624 optimise (); 731 optimise ();
625 //TODO: check for _attachment's, very important for restarts 732 //TODO: check for _attachment's, very important for restarts
626 invoke (EVENT_ATTACHABLE_REATTACH, DT_END); 733 INVOKE_ATTACHABLE (REATTACH, this);
627} 734}
628 735
629static event_klass klass_of[NUM_EVENT_TYPES] = { 736static event_klass klass_of[NUM_EVENT_TYPES] = {
630# define def(type,name) KLASS_ ## type, 737# define def(type,name) KLASS_ ## type,
631# include "eventinc.h" 738# include "eventinc.h"
… …
674} 781}
675 782
676void 783void
677global::gather_callbacks (AV *&callbacks, event_type event) const 784global::gather_callbacks (AV *&callbacks, event_type event) const
678{ 785{
679 ::gather_callbacks (callbacks, cb_object, event); 786 ::gather_callbacks (callbacks, cb_global, event);
680} 787}
681 788
682void 789void
683object::gather_callbacks (AV *&callbacks, event_type event) const 790object::gather_callbacks (AV *&callbacks, event_type event) const
684{ 791{
685 if (subtype && type + subtype * NUM_SUBTYPES <= AvFILLp (cb_type)) 792 if (subtype && type + subtype * NUM_TYPES <= AvFILLp (cb_type))
686 { 793 {
687 SV *registry = AvARRAY (cb_type)[type + subtype * NUM_SUBTYPES]; 794 SV *registry = AvARRAY (cb_type)[type + subtype * NUM_TYPES];
688 795
689 if (registry && SvROK (registry) && SvTYPE (SvRV (registry)) == SVt_PVAV) 796 if (registry && SvROK (registry) && SvTYPE (SvRV (registry)) == SVt_PVAV)
690 ::gather_callbacks (callbacks, (AV *)SvRV (registry), event); 797 ::gather_callbacks (callbacks, (AV *)SvRV (registry), event);
691 } 798 }
692 799
… …
728{ 835{
729 attachable::gather_callbacks (callbacks, event); 836 attachable::gather_callbacks (callbacks, event);
730 ::gather_callbacks (callbacks, cb_map, event); 837 ::gather_callbacks (callbacks, cb_map, event);
731} 838}
732 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
733bool 890bool
734attachable::invoke (event_type event, ...) 891attachable::invoke (event_type event, ...)
735{ 892{
736 data_type dt; 893 data_type dt;
737 va_list ap;
738
739 va_start (ap, event);
740 894
741 // callback call ordering should be: 895 // callback call ordering should be:
742 // 1. per-object callback 896 // 1. per-object callback
743 // 2. per-class object 897 // 2. per-class object
744 // 3. per-type callback 898 // 3. per-type callback
… …
748 gather_callbacks (callbacks, event); 902 gather_callbacks (callbacks, event);
749 903
750 // short-circuit processing if no callbacks found/defined 904 // short-circuit processing if no callbacks found/defined
751 if (!callbacks) 905 if (!callbacks)
752 return 0; 906 return 0;
907
908 va_list ap;
909 va_start (ap, event);
753 910
754 CALL_BEGIN (3); 911 CALL_BEGIN (3);
755 CALL_ARG_SV (newSViv (event)); // only used for debugging nowadays 912 CALL_ARG_SV (newSViv (event)); // only used for debugging nowadays
756 CALL_ARG_SV (newRV_noinc ((SV *)callbacks)); 913 CALL_ARG_SV (newRV_noinc ((SV *)callbacks));
757 914
… …
825 CALL_BEGIN (0); 982 CALL_BEGIN (0);
826 CALL_CALL ("cf::emergency_save", G_VOID); 983 CALL_CALL ("cf::emergency_save", G_VOID);
827 CALL_END; 984 CALL_END;
828} 985}
829 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
830maptile * 1018maptile *
831maptile::find_sync (const char *path, maptile *origin) 1019maptile::find_sync (const char *path, maptile *origin)
832{ 1020{
833 CALL_BEGIN (2); 1021 CALL_BEGIN (2);
834 CALL_ARG (path); 1022 CALL_ARG (path);
835 CALL_ARG (origin); 1023 CALL_ARG (origin);
836 CALL_CALL ("cf::map::find_sync", G_SCALAR); 1024 CALL_CALL ("cf::map::find_sync", G_SCALAR);
1025
1026 maptile *retval;
1027
1028 if (count)
1029 sv_to (POPs, retval);
1030 else
1031 retval = 0;
1032
1033 CALL_END;
1034
1035 return retval;
1036}
1037
1038maptile *
1039maptile::find_async (const char *path, maptile *origin)
1040{
1041 CALL_BEGIN (2);
1042 CALL_ARG (path);
1043 CALL_ARG (origin);
1044 CALL_CALL ("cf::map::find_async", G_SCALAR);
837 1045
838 maptile *retval; 1046 maptile *retval;
839 1047
840 if (count) 1048 if (count)
841 sv_to (POPs, retval); 1049 sv_to (POPs, retval);
… …
876 CALL_ARG (exit); 1084 CALL_ARG (exit);
877 CALL_CALL ("cf::object::player::enter_exit", G_VOID); 1085 CALL_CALL ("cf::object::player::enter_exit", G_VOID);
878 CALL_END; 1086 CALL_END;
879} 1087}
880 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
881///////////////////////////////////////////////////////////////////////////// 1105/////////////////////////////////////////////////////////////////////////////
882 1106
883struct EventAPI *watcher_base::GEventAPI; 1107struct EventAPI *watcher_base::GEventAPI;
884struct CoroAPI *coroapi::GCoroAPI; 1108struct CoroAPI *coroapi::GCoroAPI;
885 1109
886int coroapi::cede_counter; 1110int coroapi::cede_counter;
1111tstamp coroapi::next_cede;
887 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
888static void iw_dispatch (pe_event *ev) 1156iw_dispatch (pe_event *ev)
889{ 1157{
890 iw *w = (iw *)ev->ext_data; 1158 iw *w = (iw *)ev->ext_data;
891 w->call (*w); 1159 w->call (*w);
892} 1160}
893 1161
894void 1162void
895iw::alloc () 1163iw::alloc ()
896{ 1164{
897 pe = GEventAPI->new_idle (0, 0); 1165 pe = GEventAPI->new_idle (0, 0);
898 1166
1167 WaREENTRANT_off (pe);
899 pe->base.callback = (void *)iw_dispatch; 1168 pe->base.callback = (void *)iw_dispatch;
900 pe->base.ext_data = (void *)this; 1169 pe->base.ext_data = (void *)this;
901} 1170}
902 1171
903static void iow_dispatch (pe_event *ev) 1172static void iow_dispatch (pe_event *ev)
… …
909void 1178void
910iow::alloc () 1179iow::alloc ()
911{ 1180{
912 pe = GEventAPI->new_io (0, 0); 1181 pe = GEventAPI->new_io (0, 0);
913 1182
1183 WaREENTRANT_off (pe);
914 pe->base.callback = (void *)iow_dispatch; 1184 pe->base.callback = (void *)iow_dispatch;
915 pe->base.ext_data = (void *)this; 1185 pe->base.ext_data = (void *)this;
916 1186
917 pe->fd = -1; 1187 pe->fd = -1;
918 pe->poll = 0; 1188 pe->poll = 0;
… …
954 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1); 1224 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
955 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1); 1225 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
956 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1); 1226 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
957 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1); 1227 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
958 1228
959 sv_runtime = get_sv ("cf::RUNTIME", 1); 1229 sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV);
960 sv_upgrade (sv_runtime, SVt_NV); 1230 sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV);
961 1231
962 cb_global = get_av ("cf::CB_GLOBAL", 1); 1232 cb_global = get_av ("cf::CB_GLOBAL", 1);
963 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1); 1233 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
964 cb_object = get_av ("cf::CB_OBJECT", 1); 1234 cb_object = get_av ("cf::CB_OBJECT", 1);
965 cb_player = get_av ("cf::CB_PLAYER", 1); 1235 cb_player = get_av ("cf::CB_PLAYER", 1);
… …
970 1240
971MODULE = cf PACKAGE = cf PREFIX = cf_ 1241MODULE = cf PACKAGE = cf PREFIX = cf_
972 1242
973BOOT: 1243BOOT:
974{ 1244{
975 _connect_to_perl ();
976
977 I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI; 1245 I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;
978 I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI; 1246 I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
979 1247
1248 _connect_to_perl ();
1249
980 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 //}
981 1260
982 static const struct { 1261 static const struct {
983 const char *name; 1262 const char *name;
984 IV iv; 1263 IV iv;
985 } *civ, const_iv[] = { 1264 } *civ, const_iv[] = {
986# define const_iv(name) { # name, (IV)name }, 1265# define const_iv(name) { # name, (IV)name },
987 const_iv (llevError) 1266 const_iv (llevError) const_iv (llevInfo) const_iv (llevDebug) const_iv (llevMonster)
988 const_iv (llevInfo) 1267 const_iv (logBacktrace)
989 const_iv (llevDebug) 1268
990 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)
991 1272
992 const_iv (MAX_TIME) 1273 const_iv (MAX_TIME)
993 const_iv (PLAYER) 1274
994 const_iv (TRANSPORT)
995 const_iv (ROD)
996 const_iv (TREASURE)
997 const_iv (POTION)
998 const_iv (FOOD)
999 const_iv (POISON)
1000 const_iv (BOOK)
1001 const_iv (CLOCK)
1002 const_iv (ARROW)
1003 const_iv (BOW)
1004 const_iv (WEAPON)
1005 const_iv (ARMOUR)
1006 const_iv (PEDESTAL)
1007 const_iv (ALTAR)
1008 const_iv (LOCKED_DOOR)
1009 const_iv (SPECIAL_KEY)
1010 const_iv (MAP)
1011 const_iv (DOOR)
1012 const_iv (KEY)
1013 const_iv (TIMED_GATE)
1014 const_iv (TRIGGER)
1015 const_iv (GRIMREAPER)
1016 const_iv (MAGIC_EAR)
1017 const_iv (TRIGGER_BUTTON)
1018 const_iv (TRIGGER_ALTAR)
1019 const_iv (TRIGGER_PEDESTAL)
1020 const_iv (SHIELD)
1021 const_iv (HELMET)
1022 const_iv (HORN)
1023 const_iv (MONEY)
1024 const_iv (CLASS)
1025 const_iv (GRAVESTONE)
1026 const_iv (AMULET)
1027 const_iv (PLAYERMOVER)
1028 const_iv (TELEPORTER)
1029 const_iv (CREATOR)
1030 const_iv (SKILL)
1031 const_iv (EARTHWALL)
1032 const_iv (GOLEM)
1033 const_iv (THROWN_OBJ)
1034 const_iv (BLINDNESS)
1035 const_iv (GOD)
1036 const_iv (DETECTOR)
1037 const_iv (TRIGGER_MARKER)
1038 const_iv (DEAD_OBJECT)
1039 const_iv (DRINK)
1040 const_iv (MARKER)
1041 const_iv (HOLY_ALTAR)
1042 const_iv (PLAYER_CHANGER)
1043 const_iv (BATTLEGROUND)
1044 const_iv (PEACEMAKER)
1045 const_iv (GEM)
1046 const_iv (FIREWALL)
1047 const_iv (ANVIL)
1048 const_iv (CHECK_INV)
1049 const_iv (MOOD_FLOOR) 1275 const_iv (NUM_BODY_LOCATIONS)
1050 const_iv (EXIT) 1276 const_iv (body_range) const_iv (body_shield) const_iv (body_combat)
1051 const_iv (ENCOUNTER) 1277 const_iv (body_arm) const_iv (body_torso) const_iv (body_head)
1052 const_iv (SHOP_FLOOR) 1278 const_iv (body_neck) const_iv (body_skill) const_iv (body_finger)
1053 const_iv (SHOP_MAT) 1279 const_iv (body_shoulder) const_iv (body_foot) const_iv (body_hand)
1054 const_iv (RING) 1280 const_iv (body_wrist) const_iv (body_waist)
1055 const_iv (FLOOR)
1056 const_iv (FLESH)
1057 const_iv (INORGANIC)
1058 const_iv (SKILL_TOOL)
1059 const_iv (LIGHTER)
1060 const_iv (BUILDABLE_WALL)
1061 const_iv (MISC_OBJECT)
1062 const_iv (LAMP)
1063 const_iv (DUPLICATOR)
1064 const_iv (SPELLBOOK)
1065 const_iv (CLOAK)
1066 const_iv (SPINNER)
1067 const_iv (GATE)
1068 const_iv (BUTTON)
1069 const_iv (CF_HANDLE)
1070 const_iv (HOLE)
1071 const_iv (TRAPDOOR)
1072 const_iv (SIGN)
1073 const_iv (BOOTS)
1074 const_iv (GLOVES)
1075 const_iv (SPELL)
1076 const_iv (SPELL_EFFECT)
1077 const_iv (CONVERTER)
1078 const_iv (BRACERS)
1079 const_iv (POISONING)
1080 const_iv (SAVEBED)
1081 const_iv (WAND)
1082 const_iv (SCROLL)
1083 const_iv (DIRECTOR)
1084 const_iv (GIRDLE)
1085 const_iv (FORCE)
1086 const_iv (POTION_EFFECT)
1087 const_iv (EVENT_CONNECTOR)
1088 const_iv (CLOSE_CON)
1089 const_iv (CONTAINER)
1090 const_iv (ARMOUR_IMPROVER)
1091 const_iv (WEAPON_IMPROVER)
1092 const_iv (SKILLSCROLL)
1093 const_iv (DEEP_SWAMP)
1094 const_iv (IDENTIFY_ALTAR)
1095 const_iv (MENU)
1096 const_iv (RUNE)
1097 const_iv (TRAP)
1098 const_iv (POWER_CRYSTAL)
1099 const_iv (CORPSE)
1100 const_iv (DISEASE)
1101 const_iv (SYMPTOM)
1102 const_iv (BUILDER)
1103 const_iv (MATERIAL)
1104 const_iv (ITEM_TRANSFORMER)
1105 1281
1106 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)
1107 1310
1108 const_iv (ST_BD_BUILD) 1311 const_iv (NUM_TYPES) const_iv (NUM_SUBTYPES)
1109 const_iv (ST_BD_REMOVE)
1110 1312
1111 const_iv (ST_MAT_FLOOR) 1313 const_iv (ST_BD_BUILD) const_iv (ST_BD_REMOVE)
1112 const_iv (ST_MAT_WALL) 1314 const_iv (ST_MAT_FLOOR) const_iv (ST_MAT_WALL) const_iv (ST_MAT_ITEM)
1113 const_iv (ST_MAT_ITEM)
1114 1315
1115 const_iv (AT_PHYSICAL) 1316 const_iv (AT_PHYSICAL) const_iv (AT_MAGIC) const_iv (AT_FIRE) const_iv (AT_ELECTRICITY)
1116 const_iv (AT_MAGIC) 1317 const_iv (AT_COLD) const_iv (AT_CONFUSION) const_iv (AT_ACID) const_iv (AT_DRAIN)
1117 const_iv (AT_FIRE) 1318 const_iv (AT_WEAPONMAGIC) const_iv (AT_GHOSTHIT) const_iv (AT_POISON) const_iv (AT_SLOW)
1118 const_iv (AT_ELECTRICITY) 1319 const_iv (AT_PARALYZE) const_iv (AT_TURN_UNDEAD) const_iv (AT_FEAR) const_iv (AT_CANCELLATION)
1119 const_iv (AT_COLD) 1320 const_iv (AT_DEPLETE) const_iv (AT_DEATH) const_iv (AT_CHAOS) const_iv (AT_COUNTERSPELL)
1120 const_iv (AT_CONFUSION) 1321 const_iv (AT_GODPOWER) const_iv (AT_HOLYWORD) const_iv (AT_BLIND) const_iv (AT_INTERNAL)
1121 const_iv (AT_ACID) 1322 const_iv (AT_LIFE_STEALING) const_iv (AT_DISEASE)
1122 const_iv (AT_DRAIN)
1123 const_iv (AT_WEAPONMAGIC)
1124 const_iv (AT_GHOSTHIT)
1125 const_iv (AT_POISON)
1126 const_iv (AT_SLOW)
1127 const_iv (AT_PARALYZE)
1128 const_iv (AT_TURN_UNDEAD)
1129 const_iv (AT_FEAR)
1130 const_iv (AT_CANCELLATION)
1131 const_iv (AT_DEPLETE)
1132 const_iv (AT_DEATH)
1133 const_iv (AT_CHAOS)
1134 const_iv (AT_COUNTERSPELL)
1135 const_iv (AT_GODPOWER)
1136 const_iv (AT_HOLYWORD)
1137 const_iv (AT_BLIND)
1138 const_iv (AT_INTERNAL)
1139 const_iv (AT_LIFE_STEALING)
1140 const_iv (AT_DISEASE)
1141 1323
1142 const_iv (WEAP_HIT) 1324 const_iv (WEAP_HIT) const_iv (WEAP_SLASH) const_iv (WEAP_PIERCE) const_iv (WEAP_CLEAVE)
1143 const_iv (WEAP_SLASH) 1325 const_iv (WEAP_SLICE) const_iv (WEAP_STAB) const_iv (WEAP_WHIP) const_iv (WEAP_CRUSH)
1144 const_iv (WEAP_PIERCE)
1145 const_iv (WEAP_CLEAVE)
1146 const_iv (WEAP_SLICE)
1147 const_iv (WEAP_STAB)
1148 const_iv (WEAP_WHIP)
1149 const_iv (WEAP_CRUSH)
1150 const_iv (WEAP_BLUD) 1326 const_iv (WEAP_BLUD)
1151 1327
1152 const_iv (FLAG_ALIVE) 1328 const_iv (FLAG_ALIVE) const_iv (FLAG_WIZ) const_iv (FLAG_REMOVED) const_iv (FLAG_FREED)
1153 const_iv (FLAG_WIZ) 1329 const_iv (FLAG_APPLIED) const_iv (FLAG_UNPAID) const_iv (FLAG_USE_SHIELD)
1154 const_iv (FLAG_REMOVED) 1330 const_iv (FLAG_NO_PICK) const_iv (FLAG_ANIMATE) const_iv (FLAG_MONSTER) const_iv (FLAG_FRIENDLY)
1155 const_iv (FLAG_FREED) 1331 const_iv (FLAG_GENERATOR) const_iv (FLAG_IS_THROWN) const_iv (FLAG_AUTO_APPLY) const_iv (FLAG_PLAYER_SOLD)
1156 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)
1157 const_iv (FLAG_APPLIED) 1333 const_iv (FLAG_IS_USED_UP) const_iv (FLAG_IDENTIFIED) const_iv (FLAG_REFLECTING) const_iv (FLAG_CHANGING)
1158 const_iv (FLAG_UNPAID) 1334 const_iv (FLAG_SPLITTING) const_iv (FLAG_HITBACK) const_iv (FLAG_STARTEQUIP) const_iv (FLAG_BLOCKSVIEW)
1159 const_iv (FLAG_USE_SHIELD) 1335 const_iv (FLAG_UNDEAD) const_iv (FLAG_SCARED) const_iv (FLAG_UNAGGRESSIVE) const_iv (FLAG_REFL_MISSILE)
1160 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)
1161 const_iv (FLAG_ANIMATE) 1337 const_iv (FLAG_TEAR_DOWN) const_iv (FLAG_RUN_AWAY) const_iv (FLAG_PICK_UP) const_iv (FLAG_UNIQUE)
1162 const_iv (FLAG_MONSTER) 1338 const_iv (FLAG_NO_DROP) const_iv (FLAG_WIZCAST) const_iv (FLAG_CAST_SPELL) const_iv (FLAG_USE_SCROLL)
1163 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)
1164 const_iv (FLAG_GENERATOR) 1340 const_iv (FLAG_USE_RING) const_iv (FLAG_READY_RANGE) const_iv (FLAG_READY_BOW) const_iv (FLAG_XRAYS)
1165 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)
1166 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)
1167 const_iv (FLAG_PLAYER_SOLD) 1343 const_iv (FLAG_CONFUSED) const_iv (FLAG_STEALTH) const_iv (FLAG_WIZPASS) const_iv (FLAG_IS_LINKED)
1168 const_iv (FLAG_SEE_INVISIBLE) 1344 const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)
1169 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)
1170 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)
1171 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)
1172 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)
1173 const_iv (FLAG_IDENTIFIED) 1349 const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)
1174 const_iv (FLAG_REFLECTING) 1350 const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1175 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)
1176 const_iv (FLAG_SPLITTING) 1352 const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1177 const_iv (FLAG_HITBACK) 1353 const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1178 const_iv (FLAG_STARTEQUIP)
1179 const_iv (FLAG_BLOCKSVIEW)
1180 const_iv (FLAG_UNDEAD)
1181 const_iv (FLAG_SCARED)
1182 const_iv (FLAG_UNAGGRESSIVE)
1183 const_iv (FLAG_REFL_MISSILE)
1184 const_iv (FLAG_REFL_SPELL)
1185 const_iv (FLAG_NO_MAGIC)
1186 const_iv (FLAG_NO_FIX_PLAYER)
1187 const_iv (FLAG_IS_LIGHTABLE)
1188 const_iv (FLAG_TEAR_DOWN)
1189 const_iv (FLAG_RUN_AWAY)
1190 const_iv (FLAG_PICK_UP)
1191 const_iv (FLAG_UNIQUE)
1192 const_iv (FLAG_NO_DROP)
1193 const_iv (FLAG_WIZCAST)
1194 const_iv (FLAG_CAST_SPELL)
1195 const_iv (FLAG_USE_SCROLL)
1196 const_iv (FLAG_USE_RANGE)
1197 const_iv (FLAG_USE_BOW)
1198 const_iv (FLAG_USE_ARMOUR)
1199 const_iv (FLAG_USE_WEAPON)
1200 const_iv (FLAG_USE_RING)
1201 const_iv (FLAG_READY_RANGE)
1202 const_iv (FLAG_READY_BOW)
1203 const_iv (FLAG_XRAYS)
1204 const_iv (FLAG_NO_APPLY)
1205 const_iv (FLAG_IS_FLOOR)
1206 const_iv (FLAG_LIFESAVE)
1207 const_iv (FLAG_NO_STRENGTH)
1208 const_iv (FLAG_SLEEP)
1209 const_iv (FLAG_STAND_STILL)
1210 const_iv (FLAG_RANDOM_MOVE)
1211 const_iv (FLAG_ONLY_ATTACK)
1212 const_iv (FLAG_CONFUSED)
1213 const_iv (FLAG_STEALTH)
1214 const_iv (FLAG_WIZPASS)
1215 const_iv (FLAG_IS_LINKED)
1216 const_iv (FLAG_CURSED)
1217 const_iv (FLAG_DAMNED)
1218 const_iv (FLAG_SEE_ANYWHERE)
1219 const_iv (FLAG_KNOWN_MAGICAL)
1220 const_iv (FLAG_KNOWN_CURSED)
1221 const_iv (FLAG_CAN_USE_SKILL)
1222 const_iv (FLAG_BEEN_APPLIED)
1223 const_iv (FLAG_READY_SCROLL)
1224 const_iv (FLAG_USE_ROD)
1225 const_iv (FLAG_USE_HORN)
1226 const_iv (FLAG_MAKE_INVIS)
1227 const_iv (FLAG_INV_LOCKED)
1228 const_iv (FLAG_IS_WOODED)
1229 const_iv (FLAG_IS_HILLY)
1230 const_iv (FLAG_READY_SKILL)
1231 const_iv (FLAG_READY_WEAPON)
1232 const_iv (FLAG_NO_SKILL_IDENT)
1233 const_iv (FLAG_BLIND)
1234 const_iv (FLAG_SEE_IN_DARK)
1235 const_iv (FLAG_IS_CAULDRON)
1236 const_iv (FLAG_NO_STEAL)
1237 const_iv (FLAG_ONE_HIT)
1238 const_iv (FLAG_CLIENT_SENT)
1239 const_iv (FLAG_BERSERK)
1240 const_iv (FLAG_NEUTRAL)
1241 const_iv (FLAG_NO_ATTACK)
1242 const_iv (FLAG_NO_DAMAGE)
1243 const_iv (FLAG_OBJ_ORIGINAL)
1244 const_iv (FLAG_OBJ_SAVE_ON_OVL)
1245 const_iv (FLAG_ACTIVATE_ON_PUSH)
1246 const_iv (FLAG_ACTIVATE_ON_RELEASE)
1247 const_iv (FLAG_IS_WATER)
1248 const_iv (FLAG_CONTENT_ON_GEN)
1249 const_iv (FLAG_IS_A_TEMPLATE)
1250 const_iv (FLAG_IS_BUILDABLE)
1251 1354
1252 const_iv (NDI_BLACK) 1355 const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1253 const_iv (NDI_WHITE) 1356 const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1254 const_iv (NDI_NAVY) 1357 const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1255 const_iv (NDI_RED) 1358 const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1256 const_iv (NDI_ORANGE)
1257 const_iv (NDI_BLUE)
1258 const_iv (NDI_DK_ORANGE)
1259 const_iv (NDI_GREEN)
1260 const_iv (NDI_LT_GREEN)
1261 const_iv (NDI_GREY)
1262 const_iv (NDI_BROWN)
1263 const_iv (NDI_GOLD)
1264 const_iv (NDI_TAN)
1265 const_iv (NDI_MAX_COLOR)
1266 const_iv (NDI_COLOR_MASK)
1267 const_iv (NDI_UNIQUE)
1268 const_iv (NDI_ALL) 1359 const_iv (NDI_ALL)
1269 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)
1270 const_iv (UPD_LOCATION) 1371 const_iv (SP_EXPLOSION)
1271 const_iv (UPD_FLAGS)
1272 const_iv (UPD_WEIGHT)
1273 const_iv (UPD_FACE) 1372 const_iv (SP_CONE)
1373 const_iv (SP_BOMB)
1374 const_iv (SP_WONDER)
1274 const_iv (UPD_NAME) 1375 const_iv (SP_SMITE)
1275 const_iv (UPD_ANIM) 1376 const_iv (SP_MAGIC_MISSILE)
1276 const_iv (UPD_ANIMSPEED) 1377 const_iv (SP_SUMMON_GOLEM)
1277 const_iv (UPD_NROF) 1378 const_iv (SP_DIMENSION_DOOR)
1278 1379 const_iv (SP_MAGIC_MAPPING)
1279 const_iv (UPD_SP_MANA)
1280 const_iv (UPD_SP_GRACE)
1281 const_iv (UPD_SP_DAMAGE)
1282
1283 const_iv (F_APPLIED)
1284 const_iv (F_LOCATION)
1285 const_iv (F_UNPAID)
1286 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)
1287 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)
1288 const_iv (F_DAMNED) 1401 const_iv (SP_SWARM)
1402 const_iv (SP_CHANGE_MANA)
1289 const_iv (F_OPEN) 1403 const_iv (SP_DISPEL_RUNE)
1290 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)
1291 const_iv (F_LOCKED) 1417 const_iv (F_LOCKED)
1292 1418
1293 const_iv (F_BUY) 1419 const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1294 const_iv (F_SHOP)
1295 const_iv (F_SELL)
1296 1420
1297 const_iv (P_BLOCKSVIEW) 1421 const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)
1298 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)
1299 const_iv (P_NO_MAGIC)
1300 const_iv (P_IS_ALIVE)
1301 const_iv (P_NO_CLERIC)
1302 const_iv (P_OUT_OF_MAP)
1303 const_iv (P_NEW_MAP)
1304 const_iv (P_UPTODATE)
1305 1423
1306 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)
1307 const_iv (UP_OBJ_REMOVE)
1308 const_iv (UP_OBJ_CHANGE)
1309 const_iv (UP_OBJ_FACE)
1310 1425
1311 const_iv (INS_NO_MERGE) 1426 const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
1312 const_iv (INS_ABOVE_FLOOR_ONLY) 1427 const_iv (INS_ON_TOP) const_iv (INS_BELOW_ORIGINATOR) const_iv (INS_MAP_LOAD)
1313 const_iv (INS_NO_WALK_ON)
1314 const_iv (INS_ON_TOP)
1315 const_iv (INS_BELOW_ORIGINATOR)
1316 const_iv (INS_MAP_LOAD)
1317 1428
1318 const_iv (WILL_APPLY_HANDLE) 1429 const_iv (WILL_APPLY_HANDLE) const_iv (WILL_APPLY_TREASURE) const_iv (WILL_APPLY_EARTHWALL)
1319 const_iv (WILL_APPLY_TREASURE) 1430 const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)
1320 const_iv (WILL_APPLY_EARTHWALL)
1321 const_iv (WILL_APPLY_DOOR)
1322 const_iv (WILL_APPLY_FOOD)
1323 1431
1324 const_iv (SAVE_MODE) 1432 const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)
1325 const_iv (SAVE_DIR_MODE)
1326 1433
1327 const_iv (M_PAPER) 1434 const_iv (M_PAPER) const_iv (M_IRON) const_iv (M_GLASS) const_iv (M_LEATHER)
1328 const_iv (M_IRON) 1435 const_iv (M_WOOD) const_iv (M_ORGANIC) const_iv (M_STONE) const_iv (M_CLOTH)
1329 const_iv (M_GLASS) 1436 const_iv (M_ADAMANT) const_iv (M_LIQUID) const_iv (M_SOFT_METAL) const_iv (M_BONE)
1330 const_iv (M_LEATHER) 1437 const_iv (M_ICE) const_iv (M_SPECIAL)
1331 const_iv (M_WOOD)
1332 const_iv (M_ORGANIC)
1333 const_iv (M_STONE)
1334 const_iv (M_CLOTH)
1335 const_iv (M_ADAMANT)
1336 const_iv (M_LIQUID)
1337 const_iv (M_SOFT_METAL)
1338 const_iv (M_BONE)
1339 const_iv (M_ICE)
1340 const_iv (M_SPECIAL)
1341 1438
1342 const_iv (SK_EXP_ADD_SKILL) 1439 const_iv (SK_EXP_ADD_SKILL) const_iv (SK_EXP_TOTAL) const_iv (SK_EXP_NONE)
1343 const_iv (SK_EXP_TOTAL) 1440 const_iv (SK_SUBTRACT_SKILL_EXP) const_iv (SK_EXP_SKILL_ONLY)
1344 const_iv (SK_EXP_NONE)
1345 const_iv (SK_SUBTRACT_SKILL_EXP)
1346 const_iv (SK_EXP_SKILL_ONLY)
1347 1441
1348 const_iv (SK_LOCKPICKING) 1442 const_iv (SK_LOCKPICKING) const_iv (SK_HIDING) const_iv (SK_SMITHERY) const_iv (SK_BOWYER)
1349 const_iv (SK_HIDING) 1443 const_iv (SK_JEWELER) const_iv (SK_ALCHEMY) const_iv (SK_STEALING) const_iv (SK_LITERACY)
1350 const_iv (SK_SMITHERY) 1444 const_iv (SK_BARGAINING) const_iv (SK_JUMPING) const_iv (SK_DET_MAGIC) const_iv (SK_ORATORY)
1351 const_iv (SK_BOWYER) 1445 const_iv (SK_SINGING) const_iv (SK_DET_CURSE) const_iv (SK_FIND_TRAPS) const_iv (SK_MEDITATION)
1352 const_iv (SK_JEWELER) 1446 const_iv (SK_PUNCHING) const_iv (SK_FLAME_TOUCH) const_iv (SK_KARATE) const_iv (SK_CLIMBING)
1353 const_iv (SK_ALCHEMY) 1447 const_iv (SK_WOODSMAN) const_iv (SK_INSCRIPTION) const_iv (SK_ONE_HANDED_WEAPON) const_iv (SK_MISSILE_WEAPON)
1354 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)
1355 const_iv (SK_LITERACY) 1449 const_iv (SK_THAUMATURGY) const_iv (SK_PRAYING) const_iv (SK_CLAWING) const_iv (SK_LEVITATION)
1356 const_iv (SK_BARGAINING) 1450 const_iv (SK_SUMMONING) const_iv (SK_PYROMANCY) const_iv (SK_EVOCATION) const_iv (SK_SORCERY)
1357 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)
1358 const_iv (SK_DET_MAGIC)
1359 const_iv (SK_ORATORY)
1360 const_iv (SK_SINGING)
1361 const_iv (SK_DET_CURSE)
1362 const_iv (SK_FIND_TRAPS)
1363 const_iv (SK_MEDITATION)
1364 const_iv (SK_PUNCHING)
1365 const_iv (SK_FLAME_TOUCH)
1366 const_iv (SK_KARATE)
1367 const_iv (SK_CLIMBING)
1368 const_iv (SK_WOODSMAN)
1369 const_iv (SK_INSCRIPTION)
1370 const_iv (SK_ONE_HANDED_WEAPON)
1371 const_iv (SK_MISSILE_WEAPON)
1372 const_iv (SK_THROWING)
1373 const_iv (SK_USE_MAGIC_ITEM)
1374 const_iv (SK_DISARM_TRAPS)
1375 const_iv (SK_SET_TRAP)
1376 const_iv (SK_THAUMATURGY)
1377 const_iv (SK_PRAYING)
1378 const_iv (SK_CLAWING)
1379 const_iv (SK_LEVITATION)
1380 const_iv (SK_SUMMONING)
1381 const_iv (SK_PYROMANCY)
1382 const_iv (SK_EVOCATION)
1383 const_iv (SK_SORCERY)
1384 const_iv (SK_TWO_HANDED_WEAPON)
1385 const_iv (SK_SPARK_TOUCH)
1386 const_iv (SK_SHIVER)
1387 const_iv (SK_ACID_SPLASH)
1388 const_iv (SK_POISON_NAIL) 1452 const_iv (SK_POISON_NAIL)
1389 1453
1390 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)
1391 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)
1392 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)
1393 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)
1394 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)
1395 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)
1396 const_iv (SOUND_PUSH_PLAYER)
1397 const_iv (SOUND_PLAYER_HITS1)
1398 const_iv (SOUND_PLAYER_HITS2)
1399 const_iv (SOUND_PLAYER_HITS3)
1400 const_iv (SOUND_PLAYER_HITS4)
1401 const_iv (SOUND_PLAYER_IS_HIT1)
1402 const_iv (SOUND_PLAYER_IS_HIT2)
1403 const_iv (SOUND_PLAYER_IS_HIT3)
1404 const_iv (SOUND_PLAYER_KILLS)
1405 const_iv (SOUND_PET_IS_KILLED)
1406 const_iv (SOUND_PLAYER_DIES)
1407 const_iv (SOUND_OB_EVAPORATE)
1408 const_iv (SOUND_OB_EXPLODE)
1409 const_iv (SOUND_CLOCK)
1410 const_iv (SOUND_TURN_HANDLE)
1411 const_iv (SOUND_FALL_HOLE)
1412 const_iv (SOUND_DRINK_POISON)
1413 const_iv (SOUND_CAST_SPELL_0)
1414 1460
1415 const_iv (PREFER_LOW) 1461 const_iv (PREFER_LOW) const_iv (PREFER_HIGH)
1416 const_iv (PREFER_HIGH)
1417 1462
1418 const_iv (ATNR_PHYSICAL) 1463 const_iv (ATNR_PHYSICAL) const_iv (ATNR_MAGIC) const_iv (ATNR_FIRE) const_iv (ATNR_ELECTRICITY)
1419 const_iv (ATNR_MAGIC) 1464 const_iv (ATNR_COLD) const_iv (ATNR_CONFUSION) const_iv (ATNR_ACID) const_iv (ATNR_DRAIN)
1420 const_iv (ATNR_FIRE) 1465 const_iv (ATNR_WEAPONMAGIC) const_iv (ATNR_GHOSTHIT) const_iv (ATNR_POISON) const_iv (ATNR_SLOW)
1421 const_iv (ATNR_ELECTRICITY) 1466 const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1422 const_iv (ATNR_COLD) 1467 const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1423 const_iv (ATNR_CONFUSION) 1468 const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1424 const_iv (ATNR_ACID) 1469 const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1425 const_iv (ATNR_DRAIN)
1426 const_iv (ATNR_WEAPONMAGIC)
1427 const_iv (ATNR_GHOSTHIT)
1428 const_iv (ATNR_POISON)
1429 const_iv (ATNR_SLOW)
1430 const_iv (ATNR_PARALYZE)
1431 const_iv (ATNR_TURN_UNDEAD)
1432 const_iv (ATNR_FEAR)
1433 const_iv (ATNR_CANCELLATION)
1434 const_iv (ATNR_DEPLETE)
1435 const_iv (ATNR_DEATH)
1436 const_iv (ATNR_CHAOS)
1437 const_iv (ATNR_COUNTERSPELL)
1438 const_iv (ATNR_GODPOWER)
1439 const_iv (ATNR_HOLYWORD)
1440 const_iv (ATNR_BLIND)
1441 const_iv (ATNR_INTERNAL)
1442 const_iv (ATNR_LIFE_STEALING)
1443 const_iv (ATNR_DISEASE)
1444 1470
1445 const_iv (MAP_FLUSH) 1471 const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
1446 const_iv (MAP_PLAYER_UNIQUE)
1447 const_iv (MAP_BLOCK)
1448 const_iv (MAP_STYLE)
1449 const_iv (MAP_OVERLAY)
1450 1472
1451 const_iv (MAP_IN_MEMORY) 1473 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1452 const_iv (MAP_SWAPPED) 1474 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1453 const_iv (MAP_LOADING)
1454 const_iv (MAP_SAVING)
1455 1475
1456 const_iv (KLASS_ATTACHABLE) 1476 const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT)
1457 const_iv (KLASS_GLOBAL)
1458 const_iv (KLASS_OBJECT)
1459 const_iv (KLASS_CLIENT)
1460 const_iv (KLASS_PLAYER)
1461 const_iv (KLASS_MAP)
1462 1477
1463 const_iv (CS_QUERY_YESNO) 1478 const_iv (ST_DEAD) const_iv (ST_SETUP) const_iv (ST_PLAYING) const_iv (ST_CUSTOM)
1464 const_iv (CS_QUERY_SINGLECHAR)
1465 const_iv (CS_QUERY_HIDEINPUT)
1466 1479
1467 const_iv (ST_DEAD) 1480 const_iv (IO_HEADER) const_iv (IO_OBJECTS) const_iv (IO_UNIQUES)
1468 const_iv (ST_SETUP)
1469 const_iv (ST_PLAYING)
1470 const_iv (ST_CUSTOM)
1471
1472 const_iv (ST_CHANGE_CLASS)
1473
1474 const_iv (IO_HEADER)
1475 const_iv (IO_OBJECTS)
1476 const_iv (IO_UNIQUES)
1477 1481
1478 // random map generator 1482 // random map generator
1479 const_iv (LAYOUT_NONE) 1483 const_iv (LAYOUT_NONE) const_iv (LAYOUT_ONION) const_iv (LAYOUT_MAZE) const_iv (LAYOUT_SPIRAL)
1480 const_iv (LAYOUT_ONION) 1484 const_iv (LAYOUT_ROGUELIKE) const_iv (LAYOUT_SNAKE) const_iv (LAYOUT_SQUARE_SPIRAL)
1481 const_iv (LAYOUT_MAZE)
1482 const_iv (LAYOUT_SPIRAL)
1483 const_iv (LAYOUT_ROGUELIKE)
1484 const_iv (LAYOUT_SNAKE)
1485 const_iv (LAYOUT_SQUARE_SPIRAL)
1486 1485
1487 const_iv (RMOPT_RANDOM) 1486 const_iv (RMOPT_RANDOM) const_iv (RMOPT_CENTERED) const_iv (RMOPT_LINEAR)
1488 const_iv (RMOPT_CENTERED) 1487 const_iv (RMOPT_BOTTOM_C) const_iv (RMOPT_BOTTOM_R) const_iv (RMOPT_IRR_SPACE)
1489 const_iv (RMOPT_LINEAR) 1488 const_iv (RMOPT_WALL_OFF) const_iv (RMOPT_WALLS_ONLY) const_iv (RMOPT_NO_DOORS)
1490 const_iv (RMOPT_BOTTOM_C)
1491 const_iv (RMOPT_BOTTOM_R)
1492 const_iv (RMOPT_IRR_SPACE)
1493 const_iv (RMOPT_WALL_OFF)
1494 const_iv (RMOPT_WALLS_ONLY)
1495 const_iv (RMOPT_NO_DOORS)
1496 1489
1497 const_iv (SYMMETRY_RANDOM) 1490 const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1498 const_iv (SYMMETRY_NONE) 1491 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1499 const_iv (SYMMETRY_X) 1492
1500 const_iv (SYMMETRY_Y) 1493 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1501 const_iv (SYMMETRY_XY) 1494 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)
1495 const_iv (GT_MINIMAL)
1502 }; 1496 };
1503 1497
1504 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; )
1505 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv)); 1499 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));
1506 1500
… …
1527 } 1521 }
1528} 1522}
1529 1523
1530void _connect_to_perl () 1524void _connect_to_perl ()
1531 1525
1526void _recalc_want ()
1527
1532void _global_reattach () 1528void _global_reattach ()
1533 CODE: 1529 CODE:
1534{ 1530{
1535 // reattach to all attachable objects in the game. 1531 // reattach to all attachable objects in the game.
1536 for_all_clients (ns) 1532 for_all_clients (ns)
1537 ns->reattach (); 1533 ns->reattach ();
1538 1534
1539 for_all_players (pl)
1540 pl->reattach ();
1541
1542 //TODO
1543 //for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)
1544 // i->second->reattach ();
1545
1546 for_all_objects (op) 1535 for_all_objects (op)
1547 op->reattach (); 1536 op->reattach ();
1548} 1537}
1549 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
1550NV floor (NV x) 1585NV floor (NV x)
1551 1586
1552NV ceil (NV x) 1587NV ceil (NV x)
1553 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
1554void server_tick () 1617void server_tick ()
1555 CODE: 1618 CODE:
1619 NOW = now ();
1556 runtime = SvNVx (sv_runtime); 1620 runtime = SvNVx (sv_runtime);
1557 server_tick (); 1621 server_tick ();
1558 1622
1559void 1623void
1560LOG (int level, char *msg) 1624log_backtrace (utf8_string msg)
1625
1626void
1627LOG (int flags, utf8_string msg)
1561 PROTOTYPE: $$ 1628 PROTOTYPE: $$
1562 C_ARGS: (LogLevel)level, "%s", msg 1629 C_ARGS: flags, "%s", msg
1563 1630
1564char *path_combine (char *base, char *path) 1631octet_string path_combine (octet_string base, octet_string path)
1565 PROTOTYPE: $$ 1632 PROTOTYPE: $$
1566 1633
1567char *path_combine_and_normalize (char *base, char *path) 1634octet_string path_combine_and_normalize (octet_string base, octet_string path)
1568 PROTOTYPE: $$ 1635 PROTOTYPE: $$
1569 1636
1570const char * 1637const_octet_string
1571get_maps_directory (char *path) 1638get_maps_directory (octet_string path)
1572 PROTOTYPE: $ 1639 PROTOTYPE: $
1573 ALIAS: maps_directory = 0 1640 ALIAS: maps_directory = 0
1574 CODE: 1641 CODE:
1575 RETVAL = create_pathname (path); 1642 RETVAL = create_pathname (path);
1576 OUTPUT: RETVAL 1643 OUTPUT: RETVAL
… …
1578void 1645void
1579sub_generation_inc () 1646sub_generation_inc ()
1580 CODE: 1647 CODE:
1581 PL_sub_generation++; 1648 PL_sub_generation++;
1582 1649
1583char * 1650const_octet_string
1584mapdir () 1651mapdir ()
1585 PROTOTYPE: 1652 PROTOTYPE:
1586 ALIAS: 1653 ALIAS:
1587 mapdir = 0 1654 mapdir = 0
1588 uniquedir = 1 1655 uniquedir = 1
… …
1604 } 1671 }
1605 OUTPUT: RETVAL 1672 OUTPUT: RETVAL
1606 1673
1607void abort () 1674void abort ()
1608 1675
1676void reset_signals ()
1677
1678void fork_abort (octet_string cause = "cf::fork_abort")
1679
1609void cleanup (const char *cause, bool make_core = false) 1680void cleanup (octet_string cause, bool make_core = false)
1610 1681
1611void emergency_save () 1682void emergency_save ()
1612 1683
1613void _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
1614 1691
1615#if _POSIX_MEMLOCK 1692#if _POSIX_MEMLOCK
1616 1693
1617int mlockall (int flags = MCL_CURRENT | MCL_FUTURE) 1694int mlockall (int flags = MCL_CURRENT | MCL_FUTURE)
1618 1695
1619int munlockall () 1696int munlockall ()
1620 1697
1621#endif 1698#endif
1622 1699
1623int find_animation (char *text) 1700int find_animation (utf8_string text)
1624 PROTOTYPE: $ 1701 PROTOTYPE: $
1625 1702
1626int random_roll (int min, int max, object *op, int goodbad); 1703int random_roll (int min, int max, object *op, int goodbad);
1627 1704
1628const char *cost_string_from_value(uint64 cost, int approx = 0) 1705const_utf8_string cost_string_from_value(uint64 cost, int approx = 0)
1629 1706
1630int 1707int
1631exp_to_level (val64 exp) 1708exp_to_level (val64 exp)
1632 CODE: 1709 CODE:
1633{ 1710{
… …
1664 RETVAL = newSVpv (resist_plus[atnr], 0); 1741 RETVAL = newSVpv (resist_plus[atnr], 0);
1665 else 1742 else
1666 XSRETURN_UNDEF; 1743 XSRETURN_UNDEF;
1667 OUTPUT: RETVAL 1744 OUTPUT: RETVAL
1668 1745
1746bool
1747load_resource_file (octet_string filename)
1748
1669MODULE = cf PACKAGE = cf::attachable 1749MODULE = cf PACKAGE = cf::attachable
1670 1750
1671int 1751int
1672valid (SV *obj) 1752valid (SV *obj)
1673 CODE: 1753 CODE:
1674 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext); 1754 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1675 OUTPUT: 1755 OUTPUT:
1676 RETVAL 1756 RETVAL
1677 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
1678INCLUDE: $PERL genacc attachable ../include/cfperl.h | 1775INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h |
1679 1776
1680MODULE = cf PACKAGE = cf::global 1777MODULE = cf PACKAGE = cf::global
1681 1778
1682int invoke (SV *klass, int event, ...) 1779int invoke (SV *klass, int event, ...)
1683 CODE: 1780 CODE:
… …
1687 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);
1688 OUTPUT: RETVAL 1785 OUTPUT: RETVAL
1689 1786
1690MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1787MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1691 1788
1692INCLUDE: $PERL genacc object ../include/object.h | 1789INCLUDE: $PERL $srcdir/genacc object ../include/object.h |
1693 1790
1694int invoke (object *op, int event, ...) 1791int invoke (object *op, int event, ...)
1695 CODE: 1792 CODE:
1696 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");
1697 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 1794 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
1699 RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END); 1796 RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);
1700 OUTPUT: RETVAL 1797 OUTPUT: RETVAL
1701 1798
1702SV *registry (object *op) 1799SV *registry (object *op)
1703 1800
1704void mortals ()
1705 PPCODE:
1706 EXTEND (SP, object::mortals.size ());
1707 for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i)
1708 PUSHs (to_sv (*i));
1709
1710int objects_size () 1801int objects_size ()
1711 CODE: 1802 CODE:
1712 RETVAL = objects.size (); 1803 RETVAL = objects.size ();
1713 OUTPUT: RETVAL 1804 OUTPUT: RETVAL
1714 1805
… …
1725object *actives (U32 index) 1816object *actives (U32 index)
1726 CODE: 1817 CODE:
1727 RETVAL = index < actives.size () ? actives [index] : 0; 1818 RETVAL = index < actives.size () ? actives [index] : 0;
1728 OUTPUT: RETVAL 1819 OUTPUT: RETVAL
1729 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
1730# missing properties 1838# missing properties
1731 1839
1732object *head (object *op) 1840object *head (object *op)
1733 PROTOTYPE: $ 1841 PROTOTYPE: $
1734 CODE: 1842 CODE:
1735 RETVAL = op->head_ (); 1843 RETVAL = op->head_ ();
1736 OUTPUT: RETVAL
1737
1738int is_head (object *op)
1739 PROTOTYPE: $
1740 CODE:
1741 RETVAL = op->head_ () == op;
1742 OUTPUT: RETVAL 1844 OUTPUT: RETVAL
1743 1845
1744void 1846void
1745inv (object *obj) 1847inv (object *obj)
1746 PROTOTYPE: $ 1848 PROTOTYPE: $
… …
1754void 1856void
1755set_animation (object *op, int idx) 1857set_animation (object *op, int idx)
1756 CODE: 1858 CODE:
1757 SET_ANIMATION (op, idx); 1859 SET_ANIMATION (op, idx);
1758 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
1759object *find_best_object_match (object *op, const char *match) 1886object *find_best_object_match (object *op, utf8_string match)
1760 1887
1761object *find_marked_object (object *op) 1888object *find_marked_object (object *op)
1762 1889
1763int need_identify (object *obj); 1890int need_identify (object *obj);
1764 1891
1765int 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
1766 1899
1767int move (object *op, int dir, object *originator = op) 1900int move (object *op, int dir, object *originator = op)
1768 CODE: 1901 CODE:
1769 RETVAL = move_ob (op, dir, originator); 1902 RETVAL = move_ob (op, dir, originator);
1770 OUTPUT: 1903 OUTPUT:
… …
1776 1909
1777void apply_below (object *op) 1910void apply_below (object *op)
1778 CODE: 1911 CODE:
1779 player_apply_below (op); 1912 player_apply_below (op);
1780 1913
1914int cast_heal (object *op, object *caster, object *spell, int dir = 0)
1915
1781object *cf_object_present_archname_inside (object *op, char *whatstr) 1916object *cf_object_present_archname_inside (object *op, utf8_string whatstr)
1782 1917
1783int 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)
1784 1919
1785int 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)
1786 1921
… …
1806 RETVAL = pay_for_amount (amount, op); 1941 RETVAL = pay_for_amount (amount, op);
1807 OUTPUT: RETVAL 1942 OUTPUT: RETVAL
1808 1943
1809void pay_player (object *op, uint64 amount) 1944void pay_player (object *op, uint64 amount)
1810 1945
1811val64 pay_player_arch (object *op, const char *arch, uint64 amount) 1946val64 pay_player_arch (object *op, utf8_string arch, uint64 amount)
1812 1947
1813int 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)
1814 1949
1815void learn_spell (object *op, object *sp, int special_prayer = 0) 1950void learn_spell (object *op, object *sp, int special_prayer = 0)
1816 CODE: 1951 CODE:
1817 do_learn_spell (op, sp, special_prayer); 1952 do_learn_spell (op, sp, special_prayer);
1818 1953
1819void forget_spell (object *op, object *sp) 1954void forget_spell (object *op, object *sp)
1820 CODE: 1955 CODE:
1821 do_forget_spell (op, query_name (sp)); 1956 do_forget_spell (op, query_name (sp));
1822 1957
1823object *check_for_spell (object *op, char *spellname) 1958object *check_for_spell (object *op, utf8_string spellname)
1824 CODE: 1959 CODE:
1825 RETVAL = check_spell_known (op, spellname); 1960 RETVAL = check_spell_known (op, spellname);
1826 OUTPUT: RETVAL 1961 OUTPUT: RETVAL
1827 1962
1828int query_money (object *op) 1963int query_money (object *op)
… …
1837 1972
1838void drop (object *who, object *op) 1973void drop (object *who, object *op)
1839 1974
1840void pick_up (object *who, object *op) 1975void pick_up (object *who, object *op)
1841 1976
1842object *cf_object_insert_object (object *op, object *container)
1843
1844object *cf_object_insert_in_ob (object *ob, object *where)
1845
1846int cf_object_teleport (object *op, maptile *map, int x, int y) 1977int cf_object_teleport (object *op, maptile *map, int x, int y)
1847 1978
1848void update_object (object *op, int action) 1979void update_object (object *op, int action)
1849 1980
1850object *cf_create_object_by_name (const char *name) 1981object *cf_create_object_by_name (utf8_string name)
1851 1982
1852void 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)
1853 1984
1854void player_lvl_adj (object *who, object *skill = 0) 1985void player_lvl_adj (object *who, object *skill = 0)
1855 1986
1856int 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)
1857 1988
… …
1871object *cf_insert_ob_in_ob (object *ob, object *where) 2002object *cf_insert_ob_in_ob (object *ob, object *where)
1872 2003
1873# 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
1874# dumb kludgy misdesigned plug-in api slowly gets on my nerves. 2005# dumb kludgy misdesigned plug-in api slowly gets on my nerves.
1875 2006
1876object *new (const char *archetype = 0) 2007object *new (utf8_string archetype = 0)
1877 PROTOTYPE: ;$ 2008 PROTOTYPE: ;$
1878 CODE: 2009 CODE:
1879 RETVAL = archetype ? get_archetype (archetype) : cf_create_object (); 2010 RETVAL = archetype ? get_archetype (archetype) : object::create ();
1880 OUTPUT: 2011 OUTPUT:
1881 RETVAL 2012 RETVAL
1882 2013
2014object *find_object (U32 tag)
2015
2016# TODO: nuke
1883object *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)
1884 PROTOTYPE: $$$$$$ 2018 PROTOTYPE: $$$$$$
1885 CODE: 2019 CODE:
1886{ 2020{
1887 int unused_type; 2021 int unused_type;
1888 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);
1889} 2023}
1890 2024
1891# syntatic sugar for easier use in event callbacks. 2025const_utf8_string get_ob_key_value (object *op, utf8_string key)
1892const char *options (object *op)
1893 CODE:
1894 RETVAL = op->name;
1895 OUTPUT:
1896 RETVAL
1897 2026
1898player *contr (object *op)
1899 CODE:
1900 RETVAL = op->contr;
1901 OUTPUT: RETVAL
1902
1903const char *get_ob_key_value (object *op, const char *key)
1904
1905bool 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)
1906 2028
1907object *get_nearest_player (object *ob) 2029object *get_nearest_player (object *ob)
1908 ALIAS: nearest_player = 0 2030 ALIAS: nearest_player = 0
1909 PREINIT: 2031 PREINIT:
1910 extern object *get_nearest_player (object *); 2032 extern object *get_nearest_player (object *);
… …
1926bool on_same_map_as (object *ob, object *other) 2048bool on_same_map_as (object *ob, object *other)
1927 CODE: 2049 CODE:
1928 RETVAL = on_same_map (ob, other); 2050 RETVAL = on_same_map (ob, other);
1929 OUTPUT: RETVAL 2051 OUTPUT: RETVAL
1930 2052
1931const char * 2053const_utf8_string
1932base_name (object *op, int plural = op->nrof > 1) 2054base_name (object *op, int plural = op->nrof > 1)
1933 CODE: 2055 CODE:
1934 RETVAL = query_base_name (op, plural); 2056 RETVAL = query_base_name (op, plural);
1935 OUTPUT: RETVAL 2057 OUTPUT: RETVAL
1936 2058
… …
1943 RETVAL = op->contr; 2065 RETVAL = op->contr;
1944 OUTPUT: RETVAL 2066 OUTPUT: RETVAL
1945 2067
1946void check_score (object *op) 2068void check_score (object *op)
1947 2069
1948void message (object *op, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 2070void message (object *op, utf8_string txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1949 CODE: 2071 CODE:
1950 new_draw_info (flags, 0, op, txt); 2072 new_draw_info (flags, 0, op, txt);
1951
1952object *cf_player_send_inventory (object *op)
1953
1954char *cf_player_get_ip (object *op)
1955 ALIAS: ip = 0
1956
1957object *cf_player_get_marked_item (object *op)
1958 ALIAS: marked_item = 0
1959
1960void cf_player_set_marked_item (object *op, object *ob)
1961
1962partylist *cf_player_get_party (object *op)
1963 ALIAS: party = 0
1964
1965void cf_player_set_party (object *op, partylist *party)
1966 2073
1967void kill_player (object *op) 2074void kill_player (object *op)
1968 2075
1969void esrv_update_item (object *op, int what, object *item) 2076void esrv_update_item (object *op, int what, object *item)
1970 C_ARGS: what, op, item 2077 C_ARGS: what, op, item
1971 2078
1972void clear_los (object *op)
1973
1974int command_teleport (object *op, char *params)
1975
1976int command_summon (object *op, char *params) 2079int command_summon (object *op, utf8_string params)
1977 2080
1978int command_arrest (object *op, char *params) 2081int command_arrest (object *op, utf8_string params)
1979
1980int command_kick (object *op, char *params)
1981
1982int command_banish (object *op, char *params)
1983 2082
1984 2083
1985MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 2084MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1986 2085
1987INCLUDE: $PERL genacc player ../include/player.h | 2086INCLUDE: $PERL $srcdir/genacc player ../include/player.h |
1988 2087
1989int invoke (player *pl, int event, ...) 2088int invoke (player *pl, int event, ...)
1990 CODE: 2089 CODE:
1991 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");
1992 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2091 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2002 pl->ob->stats.hp = pl->ob->stats.maxhp; 2101 pl->ob->stats.hp = pl->ob->stats.maxhp;
2003 pl->ob->stats.sp = pl->ob->stats.maxsp; 2102 pl->ob->stats.sp = pl->ob->stats.maxsp;
2004 pl->ob->stats.grace = pl->ob->stats.maxgrace; 2103 pl->ob->stats.grace = pl->ob->stats.maxgrace;
2005 pl->orig_stats = pl->ob->stats; 2104 pl->orig_stats = pl->ob->stats;
2006 2105
2106void clear_los (player *pl)
2107
2007void cf_player_move (player *pl, int dir) 2108void cf_player_move (player *pl, int dir)
2008 2109
2009void 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);
2010
2011player *first ()
2012 CODE:
2013 RETVAL = first_player;
2014 OUTPUT: RETVAL
2015 2111
2016bool 2112bool
2017cell_visible (player *pl, int dx, int dy) 2113cell_visible (player *pl, int dx, int dy)
2018 CODE: 2114 CODE:
2019 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
… …
2072 RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END); 2168 RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);
2073 OUTPUT: RETVAL 2169 OUTPUT: RETVAL
2074 2170
2075SV *registry (maptile *map) 2171SV *registry (maptile *map)
2076 2172
2077INCLUDE: $PERL genacc maptile ../include/map.h | 2173INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h |
2078 2174
2079void 2175void
2080maptile::instantiate () 2176maptile::instantiate ()
2081 2177
2082maptile *new () 2178maptile *new ()
… …
2097 for_all_players (pl) 2193 for_all_players (pl)
2098 if (pl->ob && pl->ob->map == THIS) 2194 if (pl->ob && pl->ob->map == THIS)
2099 PUSHs (sv_2mortal (to_sv (pl->ob))); 2195 PUSHs (sv_2mortal (to_sv (pl->ob)));
2100 } 2196 }
2101 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
2102void 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)
2103 2303
2104int out_of_map (maptile *map, int x, int y) 2304int out_of_map (maptile *map, int x, int y)
2105 2305
2106void 2306void
… …
2122 2322
2123object* 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)
2124 C_ARGS: str, map, nx, ny 2324 C_ARGS: str, map, nx, ny
2125 2325
2126void 2326void
2127cf_map_normalise (maptile *map, int x, int y) 2327get_map_flags (maptile *map, int x, int y)
2128 PPCODE: 2328 PPCODE:
2129{ 2329{
2130 maptile *nmap = 0; 2330 maptile *nmap = 0;
2131 I16 nx = 0, ny = 0; 2331 I16 nx = 0, ny = 0;
2132 int flags = get_map_flags (map, &nmap, x, y, &nx, &ny); 2332 int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
… …
2187 2387
2188void fix_walls (maptile *map, int x, int y) 2388void fix_walls (maptile *map, int x, int y)
2189 2389
2190void fix_walls_around (maptile *map, int x, int y) 2390void fix_walls_around (maptile *map, int x, int y)
2191 2391
2192const char *
2193region_name (maptile *m)
2194 CODE:
2195 RETVAL = get_name_of_region_for_map (m);
2196 OUTPUT: RETVAL
2197
2198# worst xs function of my life 2392# worst xs function of my life
2199maptile * 2393bool
2200_create_random_map (\ 2394_create_random_map (\
2201 char *path,\ 2395 maptile *self,\
2202 char *wallstyle,\ 2396 utf8_string wallstyle,\
2203 char *wall_name,\ 2397 utf8_string wall_name,\
2204 char *floorstyle,\ 2398 utf8_string floorstyle,\
2205 char *monsterstyle,\ 2399 utf8_string monsterstyle,\
2206 char *treasurestyle,\ 2400 utf8_string treasurestyle,\
2207 char *layoutstyle,\ 2401 utf8_string layoutstyle,\
2208 char *doorstyle,\ 2402 utf8_string doorstyle,\
2209 char *decorstyle,\ 2403 utf8_string decorstyle,\
2210 char *origin_map,\ 2404 utf8_string origin_map,\
2211 char *final_map,\ 2405 utf8_string final_map,\
2212 char *exitstyle,\ 2406 utf8_string exitstyle,\
2213 char *this_map,\ 2407 utf8_string this_map,\
2214 char *exit_on_final_map,\ 2408 utf8_string exit_on_final_map,\
2215 int Xsize,\ 2409 int xsize,\
2216 int Ysize,\ 2410 int ysize,\
2217 int expand2x,\ 2411 int expand2x,\
2218 int layoutoptions1,\ 2412 int layoutoptions1,\
2219 int layoutoptions2,\ 2413 int layoutoptions2,\
2220 int layoutoptions3,\ 2414 int layoutoptions3,\
2221 int symmetry,\ 2415 int symmetry,\
… …
2226 int dungeon_depth,\ 2420 int dungeon_depth,\
2227 int decoroptions,\ 2421 int decoroptions,\
2228 int orientation,\ 2422 int orientation,\
2229 int origin_y,\ 2423 int origin_y,\
2230 int origin_x,\ 2424 int origin_x,\
2231 int random_seed,\ 2425 U32 random_seed,\
2232 val64 total_map_hp,\ 2426 val64 total_map_hp,\
2233 int map_layout_style,\ 2427 int map_layout_style,\
2234 int treasureoptions,\ 2428 int treasureoptions,\
2235 int symmetry_used,\ 2429 int symmetry_used,\
2236 region *region\ 2430 region *region,\
2431 utf8_string custom\
2237) 2432)
2238 CODE: 2433 CODE:
2239{ 2434{
2240 random_map_params rmp; 2435 random_map_params rmp;
2241 2436
… …
2251 assign (rmp.exit_on_final_map, exit_on_final_map); 2446 assign (rmp.exit_on_final_map, exit_on_final_map);
2252 2447
2253 rmp.origin_map = origin_map; 2448 rmp.origin_map = origin_map;
2254 rmp.final_map = final_map; 2449 rmp.final_map = final_map;
2255 rmp.this_map = this_map; 2450 rmp.this_map = this_map;
2256 rmp.Xsize = Xsize; 2451 rmp.xsize = xsize;
2257 rmp.Ysize = Ysize; 2452 rmp.ysize = ysize;
2258 rmp.expand2x = expand2x; 2453 rmp.expand2x = expand2x;
2259 rmp.layoutoptions1 = layoutoptions1; 2454 rmp.layoutoptions1 = layoutoptions1;
2260 rmp.layoutoptions2 = layoutoptions2; 2455 rmp.layoutoptions2 = layoutoptions2;
2261 rmp.layoutoptions3 = layoutoptions3; 2456 rmp.layoutoptions3 = layoutoptions3;
2262 rmp.symmetry = symmetry; 2457 rmp.symmetry = symmetry;
… …
2268 rmp.decoroptions = decoroptions; 2463 rmp.decoroptions = decoroptions;
2269 rmp.orientation = orientation; 2464 rmp.orientation = orientation;
2270 rmp.origin_y = origin_y; 2465 rmp.origin_y = origin_y;
2271 rmp.origin_x = origin_x; 2466 rmp.origin_x = origin_x;
2272 rmp.random_seed = random_seed; 2467 rmp.random_seed = random_seed;
2273 rmp.total_map_hp = total_map_hp; 2468 rmp.total_map_hp = (uint64_t) total_map_hp;
2274 rmp.map_layout_style = map_layout_style; 2469 rmp.map_layout_style = map_layout_style;
2275 rmp.treasureoptions = treasureoptions; 2470 rmp.treasureoptions = treasureoptions;
2276 rmp.symmetry_used = symmetry_used; 2471 rmp.symmetry_used = symmetry_used;
2277 rmp.region = region; 2472 rmp.region = region;
2473 rmp.custom = custom;
2278 2474
2279 RETVAL = generate_random_map (path, &rmp); 2475 RETVAL = self->generate_random_map (&rmp);
2280} 2476}
2281 OUTPUT: 2477 OUTPUT:
2282 RETVAL 2478 RETVAL
2283 2479
2284MODULE = cf PACKAGE = cf::arch 2480MODULE = cf PACKAGE = cf::arch
2285 2481
2286archetype *find (const char *name) 2482archetype *find (utf8_string name)
2287 CODE: 2483 CODE:
2288 RETVAL = archetype::find (name); 2484 RETVAL = archetype::find (name);
2289 OUTPUT: 2485 OUTPUT:
2290 RETVAL 2486 RETVAL
2291 2487
2292archetype *first() 2488int archetypes_size ()
2293 PROTOTYPE: 2489 CODE:
2294 CODE:
2295 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:
2296 OUTPUT: RETVAL 2502 RETVAL
2297 2503
2298INCLUDE: $PERL genacc archetype ../include/object.h | 2504INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h |
2299 2505
2300MODULE = cf PACKAGE = cf::party 2506MODULE = cf PACKAGE = cf::party
2301 2507
2302partylist *first () 2508partylist *first ()
2303 PROTOTYPE: 2509 PROTOTYPE:
2304 CODE: 2510 CODE:
2305 RETVAL = get_firstparty (); 2511 RETVAL = get_firstparty ();
2306 OUTPUT: RETVAL 2512 OUTPUT: RETVAL
2307 2513
2308INCLUDE: $PERL genacc partylist ../include/player.h | 2514INCLUDE: $PERL $srcdir/genacc partylist ../include/player.h |
2309 2515
2310MODULE = cf PACKAGE = cf::region 2516MODULE = cf PACKAGE = cf::region
2311 2517
2312region *first () 2518void
2313 PROTOTYPE: 2519list ()
2314 CODE: 2520 PPCODE:
2315 RETVAL = first_region; 2521 for_all_regions (rgn)
2316 OUTPUT: RETVAL 2522 XPUSHs (sv_2mortal (to_sv (rgn)));
2317 2523
2318region *find (char *name) 2524region *find (utf8_string name)
2319 PROTOTYPE: $ 2525 PROTOTYPE: $
2320 CODE: 2526 CODE:
2321 RETVAL = get_region_by_name (name); 2527 RETVAL = region::find (name);
2322 OUTPUT: RETVAL 2528 OUTPUT: RETVAL
2323 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
2324INCLUDE: $PERL genacc region ../include/map.h | 2543INCLUDE: $PERL $srcdir/genacc region ../include/region.h |
2325 2544
2326MODULE = cf PACKAGE = cf::living 2545MODULE = cf PACKAGE = cf::living
2327 2546
2328INCLUDE: $PERL genacc living ../include/living.h | 2547INCLUDE: $PERL $srcdir/genacc living ../include/living.h |
2329 2548
2330MODULE = cf PACKAGE = cf::settings 2549MODULE = cf PACKAGE = cf::settings
2331 2550
2332INCLUDE: $PERL genacc Settings ../include/global.h | 2551INCLUDE: $PERL $srcdir/genacc Settings ../include/global.h |
2333 2552
2334MODULE = cf PACKAGE = cf::client 2553MODULE = cf PACKAGE = cf::client
2335 2554
2336INCLUDE: $PERL genacc client ../include/client.h | 2555INCLUDE: $PERL $srcdir/genacc client ../include/client.h |
2337 2556
2338int invoke (client *ns, int event, ...) 2557int invoke (client *ns, int event, ...)
2339 CODE: 2558 CODE:
2340 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");
2341 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2560 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2360 char *buf = SvPVbyte (packet, len); 2579 char *buf = SvPVbyte (packet, len);
2361 2580
2362 THIS->send_packet (buf, len); 2581 THIS->send_packet (buf, len);
2363} 2582}
2364 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