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

Comparing deliantra/server/plugins/cfperl/cfperl.xs (file contents):
Revision 1.19 by root, Wed Feb 8 07:14:56 2006 UTC vs.
Revision 1.61 by root, Wed Jul 19 08:50:42 2006 UTC

1/*****************************************************************************/ 1/*****************************************************************************/
2/* CrossFire, A Multiplayer game for the X Window System */ 2/* CrossFire, A Multiplayer game for the X Window System */
3/* */
4/*****************************************************************************/ 3/*****************************************************************************/
5 4
6/* 5/*
7 * This code is placed under the GNU General Public Licence (GPL) 6 * This code is placed under the GNU General Public Licence (GPL)
8 * 7 *
… …
29#include <XSUB.h> 28#include <XSUB.h>
30 29
31#undef save_long // clashes with libproto.h 30#undef save_long // clashes with libproto.h
32 31
33#define PLUGIN_NAME "perl" 32#define PLUGIN_NAME "perl"
34#define PLUGIN_VERSION "cfperl 0.0" 33#define PLUGIN_VERSION "cfperl 0.3"
35 34
36#ifndef __CEXTRACT__ 35#ifndef __CEXTRACT__
37#include <plugin.h> 36#include <plugin.h>
38#endif 37#endif
39 38
… …
42#else 41#else
43#define MODULEAPI 42#define MODULEAPI
44#endif 43#endif
45 44
46#include <plugin_common.h> 45#include <plugin_common.h>
46#include <sounds.h>
47 47
48#include <stdarg.h> 48#include <stdarg.h>
49 49
50//#include "EventAPI.h"
50#include "perlxsi.c" 51#include "perlxsi.c"
52
53extern sint64 *levels; // the experience table
54
55typedef object object_ornull;
56typedef mapstruct mapstruct_ornull;
57
58typedef double val64;
59#define newSVval64 newSVnv
60#define SvVAL64 SvNV
51 61
52static f_plug_api gethook; 62static f_plug_api gethook;
53static f_plug_api registerGlobalEvent; 63static f_plug_api registerGlobalEvent;
54static f_plug_api unregisterGlobalEvent; 64static f_plug_api unregisterGlobalEvent;
55static f_plug_api systemDirectory; 65static f_plug_api systemDirectory;
56static f_plug_api object_set_property; 66static f_plug_api object_set_property;
57static f_plug_api map_get_map; 67static f_plug_api map_get_map;
68static f_plug_api object_insert;
58 69
70/* this is a stupid way to do things, and awkward to use for plug-in authors */
59typedef struct 71typedef struct
60{ 72{
61 object* who; 73 object* who;
62 object* activator; 74 object* activator;
63 object* third; 75 object* third;
76 object* event;
77 mapstruct* map;
64 char message[1024]; 78 char message[1024];
65 int fix; 79 int fix; // seems to be python-only, and should not be part of the API
66 int event_code; 80 int event_code;
67 char extension[1024]; // name field, should invoke specific perl extension 81 char extension[1024]; // name field, should invoke specific perl extension
68 char options[1024]; // slaying field of event_connectors 82 char options[1024]; // slaying field of event_connectors
69 int returnvalue; 83 int returnvalue;
70} CFPContext; 84} CFPContext;
71 85
72//static int current_command = -999;
73
74static HV *obj_cache; 86static HV *obj_cache;
75static PerlInterpreter *perl; 87static PerlInterpreter *perl;
88
89#define PUSHcfapi(type,value) PUSHs (sv_2mortal (newSVcfapi (CFAPI_ ## type, (value))))
90#define PUSHcfapi_va(type,ctype) PUSHcfapi (type, va_arg (args, ctype))
91#define PUSH_OB PUSHcfapi_va(POBJECT, object *)
92#define PUSH_PL PUSHcfapi_va(PPLAYER, player *)
93#define PUSH_MAP PUSHcfapi_va(PMAP, mapstruct *)
94#define PUSH_PV PUSHcfapi_va(STRING, const char *)
95#define PUSH_IV PUSHs (sv_2mortal (newSViv (va_arg (args, int))))
96
97extern void pay_player(object *op, uint64 amount);
98extern uint64 pay_player_arch(object *op, const char *arch, uint64 amount);
76 99
77////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 100//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
78 101
79// garbage collect some perl objects, if possible 102// garbage collect some perl objects, if possible
80// all objects no longer referenced and empty are 103// all objects no longer referenced and empty are
… …
112} 135}
113 136
114static SV * 137static SV *
115newSVptr (void *ptr, const char *klass) 138newSVptr (void *ptr, const char *klass)
116{ 139{
140 SV *sv;
141
117 if (!ptr) 142 if (!ptr)
118 return &PL_sv_undef; 143 return &PL_sv_undef;
119 144
120 HV *hv = newHV (); 145 sv = newSV (0);
121 sv_magic ((SV *)hv, 0, PERL_MAGIC_ext, (char *)ptr, 0); 146 sv_magic (sv, 0, PERL_MAGIC_ext, (char *)ptr, 0);
122 return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1)); 147 return sv_bless (newRV_noinc (sv), gv_stashpv (klass, 1));
148}
149
150static void
151SVptr_cache_set (void *ptr, SV *sv)
152{
153 hv_store (obj_cache, (char *)&ptr, sizeof (ptr), sv, 0);
154}
155
156static SV *
157SVptr_cache_get (void *ptr)
158{
159 SV **he = hv_fetch (obj_cache, (char *)&ptr, sizeof (ptr), 0);
160
161 return he ? *he : 0;
123} 162}
124 163
125static SV * 164static SV *
126newSVptr_cached (void *ptr, const char *klass) 165newSVptr_cached (void *ptr, const char *klass)
127{ 166{
128 SV *sv, **he; 167 SV *sv;
129 168
130 if (!ptr) 169 if (!ptr)
131 return &PL_sv_undef; 170 return &PL_sv_undef;
132 171
133 he = hv_fetch (obj_cache, (char *)&ptr, sizeof (ptr), 0); 172 sv = SVptr_cache_get (ptr);
134 173
135 if (he) 174 if (!sv)
136 sv = *he;
137 else
138 { 175 {
139 sv = newSVptr (ptr, klass); 176 HV *hv = newHV ();
140 hv_store (obj_cache, (char *)&ptr, sizeof (ptr), sv, 0); 177 sv_magic ((SV *)hv, 0, PERL_MAGIC_ext, (char *)ptr, 0);
178 sv = sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));
179
180 SVptr_cache_set (ptr, sv);
141 } 181 }
142 182
143 return newSVsv (sv); 183 return newSVsv (sv);
144} 184}
145 185
… …
165 croak ("perl code used %s object, but C object is already destroyed, caught", klass); 205 croak ("perl code used %s object, but C object is already destroyed, caught", klass);
166 206
167 return (long)mg->mg_ptr; 207 return (long)mg->mg_ptr;
168} 208}
169 209
210static long
211SvPTR_ornull (SV *sv, const char *klass)
212{
213 if (SvOK (sv))
214 return SvPTR (sv, klass);
215 else
216 return 0;
217}
218
170SV * 219SV *
171newSVcfapi (int type, ...) 220newSVcfapi (int type, ...)
172{ 221{
173 SV *sv; 222 SV *sv;
174 223
175 va_list args; 224 va_list args;
176 va_start (args, type); 225 va_start (args, type);
177 226
178 switch (type) 227 switch (type)
179 { 228 {
229#if 0
230 case CFAPI_INT16:
231 sv = newSViv (*va_arg (args, sint16_t *));
232 break;
233#endif
234
180 case CFAPI_INT: 235 case CFAPI_INT:
181 sv = newSViv (*va_arg (args, int *)); 236 sv = newSViv (*va_arg (args, int *));
182 break; 237 break;
183 238
184 case CFAPI_LONG: 239 case CFAPI_LONG:
185 sv = newSViv (*va_arg (args, long *)); 240 sv = newSVval64 ((val64)*va_arg (args, sint64 *));
186 break; 241 break;
187 242
188 case CFAPI_DOUBLE: 243 case CFAPI_DOUBLE:
189 sv = newSViv (*va_arg (args, double *)); 244 sv = newSVnv (*va_arg (args, double *));
190 break; 245 break;
191 246
192 case CFAPI_STRING: 247 case CFAPI_STRING:
193 { 248 {
194 char *str = va_arg (args, char *); 249 char *str = va_arg (args, char *);
… …
201 object *obj = va_arg (args, object *); 256 object *obj = va_arg (args, object *);
202 257
203 if (!obj) 258 if (!obj)
204 sv = &PL_sv_undef; 259 sv = &PL_sv_undef;
205 else 260 else
206 switch (*(int *)cf_object_get_property (obj, CFAPI_OBJECT_PROP_TYPE)) 261 switch (obj->type)
207 { 262 {
208 case MAP: 263 case MAP:
209 sv = newSVptr_cached (obj, "cf::object::map"); 264 sv = newSVptr_cached (obj, "cf::object::map");
210 break; 265 break;
211 266
… …
247 va_end (args); 302 va_end (args);
248 303
249 return sv; 304 return sv;
250} 305}
251 306
252/////////////////////////////////////////////////////////////////////////////
253
254void
255inject_event (const char *func, CFPContext *context)
256{
257 dSP;
258
259 ENTER;
260 SAVETMPS;
261
262 PUSHMARK (SP);
263
264 HV *hv = newHV ();
265#define hv_context(type,addr,expr) hv_store (hv, #expr, sizeof (#expr) - 1, newSVcfapi (type, addr context->expr), 0)
266 hv_context (CFAPI_POBJECT, ,who);
267 hv_context (CFAPI_POBJECT, ,activator);
268 hv_context (CFAPI_POBJECT, ,third);
269 hv_context (CFAPI_STRING , ,message);
270 hv_context (CFAPI_INT ,&,fix);
271 hv_context (CFAPI_INT ,&,event_code);
272 hv_context (CFAPI_STRING , ,options);
273 hv_context (CFAPI_STRING , ,extension);
274
275 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
276
277 PUTBACK;
278 int count = call_pv (func, G_SCALAR | G_EVAL);
279 SPAGAIN;
280
281 if (SvTRUE (ERRSV))
282 LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV));
283
284 context->returnvalue = count > 0 ? POPi : 0;
285
286 PUTBACK;
287 FREETMPS;
288 LEAVE;
289}
290
291///////////////////////////////////////////////////////////////////////////// 307/////////////////////////////////////////////////////////////////////////////
292 308
293int 309int
294initPlugin (const char *iversion, f_plug_api gethooksptr) 310initPlugin (const char *iversion, f_plug_api gethooksptr)
295{ 311{
… …
394 registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event"); 410 registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event");
395 unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event"); 411 unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");
396 systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory"); 412 systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory");
397 object_set_property = gethook (&rtype, hooktype, "cfapi_object_set_property"); 413 object_set_property = gethook (&rtype, hooktype, "cfapi_object_set_property");
398 map_get_map = gethook (&rtype, hooktype, "cfapi_map_get_map"); 414 map_get_map = gethook (&rtype, hooktype, "cfapi_map_get_map");
415 object_insert = gethook (&rtype, hooktype, "cfapi_object_insert");
399 416
400 cf_init_plugin (gethook); 417 cf_init_plugin (gethook);
401 418
402 /* Pick the global events you want to monitor from this plugin */ 419 /* Pick the global events you want to monitor from this plugin */
403 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener); 420 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);
404 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener); 421 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);
405 //registerGlobalEvent (NULL, EVENT_CRASH, PLUGIN_NAME, globalEventListener); 422 //registerGlobalEvent (NULL, EVENT_CRASH, PLUGIN_NAME, globalEventListener);
423 registerGlobalEvent (NULL, EVENT_FIND_UNARMED_SKILL, PLUGIN_NAME, globalEventListener);
424 registerGlobalEvent (NULL, EVENT_PLAYER_USE_SKILL, PLUGIN_NAME, globalEventListener);
425 registerGlobalEvent (NULL, EVENT_MONSTER_USE_SKILL, PLUGIN_NAME, globalEventListener);
406 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener); 426 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener);
407 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener); 427 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener);
408 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener); 428 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener);
409 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener); 429 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener);
410 registerGlobalEvent (NULL, EVENT_MAPENTER, PLUGIN_NAME, globalEventListener); 430 registerGlobalEvent (NULL, EVENT_MAPENTER, PLUGIN_NAME, globalEventListener);
411 registerGlobalEvent (NULL, EVENT_MAPLEAVE, PLUGIN_NAME, globalEventListener); 431 registerGlobalEvent (NULL, EVENT_MAPLEAVE, PLUGIN_NAME, globalEventListener);
412 registerGlobalEvent (NULL, EVENT_MAPRESET, PLUGIN_NAME, globalEventListener); 432 registerGlobalEvent (NULL, EVENT_MAPRESET, PLUGIN_NAME, globalEventListener);
433 registerGlobalEvent (NULL, EVENT_MAPLOAD, PLUGIN_NAME, globalEventListener);
434 registerGlobalEvent (NULL, EVENT_MAPOUT, PLUGIN_NAME, globalEventListener);
435 registerGlobalEvent (NULL, EVENT_MAPIN, PLUGIN_NAME, globalEventListener);
436 registerGlobalEvent (NULL, EVENT_MAPCLEAN, PLUGIN_NAME, globalEventListener);
413 registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener); 437 registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener);
414 registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener); 438 registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);
415 registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener); 439 registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);
416 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener); 440 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
417 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener); 441 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
418 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener); 442 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
443 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener);
444 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener);
445 registerGlobalEvent (NULL, EVENT_EXTCMD, PLUGIN_NAME, globalEventListener);
419 446
420 char *argv[] = { 447 char *argv[] = {
421 "", 448 "",
422 "-e" 449 "-e"
423 "BEGIN {" 450 "BEGIN {"
… …
429 }; 456 };
430 457
431 perl = perl_alloc (); 458 perl = perl_alloc ();
432 perl_construct (perl); 459 perl_construct (perl);
433 460
461 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
462
434 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl)) 463 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl))
435 { 464 {
436 printf ("unable to initialize perl-interpreter, continuing without.\n"); 465 printf ("unable to initialize perl-interpreter, continuing without.\n");
437 466
438 perl_destruct (perl); 467 perl_destruct (perl);
… …
449 478
450void * 479void *
451globalEventListener (int *type, ...) 480globalEventListener (int *type, ...)
452{ 481{
453 va_list args; 482 va_list args;
454 static int rv = 0; 483 static int rv;
455 CFPContext context; 484 int event_code;
456 char *buf;
457 player *pl;
458 object *op;
459 485
460 if (!perl) 486 if (!perl)
461 return; 487 return;
462 488
463 memset (&context, 0, sizeof (context));
464
465 va_start (args, type); 489 va_start (args, type);
466 context.event_code = va_arg (args, int); 490 event_code = va_arg (args, int);
467 491
468 switch (context.event_code) 492 if (event_code == EVENT_FREE_OB)
469 { 493 {
470 case EVENT_CRASH: 494 player *pl;
471 printf ("Unimplemented for now\n"); 495 object *op;
472 break; 496 SV *sv;
473 497
474 case EVENT_MAPENTER:
475 case EVENT_MAPLEAVE:
476 case EVENT_FREE_OB:
477 case EVENT_BORN:
478 case EVENT_REMOVE:
479 context.activator = va_arg (args, object *);
480 break;
481
482 case EVENT_PLAYER_DEATH:
483 context.who = va_arg (args, object *); 498 op = va_arg (args, object *);
484 break; 499 sv = hv_delete (obj_cache, (char *)&op, sizeof (void *), 0);
485 500
486 case EVENT_GKILL: 501 if (sv)
487 context.who = va_arg (args, object *); 502 clearSVptr (sv);
488 context.activator = va_arg (args, object *);
489 break;
490 503
491 case EVENT_LOGIN: 504 rv = 0;
492 case EVENT_LOGOUT:
493 pl = va_arg (args, player *);
494 context.activator = pl->ob;
495 buf = va_arg (args, char *);
496 if (buf != 0)
497 strncpy (context.message, buf, sizeof (context.message));
498 break;
499
500 case EVENT_SHOUT:
501 case EVENT_MUZZLE:
502 case EVENT_KICK:
503 context.activator = va_arg (args, object *);
504 buf = va_arg (args, char *);
505 if (buf != 0)
506 strncpy (context.message, buf, sizeof (context.message));
507 break;
508
509 case EVENT_CLOCK:
510 clean_obj_cache ();
511 break;
512
513 case EVENT_TELL:
514 break;
515
516 case EVENT_MAPRESET:
517 buf = va_arg (args, char *);
518 if (buf != 0)
519 strncpy (context.message, buf, sizeof (context.message));
520 break;
521 } 505 }
522 506 else if (event_code == EVENT_CLOCK)
523 va_end (args);
524
525 if (context.event_code == EVENT_FREE_OB)
526 { 507 {
527 SV **svp = hv_fetch (obj_cache, (char *)&context.activator, sizeof (void *), 0); 508 dSP;
509 int i, count;
528 510
529 if (svp) 511 clean_obj_cache ();
530 clearSVptr (*svp); 512
513 ENTER;
514 SAVETMPS;
515
516 // service up to 8 events per tick better would be
517 // to check for elapsed time and stop processing after
518 // 0.25 * server_tick or so
519 for (i = 9; --i; )
520 {
521 PUSHMARK (SP);
522 XPUSHs (sv_2mortal (newSViv (0)));
523 PUTBACK;
524 count = call_pv ("Event::one_event", G_SCALAR | G_EVAL);
525 SPAGAIN;
526
527 if (!count || !POPi)
528 break;
529 }
530
531 FREETMPS;
532 LEAVE;
531 } 533 }
532 else 534 else
533 inject_event ("cf::inject_global_event", &context); 535 {
534 536 dSP;
535 rv = context.returnvalue; 537
538 ENTER;
539 SAVETMPS;
540
541 PUSHMARK (SP);
542
543 EXTEND (SP, 10);
544 PUSHs (sv_2mortal (newSViv (event_code)));
545
546 switch (event_code)
547 {
548 case EVENT_CRASH:
549 break;
550
551 case EVENT_PLAYER_LOAD:
552 case EVENT_PLAYER_SAVE:
553 PUSH_OB;
554 PUSH_PV;
555 break;
556
557 case EVENT_MAPLOAD:
558 case EVENT_MAPOUT:
559 case EVENT_MAPIN:
560 case EVENT_MAPCLEAN:
561 case EVENT_MAPRESET:
562 PUSH_MAP;
563 break;
564
565 case EVENT_MAPENTER:
566 case EVENT_MAPLEAVE:
567 case EVENT_BORN:
568 case EVENT_REMOVE:
569 case EVENT_PLAYER_DEATH:
570 PUSH_OB;
571 break;
572
573 case EVENT_GKILL:
574 PUSH_OB;
575 PUSH_OB;
576 break;
577
578 case EVENT_LOGIN:
579 case EVENT_LOGOUT:
580 PUSH_PL;
581 PUSH_PV;
582 break;
583
584 case EVENT_SHOUT:
585 case EVENT_MUZZLE:
586 case EVENT_KICK:
587 PUSH_OB;
588 PUSH_PV;
589 break;
590
591 case EVENT_FIND_UNARMED_SKILL:
592 PUSH_OB;
593 break;
594
595 case EVENT_PLAYER_USE_SKILL:
596 case EVENT_MONSTER_USE_SKILL:
597 PUSH_OB;
598 PUSH_OB;
599 PUSH_OB;
600 PUSH_IV;
601 PUSH_PV;
602 break;
603
604 case EVENT_EXTCMD:
605 PUSH_PL;
606 {
607 char *buf = va_arg (args, char *);
608 int len = va_arg (args, int);
609 PUSHs (sv_2mortal (newSVpvn (buf, len)));
610 }
611 break;
612
613 case EVENT_TELL:
614 break;
615 }
616
617 va_end (args);
618
619 PUTBACK;
620 int count = call_pv ("cf::inject_global_event", G_SCALAR | G_EVAL);
621 SPAGAIN;
622
623 if (SvTRUE (ERRSV))
624 LOG (llevError, "global event '%d' callback evaluation error: %s", event_code, SvPV_nolen (ERRSV));
625
626 rv = count > 0 ? POPi : 0;
627
628 PUTBACK;
629 FREETMPS;
630 LEAVE;
631 }
536 632
537 return &rv; 633 return &rv;
538} 634}
539 635
540void * 636void *
541eventListener (int *type, ...) 637eventListener (int *type, ...)
542{ 638{
543 static int rv = 0; 639 static int rv;
544 va_list args; 640 va_list args;
545 char *buf; 641 int event_code;
546 CFPContext context; 642 object *who, *activator, *third, *event;
643 char *message, *extension, *options;
547 644
548 if (!perl) 645 if (!perl)
549 return; 646 return;
550 647
551 memset (&context, 0, sizeof (context));
552
553 va_start (args, type); 648 va_start (args, type);
554
555 context.who = va_arg (args, object *); 649 who = va_arg (args, object *);
556 context.event_code = va_arg (args, int); 650 event_code = va_arg (args, int);
557 context.activator = va_arg (args, object *); 651 activator = va_arg (args, object *);
558 context.third = va_arg (args, object *); 652 third = va_arg (args, object *);
559
560 buf = va_arg (args, char *); 653 message = va_arg (args, char *);
561 if (buf != 0) 654 va_arg (args, int); // fix yourself
562 strncpy (context.message, buf, sizeof (context.message)); 655 extension = va_arg (args, char *);
563 656 options = va_arg (args, char *);
564 context.fix = va_arg (args, int); 657 event = va_arg (args, object *);
565 strncpy (context.extension, va_arg (args, char *), sizeof (context.extension));
566 strncpy (context.options, va_arg (args, char *), sizeof (context.options));
567 context.returnvalue = 0;
568 va_end (args); 658 va_end (args);
569 659
570 inject_event ("cf::inject_event", &context); 660 {
661 dSP;
662
663 ENTER;
664 SAVETMPS;
665
666 PUSHMARK (SP);
667 EXTEND (SP, 10);
668
669 PUSHcfapi (STRING, extension);
670 PUSHs (sv_2mortal (newSViv (event_code)));
671
672 PUSHcfapi (POBJECT, event);
673 PUSHcfapi (POBJECT, who);
674
675 switch (event_code)
676 {
677 case EVENT_STOP: // $ob (e.g. arrow)
678 case EVENT_TIME: // $ob
679 case EVENT_TIMER: // $ob
680 break;
681
682 case EVENT_APPLY: // $ob, $who
683 case EVENT_DROP: // $ob, $who
684 case EVENT_CLOSE: // $ob, $who
685 case EVENT_DEATH: // $ob[, $killer]
686 case EVENT_MOVE: // $ob, $enemy
687 case EVENT_THROW: // $ob, $thrower
688 PUSHcfapi (POBJECT, activator);
689 break;
690
691 case EVENT_ATTACK: // $ob, $who, $victim (?? please god enlighten me)
692 PUSHcfapi (POBJECT, activator);
693 PUSHcfapi (POBJECT, third);
694 break;
695
696 case EVENT_TRIGGER: // $ob, $originator, [$victim], [$msg]
697 PUSHcfapi (POBJECT, activator);
698 PUSHcfapi (POBJECT, third);
699 PUSHcfapi (POBJECT, message);
700 break;
701
702 case EVENT_SAY: // $ob, $who, $msg
703 PUSHcfapi (POBJECT, activator);
704 PUSHcfapi (STRING, message);
705 break;
706
707 default:
708 LOG (llevError, "perl plugin called for unsupported event type %d", event_code);
709 break;
710 }
711
712 PUTBACK;
713 int count = call_pv ("cf::inject_event", G_SCALAR | G_EVAL);
714 SPAGAIN;
715
716 if (SvTRUE (ERRSV))
717 LOG (llevError, "event '%d' callback evaluation error: %s", event_code, SvPV_nolen (ERRSV));
718
719 rv = count > 0 ? POPi : 0;
720
721 PUTBACK;
722 FREETMPS;
723 LEAVE;
724 }
571 725
572 rv = context.returnvalue;
573 return &rv; 726 return &rv;
574} 727}
575 728
576int 729int
577closePlugin () 730closePlugin ()
… …
603 const_iv (llevInfo) 756 const_iv (llevInfo)
604 const_iv (llevDebug) 757 const_iv (llevDebug)
605 const_iv (llevMonster) 758 const_iv (llevMonster)
606 759
607 const_iv (PLAYER) 760 const_iv (PLAYER)
761 const_iv (TRANSPORT)
608 const_iv (ROD) 762 const_iv (ROD)
609 const_iv (TREASURE) 763 const_iv (TREASURE)
610 const_iv (POTION) 764 const_iv (POTION)
611 const_iv (FOOD) 765 const_iv (FOOD)
612 const_iv (POISON) 766 const_iv (POISON)
… …
617 const_iv (BOW) 771 const_iv (BOW)
618 const_iv (WEAPON) 772 const_iv (WEAPON)
619 const_iv (ARMOUR) 773 const_iv (ARMOUR)
620 const_iv (PEDESTAL) 774 const_iv (PEDESTAL)
621 const_iv (ALTAR) 775 const_iv (ALTAR)
622 const_iv (CONFUSION)
623 const_iv (LOCKED_DOOR) 776 const_iv (LOCKED_DOOR)
624 const_iv (SPECIAL_KEY) 777 const_iv (SPECIAL_KEY)
625 const_iv (MAP) 778 const_iv (MAP)
626 const_iv (DOOR) 779 const_iv (DOOR)
627 const_iv (KEY) 780 const_iv (KEY)
… …
728 const_iv (ITEM_TRANSFORMER) 881 const_iv (ITEM_TRANSFORMER)
729 const_iv (QUEST) 882 const_iv (QUEST)
730 883
731 const_iv (ST_BD_BUILD) 884 const_iv (ST_BD_BUILD)
732 const_iv (ST_BD_REMOVE) 885 const_iv (ST_BD_REMOVE)
886
733 const_iv (ST_MAT_FLOOR) 887 const_iv (ST_MAT_FLOOR)
734 const_iv (ST_MAT_WALL) 888 const_iv (ST_MAT_WALL)
735 const_iv (ST_MAT_ITEM) 889 const_iv (ST_MAT_ITEM)
890
891 const_iv (AT_PHYSICAL)
892 const_iv (AT_MAGIC)
893 const_iv (AT_FIRE)
894 const_iv (AT_ELECTRICITY)
895 const_iv (AT_COLD)
896 const_iv (AT_CONFUSION)
897 const_iv (AT_ACID)
898 const_iv (AT_DRAIN)
899 const_iv (AT_WEAPONMAGIC)
900 const_iv (AT_GHOSTHIT)
901 const_iv (AT_POISON)
902 const_iv (AT_SLOW)
903 const_iv (AT_PARALYZE)
904 const_iv (AT_TURN_UNDEAD)
905 const_iv (AT_FEAR)
906 const_iv (AT_CANCELLATION)
907 const_iv (AT_DEPLETE)
908 const_iv (AT_DEATH)
909 const_iv (AT_CHAOS)
910 const_iv (AT_COUNTERSPELL)
911 const_iv (AT_GODPOWER)
912 const_iv (AT_HOLYWORD)
913 const_iv (AT_BLIND)
914 const_iv (AT_INTERNAL)
915 const_iv (AT_LIFE_STEALING)
916 const_iv (AT_DISEASE)
736 917
737 const_iv (QUEST_IN_PROGRESS) 918 const_iv (QUEST_IN_PROGRESS)
738 const_iv (QUEST_DONE_QUEST) 919 const_iv (QUEST_DONE_QUEST)
739 const_iv (QUEST_DONE_TASK) 920 const_iv (QUEST_DONE_TASK)
740 const_iv (QUEST_START_QUEST) 921 const_iv (QUEST_START_QUEST)
… …
908 const_iv (WILL_APPLY_HANDLE) 1089 const_iv (WILL_APPLY_HANDLE)
909 const_iv (WILL_APPLY_TREASURE) 1090 const_iv (WILL_APPLY_TREASURE)
910 const_iv (WILL_APPLY_EARTHWALL) 1091 const_iv (WILL_APPLY_EARTHWALL)
911 const_iv (WILL_APPLY_DOOR) 1092 const_iv (WILL_APPLY_DOOR)
912 const_iv (WILL_APPLY_FOOD) 1093 const_iv (WILL_APPLY_FOOD)
1094
1095 const_iv (SAVE_MODE)
1096 const_iv (SAVE_DIR_MODE)
1097
1098 const_iv (M_PAPER)
1099 const_iv (M_IRON)
1100 const_iv (M_GLASS)
1101 const_iv (M_LEATHER)
1102 const_iv (M_WOOD)
1103 const_iv (M_ORGANIC)
1104 const_iv (M_STONE)
1105 const_iv (M_CLOTH)
1106 const_iv (M_ADAMANT)
1107 const_iv (M_LIQUID)
1108 const_iv (M_SOFT_METAL)
1109 const_iv (M_BONE)
1110 const_iv (M_ICE)
1111 const_iv (M_SPECIAL)
1112
1113 const_iv (SK_EXP_ADD_SKILL)
1114 const_iv (SK_EXP_TOTAL)
1115 const_iv (SK_EXP_NONE)
1116 const_iv (SK_SUBTRACT_SKILL_EXP)
1117
1118 const_iv (SK_LOCKPICKING)
1119 const_iv (SK_HIDING)
1120 const_iv (SK_SMITHERY)
1121 const_iv (SK_BOWYER)
1122 const_iv (SK_JEWELER)
1123 const_iv (SK_ALCHEMY)
1124 const_iv (SK_STEALING)
1125 const_iv (SK_LITERACY)
1126 const_iv (SK_BARGAINING)
1127 const_iv (SK_JUMPING)
1128 const_iv (SK_DET_MAGIC)
1129 const_iv (SK_ORATORY)
1130 const_iv (SK_SINGING)
1131 const_iv (SK_DET_CURSE)
1132 const_iv (SK_FIND_TRAPS)
1133 const_iv (SK_MEDITATION)
1134 const_iv (SK_PUNCHING)
1135 const_iv (SK_FLAME_TOUCH)
1136 const_iv (SK_KARATE)
1137 const_iv (SK_CLIMBING)
1138 const_iv (SK_WOODSMAN)
1139 const_iv (SK_INSCRIPTION)
1140 const_iv (SK_ONE_HANDED_WEAPON)
1141 const_iv (SK_MISSILE_WEAPON)
1142 const_iv (SK_THROWING)
1143 const_iv (SK_USE_MAGIC_ITEM)
1144 const_iv (SK_DISARM_TRAPS)
1145 const_iv (SK_SET_TRAP)
1146 const_iv (SK_THAUMATURGY)
1147 const_iv (SK_PRAYING)
1148 const_iv (SK_CLAWING)
1149 const_iv (SK_LEVITATION)
1150 const_iv (SK_SUMMONING)
1151 const_iv (SK_PYROMANCY)
1152 const_iv (SK_EVOCATION)
1153 const_iv (SK_SORCERY)
1154 const_iv (SK_TWO_HANDED_WEAPON)
1155 const_iv (SK_SPARK_TOUCH)
1156 const_iv (SK_SHIVER)
1157 const_iv (SK_ACID_SPLASH)
1158 const_iv (SK_POISON_NAIL)
1159
1160 const_iv (SOUND_NEW_PLAYER)
1161 const_iv (SOUND_FIRE_ARROW)
1162 const_iv (SOUND_LEARN_SPELL)
1163 const_iv (SOUND_FUMBLE_SPELL)
1164 const_iv (SOUND_WAND_POOF)
1165 const_iv (SOUND_OPEN_DOOR)
1166 const_iv (SOUND_PUSH_PLAYER)
1167 const_iv (SOUND_PLAYER_HITS1)
1168 const_iv (SOUND_PLAYER_HITS2)
1169 const_iv (SOUND_PLAYER_HITS3)
1170 const_iv (SOUND_PLAYER_HITS4)
1171 const_iv (SOUND_PLAYER_IS_HIT1)
1172 const_iv (SOUND_PLAYER_IS_HIT2)
1173 const_iv (SOUND_PLAYER_IS_HIT3)
1174 const_iv (SOUND_PLAYER_KILLS)
1175 const_iv (SOUND_PET_IS_KILLED)
1176 const_iv (SOUND_PLAYER_DIES)
1177 const_iv (SOUND_OB_EVAPORATE)
1178 const_iv (SOUND_OB_EXPLODE)
1179 const_iv (SOUND_CLOCK)
1180 const_iv (SOUND_TURN_HANDLE)
1181 const_iv (SOUND_FALL_HOLE)
1182 const_iv (SOUND_DRINK_POISON)
1183 const_iv (SOUND_CAST_SPELL_0)
1184
1185 const_iv (PREFER_LOW)
1186 const_iv (PREFER_HIGH)
1187
1188 const_iv (ATNR_PHYSICAL)
1189 const_iv (ATNR_MAGIC)
1190 const_iv (ATNR_FIRE)
1191 const_iv (ATNR_ELECTRICITY)
1192 const_iv (ATNR_COLD)
1193 const_iv (ATNR_CONFUSION)
1194 const_iv (ATNR_ACID)
1195 const_iv (ATNR_DRAIN)
1196 const_iv (ATNR_WEAPONMAGIC)
1197 const_iv (ATNR_GHOSTHIT)
1198 const_iv (ATNR_POISON)
1199 const_iv (ATNR_SLOW)
1200 const_iv (ATNR_PARALYZE)
1201 const_iv (ATNR_TURN_UNDEAD)
1202 const_iv (ATNR_FEAR)
1203 const_iv (ATNR_CANCELLATION)
1204 const_iv (ATNR_DEPLETE)
1205 const_iv (ATNR_DEATH)
1206 const_iv (ATNR_CHAOS)
1207 const_iv (ATNR_COUNTERSPELL)
1208 const_iv (ATNR_GODPOWER)
1209 const_iv (ATNR_HOLYWORD)
1210 const_iv (ATNR_BLIND)
1211 const_iv (ATNR_INTERNAL)
1212 const_iv (ATNR_LIFE_STEALING)
1213 const_iv (ATNR_DISEASE)
1214
1215 const_iv (MAP_FLUSH)
1216 const_iv (MAP_PLAYER_UNIQUE)
1217 const_iv (MAP_BLOCK)
1218 const_iv (MAP_STYLE)
1219 const_iv (MAP_OVERLAY)
1220
1221 const_iv (MAP_IN_MEMORY)
1222 const_iv (MAP_SWAPPED)
1223 const_iv (MAP_LOADING)
1224 const_iv (MAP_SAVING)
913 }; 1225 };
914 1226
915 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1227 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
916 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1228 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
917 1229
… …
934 const_event (CLOSE) 1246 const_event (CLOSE)
935 const_event (TIMER) 1247 const_event (TIMER)
936 const_event (MOVE) 1248 const_event (MOVE)
937 1249
938 const_event (BORN) 1250 const_event (BORN)
939 const_event (CLOCK) 1251 //const_event (CLOCK)
940 const_event (CRASH) 1252 const_event (CRASH)
941 const_event (PLAYER_DEATH) 1253 const_event (PLAYER_DEATH)
1254 const_event (PLAYER_LOAD)
1255 const_event (PLAYER_SAVE)
942 const_event (GKILL) 1256 const_event (GKILL)
943 const_event (LOGIN) 1257 const_event (LOGIN)
944 const_event (LOGOUT) 1258 const_event (LOGOUT)
945 const_event (MAPENTER) 1259 const_event (MAPENTER)
946 const_event (MAPLEAVE) 1260 const_event (MAPLEAVE)
947 const_event (MAPRESET) 1261 const_event (MAPRESET)
1262 const_event (MAPLOAD)
1263 const_event (MAPOUT)
1264 const_event (MAPIN)
1265 const_event (MAPCLEAN)
948 const_event (REMOVE) 1266 const_event (REMOVE)
949 const_event (SHOUT) 1267 const_event (SHOUT)
950 const_event (TELL) 1268 const_event (TELL)
951 const_event (MUZZLE) 1269 const_event (MUZZLE)
952 const_event (KICK) 1270 const_event (KICK)
1271 const_event (PLAYER_USE_SKILL)
1272 const_event (MONSTER_USE_SKILL)
1273 const_event (FIND_UNARMED_SKILL)
1274 const_event (EXTCMD)
953 //const_event (FREE_OB) 1275 //const_event (FREE_OB)
954 }; 1276 };
955 1277
956 AV *av = get_av ("cf::EVENT", 1); 1278 AV *av = get_av ("cf::EVENT", 1);
957 1279
… …
1055 prop (CFAPI_INT, OBJECT_PROP_ANIM_SPEED) 1377 prop (CFAPI_INT, OBJECT_PROP_ANIM_SPEED)
1056 prop (CFAPI_INT, OBJECT_PROP_FRIENDLY) 1378 prop (CFAPI_INT, OBJECT_PROP_FRIENDLY)
1057 prop (CFAPI_STRING, OBJECT_PROP_SHORT_NAME) 1379 prop (CFAPI_STRING, OBJECT_PROP_SHORT_NAME)
1058 prop (CFAPI_INT, OBJECT_PROP_MAGICAL) 1380 prop (CFAPI_INT, OBJECT_PROP_MAGICAL)
1059 prop (CFAPI_INT, OBJECT_PROP_LUCK) 1381 prop (CFAPI_INT, OBJECT_PROP_LUCK)
1060 prop (CFAPI_LONG, OBJECT_PROP_EXP)
1061 prop (CFAPI_POBJECT, OBJECT_PROP_OWNER) 1382 prop (CFAPI_POBJECT, OBJECT_PROP_OWNER)
1062 prop (CFAPI_POBJECT, OBJECT_PROP_PRESENT) 1383 prop (CFAPI_POBJECT, OBJECT_PROP_PRESENT)
1063 prop (CFAPI_INT, OBJECT_PROP_CHEATER) 1384 prop (CFAPI_INT, OBJECT_PROP_CHEATER)
1064 prop (CFAPI_INT, OBJECT_PROP_MERGEABLE) 1385 prop (CFAPI_INT, OBJECT_PROP_MERGEABLE)
1065 prop (CFAPI_INT, OBJECT_PROP_PICKABLE) 1386 prop (CFAPI_INT, OBJECT_PROP_PICKABLE)
… …
1092 for (cprop = prop_table + sizeof (prop_table) / sizeof (prop_table [0]); cprop-- > prop_table; ) 1413 for (cprop = prop_table + sizeof (prop_table) / sizeof (prop_table [0]); cprop-- > prop_table; )
1093 { 1414 {
1094 hv_store (prop_type, cprop->name, strlen (cprop->name), newSViv (cprop->dtype), 0); 1415 hv_store (prop_type, cprop->name, strlen (cprop->name), newSViv (cprop->dtype), 0);
1095 hv_store (prop_idx, cprop->name, strlen (cprop->name), newSViv (cprop->idx ), 0); 1416 hv_store (prop_idx, cprop->name, strlen (cprop->name), newSViv (cprop->idx ), 0);
1096 } 1417 }
1418
1419 //I_EVENT_API (PACKAGE);
1097} 1420}
1098 1421
1099void 1422void
1100LOG (int level, char *msg) 1423LOG (int level, char *msg)
1101 PROTOTYPE: $$ 1424 PROTOTYPE: $$
1102 C_ARGS: level, "%s", msg 1425 C_ARGS: level, "%s", msg
1426
1427char *path_combine (char *base, char *path)
1428 PROTOTYPE: $$
1429
1430char *path_combine_and_normalize (char *base, char *path)
1431 PROTOTYPE: $$
1103 1432
1104char * 1433char *
1105cf_get_maps_directory (char *path) 1434cf_get_maps_directory (char *path)
1106 PROTOTYPE: $ 1435 PROTOTYPE: $
1107 ALIAS: maps_directory = 0 1436 ALIAS: maps_directory = 0
… …
1126 1455
1127int 1456int
1128cf_find_animation (char *text) 1457cf_find_animation (char *text)
1129 PROTOTYPE: $ 1458 PROTOTYPE: $
1130 1459
1460int random_roll(int min, int max, object *op, int goodbad);
1461
1462int
1463exp_to_level (val64 exp)
1464 CODE:
1465{
1466 int i = 0;
1467
1468 RETVAL = settings.max_level;
1469
1470 for (i = 1; i <= settings.max_level; i++)
1471 {
1472 if (levels[i] > exp)
1473 {
1474 RETVAL = i - 1;
1475 break;
1476 }
1477 }
1478}
1479 OUTPUT: RETVAL
1480
1481val64
1482level_to_min_exp (int level)
1483 CODE:
1484 if (level > settings.max_level)
1485 RETVAL = levels[settings.max_level];
1486 else if (level < 1)
1487 RETVAL = 0;
1488 else
1489 RETVAL = levels[level];
1490 OUTPUT: RETVAL
1491
1492SV *
1493resistance_to_string (int atnr)
1494 CODE:
1495 if (atnr >= 0 && atnr < NROFATTACKS)
1496 RETVAL = newSVpv (resist_plus[atnr], 0);
1497 else
1498 XSRETURN_UNDEF;
1499 OUTPUT: RETVAL
1500
1131MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1501MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1132 1502
1133SV * 1503SV *
1134get_property (object *obj, int type, int idx) 1504get_property (object *obj, int type, int idx)
1135 CODE: 1505 CODE:
… …
1143 { 1513 {
1144 case CFAPI_INT: 1514 case CFAPI_INT:
1145 cf_object_set_int_property (obj, idx, SvIV (newval)); 1515 cf_object_set_int_property (obj, idx, SvIV (newval));
1146 break; 1516 break;
1147 case CFAPI_LONG: 1517 case CFAPI_LONG:
1148 cf_object_set_long_property (obj, idx, SvNV (newval)); 1518 cf_object_set_long_property (obj, idx, SvVAL64 (newval));
1149 break; 1519 break;
1150 case CFAPI_DOUBLE: 1520 case CFAPI_DOUBLE:
1151 { 1521 {
1152 int unused_type; 1522 int unused_type;
1153 object_set_property (&unused_type, obj, idx, (double)SvNV (newval)); 1523 object_set_property (&unused_type, obj, idx, (double)SvNV (newval));
1154 } 1524 }
1155 break; 1525 break;
1156 case CFAPI_STRING: 1526 case CFAPI_STRING:
1157 cf_object_set_string_property (obj, idx, SvPV_nolen (newval)); 1527 cf_object_set_string_property (obj, idx, SvOK (newval) ? SvPV_nolen (newval) : 0);
1528 break;
1529 case CFAPI_POBJECT:
1530 {
1531 int unused_type;
1532 object_set_property (&unused_type, obj, idx, (object *)SvPTR_ornull (newval, "cf::object"));
1533 }
1158 break; 1534 break;
1159 default: 1535 default:
1160 croak ("unhandled type '%d' in set_property '%d'", type, idx); 1536 croak ("unhandled type '%d' in set_property '%d'", type, idx);
1161 } 1537 }
1162 1538
1539# missing properties
1540
1541void
1542set_attacktype (object *obj, U32 attacktype)
1543 CODE:
1544 obj->attacktype = attacktype;
1545
1546U32
1547get_attacktype (object *obj)
1548 ALIAS:
1549 attacktype = 0
1550 CODE:
1551 RETVAL = obj->attacktype;
1552 OUTPUT: RETVAL
1553
1554# missing in plug-in api, of course
1555void
1556set_food (object *obj, int food)
1557 CODE:
1558 obj->stats.food = food;
1559
1560int
1561get_food (object *obj)
1562 ALIAS:
1563 food = 0
1564 CODE:
1565 RETVAL = obj->stats.food;
1566 OUTPUT: RETVAL
1567
1163void 1568void
1164inv (object *obj) 1569inv (object *obj)
1165 PROTOTYPE: $ 1570 PROTOTYPE: $
1166 PPCODE: 1571 PPCODE:
1167{ 1572{
… …
1188 1593
1189void cf_object_free (object *op) 1594void cf_object_free (object *op)
1190 1595
1191object *cf_object_present_archname_inside (object *op, char *whatstr) 1596object *cf_object_present_archname_inside (object *op, char *whatstr)
1192 1597
1193int cf_object_transfer (object *op, int x, int y, int r, object *orig) 1598int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)
1194 1599
1195int cf_object_change_map (object *op, int x, int y, mapstruct *map) 1600int cf_object_change_map (object *op, int x, int y, mapstruct *map)
1196 1601
1197object *cf_object_clone (object *op, int clonetype) 1602object *cf_object_clone (object *op, int clonetype = 0)
1198 1603
1199int cf_object_pay_item (object *op, object *buyer) 1604int cf_object_pay_item (object *op, object *buyer)
1200 1605
1201int cf_object_pay_amount (object *op, double amount) 1606int cf_object_pay_amount (object *op, val64 amount)
1202 1607
1203int cf_object_cast_spell (object *caster, object *ctoo, int dir, object *sp_, char *flags) 1608int cf_object_cast_spell (object *caster, object *ctoo, int dir, object *spell_ob, char *stringarg = 0)
1204 1609
1205int cf_object_cast_ability (object *caster, object *ctoo, int dir, object *sp_, char *flags) 1610int cf_object_cast_ability (object *caster, object *ctoo, int dir, object *sp_, char *stringarg = 0)
1206 1611
1207void cf_object_learn_spell (object *op, object *sp) 1612void cf_object_learn_spell (object *op, object *sp)
1208 1613
1209void cf_object_forget_spell (object *op, object *sp) 1614void cf_object_forget_spell (object *op, object *sp)
1210 1615
… …
1241 1646
1242void cf_object_update (object *op, int flags) 1647void cf_object_update (object *op, int flags)
1243 1648
1244void cf_object_pickup (object *op, object *what) 1649void cf_object_pickup (object *op, object *what)
1245 1650
1246char *cf_object_get_key (object *op, char *keyname) 1651object *cf_create_object_by_name (const char *name)
1652
1653void change_exp (object *op, val64 exp, const char *skill_name = 0, int flag = 0)
1654
1655void pay_player (object *op, val64 amount)
1656
1657val64 pay_player_arch (object *op, const char *arch, val64 amount)
1658
1659void player_lvl_adj (object *who, object *skill = 0)
1660
1661int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1662
1663int calc_skill_exp (object *who, object *op, object *skill);
1664
1665void push_button (object *op);
1666
1667void use_trigger (object *op);
1668
1669void
1670cf_object_set_resistance (object *op, int rtype, int val)
1671 CODE:
1672 if (rtype >= 0 && rtype < NROFATTACKS)
1673 op->resist[rtype] = val;
1674
1675
1676MODULE = cf PACKAGE = cf::object PREFIX = cf_
1677
1678void cf_fix_object (object *pl)
1247 ALIAS: key = 0 1679 ALIAS: fix = 0
1248 1680
1249void cf_object_set_key (object *op, char *keyname, char *value) 1681object *cf_insert_ob_in_ob (object *ob, object *where)
1250 1682
1251char * 1683# no clean way to get an object from an archetype - stupid idiotic
1252base_name (object *ob, int plural) 1684# dumb kludgy misdesigned plug-in api slowly gets on my nerves.
1685
1686object *new (const char *archetype = 0)
1687 PROTOTYPE: ;$
1253 CODE: 1688 CODE:
1254 RETVAL = cf_query_base_name (ob, plural); 1689 RETVAL = archetype ? get_archetype (archetype) : cf_create_object ();
1255 OUTPUT: RETVAL
1256
1257MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1258
1259object *cf_create_object_by_name (const char *name = 0)
1260 PROTOTYPE: ;$
1261 ALIAS:
1262 create_object = 0
1263 new = 0
1264 CODE:
1265 RETVAL = name ? cf_create_object_by_name (name) : cf_create_object ();
1266 OUTPUT: 1690 OUTPUT:
1267 RETVAL 1691 RETVAL
1268 1692
1269void cf_fix_object (object *pl) 1693object *insert_ob_in_map_at (object *ob, mapstruct *where, object_ornull *orig, int flag, int x, int y)
1270 ALIAS: fix = 0 1694 PROTOTYPE: $$$$$$
1695 CODE:
1696{
1697 int unused_type;
1698 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1699}
1271 1700
1272object *cf_insert_ob_in_ob (object *ob, object *where) 1701# syntatic sugar for easier use in event callbacks.
1702const char *options (object *op)
1703 CODE:
1704 RETVAL = op->name;
1705 OUTPUT:
1706 RETVAL
1707
1708const char *get_ob_key_value (object *op, const char *key)
1709
1710bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)
1273 1711
1274object *get_nearest_player (object *ob) 1712object *get_nearest_player (object *ob)
1275 ALIAS: nearest_player = 0 1713 ALIAS: nearest_player = 0
1276 PREINIT: 1714 PREINIT:
1277 extern object *get_nearest_player (object *); 1715 extern object *get_nearest_player (object *);
… …
1293bool on_same_map_as (object *ob, object *other) 1731bool on_same_map_as (object *ob, object *other)
1294 CODE: 1732 CODE:
1295 RETVAL = on_same_map (ob, other); 1733 RETVAL = on_same_map (ob, other);
1296 OUTPUT: RETVAL 1734 OUTPUT: RETVAL
1297 1735
1736char *
1737base_name (object *ob, int plural)
1738 CODE:
1739 RETVAL = cf_query_base_name (ob, plural);
1740 OUTPUT: RETVAL
1741
1742living *
1743stats (object *ob)
1744 CODE:
1745 RETVAL = &ob->stats;
1746 OUTPUT: RETVAL
1747
1298 1748
1299MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ 1749MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1300 1750
1301player *player (object *op) 1751player *player (object *op)
1302 CODE: 1752 CODE:
1303 RETVAL = cf_player_find (cf_query_name (op)); 1753 RETVAL = op->contr;
1304 OUTPUT: RETVAL 1754 OUTPUT: RETVAL
1305 1755
1306void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 1756void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1307 1757
1308object *cf_player_send_inventory (object *op) 1758object *cf_player_send_inventory (object *op)
1759
1760player *contr (object *op)
1761 CODE:
1762 RETVAL = op->contr;
1763 OUTPUT: RETVAL
1309 1764
1310char *cf_player_get_ip (object *op) 1765char *cf_player_get_ip (object *op)
1311 ALIAS: ip = 0 1766 ALIAS: ip = 0
1312 1767
1313object *cf_player_get_marked_item (object *op) 1768object *cf_player_get_marked_item (object *op)
… …
1318partylist *cf_player_get_party (object *op) 1773partylist *cf_player_get_party (object *op)
1319 ALIAS: party = 0 1774 ALIAS: party = 0
1320 1775
1321void cf_player_set_party (object *op, partylist *party) 1776void cf_player_set_party (object *op, partylist *party)
1322 1777
1778void change_skill (object *op, val64 exp, char *skill_name = 0, int flag = 0)
1779
1780void kill_player (object *op)
1323 1781
1324MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1782MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1325 1783
1326MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 1784MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1327 1785
1328player *cf_player_find (char *name) 1786player *cf_player_find (char *name)
1329 PROTOTYPE: $ 1787 PROTOTYPE: $
1330 1788
1331void cf_player_move (player *pl, int dir) 1789void cf_player_move (player *pl, int dir)
1332 1790
1791void MapNewmapCmd (player *pl)
1792
1793void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
1794
1333# nonstandard 1795# nonstandard
1334object *ob (player *pl) 1796object *ob (player *pl)
1335 CODE: 1797 CODE:
1336 RETVAL = pl->ob; 1798 RETVAL = pl->ob;
1337 OUTPUT: RETVAL 1799 OUTPUT: RETVAL
… …
1343 1805
1344player *next (player *pl) 1806player *next (player *pl)
1345 CODE: 1807 CODE:
1346 RETVAL = pl->next; 1808 RETVAL = pl->next;
1347 OUTPUT: RETVAL 1809 OUTPUT: RETVAL
1810
1811bool
1812cell_visible (player *pl, int dx, int dy)
1813 CODE:
1814 RETVAL = FABS (dx) <= pl->socket.mapx / 2 && FABS (dy) <= pl->socket.mapy / 2
1815 && !pl->blocked_los [dx + pl->socket.mapx / 2][dy + pl->socket.mapy / 2];
1816 OUTPUT:
1817 RETVAL
1818
1819void
1820send (player *pl, SV *packet)
1821 CODE:
1822{
1823 STRLEN len;
1824 char *buf = SvPVbyte (packet, len);
1825
1826 Write_String_To_Socket (&pl->socket, buf, len);
1827}
1828
1829int
1830listening (player *pl, int new_value = -1)
1831 CODE:
1832 RETVAL = pl->listening;
1833 if (new_value >= 0)
1834 pl->listening = new_value;
1835 OUTPUT:
1836 RETVAL
1837
1838void get_savebed (player *pl)
1839 ALIAS:
1840 savebed = 0
1841 PPCODE:
1842 EXTEND (SP, 3);
1843 PUSHs (sv_2mortal (newSVpv (pl->savebed_map, 0)));
1844 PUSHs (sv_2mortal (newSViv (pl->bed_x)));
1845 PUSHs (sv_2mortal (newSViv (pl->bed_y)));
1846
1847void set_savebed (player *pl, char *map_path, int x, int y)
1848 CODE:
1849 strcpy (pl->savebed_map, map_path);
1850 pl->bed_x = x;
1851 pl->bed_y = y;
1348 1852
1349void 1853void
1350list () 1854list ()
1351 PPCODE: 1855 PPCODE:
1352{ 1856{
1353 player *pl; 1857 player *pl;
1354 for (pl = first_player; pl; pl = pl->next) 1858 for (pl = first_player; pl; pl = pl->next)
1355 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl)); 1859 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
1356} 1860}
1861
1862bool
1863peaceful (player *pl, bool new_setting = 0)
1864 PROTOTYPE: $;$
1865 CODE:
1866 RETVAL = pl->peaceful;
1867 if (items > 1)
1868 pl->peaceful = new_setting;
1869 OUTPUT:
1870 RETVAL
1871
1872living *
1873orig_stats (player *pl)
1874 CODE:
1875 RETVAL = &pl->orig_stats;
1876 OUTPUT: RETVAL
1877
1878living *
1879last_stats (player *pl)
1880 CODE:
1881 RETVAL = &pl->last_stats;
1882 OUTPUT: RETVAL
1357 1883
1358 1884
1359MODULE = cf PACKAGE = cf::map PREFIX = cf_map_ 1885MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
1360 1886
1361SV * 1887SV *
… …
1384 RETVAL = map_get_map (&unused_type, 0, width, height); 1910 RETVAL = map_get_map (&unused_type, 0, width, height);
1385} 1911}
1386 OUTPUT: 1912 OUTPUT:
1387 RETVAL 1913 RETVAL
1388 1914
1915void delete_map (mapstruct *map)
1916
1917void clean_tmp_map (mapstruct *map)
1918
1919void play_sound_map (mapstruct *map, int x, int y, int sound_num)
1920
1921mapstruct *tile_map (mapstruct *map, unsigned int dir)
1922 CODE:
1923 RETVAL = dir < 4 ? map->tile_map [dir] : 0;
1924 OUTPUT:
1925 RETVAL
1926
1927char *tile_path (mapstruct *map, unsigned int dir)
1928 CODE:
1929 if (dir >= 4)
1930 XSRETURN_UNDEF;
1931 RETVAL = map->tile_path [dir];
1932 OUTPUT:
1933 RETVAL
1934
1389mapstruct *cf_map_get_map (char *name) 1935mapstruct *cf_map_get_map (char *name)
1390 PROTOTYPE: $ 1936 PROTOTYPE: $
1391 ALIAS: map = 0 1937 ALIAS: map = 0
1392 1938
1939mapstruct *has_been_loaded (char *name)
1940 PROTOTYPE: $
1941
1393mapstruct *cf_map_get_first () 1942mapstruct *cf_map_get_first ()
1394 PROTOTYPE: 1943 PROTOTYPE:
1395 ALIAS: first = 0 1944 ALIAS: first = 0
1396 1945
1946# whoever "designed" the plug-in api should have wasted
1947# his/her time with staying away from the project - would have
1948# saved others a lot of time, without doubt.
1949void set_path (mapstruct *where, char *path)
1950 CODE:
1951 strcpy (where->path, path);
1952
1953int in_memory (mapstruct *map)
1954 CODE:
1955 RETVAL = map->in_memory;
1956 OUTPUT:
1957 RETVAL
1958
1959bool unique (mapstruct *map)
1960 CODE:
1961 RETVAL = map->unique;
1962 OUTPUT:
1963 RETVAL
1964
1965void set_unique (mapstruct *map, bool unique)
1966 CODE:
1967 map->unique = unique;
1968
1397object *cf_map_insert_object_there (mapstruct *where, object *op, object *originator, int flags) 1969object *cf_map_insert_object_there (mapstruct *where, object *op, object *originator, int flags)
1398 1970
1399object *cf_map_insert_object (mapstruct *where, object* op, int x, int y) 1971object *cf_map_insert_object (mapstruct *where, object* op, int x, int y)
1400 1972
1401object* cf_map_present_arch_by_name (mapstruct *map, const char* str, int nx, int ny) 1973object* cf_map_present_arch_by_name (mapstruct *map, const char* str, int nx, int ny)
1402 C_ARGS: str, map, nx, ny 1974 C_ARGS: str, map, nx, ny
1403 1975
1404#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 *nx, I16 *ny)
1405
1406void 1976void
1977cf_map_normalise (mapstruct *map, int x, int y)
1978 PPCODE:
1979{
1980 mapstruct *nmap = 0;
1981 I16 nx = 0, ny = 0;
1982 int flags = cf_map_get_flags (map, &nmap, x, y, &nx, &ny);
1983
1984 EXTEND (SP, 4);
1985 PUSHs (sv_2mortal (newSViv (flags)));
1986
1987 if (GIMME_V == G_ARRAY)
1988 {
1989 PUSHs (sv_2mortal (newSVcfapi (CFAPI_PMAP, nmap)));
1990 PUSHs (sv_2mortal (newSViv (nx)));
1991 PUSHs (sv_2mortal (newSViv (ny)));
1992 }
1993}
1994
1995void
1407at (mapstruct *obj, unsigned int x, unsigned int y) 1996at (mapstruct *map, unsigned int x, unsigned int y)
1408 PROTOTYPE: $$$ 1997 PROTOTYPE: $$$
1409 INIT:
1410 if (x >= MAP_WIDTH (obj) || y >= MAP_HEIGHT (obj)) XSRETURN_EMPTY;
1411 PPCODE: 1998 PPCODE:
1412{ 1999{
1413 object *o; 2000 object *o;
2001 mapstruct *nmap = 0;
2002 I16 nx, ny;
2003
2004 cf_map_get_flags (map, &nmap, x, y, &nx, &ny);
2005
2006 if (nmap)
1414 for (o = GET_MAP_OB (obj, x, y); o; o = o->above) 2007 for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)
1415 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o))); 2008 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
1416} 2009}
1417 2010
1418SV * 2011SV *
1419bot_at (mapstruct *obj, unsigned int x, unsigned int y) 2012bot_at (mapstruct *obj, unsigned int x, unsigned int y)
1420 PROTOTYPE: $$$ 2013 PROTOTYPE: $$$
… …
1441 case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break; 2034 case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;
1442 } 2035 }
1443 OUTPUT: 2036 OUTPUT:
1444 RETVAL 2037 RETVAL
1445 2038
2039# "serialise" map perl data into a ref
2040void
2041_get_obs (mapstruct *map)
2042 PPCODE:
2043{
2044 object *o;
2045 int x, y;
2046 AV *obs = newAV ();
2047 int nonnull = 0;
2048
2049 for (y = 0; y < MAP_HEIGHT (map); y++)
2050 for (x = 0; x < MAP_WIDTH (map); x++)
2051 {
2052 AV *av = newAV ();
2053
2054 for (o = GET_MAP_OB (map, x, y); o; o = o->above)
2055 {
2056 SV *sv = SVptr_cache_get (o);
2057
2058 if (sv && HvFILL (SvRV (sv)))
2059 {
2060 nonnull = 1;
2061 sv = newSVsv (sv);
2062 }
2063 else
2064 sv = &PL_sv_undef;
2065
2066 av_push (av, sv);
2067 }
2068
2069 av_store (obs, x + y * MAP_HEIGHT (map), newRV_noinc ((SV *)av));
2070 }
2071
2072 if (nonnull)
2073 XPUSHs (sv_2mortal (newRV_noinc ((SV *)obs)));
2074 else
2075 SvREFCNT_dec (obs);
2076}
2077
2078# "deserialise" perl map data into the map
2079void
2080_set_obs (mapstruct *map, SV *sv)
2081 CODE:
2082{
2083 object *o;
2084 AV *av;
2085 int x, y;
2086 AV *obs = (AV *)SvRV (sv);
2087
2088 for (y = 0; y < MAP_HEIGHT (map); y++)
2089 for (x = 0; x < MAP_WIDTH (map); x++)
2090 {
2091 sv = *av_fetch (obs, x + y * MAP_HEIGHT (map), 1);
2092
2093 if (!SvROK (sv))
2094 continue;
2095
2096 av = (AV *)SvRV (sv);
2097
2098 for (o = GET_MAP_OB (map, x, y); o; o = o->above)
2099 {
2100 sv = av_shift (av);
2101
2102 if (SvROK (sv))
2103 {
2104 sv_magic ((SV *)SvRV (sv), 0, PERL_MAGIC_ext, (char *)o, 0);
2105 SVptr_cache_set (o, sv);
2106 }
2107 }
2108 }
2109}
2110
1446 2111
1447MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_ 2112MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_
1448 2113
1449archetype *cf_archetype_get_first() 2114archetype *cf_archetype_get_first()
1450 PROTOTYPE: 2115 PROTOTYPE:
… …
1503 2168
1504const char *cf_region_get_message (region *reg) 2169const char *cf_region_get_message (region *reg)
1505 ALIAS: message = 0 2170 ALIAS: message = 0
1506 2171
1507 2172
2173MODULE = cf PACKAGE = cf::living PREFIX = cf_living_
2174
2175val64
2176exp (living *liv, val64 new_val = 0)
2177 PROTOTYPE: $;$
2178 ALIAS:
2179 Str = 1
2180 Dex = 2
2181 Con = 3
2182 Wis = 4
2183 Cha = 5
2184 Int = 6
2185 Pow = 7
2186 wc = 8
2187 ac = 9
2188 hp = 10
2189 maxhp = 11
2190 sp = 12
2191 maxsp = 13
2192 grace = 14
2193 maxgrace = 15
2194 food = 16
2195 dam = 17
2196 luck = 18
2197 CODE:
2198# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = new_val; break
2199 switch (ix)
2200 {
2201 LIVING_ACC (exp , 0);
2202 LIVING_ACC (Str , 1);
2203 LIVING_ACC (Dex , 2);
2204 LIVING_ACC (Con , 3);
2205 LIVING_ACC (Wis , 4);
2206 LIVING_ACC (Cha , 5);
2207 LIVING_ACC (Int , 6);
2208 LIVING_ACC (Pow , 7);
2209 LIVING_ACC (wc , 8);
2210 LIVING_ACC (ac , 9);
2211 LIVING_ACC (hp , 10);
2212 LIVING_ACC (maxhp , 11);
2213 LIVING_ACC (sp , 12);
2214 LIVING_ACC (maxsp , 13);
2215 LIVING_ACC (grace , 14);
2216 LIVING_ACC (maxgrace, 15);
2217 LIVING_ACC (food , 16);
2218 LIVING_ACC (dam , 17);
2219 LIVING_ACC (luck , 18);
2220 }
2221# undef LIVING_ACC
2222 OUTPUT:
2223 RETVAL
2224

Diff Legend

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