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.181 by root, Tue Apr 3 00:21:38 2007 UTC vs.
Revision 1.211 by root, Sat May 19 11:19:03 2007 UTC

1/*****************************************************************************/
2/* CrossFire, A Multiplayer game for the X Window System */
3/*****************************************************************************/
4
5/* 1/*
2 * CrossFire, A Multiplayer game
3 *
6 * This code is placed under the GNU General Public Licence (GPL) 4 * This code is placed under the GNU General Public Licence (GPL)
7 * 5 *
8 * Copyright (C) 2001-2005 by Chachkoff Yann 6 * Copyright (C) 2001-2005 by Chachkoff Yann
9 * Copyright (C) 2006,2007 by Marc Lehmann <cf@schmorp.de> 7 * Copyright (C) 2006,2007 by Marc Lehmann <cf@schmorp.de>
10 * 8 *
21 * You should have received a copy of the GNU General Public License 19 * You should have received a copy of the GNU General Public License
22 * along with this program; if not, write to the Free Software 20 * along with this program; if not, write to the Free Software
23 * Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 21 * Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
24 */ 22 */
25 23
24#include "autoconf.h"
25
26#define PLUGIN_NAME "perl" 26#define PLUGIN_NAME "perl"
27#define PLUGIN_VERSION "cfperl 0.5" 27#define PLUGIN_VERSION "cfperl 0.5"
28
29#define CEDES_PER_TICK 5
30
31#if HAVE_EXECINFO_H
32# include <execinfo.h>
33#endif
28 34
29#include <plugin_common.h> 35#include <plugin_common.h>
30#include <sounds.h> 36#include <sounds.h>
31#include <cstdarg> 37#include <cstdarg>
32#include <sproto.h> 38#include <sproto.h>
49 55
50extern sint64 *levels; // the experience table 56extern sint64 *levels; // the experience table
51 57
52typedef object object_ornull; 58typedef object object_ornull;
53typedef 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;
54 67
55#if IVSIZE >= 8 68#if IVSIZE >= 8
56 typedef IV val64; 69 typedef IV val64;
57# define newSVval64 newSViv 70# define newSVval64 newSViv
58# define SvVAL64 SvIV 71# define SvVAL64 SvIV
70 83
71double runtime; 84double runtime;
72 85
73global gbl_ev; 86global gbl_ev;
74static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map; 87static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map;
75static SV *sv_runtime; 88static SV *sv_runtime, *sv_next_tick;
89
90bitset<NUM_EVENT_TYPES> ev_want_event;
91bitset<NUM_TYPES> ev_want_type;
76 92
77static HV 93static HV
78 *stash_cf, 94 *stash_cf,
79 *stash_cf_object_wrap, 95 *stash_cf_object_wrap,
80 *stash_cf_object_player_wrap, 96 *stash_cf_object_player_wrap,
102 118
103unordered_vector<attachable *> attachable::mortals; 119unordered_vector<attachable *> attachable::mortals;
104 120
105attachable::~attachable () 121attachable::~attachable ()
106{ 122{
107 flags |=0x3300;//D
108 assert (!self); 123 assert (!self);
109 assert (!cb); 124 assert (!cb);
110} 125}
111 126
112int 127int
128 sv_unmagic ((SV *)self, PERL_MAGIC_ext); 143 sv_unmagic ((SV *)self, PERL_MAGIC_ext);
129 SvREFCNT_dec (self); 144 SvREFCNT_dec (self);
130 145
131 // self *must* be null now because thats sv_unmagic's job. 146 // self *must* be null now because thats sv_unmagic's job.
132 assert (!this->self); 147 assert (!this->self);
133 flags |= 0x80; // severed //D
134 } 148 }
135} 149}
136 150
137void 151void
138attachable::optimise () 152attachable::optimise ()
139{ 153{
140 if (self 154 if (self
141 && SvREFCNT (self) == 1 155 && SvREFCNT (self) == 1
142 && !HvTOTALKEYS (self)) 156 && !HvTOTALKEYS (self))
143 flags |= 0x40,//D
144 sever_self (); 157 sever_self ();
145} 158}
146 159
147// check wether the object really is dead 160// check wether the object really is dead
148void 161void
163 { 176 {
164 SvREFCNT_dec (cb); 177 SvREFCNT_dec (cb);
165 cb = 0; 178 cb = 0;
166 } 179 }
167 180
168 if (self)
169 sever_self ();
170
171 flags |= 0x20; //D
172 mortals.push_back (this); 181 mortals.push_back (this);
173} 182}
174 183
175void 184void
176attachable::destroy () 185attachable::destroy ()
178 if (destroyed ()) 187 if (destroyed ())
179 return; 188 return;
180 189
181 flags |= F_DESTROYED; 190 flags |= F_DESTROYED;
182 do_destroy (); 191 do_destroy ();
192 sever_self ();
183} 193}
184 194
185void 195void
186attachable::check_mortals () 196attachable::check_mortals ()
187{ 197{
192 if (i >= mortals.size ()) 202 if (i >= mortals.size ())
193 { 203 {
194 i = 0; 204 i = 0;
195 205
196 if (mortals.size () > 1000) 206 if (mortals.size () > 1000)
197 fprintf (stderr, "mortal queue size (%d) exceeds 1000.\n", (int)mortals.size ()); 207 LOG (llevInfo, "mortal queue size (%d) exceeds 1000.\n", (int)mortals.size ());
198 208
199 break; 209 break;
200 } 210 }
201 211
202 attachable *obj = mortals [i]; 212 attachable *obj = mortals [i];
203 213
204 obj->refcnt_chk (); // unborrow from perl, if necessary 214#if 0
205 215 if (obj->self)//D make this an assert later
206 //if (obj->refcnt > 0 || obj->self)
207 if (obj->refcnt || obj->self)
208 { 216 {
209//printf ("%p rc %d\n", obj, obj->refcnt_cnt ());//D 217 LOG (llevError, "check_mortals: object '%s' still has self\n", typeid (obj).name ());
218 obj->sever_self ();
219 }
220#endif
221
222 if (obj->refcnt)
223 {
210 ++i; // further delay freeing 224 ++i; // further delay freeing
211 225
212 if (!(i & 0x3ff)) 226 if (!(i & 0x3ff))
213 break; 227 break;
214 } 228 }
215 else 229 else
216 { 230 {
217 mortals.erase (i); 231 mortals.erase (i);
232 obj->sever_self ();
218 delete obj; 233 delete obj;
219 } 234 }
220 } 235 }
221} 236}
222 237
271 286
272 if (!obj->self) 287 if (!obj->self)
273 { 288 {
274 obj->self = newHV (); 289 obj->self = newHV ();
275 sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0); 290 sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0);
276 obj->flags |= (obj->flags & 0xc0) << 8;
277 obj->flags &= ~0xc0;//D
278 obj->flags |= 0x10;//D
279 291
280 // now bless the object _once_ 292 // now bless the object _once_
281 return sv_bless (newRV_inc ((SV *)obj->self), stash); 293 return sv_bless (newRV_inc ((SV *)obj->self), stash);
282 } 294 }
283 else 295 else
349inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); } 361inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); }
350 362
351inline SV *to_sv (object & v) { return to_sv (&v); } 363inline SV *to_sv (object & v) { return to_sv (&v); }
352inline SV *to_sv (living & v) { return to_sv (&v); } 364inline SV *to_sv (living & v) { return to_sv (&v); }
353 365
354//inline SV *to_sv (faceinfo * v) { return to_sv (v->name); }
355inline SV *to_sv (treasurelist * v) { return to_sv (v->name); }
356inline SV *to_sv (std::string & v) { return newSVpvn (v.data (), v.size ()); } 366inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
367inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); }
357 368
358inline SV *to_sv (UUID v) 369inline SV *to_sv (UUID v)
359{ 370{
360 char buf[128]; 371 char buf[128];
361 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq); 372 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
386inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); } 397inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
387inline void sv_to (SV *sv, region * &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); } 398inline void sv_to (SV *sv, region * &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }
388inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); } 399inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
389 400
390//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; } 401//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
391inline void sv_to (SV *sv, treasurelist * &v) { v = find_treasurelist (SvPV_nolen (sv)); } 402inline void sv_to (SV *sv, treasurelist * &v) { v = treasurelist::find (SvPV_nolen (sv)); }
392 403
393template<class T> 404template<class T>
394inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; } 405inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; }
395 406
396template<int N> 407template<int N>
397inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); } 408inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); }
398 409
399inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); }
400inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); } 410inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }
401inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); } 411inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }
402inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); } 412inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
403inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); } 413inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }
404 414
607 perl_construct (perl); 617 perl_construct (perl);
608 618
609 PL_exit_flags |= PERL_EXIT_DESTRUCT_END; 619 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
610 620
611 const char *argv[] = { 621 const char *argv[] = {
612 "", 622 settings.argv [0],
613 "-e" 623 "-e"
614 "use Event; use Coro;" // required for bootstrap 624 "use Event; use Coro;" // required for bootstrap
615 "cf->bootstrap;" // required for datadir :*> 625 "cf->bootstrap;" // required for datadir :*>
616 "unshift @INC, cf::datadir ();" 626 "unshift @INC, cf::datadir ();"
617 "require cf;" 627 "require cf;"
708} 718}
709 719
710void 720void
711global::gather_callbacks (AV *&callbacks, event_type event) const 721global::gather_callbacks (AV *&callbacks, event_type event) const
712{ 722{
713 ::gather_callbacks (callbacks, cb_object, event); 723 ::gather_callbacks (callbacks, cb_global, event);
714} 724}
715 725
716void 726void
717object::gather_callbacks (AV *&callbacks, event_type event) const 727object::gather_callbacks (AV *&callbacks, event_type event) const
718{ 728{
719 if (subtype && type + subtype * NUM_SUBTYPES <= AvFILLp (cb_type)) 729 if (subtype && type + subtype * NUM_TYPES <= AvFILLp (cb_type))
720 { 730 {
721 SV *registry = AvARRAY (cb_type)[type + subtype * NUM_SUBTYPES]; 731 SV *registry = AvARRAY (cb_type)[type + subtype * NUM_TYPES];
722 732
723 if (registry && SvROK (registry) && SvTYPE (SvRV (registry)) == SVt_PVAV) 733 if (registry && SvROK (registry) && SvTYPE (SvRV (registry)) == SVt_PVAV)
724 ::gather_callbacks (callbacks, (AV *)SvRV (registry), event); 734 ::gather_callbacks (callbacks, (AV *)SvRV (registry), event);
725 } 735 }
726 736
762{ 772{
763 attachable::gather_callbacks (callbacks, event); 773 attachable::gather_callbacks (callbacks, event);
764 ::gather_callbacks (callbacks, cb_map, event); 774 ::gather_callbacks (callbacks, cb_map, event);
765} 775}
766 776
777void
778_recalc_want (bitset<NUM_EVENT_TYPES> &set, AV *registry)
779{
780 for (int event = 0; event <= AvFILLp (registry); ++event)
781 {
782 SV *cbs_ = AvARRAY (registry)[event];
783
784 // element must be list of callback entries
785 if (cbs_ && SvROK (cbs_) && SvTYPE (SvRV (cbs_)) == SVt_PVAV)
786 {
787 AV *cbs = (AV *)SvRV (cbs_);
788
789 // no callback entries, no callbacks to call
790 if (AvFILLp (cbs) >= 0)
791 set.set (event);
792 }
793 }
794}
795
796// very slow and inefficient way to recalculate the global want bitsets
797void
798_recalc_want ()
799{
800 ev_want_event.reset ();
801
802 _recalc_want (ev_want_event, cb_global);
803 _recalc_want (ev_want_event, cb_attachable);
804 _recalc_want (ev_want_event, cb_object);
805 _recalc_want (ev_want_event, cb_client);
806 _recalc_want (ev_want_event, cb_player);
807 _recalc_want (ev_want_event, cb_map);
808
809 ev_want_type.reset ();
810
811 for (int type = 0; type <= AvFILLp (cb_type); ++type)
812 {
813 SV *cbs_ = AvARRAY (cb_type)[type];
814
815 // element must be list of callback entries
816 if (cbs_ && SvROK (cbs_) && SvTYPE (SvRV (cbs_)) == SVt_PVAV)
817 {
818 AV *cbs = (AV *)SvRV (cbs_);
819
820 // no callback entries, no callbacks to call
821 if (AvFILLp (cbs) >= 0)
822 ev_want_type.set (type % NUM_TYPES);
823 }
824 }
825}
826
767bool 827bool
768attachable::invoke (event_type event, ...) 828attachable::vinvoke (event_type event, va_list &ap)
769{ 829{
770 data_type dt; 830 data_type dt;
771 va_list ap;
772
773 va_start (ap, event);
774 831
775 // callback call ordering should be: 832 // callback call ordering should be:
776 // 1. per-object callback 833 // 1. per-object callback
777 // 2. per-class object 834 // 2. per-class object
778 // 3. per-type callback 835 // 3. per-type callback
939 CALL_ARG (exit); 996 CALL_ARG (exit);
940 CALL_CALL ("cf::object::player::enter_exit", G_VOID); 997 CALL_CALL ("cf::object::player::enter_exit", G_VOID);
941 CALL_END; 998 CALL_END;
942} 999}
943 1000
1001void
1002log_backtrace (const char *msg)
1003{
1004#if HAVE_BACKTRACE
1005 void *addr [20];
1006 int size = backtrace (addr, 20);
1007
1008 CALL_BEGIN (size);
1009 CALL_ARG (msg);
1010 for (int i = 0; i < size; ++i)
1011 CALL_ARG ((IV)addr [i]);
1012 CALL_CALL ("cf::_log_backtrace", G_VOID);
1013 CALL_END;
1014#endif
1015}
1016
944///////////////////////////////////////////////////////////////////////////// 1017/////////////////////////////////////////////////////////////////////////////
945 1018
946struct EventAPI *watcher_base::GEventAPI; 1019struct EventAPI *watcher_base::GEventAPI;
947struct CoroAPI *coroapi::GCoroAPI; 1020struct CoroAPI *coroapi::GCoroAPI;
948 1021
949int coroapi::cede_counter; 1022int coroapi::cede_counter;
1023double (*coroapi::time)();
1024double coroapi::next_cede;
950 1025
1026void coroapi::do_cede_to_tick ()
1027{
1028 cede_counter = 0;
1029
1030 cede ();
1031
1032 next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1033 if (next_cede > SvNV (sv_next_tick) - 0.02)
1034 next_cede = SvNV (sv_next_tick);
1035}
1036
1037void coroapi::do_cede_every ()
1038{
1039 cede_counter = 0;
1040
1041 if (coroapi::nready ())
1042 coroapi::cede ();
1043}
1044
1045void coroapi::do_cede_to_tick_every ()
1046{
1047 cede_counter = 0;
1048
1049 cede_to_tick ();
1050}
1051
1052void
1053coroapi::wait_for_tick ()
1054{
1055 CALL_BEGIN (0);
1056 CALL_CALL ("cf::wait_for_tick", G_DISCARD);
1057 CALL_END;
1058}
1059
1060void
1061coroapi::wait_for_tick_begin ()
1062{
1063 CALL_BEGIN (0);
1064 CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
1065 CALL_END;
1066}
1067
1068static void
951static void iw_dispatch (pe_event *ev) 1069iw_dispatch (pe_event *ev)
952{ 1070{
953 iw *w = (iw *)ev->ext_data; 1071 iw *w = (iw *)ev->ext_data;
954 w->call (*w); 1072 w->call (*w);
955} 1073}
956 1074
1019 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1); 1137 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1020 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1); 1138 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1021 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1); 1139 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1022 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1); 1140 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1023 1141
1024 sv_runtime = get_sv ("cf::RUNTIME", 1); 1142 sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV);
1025 sv_upgrade (sv_runtime, SVt_NV); 1143 sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV);
1026 1144
1027 cb_global = get_av ("cf::CB_GLOBAL", 1); 1145 cb_global = get_av ("cf::CB_GLOBAL", 1);
1028 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1); 1146 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1029 cb_object = get_av ("cf::CB_OBJECT", 1); 1147 cb_object = get_av ("cf::CB_OBJECT", 1);
1030 cb_player = get_av ("cf::CB_PLAYER", 1); 1148 cb_player = get_av ("cf::CB_PLAYER", 1);
1035 1153
1036MODULE = cf PACKAGE = cf PREFIX = cf_ 1154MODULE = cf PACKAGE = cf PREFIX = cf_
1037 1155
1038BOOT: 1156BOOT:
1039{ 1157{
1040 _connect_to_perl ();
1041
1042 I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI; 1158 I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;
1043 I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI; 1159 I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
1044 1160
1161 _connect_to_perl ();
1162
1045 newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1)); 1163 newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
1164
1165 {
1166 require_pv ("Time::HiRes");
1167
1168 SV **svp = hv_fetch (PL_modglobal, "Time::NVtime", 12, 0);
1169 if (!svp) croak ("Time::HiRes is required");
1170 if (!SvIOK(*svp)) croak ("Time::NVtime isn’t a function pointer");
1171 coroapi::time = INT2PTR (double(*)(), SvIV(*svp));
1172 }
1046 1173
1047 static const struct { 1174 static const struct {
1048 const char *name; 1175 const char *name;
1049 IV iv; 1176 IV iv;
1050 } *civ, const_iv[] = { 1177 } *civ, const_iv[] = {
1051# define const_iv(name) { # name, (IV)name }, 1178# define const_iv(name) { # name, (IV)name },
1052 const_iv (llevError) 1179 const_iv (llevError) const_iv (llevInfo) const_iv (llevDebug) const_iv (llevMonster)
1053 const_iv (llevInfo) 1180 const_iv (logBacktrace)
1054 const_iv (llevDebug)
1055 const_iv (llevMonster)
1056 1181
1057 const_iv (Map0Cmd) 1182 const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)
1058 const_iv (Map1Cmd)
1059 const_iv (Map1aCmd)
1060 1183
1061 const_iv (MAP_CLIENT_X) 1184 const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)
1062 const_iv (MAP_CLIENT_Y)
1063 1185
1064 const_iv (MAX_TIME) 1186 const_iv (MAX_TIME)
1065 const_iv (PLAYER) 1187
1066 const_iv (TRANSPORT)
1067 const_iv (ROD)
1068 const_iv (TREASURE)
1069 const_iv (POTION)
1070 const_iv (FOOD)
1071 const_iv (POISON)
1072 const_iv (BOOK)
1073 const_iv (CLOCK)
1074 const_iv (ARROW)
1075 const_iv (BOW)
1076 const_iv (WEAPON)
1077 const_iv (ARMOUR)
1078 const_iv (PEDESTAL)
1079 const_iv (ALTAR)
1080 const_iv (LOCKED_DOOR)
1081 const_iv (SPECIAL_KEY)
1082 const_iv (MAP)
1083 const_iv (DOOR)
1084 const_iv (KEY)
1085 const_iv (TIMED_GATE)
1086 const_iv (TRIGGER)
1087 const_iv (GRIMREAPER)
1088 const_iv (MAGIC_EAR)
1089 const_iv (TRIGGER_BUTTON)
1090 const_iv (TRIGGER_ALTAR)
1091 const_iv (TRIGGER_PEDESTAL)
1092 const_iv (SHIELD)
1093 const_iv (HELMET)
1094 const_iv (HORN)
1095 const_iv (MONEY)
1096 const_iv (CLASS)
1097 const_iv (GRAVESTONE)
1098 const_iv (AMULET)
1099 const_iv (PLAYERMOVER)
1100 const_iv (TELEPORTER)
1101 const_iv (CREATOR)
1102 const_iv (SKILL)
1103 const_iv (EARTHWALL)
1104 const_iv (GOLEM)
1105 const_iv (THROWN_OBJ)
1106 const_iv (BLINDNESS)
1107 const_iv (GOD)
1108 const_iv (DETECTOR)
1109 const_iv (TRIGGER_MARKER)
1110 const_iv (DEAD_OBJECT)
1111 const_iv (DRINK)
1112 const_iv (MARKER)
1113 const_iv (HOLY_ALTAR)
1114 const_iv (PLAYER_CHANGER)
1115 const_iv (BATTLEGROUND)
1116 const_iv (PEACEMAKER)
1117 const_iv (GEM)
1118 const_iv (FIREWALL)
1119 const_iv (ANVIL)
1120 const_iv (CHECK_INV)
1121 const_iv (MOOD_FLOOR) 1188 const_iv (NUM_BODY_LOCATIONS)
1122 const_iv (EXIT) 1189 const_iv (body_range) const_iv (body_shield) const_iv (body_combat)
1123 const_iv (ENCOUNTER) 1190 const_iv (body_arm) const_iv (body_torso) const_iv (body_head)
1124 const_iv (SHOP_FLOOR) 1191 const_iv (body_neck) const_iv (body_skill) const_iv (body_finger)
1125 const_iv (SHOP_MAT) 1192 const_iv (body_shoulder) const_iv (body_foot) const_iv (body_hand)
1126 const_iv (RING) 1193 const_iv (body_wrist) const_iv (body_waist)
1127 const_iv (FLOOR)
1128 const_iv (FLESH)
1129 const_iv (INORGANIC)
1130 const_iv (SKILL_TOOL)
1131 const_iv (LIGHTER)
1132 const_iv (BUILDABLE_WALL)
1133 const_iv (MISC_OBJECT)
1134 const_iv (LAMP)
1135 const_iv (DUPLICATOR)
1136 const_iv (SPELLBOOK)
1137 const_iv (CLOAK)
1138 const_iv (SPINNER)
1139 const_iv (GATE)
1140 const_iv (BUTTON)
1141 const_iv (CF_HANDLE)
1142 const_iv (HOLE)
1143 const_iv (TRAPDOOR)
1144 const_iv (SIGN)
1145 const_iv (BOOTS)
1146 const_iv (GLOVES)
1147 const_iv (SPELL)
1148 const_iv (SPELL_EFFECT)
1149 const_iv (CONVERTER)
1150 const_iv (BRACERS)
1151 const_iv (POISONING)
1152 const_iv (SAVEBED)
1153 const_iv (WAND)
1154 const_iv (SCROLL)
1155 const_iv (DIRECTOR)
1156 const_iv (GIRDLE)
1157 const_iv (FORCE)
1158 const_iv (POTION_EFFECT)
1159 const_iv (EVENT_CONNECTOR)
1160 const_iv (CLOSE_CON)
1161 const_iv (CONTAINER)
1162 const_iv (ARMOUR_IMPROVER)
1163 const_iv (WEAPON_IMPROVER)
1164 const_iv (SKILLSCROLL)
1165 const_iv (DEEP_SWAMP)
1166 const_iv (IDENTIFY_ALTAR)
1167 const_iv (MENU)
1168 const_iv (RUNE)
1169 const_iv (TRAP)
1170 const_iv (POWER_CRYSTAL)
1171 const_iv (CORPSE)
1172 const_iv (DISEASE)
1173 const_iv (SYMPTOM)
1174 const_iv (BUILDER)
1175 const_iv (MATERIAL)
1176 const_iv (ITEM_TRANSFORMER)
1177 1194
1178 const_iv (NUM_SUBTYPES) 1195 const_iv (PLAYER) const_iv (TRANSPORT) const_iv (ROD) const_iv (TREASURE)
1196 const_iv (POTION) const_iv (FOOD) const_iv (POISON) const_iv (BOOK)
1197 const_iv (CLOCK) const_iv (ARROW) const_iv (BOW) const_iv (WEAPON)
1198 const_iv (ARMOUR) const_iv (PEDESTAL) const_iv (ALTAR) const_iv (LOCKED_DOOR)
1199 const_iv (SPECIAL_KEY) const_iv (MAP) const_iv (DOOR) const_iv (KEY)
1200 const_iv (TIMED_GATE) const_iv (TRIGGER) const_iv (GRIMREAPER) const_iv (MAGIC_EAR)
1201 const_iv (TRIGGER_BUTTON) const_iv (TRIGGER_ALTAR) const_iv (TRIGGER_PEDESTAL) const_iv (SHIELD)
1202 const_iv (HELMET) const_iv (HORN) const_iv (MONEY) const_iv (CLASS)
1203 const_iv (GRAVESTONE) const_iv (AMULET) const_iv (PLAYERMOVER) const_iv (TELEPORTER)
1204 const_iv (CREATOR) const_iv (SKILL) const_iv (EARTHWALL) const_iv (GOLEM)
1205 const_iv (THROWN_OBJ) const_iv (BLINDNESS) const_iv (GOD) const_iv (DETECTOR)
1206 const_iv (TRIGGER_MARKER) const_iv (DEAD_OBJECT) const_iv (DRINK) const_iv (MARKER)
1207 const_iv (HOLY_ALTAR) const_iv (PLAYER_CHANGER) const_iv (BATTLEGROUND) const_iv (PEACEMAKER)
1208 const_iv (GEM) const_iv (FIREWALL) const_iv (ANVIL) const_iv (CHECK_INV)
1209 const_iv (MOOD_FLOOR) const_iv (EXIT) const_iv (ENCOUNTER) const_iv (SHOP_FLOOR)
1210 const_iv (SHOP_MAT) const_iv (RING) const_iv (FLOOR) const_iv (FLESH)
1211 const_iv (INORGANIC) const_iv (SKILL_TOOL) const_iv (LIGHTER) const_iv (BUILDABLE_WALL)
1212 const_iv (MISC_OBJECT) const_iv (LAMP) const_iv (DUPLICATOR) const_iv (SPELLBOOK)
1213 const_iv (CLOAK) const_iv (SPINNER) const_iv (GATE) const_iv (BUTTON)
1214 const_iv (CF_HANDLE) const_iv (HOLE) const_iv (TRAPDOOR) const_iv (SIGN)
1215 const_iv (BOOTS) const_iv (GLOVES) const_iv (SPELL) const_iv (SPELL_EFFECT)
1216 const_iv (CONVERTER) const_iv (BRACERS) const_iv (POISONING) const_iv (SAVEBED)
1217 const_iv (WAND) const_iv (SCROLL) const_iv (DIRECTOR) const_iv (GIRDLE)
1218 const_iv (FORCE) const_iv (POTION_EFFECT) const_iv (EVENT_CONNECTOR) const_iv (CLOSE_CON)
1219 const_iv (CONTAINER) const_iv (ARMOUR_IMPROVER) const_iv (WEAPON_IMPROVER) const_iv (SKILLSCROLL)
1220 const_iv (DEEP_SWAMP) const_iv (IDENTIFY_ALTAR) const_iv (MENU) const_iv (RUNE)
1221 const_iv (TRAP) const_iv (POWER_CRYSTAL) const_iv (CORPSE) const_iv (DISEASE)
1222 const_iv (SYMPTOM) const_iv (BUILDER) const_iv (MATERIAL) const_iv (ITEM_TRANSFORMER)
1179 1223
1180 const_iv (ST_BD_BUILD) 1224 const_iv (NUM_TYPES) const_iv (NUM_SUBTYPES)
1181 const_iv (ST_BD_REMOVE)
1182 1225
1183 const_iv (ST_MAT_FLOOR) 1226 const_iv (ST_BD_BUILD) const_iv (ST_BD_REMOVE)
1184 const_iv (ST_MAT_WALL) 1227 const_iv (ST_MAT_FLOOR) const_iv (ST_MAT_WALL) const_iv (ST_MAT_ITEM)
1185 const_iv (ST_MAT_ITEM)
1186 1228
1187 const_iv (AT_PHYSICAL) 1229 const_iv (AT_PHYSICAL) const_iv (AT_MAGIC) const_iv (AT_FIRE) const_iv (AT_ELECTRICITY)
1188 const_iv (AT_MAGIC) 1230 const_iv (AT_COLD) const_iv (AT_CONFUSION) const_iv (AT_ACID) const_iv (AT_DRAIN)
1189 const_iv (AT_FIRE) 1231 const_iv (AT_WEAPONMAGIC) const_iv (AT_GHOSTHIT) const_iv (AT_POISON) const_iv (AT_SLOW)
1190 const_iv (AT_ELECTRICITY) 1232 const_iv (AT_PARALYZE) const_iv (AT_TURN_UNDEAD) const_iv (AT_FEAR) const_iv (AT_CANCELLATION)
1191 const_iv (AT_COLD) 1233 const_iv (AT_DEPLETE) const_iv (AT_DEATH) const_iv (AT_CHAOS) const_iv (AT_COUNTERSPELL)
1192 const_iv (AT_CONFUSION) 1234 const_iv (AT_GODPOWER) const_iv (AT_HOLYWORD) const_iv (AT_BLIND) const_iv (AT_INTERNAL)
1193 const_iv (AT_ACID) 1235 const_iv (AT_LIFE_STEALING) const_iv (AT_DISEASE)
1194 const_iv (AT_DRAIN)
1195 const_iv (AT_WEAPONMAGIC)
1196 const_iv (AT_GHOSTHIT)
1197 const_iv (AT_POISON)
1198 const_iv (AT_SLOW)
1199 const_iv (AT_PARALYZE)
1200 const_iv (AT_TURN_UNDEAD)
1201 const_iv (AT_FEAR)
1202 const_iv (AT_CANCELLATION)
1203 const_iv (AT_DEPLETE)
1204 const_iv (AT_DEATH)
1205 const_iv (AT_CHAOS)
1206 const_iv (AT_COUNTERSPELL)
1207 const_iv (AT_GODPOWER)
1208 const_iv (AT_HOLYWORD)
1209 const_iv (AT_BLIND)
1210 const_iv (AT_INTERNAL)
1211 const_iv (AT_LIFE_STEALING)
1212 const_iv (AT_DISEASE)
1213 1236
1214 const_iv (WEAP_HIT) 1237 const_iv (WEAP_HIT) const_iv (WEAP_SLASH) const_iv (WEAP_PIERCE) const_iv (WEAP_CLEAVE)
1215 const_iv (WEAP_SLASH) 1238 const_iv (WEAP_SLICE) const_iv (WEAP_STAB) const_iv (WEAP_WHIP) const_iv (WEAP_CRUSH)
1216 const_iv (WEAP_PIERCE)
1217 const_iv (WEAP_CLEAVE)
1218 const_iv (WEAP_SLICE)
1219 const_iv (WEAP_STAB)
1220 const_iv (WEAP_WHIP)
1221 const_iv (WEAP_CRUSH)
1222 const_iv (WEAP_BLUD) 1239 const_iv (WEAP_BLUD)
1223 1240
1224 const_iv (FLAG_ALIVE) 1241 const_iv (FLAG_ALIVE) const_iv (FLAG_WIZ) const_iv (FLAG_REMOVED) const_iv (FLAG_FREED)
1225 const_iv (FLAG_WIZ) 1242 const_iv (FLAG_APPLIED) const_iv (FLAG_UNPAID) const_iv (FLAG_USE_SHIELD)
1226 const_iv (FLAG_REMOVED) 1243 const_iv (FLAG_NO_PICK) const_iv (FLAG_ANIMATE) const_iv (FLAG_MONSTER) const_iv (FLAG_FRIENDLY)
1227 const_iv (FLAG_FREED) 1244 const_iv (FLAG_GENERATOR) const_iv (FLAG_IS_THROWN) const_iv (FLAG_AUTO_APPLY) const_iv (FLAG_PLAYER_SOLD)
1228 const_iv (FLAG_WAS_WIZ) 1245 const_iv (FLAG_SEE_INVISIBLE) const_iv (FLAG_CAN_ROLL) const_iv (FLAG_OVERLAY_FLOOR) const_iv (FLAG_IS_TURNABLE)
1229 const_iv (FLAG_APPLIED) 1246 const_iv (FLAG_IS_USED_UP) const_iv (FLAG_IDENTIFIED) const_iv (FLAG_REFLECTING) const_iv (FLAG_CHANGING)
1230 const_iv (FLAG_UNPAID) 1247 const_iv (FLAG_SPLITTING) const_iv (FLAG_HITBACK) const_iv (FLAG_STARTEQUIP) const_iv (FLAG_BLOCKSVIEW)
1231 const_iv (FLAG_USE_SHIELD) 1248 const_iv (FLAG_UNDEAD) const_iv (FLAG_SCARED) const_iv (FLAG_UNAGGRESSIVE) const_iv (FLAG_REFL_MISSILE)
1232 const_iv (FLAG_NO_PICK) 1249 const_iv (FLAG_REFL_SPELL) const_iv (FLAG_NO_MAGIC) const_iv (FLAG_NO_FIX_PLAYER) const_iv (FLAG_IS_LIGHTABLE)
1233 const_iv (FLAG_ANIMATE) 1250 const_iv (FLAG_TEAR_DOWN) const_iv (FLAG_RUN_AWAY) const_iv (FLAG_PICK_UP) const_iv (FLAG_UNIQUE)
1234 const_iv (FLAG_MONSTER) 1251 const_iv (FLAG_NO_DROP) const_iv (FLAG_WIZCAST) const_iv (FLAG_CAST_SPELL) const_iv (FLAG_USE_SCROLL)
1235 const_iv (FLAG_FRIENDLY) 1252 const_iv (FLAG_USE_RANGE) const_iv (FLAG_USE_BOW) const_iv (FLAG_USE_ARMOUR) const_iv (FLAG_USE_WEAPON)
1236 const_iv (FLAG_GENERATOR) 1253 const_iv (FLAG_USE_RING) const_iv (FLAG_READY_RANGE) const_iv (FLAG_READY_BOW) const_iv (FLAG_XRAYS)
1237 const_iv (FLAG_IS_THROWN) 1254 const_iv (FLAG_NO_APPLY) const_iv (FLAG_IS_FLOOR) const_iv (FLAG_LIFESAVE) const_iv (FLAG_NO_STRENGTH)
1238 const_iv (FLAG_AUTO_APPLY) 1255 const_iv (FLAG_SLEEP) const_iv (FLAG_STAND_STILL) const_iv (FLAG_RANDOM_MOVE) const_iv (FLAG_ONLY_ATTACK)
1239 const_iv (FLAG_PLAYER_SOLD) 1256 const_iv (FLAG_CONFUSED) const_iv (FLAG_STEALTH) const_iv (FLAG_WIZPASS) const_iv (FLAG_IS_LINKED)
1240 const_iv (FLAG_SEE_INVISIBLE) 1257 const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)
1241 const_iv (FLAG_CAN_ROLL) 1258 const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)
1242 const_iv (FLAG_OVERLAY_FLOOR) 1259 const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)
1243 const_iv (FLAG_IS_TURNABLE) 1260 const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)
1244 const_iv (FLAG_IS_USED_UP) 1261 const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)
1245 const_iv (FLAG_IDENTIFIED) 1262 const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)
1246 const_iv (FLAG_REFLECTING) 1263 const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1247 const_iv (FLAG_CHANGING) 1264 const_iv (FLAG_OBJ_SAVE_ON_OVL) const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)
1248 const_iv (FLAG_SPLITTING) 1265 const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1249 const_iv (FLAG_HITBACK) 1266 const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1250 const_iv (FLAG_STARTEQUIP)
1251 const_iv (FLAG_BLOCKSVIEW)
1252 const_iv (FLAG_UNDEAD)
1253 const_iv (FLAG_SCARED)
1254 const_iv (FLAG_UNAGGRESSIVE)
1255 const_iv (FLAG_REFL_MISSILE)
1256 const_iv (FLAG_REFL_SPELL)
1257 const_iv (FLAG_NO_MAGIC)
1258 const_iv (FLAG_NO_FIX_PLAYER)
1259 const_iv (FLAG_IS_LIGHTABLE)
1260 const_iv (FLAG_TEAR_DOWN)
1261 const_iv (FLAG_RUN_AWAY)
1262 const_iv (FLAG_PICK_UP)
1263 const_iv (FLAG_UNIQUE)
1264 const_iv (FLAG_NO_DROP)
1265 const_iv (FLAG_WIZCAST)
1266 const_iv (FLAG_CAST_SPELL)
1267 const_iv (FLAG_USE_SCROLL)
1268 const_iv (FLAG_USE_RANGE)
1269 const_iv (FLAG_USE_BOW)
1270 const_iv (FLAG_USE_ARMOUR)
1271 const_iv (FLAG_USE_WEAPON)
1272 const_iv (FLAG_USE_RING)
1273 const_iv (FLAG_READY_RANGE)
1274 const_iv (FLAG_READY_BOW)
1275 const_iv (FLAG_XRAYS)
1276 const_iv (FLAG_NO_APPLY)
1277 const_iv (FLAG_IS_FLOOR)
1278 const_iv (FLAG_LIFESAVE)
1279 const_iv (FLAG_NO_STRENGTH)
1280 const_iv (FLAG_SLEEP)
1281 const_iv (FLAG_STAND_STILL)
1282 const_iv (FLAG_RANDOM_MOVE)
1283 const_iv (FLAG_ONLY_ATTACK)
1284 const_iv (FLAG_CONFUSED)
1285 const_iv (FLAG_STEALTH)
1286 const_iv (FLAG_WIZPASS)
1287 const_iv (FLAG_IS_LINKED)
1288 const_iv (FLAG_CURSED)
1289 const_iv (FLAG_DAMNED)
1290 const_iv (FLAG_SEE_ANYWHERE)
1291 const_iv (FLAG_KNOWN_MAGICAL)
1292 const_iv (FLAG_KNOWN_CURSED)
1293 const_iv (FLAG_CAN_USE_SKILL)
1294 const_iv (FLAG_BEEN_APPLIED)
1295 const_iv (FLAG_READY_SCROLL)
1296 const_iv (FLAG_USE_ROD)
1297 const_iv (FLAG_USE_HORN)
1298 const_iv (FLAG_MAKE_INVIS)
1299 const_iv (FLAG_INV_LOCKED)
1300 const_iv (FLAG_IS_WOODED)
1301 const_iv (FLAG_IS_HILLY)
1302 const_iv (FLAG_READY_SKILL)
1303 const_iv (FLAG_READY_WEAPON)
1304 const_iv (FLAG_NO_SKILL_IDENT)
1305 const_iv (FLAG_BLIND)
1306 const_iv (FLAG_SEE_IN_DARK)
1307 const_iv (FLAG_IS_CAULDRON)
1308 const_iv (FLAG_NO_STEAL)
1309 const_iv (FLAG_ONE_HIT)
1310 const_iv (FLAG_CLIENT_SENT)
1311 const_iv (FLAG_BERSERK)
1312 const_iv (FLAG_NEUTRAL)
1313 const_iv (FLAG_NO_ATTACK)
1314 const_iv (FLAG_NO_DAMAGE)
1315 const_iv (FLAG_OBJ_ORIGINAL)
1316 const_iv (FLAG_OBJ_SAVE_ON_OVL)
1317 const_iv (FLAG_ACTIVATE_ON_PUSH)
1318 const_iv (FLAG_ACTIVATE_ON_RELEASE)
1319 const_iv (FLAG_IS_WATER)
1320 const_iv (FLAG_CONTENT_ON_GEN)
1321 const_iv (FLAG_IS_A_TEMPLATE)
1322 const_iv (FLAG_IS_BUILDABLE)
1323 const_iv (FLAG_DESTROY_ON_DEATH)
1324 const_iv (FLAG_NO_MAP_SAVE)
1325 1267
1326 const_iv (NDI_BLACK) 1268 const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1327 const_iv (NDI_WHITE) 1269 const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1328 const_iv (NDI_NAVY) 1270 const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1329 const_iv (NDI_RED) 1271 const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1330 const_iv (NDI_ORANGE)
1331 const_iv (NDI_BLUE)
1332 const_iv (NDI_DK_ORANGE)
1333 const_iv (NDI_GREEN)
1334 const_iv (NDI_LT_GREEN)
1335 const_iv (NDI_GREY)
1336 const_iv (NDI_BROWN)
1337 const_iv (NDI_GOLD)
1338 const_iv (NDI_TAN)
1339 const_iv (NDI_MAX_COLOR)
1340 const_iv (NDI_COLOR_MASK)
1341 const_iv (NDI_UNIQUE)
1342 const_iv (NDI_ALL) 1272 const_iv (NDI_ALL)
1343 1273
1344 const_iv (UPD_LOCATION) 1274 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1345 const_iv (UPD_FLAGS) 1275 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1346 const_iv (UPD_WEIGHT)
1347 const_iv (UPD_FACE)
1348 const_iv (UPD_NAME)
1349 const_iv (UPD_ANIM)
1350 const_iv (UPD_ANIMSPEED)
1351 const_iv (UPD_NROF)
1352 1276
1353 const_iv (UPD_SP_MANA) 1277 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
1354 const_iv (UPD_SP_GRACE)
1355 const_iv (UPD_SP_DAMAGE)
1356 1278
1357 const_iv (F_APPLIED) 1279 const_iv (F_APPLIED) const_iv (F_LOCATION) const_iv (F_UNPAID) const_iv (F_MAGIC)
1358 const_iv (F_LOCATION) 1280 const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1359 const_iv (F_UNPAID)
1360 const_iv (F_MAGIC)
1361 const_iv (F_CURSED)
1362 const_iv (F_DAMNED)
1363 const_iv (F_OPEN)
1364 const_iv (F_NOPICK)
1365 const_iv (F_LOCKED) 1281 const_iv (F_LOCKED)
1366 1282
1367 const_iv (F_BUY) 1283 const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1368 const_iv (F_SHOP)
1369 const_iv (F_SELL)
1370 1284
1371 const_iv (P_BLOCKSVIEW) 1285 const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)
1372 const_iv (P_PLAYER) 1286 const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1373 const_iv (P_NO_MAGIC)
1374 const_iv (P_IS_ALIVE)
1375 const_iv (P_NO_CLERIC)
1376 const_iv (P_OUT_OF_MAP)
1377 const_iv (P_NEW_MAP)
1378 const_iv (P_UPTODATE)
1379 1287
1380 const_iv (UP_OBJ_INSERT) 1288 const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1381 const_iv (UP_OBJ_REMOVE)
1382 const_iv (UP_OBJ_CHANGE)
1383 const_iv (UP_OBJ_FACE)
1384 1289
1385 const_iv (INS_NO_MERGE) 1290 const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
1386 const_iv (INS_ABOVE_FLOOR_ONLY) 1291 const_iv (INS_ON_TOP) const_iv (INS_BELOW_ORIGINATOR) const_iv (INS_MAP_LOAD)
1387 const_iv (INS_NO_WALK_ON)
1388 const_iv (INS_ON_TOP)
1389 const_iv (INS_BELOW_ORIGINATOR)
1390 const_iv (INS_MAP_LOAD)
1391 1292
1392 const_iv (WILL_APPLY_HANDLE) 1293 const_iv (WILL_APPLY_HANDLE) const_iv (WILL_APPLY_TREASURE) const_iv (WILL_APPLY_EARTHWALL)
1393 const_iv (WILL_APPLY_TREASURE) 1294 const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)
1394 const_iv (WILL_APPLY_EARTHWALL)
1395 const_iv (WILL_APPLY_DOOR)
1396 const_iv (WILL_APPLY_FOOD)
1397 1295
1398 const_iv (SAVE_MODE) 1296 const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)
1399 const_iv (SAVE_DIR_MODE)
1400 1297
1401 const_iv (M_PAPER) 1298 const_iv (M_PAPER) const_iv (M_IRON) const_iv (M_GLASS) const_iv (M_LEATHER)
1402 const_iv (M_IRON) 1299 const_iv (M_WOOD) const_iv (M_ORGANIC) const_iv (M_STONE) const_iv (M_CLOTH)
1403 const_iv (M_GLASS) 1300 const_iv (M_ADAMANT) const_iv (M_LIQUID) const_iv (M_SOFT_METAL) const_iv (M_BONE)
1404 const_iv (M_LEATHER) 1301 const_iv (M_ICE) const_iv (M_SPECIAL)
1405 const_iv (M_WOOD)
1406 const_iv (M_ORGANIC)
1407 const_iv (M_STONE)
1408 const_iv (M_CLOTH)
1409 const_iv (M_ADAMANT)
1410 const_iv (M_LIQUID)
1411 const_iv (M_SOFT_METAL)
1412 const_iv (M_BONE)
1413 const_iv (M_ICE)
1414 const_iv (M_SPECIAL)
1415 1302
1416 const_iv (SK_EXP_ADD_SKILL) 1303 const_iv (SK_EXP_ADD_SKILL) const_iv (SK_EXP_TOTAL) const_iv (SK_EXP_NONE)
1417 const_iv (SK_EXP_TOTAL) 1304 const_iv (SK_SUBTRACT_SKILL_EXP) const_iv (SK_EXP_SKILL_ONLY)
1418 const_iv (SK_EXP_NONE)
1419 const_iv (SK_SUBTRACT_SKILL_EXP)
1420 const_iv (SK_EXP_SKILL_ONLY)
1421 1305
1422 const_iv (SK_LOCKPICKING) 1306 const_iv (SK_LOCKPICKING) const_iv (SK_HIDING) const_iv (SK_SMITHERY) const_iv (SK_BOWYER)
1423 const_iv (SK_HIDING) 1307 const_iv (SK_JEWELER) const_iv (SK_ALCHEMY) const_iv (SK_STEALING) const_iv (SK_LITERACY)
1424 const_iv (SK_SMITHERY) 1308 const_iv (SK_BARGAINING) const_iv (SK_JUMPING) const_iv (SK_DET_MAGIC) const_iv (SK_ORATORY)
1425 const_iv (SK_BOWYER) 1309 const_iv (SK_SINGING) const_iv (SK_DET_CURSE) const_iv (SK_FIND_TRAPS) const_iv (SK_MEDITATION)
1426 const_iv (SK_JEWELER) 1310 const_iv (SK_PUNCHING) const_iv (SK_FLAME_TOUCH) const_iv (SK_KARATE) const_iv (SK_CLIMBING)
1427 const_iv (SK_ALCHEMY) 1311 const_iv (SK_WOODSMAN) const_iv (SK_INSCRIPTION) const_iv (SK_ONE_HANDED_WEAPON) const_iv (SK_MISSILE_WEAPON)
1428 const_iv (SK_STEALING) 1312 const_iv (SK_THROWING) const_iv (SK_USE_MAGIC_ITEM) const_iv (SK_DISARM_TRAPS) const_iv (SK_SET_TRAP)
1429 const_iv (SK_LITERACY) 1313 const_iv (SK_THAUMATURGY) const_iv (SK_PRAYING) const_iv (SK_CLAWING) const_iv (SK_LEVITATION)
1430 const_iv (SK_BARGAINING) 1314 const_iv (SK_SUMMONING) const_iv (SK_PYROMANCY) const_iv (SK_EVOCATION) const_iv (SK_SORCERY)
1431 const_iv (SK_JUMPING) 1315 const_iv (SK_TWO_HANDED_WEAPON) const_iv (SK_SPARK_TOUCH) const_iv (SK_SHIVER) const_iv (SK_ACID_SPLASH)
1432 const_iv (SK_DET_MAGIC)
1433 const_iv (SK_ORATORY)
1434 const_iv (SK_SINGING)
1435 const_iv (SK_DET_CURSE)
1436 const_iv (SK_FIND_TRAPS)
1437 const_iv (SK_MEDITATION)
1438 const_iv (SK_PUNCHING)
1439 const_iv (SK_FLAME_TOUCH)
1440 const_iv (SK_KARATE)
1441 const_iv (SK_CLIMBING)
1442 const_iv (SK_WOODSMAN)
1443 const_iv (SK_INSCRIPTION)
1444 const_iv (SK_ONE_HANDED_WEAPON)
1445 const_iv (SK_MISSILE_WEAPON)
1446 const_iv (SK_THROWING)
1447 const_iv (SK_USE_MAGIC_ITEM)
1448 const_iv (SK_DISARM_TRAPS)
1449 const_iv (SK_SET_TRAP)
1450 const_iv (SK_THAUMATURGY)
1451 const_iv (SK_PRAYING)
1452 const_iv (SK_CLAWING)
1453 const_iv (SK_LEVITATION)
1454 const_iv (SK_SUMMONING)
1455 const_iv (SK_PYROMANCY)
1456 const_iv (SK_EVOCATION)
1457 const_iv (SK_SORCERY)
1458 const_iv (SK_TWO_HANDED_WEAPON)
1459 const_iv (SK_SPARK_TOUCH)
1460 const_iv (SK_SHIVER)
1461 const_iv (SK_ACID_SPLASH)
1462 const_iv (SK_POISON_NAIL) 1316 const_iv (SK_POISON_NAIL)
1463 1317
1464 const_iv (SOUND_NEW_PLAYER) 1318 const_iv (SOUND_NEW_PLAYER) const_iv (SOUND_FIRE_ARROW) const_iv (SOUND_LEARN_SPELL) const_iv (SOUND_FUMBLE_SPELL)
1465 const_iv (SOUND_FIRE_ARROW) 1319 const_iv (SOUND_WAND_POOF) const_iv (SOUND_OPEN_DOOR) const_iv (SOUND_PUSH_PLAYER) const_iv (SOUND_PLAYER_HITS1)
1466 const_iv (SOUND_LEARN_SPELL) 1320 const_iv (SOUND_PLAYER_HITS2) const_iv (SOUND_PLAYER_HITS3) const_iv (SOUND_PLAYER_HITS4) const_iv (SOUND_PLAYER_IS_HIT1)
1467 const_iv (SOUND_FUMBLE_SPELL) 1321 const_iv (SOUND_PLAYER_IS_HIT2) const_iv (SOUND_PLAYER_IS_HIT3) const_iv (SOUND_PLAYER_KILLS) const_iv (SOUND_PET_IS_KILLED)
1468 const_iv (SOUND_WAND_POOF) 1322 const_iv (SOUND_PLAYER_DIES) const_iv (SOUND_OB_EVAPORATE) const_iv (SOUND_OB_EXPLODE) const_iv (SOUND_CLOCK)
1469 const_iv (SOUND_OPEN_DOOR) 1323 const_iv (SOUND_TURN_HANDLE) const_iv (SOUND_FALL_HOLE) const_iv (SOUND_DRINK_POISON) const_iv (SOUND_CAST_SPELL_0)
1470 const_iv (SOUND_PUSH_PLAYER)
1471 const_iv (SOUND_PLAYER_HITS1)
1472 const_iv (SOUND_PLAYER_HITS2)
1473 const_iv (SOUND_PLAYER_HITS3)
1474 const_iv (SOUND_PLAYER_HITS4)
1475 const_iv (SOUND_PLAYER_IS_HIT1)
1476 const_iv (SOUND_PLAYER_IS_HIT2)
1477 const_iv (SOUND_PLAYER_IS_HIT3)
1478 const_iv (SOUND_PLAYER_KILLS)
1479 const_iv (SOUND_PET_IS_KILLED)
1480 const_iv (SOUND_PLAYER_DIES)
1481 const_iv (SOUND_OB_EVAPORATE)
1482 const_iv (SOUND_OB_EXPLODE)
1483 const_iv (SOUND_CLOCK)
1484 const_iv (SOUND_TURN_HANDLE)
1485 const_iv (SOUND_FALL_HOLE)
1486 const_iv (SOUND_DRINK_POISON)
1487 const_iv (SOUND_CAST_SPELL_0)
1488 1324
1489 const_iv (PREFER_LOW) 1325 const_iv (PREFER_LOW) const_iv (PREFER_HIGH)
1490 const_iv (PREFER_HIGH)
1491 1326
1492 const_iv (ATNR_PHYSICAL) 1327 const_iv (ATNR_PHYSICAL) const_iv (ATNR_MAGIC) const_iv (ATNR_FIRE) const_iv (ATNR_ELECTRICITY)
1493 const_iv (ATNR_MAGIC) 1328 const_iv (ATNR_COLD) const_iv (ATNR_CONFUSION) const_iv (ATNR_ACID) const_iv (ATNR_DRAIN)
1494 const_iv (ATNR_FIRE) 1329 const_iv (ATNR_WEAPONMAGIC) const_iv (ATNR_GHOSTHIT) const_iv (ATNR_POISON) const_iv (ATNR_SLOW)
1495 const_iv (ATNR_ELECTRICITY) 1330 const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1496 const_iv (ATNR_COLD) 1331 const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1497 const_iv (ATNR_CONFUSION) 1332 const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1498 const_iv (ATNR_ACID) 1333 const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1499 const_iv (ATNR_DRAIN)
1500 const_iv (ATNR_WEAPONMAGIC)
1501 const_iv (ATNR_GHOSTHIT)
1502 const_iv (ATNR_POISON)
1503 const_iv (ATNR_SLOW)
1504 const_iv (ATNR_PARALYZE)
1505 const_iv (ATNR_TURN_UNDEAD)
1506 const_iv (ATNR_FEAR)
1507 const_iv (ATNR_CANCELLATION)
1508 const_iv (ATNR_DEPLETE)
1509 const_iv (ATNR_DEATH)
1510 const_iv (ATNR_CHAOS)
1511 const_iv (ATNR_COUNTERSPELL)
1512 const_iv (ATNR_GODPOWER)
1513 const_iv (ATNR_HOLYWORD)
1514 const_iv (ATNR_BLIND)
1515 const_iv (ATNR_INTERNAL)
1516 const_iv (ATNR_LIFE_STEALING)
1517 const_iv (ATNR_DISEASE)
1518 1334
1519 const_iv (MAP_IN_MEMORY) 1335 const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
1520 const_iv (MAP_SWAPPED)
1521 const_iv (MAP_LOADING)
1522 const_iv (MAP_SAVING)
1523 1336
1524 const_iv (KLASS_ATTACHABLE) 1337 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1525 const_iv (KLASS_GLOBAL) 1338 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1526 const_iv (KLASS_OBJECT)
1527 const_iv (KLASS_CLIENT)
1528 const_iv (KLASS_PLAYER)
1529 const_iv (KLASS_MAP)
1530 1339
1531 const_iv (CS_QUERY_YESNO) 1340 const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT)
1532 const_iv (CS_QUERY_SINGLECHAR)
1533 const_iv (CS_QUERY_HIDEINPUT)
1534 1341
1535 const_iv (ST_DEAD) 1342 const_iv (ST_DEAD) const_iv (ST_SETUP) const_iv (ST_PLAYING) const_iv (ST_CUSTOM)
1536 const_iv (ST_SETUP)
1537 const_iv (ST_PLAYING)
1538 const_iv (ST_CUSTOM)
1539 1343
1540 const_iv (ST_CHANGE_CLASS) 1344 const_iv (IO_HEADER) const_iv (IO_OBJECTS) const_iv (IO_UNIQUES)
1541
1542 const_iv (IO_HEADER)
1543 const_iv (IO_OBJECTS)
1544 const_iv (IO_UNIQUES)
1545 1345
1546 // random map generator 1346 // random map generator
1547 const_iv (LAYOUT_NONE) 1347 const_iv (LAYOUT_NONE) const_iv (LAYOUT_ONION) const_iv (LAYOUT_MAZE) const_iv (LAYOUT_SPIRAL)
1548 const_iv (LAYOUT_ONION) 1348 const_iv (LAYOUT_ROGUELIKE) const_iv (LAYOUT_SNAKE) const_iv (LAYOUT_SQUARE_SPIRAL)
1549 const_iv (LAYOUT_MAZE)
1550 const_iv (LAYOUT_SPIRAL)
1551 const_iv (LAYOUT_ROGUELIKE)
1552 const_iv (LAYOUT_SNAKE)
1553 const_iv (LAYOUT_SQUARE_SPIRAL)
1554 1349
1555 const_iv (RMOPT_RANDOM) 1350 const_iv (RMOPT_RANDOM) const_iv (RMOPT_CENTERED) const_iv (RMOPT_LINEAR)
1556 const_iv (RMOPT_CENTERED) 1351 const_iv (RMOPT_BOTTOM_C) const_iv (RMOPT_BOTTOM_R) const_iv (RMOPT_IRR_SPACE)
1557 const_iv (RMOPT_LINEAR) 1352 const_iv (RMOPT_WALL_OFF) const_iv (RMOPT_WALLS_ONLY) const_iv (RMOPT_NO_DOORS)
1558 const_iv (RMOPT_BOTTOM_C)
1559 const_iv (RMOPT_BOTTOM_R)
1560 const_iv (RMOPT_IRR_SPACE)
1561 const_iv (RMOPT_WALL_OFF)
1562 const_iv (RMOPT_WALLS_ONLY)
1563 const_iv (RMOPT_NO_DOORS)
1564 1353
1565 const_iv (SYMMETRY_RANDOM) 1354 const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1566 const_iv (SYMMETRY_NONE) 1355 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1567 const_iv (SYMMETRY_X) 1356
1568 const_iv (SYMMETRY_Y) 1357 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1569 const_iv (SYMMETRY_XY) 1358 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)
1359 const_iv (GT_MINIMAL)
1570 }; 1360 };
1571 1361
1572 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1362 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1573 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv)); 1363 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));
1574 1364
1595 } 1385 }
1596} 1386}
1597 1387
1598void _connect_to_perl () 1388void _connect_to_perl ()
1599 1389
1390void _recalc_want ()
1391
1600void _global_reattach () 1392void _global_reattach ()
1601 CODE: 1393 CODE:
1602{ 1394{
1603 // reattach to all attachable objects in the game. 1395 // reattach to all attachable objects in the game.
1604 for_all_clients (ns) 1396 for_all_clients (ns)
1605 ns->reattach (); 1397 ns->reattach ();
1606 1398
1607 for_all_objects (op) 1399 for_all_objects (op)
1608 op->reattach (); 1400 op->reattach ();
1401}
1402
1403void _post_tick ()
1404 CODE:
1405 coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);
1406
1407# support function for map-world.ext
1408void _quantise (SV *data_sv, SV *plt_sv)
1409 CODE:
1410{
1411 if (!SvROK (plt_sv) || SvTYPE (SvRV (plt_sv)) != SVt_PVAV)
1412 croak ("_quantise called with invalid agruments");
1413
1414 plt_sv = SvRV (plt_sv);
1415 SV **plt = AvARRAY (plt_sv);
1416 int plt_count = AvFILL (plt_sv) + 1;
1417
1418 STRLEN len;
1419 char *data = SvPVbyte (data_sv, len);
1420 char *dst = data;
1421
1422 while (len >= 3)
1423 {
1424 for (SV **val_sv = plt + plt_count; val_sv-- > plt; )
1425 {
1426 char *val = SvPVX (*val_sv);
1427
1428 if (val [0] == data [0]
1429 && val [1] == data [1]
1430 && val [2] == data [2])
1431 {
1432 *dst++ = val [3];
1433 goto next;
1434 }
1435 }
1436
1437 croak ("_quantise: color not found in palette: #%02x%02x%02x, at offset %d %d",
1438 (uint8_t)data [0], (uint8_t)data [1], (uint8_t)data [2],
1439 dst - SvPVX (data_sv), len);
1440
1441 next:
1442 data += 3;
1443 len -= 3;
1444 }
1445
1446 SvCUR_set (data_sv, dst - SvPVX (data_sv));
1609} 1447}
1610 1448
1611NV floor (NV x) 1449NV floor (NV x)
1612 1450
1613NV ceil (NV x) 1451NV ceil (NV x)
1622 default: croak ("cf::rndm requires none, one or two parameters."); break; 1460 default: croak ("cf::rndm requires none, one or two parameters."); break;
1623 } 1461 }
1624 OUTPUT: 1462 OUTPUT:
1625 RETVAL 1463 RETVAL
1626 1464
1465NV clamp (NV value, NV min_value, NV max_value)
1466 CODE:
1467 RETVAL = clamp (value, min_value, max_value);
1468 OUTPUT:
1469 RETVAL
1470
1471NV lerp (NV value, NV min_in, NV max_in, NV min_out, NV max_out)
1472 CODE:
1473 RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1474 OUTPUT:
1475 RETVAL
1476
1477void cede_to_tick ()
1478 CODE:
1479 coroapi::cede_to_tick ();
1480
1627void server_tick () 1481void server_tick ()
1628 CODE: 1482 CODE:
1629 runtime = SvNVx (sv_runtime); 1483 runtime = SvNVx (sv_runtime);
1630 server_tick (); 1484 server_tick ();
1631 1485
1632void 1486void
1633LOG (int level, char *msg) 1487log_backtrace (utf8_string msg)
1488
1489void
1490LOG (int flags, utf8_string msg)
1634 PROTOTYPE: $$ 1491 PROTOTYPE: $$
1635 C_ARGS: (LogLevel)level, "%s", msg 1492 C_ARGS: flags, "%s", msg
1636 1493
1637char *path_combine (char *base, char *path) 1494octet_string path_combine (octet_string base, octet_string path)
1638 PROTOTYPE: $$ 1495 PROTOTYPE: $$
1639 1496
1640char *path_combine_and_normalize (char *base, char *path) 1497octet_string path_combine_and_normalize (octet_string base, octet_string path)
1641 PROTOTYPE: $$ 1498 PROTOTYPE: $$
1642 1499
1643const char * 1500const_octet_string
1644get_maps_directory (char *path) 1501get_maps_directory (octet_string path)
1645 PROTOTYPE: $ 1502 PROTOTYPE: $
1646 ALIAS: maps_directory = 0 1503 ALIAS: maps_directory = 0
1647 CODE: 1504 CODE:
1648 RETVAL = create_pathname (path); 1505 RETVAL = create_pathname (path);
1649 OUTPUT: RETVAL 1506 OUTPUT: RETVAL
1651void 1508void
1652sub_generation_inc () 1509sub_generation_inc ()
1653 CODE: 1510 CODE:
1654 PL_sub_generation++; 1511 PL_sub_generation++;
1655 1512
1656const char * 1513const_octet_string
1657mapdir () 1514mapdir ()
1658 PROTOTYPE: 1515 PROTOTYPE:
1659 ALIAS: 1516 ALIAS:
1660 mapdir = 0 1517 mapdir = 0
1661 uniquedir = 1 1518 uniquedir = 1
1677 } 1534 }
1678 OUTPUT: RETVAL 1535 OUTPUT: RETVAL
1679 1536
1680void abort () 1537void abort ()
1681 1538
1539void reset_signals ()
1540
1682void fork_abort (char *cause = "cf::fork_abort") 1541void fork_abort (octet_string cause = "cf::fork_abort")
1683 1542
1684void cleanup (const char *cause, bool make_core = false) 1543void cleanup (octet_string cause, bool make_core = false)
1685 1544
1686void emergency_save () 1545void emergency_save ()
1687 1546
1688void _exit (int status = EXIT_SUCCESS) 1547void _exit (int status = EXIT_SUCCESS)
1689 1548
1699 1558
1700int munlockall () 1559int munlockall ()
1701 1560
1702#endif 1561#endif
1703 1562
1704int find_animation (char *text) 1563int find_animation (utf8_string text)
1705 PROTOTYPE: $ 1564 PROTOTYPE: $
1706 1565
1707int random_roll (int min, int max, object *op, int goodbad); 1566int random_roll (int min, int max, object *op, int goodbad);
1708 1567
1709const char *cost_string_from_value(uint64 cost, int approx = 0) 1568const_utf8_string cost_string_from_value(uint64 cost, int approx = 0)
1710 1569
1711int 1570int
1712exp_to_level (val64 exp) 1571exp_to_level (val64 exp)
1713 CODE: 1572 CODE:
1714{ 1573{
1746 else 1605 else
1747 XSRETURN_UNDEF; 1606 XSRETURN_UNDEF;
1748 OUTPUT: RETVAL 1607 OUTPUT: RETVAL
1749 1608
1750bool 1609bool
1751load_resource_file (const char *filename) 1610load_resource_file (octet_string filename)
1752 1611
1753MODULE = cf PACKAGE = cf::attachable 1612MODULE = cf PACKAGE = cf::attachable
1754 1613
1755int 1614int
1756valid (SV *obj) 1615valid (SV *obj)
1820object *actives (U32 index) 1679object *actives (U32 index)
1821 CODE: 1680 CODE:
1822 RETVAL = index < actives.size () ? actives [index] : 0; 1681 RETVAL = index < actives.size () ? actives [index] : 0;
1823 OUTPUT: RETVAL 1682 OUTPUT: RETVAL
1824 1683
1684const char *slot_save_name (U32 slot)
1685 ALIAS:
1686 slot_use_name = 1
1687 slot_nonuse_name = 2
1688 CODE:
1689{
1690 if (slot >= NUM_BODY_LOCATIONS)
1691 croak ("body slot index out of range");
1692
1693 switch (ix)
1694 {
1695 case 0: RETVAL = body_locations[slot].save_name; break;
1696 case 1: RETVAL = body_locations[slot].use_name; break;
1697 case 2: RETVAL = body_locations[slot].nonuse_name; break;
1698 }
1699}
1700 OUTPUT:
1701 RETVAL
1702
1825# missing properties 1703# missing properties
1826 1704
1827object *head (object *op) 1705object *head (object *op)
1828 PROTOTYPE: $ 1706 PROTOTYPE: $
1829 CODE: 1707 CODE:
1855num_animations (object *op) 1733num_animations (object *op)
1856 CODE: 1734 CODE:
1857 RETVAL = NUM_ANIMATIONS (op); 1735 RETVAL = NUM_ANIMATIONS (op);
1858 OUTPUT: RETVAL 1736 OUTPUT: RETVAL
1859 1737
1738int slot_info (object *op, UV slot, int value = 0)
1739 ALIAS:
1740 slot_used = 1
1741 CODE:
1742{
1743 if (slot >= NUM_BODY_LOCATIONS)
1744 croak ("body slot index out of range");
1745
1746 RETVAL = ix ? op->slot[slot].used : op->slot[slot].info;
1747
1748 if (items > 2)
1749 if (ix)
1750 op->slot[slot].used = value;
1751 else
1752 op->slot[slot].info = value;
1753}
1754 OUTPUT:
1755 RETVAL
1756
1860object *find_best_object_match (object *op, const char *match) 1757object *find_best_object_match (object *op, utf8_string match)
1861 1758
1862object *find_marked_object (object *op) 1759object *find_marked_object (object *op)
1863 1760
1864int need_identify (object *obj); 1761int need_identify (object *obj);
1865 1762
1885 CODE: 1782 CODE:
1886 player_apply_below (op); 1783 player_apply_below (op);
1887 1784
1888int cast_heal (object *op, object *caster, object *spell, int dir = 0) 1785int cast_heal (object *op, object *caster, object *spell, int dir = 0)
1889 1786
1890object *cf_object_present_archname_inside (object *op, char *whatstr) 1787object *cf_object_present_archname_inside (object *op, utf8_string whatstr)
1891 1788
1892int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0) 1789int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)
1893 1790
1894int cf_object_change_map (object *op, int x, int y, maptile *map) 1791int cf_object_change_map (object *op, int x, int y, maptile *map)
1895 1792
1915 RETVAL = pay_for_amount (amount, op); 1812 RETVAL = pay_for_amount (amount, op);
1916 OUTPUT: RETVAL 1813 OUTPUT: RETVAL
1917 1814
1918void pay_player (object *op, uint64 amount) 1815void pay_player (object *op, uint64 amount)
1919 1816
1920val64 pay_player_arch (object *op, const char *arch, uint64 amount) 1817val64 pay_player_arch (object *op, utf8_string arch, uint64 amount)
1921 1818
1922int cast_spell (object *op, object *caster, int dir, object *spell_ob, char *stringarg = 0) 1819int cast_spell (object *op, object *caster, int dir, object *spell_ob, utf8_string stringarg = 0)
1923 1820
1924void learn_spell (object *op, object *sp, int special_prayer = 0) 1821void learn_spell (object *op, object *sp, int special_prayer = 0)
1925 CODE: 1822 CODE:
1926 do_learn_spell (op, sp, special_prayer); 1823 do_learn_spell (op, sp, special_prayer);
1927 1824
1928void forget_spell (object *op, object *sp) 1825void forget_spell (object *op, object *sp)
1929 CODE: 1826 CODE:
1930 do_forget_spell (op, query_name (sp)); 1827 do_forget_spell (op, query_name (sp));
1931 1828
1932object *check_for_spell (object *op, char *spellname) 1829object *check_for_spell (object *op, utf8_string spellname)
1933 CODE: 1830 CODE:
1934 RETVAL = check_spell_known (op, spellname); 1831 RETVAL = check_spell_known (op, spellname);
1935 OUTPUT: RETVAL 1832 OUTPUT: RETVAL
1936 1833
1937int query_money (object *op) 1834int query_money (object *op)
1950 1847
1951int cf_object_teleport (object *op, maptile *map, int x, int y) 1848int cf_object_teleport (object *op, maptile *map, int x, int y)
1952 1849
1953void update_object (object *op, int action) 1850void update_object (object *op, int action)
1954 1851
1955object *cf_create_object_by_name (const char *name) 1852object *cf_create_object_by_name (utf8_string name)
1956 1853
1957void change_exp (object *op, uint64 exp, const char *skill_name = 0, int flag = 0) 1854void change_exp (object *op, uint64 exp, utf8_string skill_name = 0, int flag = 0)
1958 1855
1959void player_lvl_adj (object *who, object *skill = 0) 1856void player_lvl_adj (object *who, object *skill = 0)
1960 1857
1961int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL) 1858int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1962 1859
1976object *cf_insert_ob_in_ob (object *ob, object *where) 1873object *cf_insert_ob_in_ob (object *ob, object *where)
1977 1874
1978# no clean way to get an object from an archetype - stupid idiotic 1875# no clean way to get an object from an archetype - stupid idiotic
1979# dumb kludgy misdesigned plug-in api slowly gets on my nerves. 1876# dumb kludgy misdesigned plug-in api slowly gets on my nerves.
1980 1877
1981object *new (const char *archetype = 0) 1878object *new (utf8_string archetype = 0)
1982 PROTOTYPE: ;$ 1879 PROTOTYPE: ;$
1983 CODE: 1880 CODE:
1984 RETVAL = archetype ? get_archetype (archetype) : cf_create_object (); 1881 RETVAL = archetype ? get_archetype (archetype) : cf_create_object ();
1985 OUTPUT: 1882 OUTPUT:
1986 RETVAL 1883 RETVAL
1991{ 1888{
1992 int unused_type; 1889 int unused_type;
1993 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y); 1890 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1994} 1891}
1995 1892
1996# syntatic sugar for easier use in event callbacks.
1997const char *options (object *op)
1998 CODE:
1999 RETVAL = op->name;
2000 OUTPUT:
2001 RETVAL
2002
2003player *contr (object *op) 1893player *contr (object *op)
2004 CODE: 1894 CODE:
2005 RETVAL = op->contr; 1895 RETVAL = op->contr;
2006 OUTPUT: RETVAL 1896 OUTPUT: RETVAL
2007 1897
2008const char *get_ob_key_value (object *op, const char *key) 1898const_utf8_string get_ob_key_value (object *op, utf8_string key)
2009 1899
2010bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1) 1900bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)
2011 1901
2012object *get_nearest_player (object *ob) 1902object *get_nearest_player (object *ob)
2013 ALIAS: nearest_player = 0 1903 ALIAS: nearest_player = 0
2014 PREINIT: 1904 PREINIT:
2015 extern object *get_nearest_player (object *); 1905 extern object *get_nearest_player (object *);
2031bool on_same_map_as (object *ob, object *other) 1921bool on_same_map_as (object *ob, object *other)
2032 CODE: 1922 CODE:
2033 RETVAL = on_same_map (ob, other); 1923 RETVAL = on_same_map (ob, other);
2034 OUTPUT: RETVAL 1924 OUTPUT: RETVAL
2035 1925
2036const char * 1926const_utf8_string
2037base_name (object *op, int plural = op->nrof > 1) 1927base_name (object *op, int plural = op->nrof > 1)
2038 CODE: 1928 CODE:
2039 RETVAL = query_base_name (op, plural); 1929 RETVAL = query_base_name (op, plural);
2040 OUTPUT: RETVAL 1930 OUTPUT: RETVAL
2041 1931
2048 RETVAL = op->contr; 1938 RETVAL = op->contr;
2049 OUTPUT: RETVAL 1939 OUTPUT: RETVAL
2050 1940
2051void check_score (object *op) 1941void check_score (object *op)
2052 1942
2053void message (object *op, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 1943void message (object *op, utf8_string txt, int flags = NDI_ORANGE | NDI_UNIQUE)
2054 CODE: 1944 CODE:
2055 new_draw_info (flags, 0, op, txt); 1945 new_draw_info (flags, 0, op, txt);
2056
2057object *cf_player_send_inventory (object *op)
2058
2059char *cf_player_get_ip (object *op)
2060 ALIAS: ip = 0
2061
2062object *cf_player_get_marked_item (object *op)
2063 ALIAS: marked_item = 0
2064
2065void cf_player_set_marked_item (object *op, object *ob)
2066
2067partylist *cf_player_get_party (object *op)
2068 ALIAS: party = 0
2069
2070void cf_player_set_party (object *op, partylist *party)
2071 1946
2072void kill_player (object *op) 1947void kill_player (object *op)
2073 1948
2074void esrv_update_item (object *op, int what, object *item) 1949void esrv_update_item (object *op, int what, object *item)
2075 C_ARGS: what, op, item 1950 C_ARGS: what, op, item
2076 1951
2077void clear_los (object *op) 1952void clear_los (object *op)
2078 1953
2079int command_summon (object *op, char *params) 1954int command_summon (object *op, utf8_string params)
2080 1955
2081int command_arrest (object *op, char *params) 1956int command_arrest (object *op, utf8_string params)
2082 1957
2083 1958
2084MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 1959MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2085 1960
2086INCLUDE: $PERL $srcdir/genacc player ../include/player.h | 1961INCLUDE: $PERL $srcdir/genacc player ../include/player.h |
2219 if (SV **elem = av_fetch ((AV *)palette, idx [offs], 0)) 2094 if (SV **elem = av_fetch ((AV *)palette, idx [offs], 0))
2220 { 2095 {
2221 object *ob = get_archetype (SvPVutf8_nolen (*elem)); 2096 object *ob = get_archetype (SvPVutf8_nolen (*elem));
2222 ob->flag [FLAG_NO_MAP_SAVE] = true; 2097 ob->flag [FLAG_NO_MAP_SAVE] = true;
2223 THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY); 2098 THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY);
2099
2100 if (ob->randomitems)
2101 {
2102 if (!ob->above)
2103 {
2104 ob->create_treasure (ob->randomitems);
2105
2106 for (object *op = ob->above; op; op = op->above)
2107 op->flag [FLAG_NO_MAP_SAVE] = true;
2108 }
2109
2110 ob->randomitems = 0;
2111 }
2224 } 2112 }
2225 } 2113 }
2226 } 2114 }
2227 2115
2228 skip_space: ; 2116 skip_space: ;
2255 sfree (THIS->regions, THIS->size ()); 2143 sfree (THIS->regions, THIS->size ());
2256 free (THIS->regionmap); 2144 free (THIS->regionmap);
2257 2145
2258 THIS->regions = regions; 2146 THIS->regions = regions;
2259 THIS->regionmap = regionmap; 2147 THIS->regionmap = regionmap;
2148}
2149
2150void
2151maptile::create_region_treasure ()
2152 CODE:
2153{
2154 object *op = object::create ();
2155 op->type = FLOOR;
2156 op->map = THIS;
2157
2158 for (int x = 0; x < THIS->width; ++x)
2159 for (int y = 0; y < THIS->height; ++y)
2160 {
2161 region *rgn = THIS->region (x, y);
2162
2163 //fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D
2164 if (rgn->treasure && rndm () < rgn->treasure_density)
2165 {
2166 op->x = x;
2167 op->y = y;
2168 create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2169 }
2170 }
2171
2172 op->destroy ();
2260} 2173}
2261 2174
2262void play_sound_map (maptile *map, int x, int y, int sound_num) 2175void play_sound_map (maptile *map, int x, int y, int sound_num)
2263 2176
2264int out_of_map (maptile *map, int x, int y) 2177int out_of_map (maptile *map, int x, int y)
2351 2264
2352# worst xs function of my life 2265# worst xs function of my life
2353bool 2266bool
2354_create_random_map (\ 2267_create_random_map (\
2355 maptile *self,\ 2268 maptile *self,\
2356 char *wallstyle,\ 2269 utf8_string wallstyle,\
2357 char *wall_name,\ 2270 utf8_string wall_name,\
2358 char *floorstyle,\ 2271 utf8_string floorstyle,\
2359 char *monsterstyle,\ 2272 utf8_string monsterstyle,\
2360 char *treasurestyle,\ 2273 utf8_string treasurestyle,\
2361 char *layoutstyle,\ 2274 utf8_string layoutstyle,\
2362 char *doorstyle,\ 2275 utf8_string doorstyle,\
2363 char *decorstyle,\ 2276 utf8_string decorstyle,\
2364 char *origin_map,\ 2277 utf8_string origin_map,\
2365 char *final_map,\ 2278 utf8_string final_map,\
2366 char *exitstyle,\ 2279 utf8_string exitstyle,\
2367 char *this_map,\ 2280 utf8_string this_map,\
2368 char *exit_on_final_map,\ 2281 utf8_string exit_on_final_map,\
2369 int xsize,\ 2282 int xsize,\
2370 int ysize,\ 2283 int ysize,\
2371 int expand2x,\ 2284 int expand2x,\
2372 int layoutoptions1,\ 2285 int layoutoptions1,\
2373 int layoutoptions2,\ 2286 int layoutoptions2,\
2386 val64 total_map_hp,\ 2299 val64 total_map_hp,\
2387 int map_layout_style,\ 2300 int map_layout_style,\
2388 int treasureoptions,\ 2301 int treasureoptions,\
2389 int symmetry_used,\ 2302 int symmetry_used,\
2390 region *region,\ 2303 region *region,\
2391 char *custom\ 2304 utf8_string custom\
2392) 2305)
2393 CODE: 2306 CODE:
2394{ 2307{
2395 random_map_params rmp; 2308 random_map_params rmp;
2396 2309
2437 OUTPUT: 2350 OUTPUT:
2438 RETVAL 2351 RETVAL
2439 2352
2440MODULE = cf PACKAGE = cf::arch 2353MODULE = cf PACKAGE = cf::arch
2441 2354
2442archetype *find (const char *name) 2355archetype *find (utf8_string name)
2443 CODE: 2356 CODE:
2444 RETVAL = archetype::find (name); 2357 RETVAL = archetype::find (name);
2445 OUTPUT: 2358 OUTPUT:
2446 RETVAL 2359 RETVAL
2447 2360
2469list () 2382list ()
2470 PPCODE: 2383 PPCODE:
2471 for_all_regions (rgn) 2384 for_all_regions (rgn)
2472 XPUSHs (sv_2mortal (to_sv (rgn))); 2385 XPUSHs (sv_2mortal (to_sv (rgn)));
2473 2386
2474region *find (char *name) 2387region *find (utf8_string name)
2475 PROTOTYPE: $ 2388 PROTOTYPE: $
2476 CODE: 2389 CODE:
2477 RETVAL = region::find (name); 2390 RETVAL = region::find (name);
2478 OUTPUT: RETVAL 2391 OUTPUT: RETVAL
2479 2392
2480region *find_fuzzy (char *name) 2393region *find_fuzzy (utf8_string name)
2481 PROTOTYPE: $ 2394 PROTOTYPE: $
2482 CODE: 2395 CODE:
2483 RETVAL = region::find_fuzzy (name); 2396 RETVAL = region::find_fuzzy (name);
2484 OUTPUT: RETVAL 2397 OUTPUT: RETVAL
2485 2398
2399int specificity (region *rgn)
2400 CODE:
2401 RETVAL = 0;
2402 while (rgn = rgn->parent)
2403 RETVAL++;
2404 OUTPUT: RETVAL
2405
2486INCLUDE: $PERL $srcdir/genacc region ../include/map.h | 2406INCLUDE: $PERL $srcdir/genacc region ../include/region.h |
2487 2407
2488MODULE = cf PACKAGE = cf::living 2408MODULE = cf PACKAGE = cf::living
2489 2409
2490INCLUDE: $PERL $srcdir/genacc living ../include/living.h | 2410INCLUDE: $PERL $srcdir/genacc living ../include/living.h |
2491 2411
2524 THIS->send_packet (buf, len); 2444 THIS->send_packet (buf, len);
2525} 2445}
2526 2446
2527MODULE = cf PACKAGE = cf::face PREFIX = face_ 2447MODULE = cf PACKAGE = cf::face PREFIX = face_
2528 2448
2529INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h | 2449#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |
2530 2450
2531faceidx face_find (const char *name, faceidx defidx = 0) 2451faceidx face_find (utf8_string name, faceidx defidx = 0)
2532 2452
2533faceidx alloc (const char *name) 2453faceidx alloc (utf8_string name)
2534 CODE: 2454 CODE:
2535{ 2455{
2536 do 2456 do
2537 { 2457 {
2538 RETVAL = faces.size (); 2458 RETVAL = faces.size ();
2553 faceinfo *f = face_info (idx); 2473 faceinfo *f = face_info (idx);
2554 assert (f); 2474 assert (f);
2555 f->visibility = visibility; 2475 f->visibility = visibility;
2556 f->magicmap = magicmap; 2476 f->magicmap = magicmap;
2557 2477
2558void set_smooth (faceidx idx, faceidx smooth) 2478void set_smooth (faceidx idx, faceidx smooth, int smoothlevel)
2559 CODE: 2479 CODE:
2560 faceinfo *f = face_info (idx); 2480 faceinfo *f = face_info (idx); assert (f);
2561 assert (f);
2562 f->smooth = smooth; 2481 f->smooth = smooth;
2482 f->smoothlevel = smoothlevel;
2563 2483
2564void set_data (faceidx idx, int faceset, SV *data, SV *chksum) 2484void set_data (faceidx idx, int faceset, SV *data, SV *chksum)
2565 CODE: 2485 CODE:
2486{
2566 facedata *d = face_data (idx, faceset); 2487 facedata *d = face_data (idx, faceset);
2567 assert (d); 2488 assert (d);
2568 sv_to (data, d->data); 2489 sv_to (data, d->data);
2569 STRLEN clen; 2490 STRLEN clen;
2570 char *cdata = SvPVbyte (chksum, clen); 2491 char *cdata = SvPVbyte (chksum, clen);
2492 clen = min (CHKSUM_SIZE, clen);
2493
2494 if (memcmp (d->chksum, cdata, clen))
2495 {
2571 memcpy (d->chksum, cdata, min (CHKSUM_SIZE, clen)); 2496 memcpy (d->chksum, cdata, clen);
2497
2498 // invalidate existing client face info
2499 for_all_clients (ns)
2500 if (ns->faceset == faceset)
2501 {
2502 ns->faces_sent [idx] = false;
2503 ns->force_newmap = true;
2504 }
2505 }
2506}
2572 2507
2573void invalidate (faceidx idx) 2508void invalidate (faceidx idx)
2574 CODE: 2509 CODE:
2575 for_all_clients (ns) 2510 for_all_clients (ns)
2511 {
2576 ns->faces_sent [idx] = false; 2512 ns->faces_sent [idx] = false;
2513 ns->force_newmap = true;
2514 }
2577 2515
2578void invalidate_all () 2516void invalidate_all ()
2579 CODE: 2517 CODE:
2580 for_all_clients (ns) 2518 for_all_clients (ns)
2519 {
2581 ns->faces_sent.reset (); 2520 ns->faces_sent.reset ();
2521 ns->force_newmap = true;
2522 }
2582 2523
2524MODULE = cf PACKAGE = cf::anim PREFIX = anim_
2525
2526#INCLUDE: $PERL $srcdir/genacc faceset ../include/anim.h |
2527
2528animidx anim_find (utf8_string name)
2529 CODE:
2530 RETVAL = animation::find (name).number;
2531 OUTPUT: RETVAL
2532
2533animidx set (utf8_string name, SV *frames, int facings = 1)
2534 CODE:
2535{
2536 if (!SvROK (frames) && SvTYPE (SvRV (frames)) != SVt_PVAV)
2537 croak ("frames must be an arrayref");
2538
2539 AV *av = (AV *)SvRV (frames);
2540
2541 animation *anim = &animation::find (name);
2542 if (anim->number)
2543 {
2544 anim->resize (av_len (av) + 1);
2545 anim->facings = facings;
2546 }
2547 else
2548 anim = &animation::create (name, av_len (av) + 1, facings);
2549
2550 for (int i = 0; i < anim->num_animations; ++i)
2551 anim->faces [i] = face_find (SvPVutf8_nolen (*av_fetch (av, i, 1)));
2552}
2553 OUTPUT: RETVAL
2554
2555void invalidate_all ()
2556 CODE:
2557 for_all_clients (ns)
2558 ns->anims_sent.reset ();
2559

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines