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.38 by root, Sat Mar 18 01:32:53 2006 UTC vs.
Revision 1.57 by root, Tue Jul 11 15:25:00 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.2" 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"
51 52
52typedef object object_ornull; 53typedef object object_ornull;
53typedef mapstruct mapstruct_ornull; 54typedef mapstruct mapstruct_ornull;
54 55
… …
64typedef struct 65typedef struct
65{ 66{
66 object* who; 67 object* who;
67 object* activator; 68 object* activator;
68 object* third; 69 object* third;
70 object* event;
69 mapstruct* map; 71 mapstruct* map;
70 char message[1024]; 72 char message[1024];
71 int fix; // seems to be python-only, and should not be part of the API 73 int fix; // seems to be python-only, and should not be part of the API
72 int event_code; 74 int event_code;
73 char extension[1024]; // name field, should invoke specific perl extension 75 char extension[1024]; // name field, should invoke specific perl extension
… …
75 int returnvalue; 77 int returnvalue;
76} CFPContext; 78} CFPContext;
77 79
78static HV *obj_cache; 80static HV *obj_cache;
79static PerlInterpreter *perl; 81static PerlInterpreter *perl;
82
83#define PUSHcfapi(type,value) PUSHs (sv_2mortal (newSVcfapi (CFAPI_ ## type, (value))))
84#define PUSHcfapi_va(type,ctype) PUSHcfapi (type, va_arg (args, ctype))
85#define PUSH_OB PUSHcfapi_va(POBJECT, object *)
86#define PUSH_PL PUSHcfapi_va(PPLAYER, player *)
87#define PUSH_MAP PUSHcfapi_va(PMAP, mapstruct *)
88#define PUSH_PV PUSHcfapi_va(STRING, const char *)
89#define PUSH_IV PUSHs (sv_2mortal (newSViv (va_arg (args, int))))
80 90
81////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 91//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
82 92
83// garbage collect some perl objects, if possible 93// garbage collect some perl objects, if possible
84// all objects no longer referenced and empty are 94// all objects no longer referenced and empty are
… …
220 case CFAPI_LONG: 230 case CFAPI_LONG:
221 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */ 231 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */
222 break; 232 break;
223 233
224 case CFAPI_DOUBLE: 234 case CFAPI_DOUBLE:
225 sv = newSViv (*va_arg (args, double *)); 235 sv = newSVnv (*va_arg (args, double *));
226 break; 236 break;
227 237
228 case CFAPI_STRING: 238 case CFAPI_STRING:
229 { 239 {
230 char *str = va_arg (args, char *); 240 char *str = va_arg (args, char *);
… …
237 object *obj = va_arg (args, object *); 247 object *obj = va_arg (args, object *);
238 248
239 if (!obj) 249 if (!obj)
240 sv = &PL_sv_undef; 250 sv = &PL_sv_undef;
241 else 251 else
242 switch (*(int *)cf_object_get_property (obj, CFAPI_OBJECT_PROP_TYPE)) 252 switch (obj->type)
243 { 253 {
244 case MAP: 254 case MAP:
245 sv = newSVptr_cached (obj, "cf::object::map"); 255 sv = newSVptr_cached (obj, "cf::object::map");
246 break; 256 break;
247 257
… …
283 va_end (args); 293 va_end (args);
284 294
285 return sv; 295 return sv;
286} 296}
287 297
288/////////////////////////////////////////////////////////////////////////////
289
290void
291inject_event (const char *func, CFPContext *context)
292{
293 dSP;
294
295 ENTER;
296 SAVETMPS;
297
298 PUSHMARK (SP);
299
300 HV *hv = newHV ();
301#define hv_context(type,addr,expr) hv_store (hv, #expr, sizeof (#expr) - 1, newSVcfapi (type, addr context->expr), 0)
302 hv_context (CFAPI_POBJECT, ,who);
303 hv_context (CFAPI_POBJECT, ,activator);
304 hv_context (CFAPI_POBJECT, ,third);
305 hv_context (CFAPI_PMAP, ,map);
306 hv_context (CFAPI_STRING , ,message);
307 hv_context (CFAPI_INT ,&,fix);
308 hv_context (CFAPI_INT ,&,event_code);
309 hv_context (CFAPI_STRING , ,options);
310 hv_context (CFAPI_STRING , ,extension);
311
312 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
313
314 PUTBACK;
315 int count = call_pv (func, G_SCALAR | G_EVAL);
316 SPAGAIN;
317
318 if (SvTRUE (ERRSV))
319 LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV));
320
321 context->returnvalue = count > 0 ? POPi : 0;
322
323 PUTBACK;
324 FREETMPS;
325 LEAVE;
326}
327
328///////////////////////////////////////////////////////////////////////////// 298/////////////////////////////////////////////////////////////////////////////
329 299
330int 300int
331initPlugin (const char *iversion, f_plug_api gethooksptr) 301initPlugin (const char *iversion, f_plug_api gethooksptr)
332{ 302{
… …
458 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener); 428 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
459 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener); 429 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
460 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener); 430 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
461 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener); 431 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener);
462 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener); 432 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener);
433 registerGlobalEvent (NULL, EVENT_EXTCMD, PLUGIN_NAME, globalEventListener);
463 434
464 char *argv[] = { 435 char *argv[] = {
465 "", 436 "",
466 "-e" 437 "-e"
467 "BEGIN {" 438 "BEGIN {"
… …
473 }; 444 };
474 445
475 perl = perl_alloc (); 446 perl = perl_alloc ();
476 perl_construct (perl); 447 perl_construct (perl);
477 448
449 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
450
478 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl)) 451 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl))
479 { 452 {
480 printf ("unable to initialize perl-interpreter, continuing without.\n"); 453 printf ("unable to initialize perl-interpreter, continuing without.\n");
481 454
482 perl_destruct (perl); 455 perl_destruct (perl);
… …
493 466
494void * 467void *
495globalEventListener (int *type, ...) 468globalEventListener (int *type, ...)
496{ 469{
497 va_list args; 470 va_list args;
498 static int rv = 0; 471 static int rv;
499 CFPContext context; 472 int event_code;
500 char *buf;
501 player *pl;
502 object *op;
503 473
504 if (!perl) 474 if (!perl)
505 return; 475 return;
506 476
507 memset (&context, 0, sizeof (context));
508
509 va_start (args, type); 477 va_start (args, type);
510 context.event_code = va_arg (args, int); 478 event_code = va_arg (args, int);
511 479
512 switch (context.event_code) 480 if (event_code == EVENT_FREE_OB)
513 { 481 {
514 case EVENT_CRASH: 482 player *pl;
515 printf ("Unimplemented for now\n"); 483 object *op;
516 break; 484 SV *sv;
517 485
518 case EVENT_PLAYER_LOAD:
519 case EVENT_PLAYER_SAVE:
520 context.who = va_arg (args, object *); 486 op = va_arg (args, object *);
521 buf = va_arg (args, char *);
522 if (buf != 0)
523 strncpy (context.message, buf, sizeof (context.message));
524 break;
525
526 case EVENT_MAPLOAD:
527 case EVENT_MAPOUT:
528 case EVENT_MAPIN:
529 case EVENT_MAPCLEAN:
530 context.map = va_arg (args, mapstruct *);
531 break;
532
533 case EVENT_MAPENTER:
534 case EVENT_MAPLEAVE:
535 case EVENT_FREE_OB:
536 case EVENT_BORN:
537 case EVENT_REMOVE:
538 context.activator = va_arg (args, object *);
539 break;
540
541 case EVENT_PLAYER_DEATH:
542 context.who = va_arg (args, object *);
543 break;
544
545 case EVENT_GKILL:
546 context.who = va_arg (args, object *);
547 context.activator = va_arg (args, object *);
548 break;
549
550 case EVENT_LOGIN:
551 case EVENT_LOGOUT:
552 pl = va_arg (args, player *);
553 context.activator = pl->ob;
554 buf = va_arg (args, char *);
555 if (buf != 0)
556 strncpy (context.message, buf, sizeof (context.message));
557 break;
558
559 case EVENT_SHOUT:
560 case EVENT_MUZZLE:
561 case EVENT_KICK:
562 context.activator = va_arg (args, object *);
563 buf = va_arg (args, char *);
564 if (buf != 0)
565 strncpy (context.message, buf, sizeof (context.message));
566 break;
567
568 case EVENT_CLOCK:
569 clean_obj_cache ();
570 break;
571
572 case EVENT_TELL:
573 break;
574
575 case EVENT_MAPRESET:
576 /* stupid, should be the map itself, not "message"??? */
577 buf = va_arg (args, char *);
578 if (buf != 0)
579 strncpy (context.message, buf, sizeof (context.message));
580 break;
581 }
582
583 va_end (args);
584
585 if (context.event_code == EVENT_FREE_OB)
586 {
587 SV *sv = hv_delete (obj_cache, (char *)&context.activator, sizeof (void *), 0); 487 sv = hv_delete (obj_cache, (char *)&op, sizeof (void *), 0);
588 488
589 if (sv) 489 if (sv)
590 clearSVptr (sv); 490 clearSVptr (sv);
491
492 rv = 0;
493 }
494 else if (event_code == EVENT_CLOCK)
495 {
496 dSP;
497 int i, count;
498
499 clean_obj_cache ();
500
501 ENTER;
502 SAVETMPS;
503
504 // service up to 8 events per tick better would be
505 // to check for elapsed time and stop processing after
506 // 0.25 * server_tick or so
507 for (i = 9; --i; )
508 {
509 PUSHMARK (SP);
510 XPUSHs (sv_2mortal (newSViv (0)));
511 PUTBACK;
512 count = call_pv ("Event::one_event", G_SCALAR | G_EVAL);
513 SPAGAIN;
514
515 if (!count || !POPi)
516 break;
517 }
518
519 FREETMPS;
520 LEAVE;
591 } 521 }
592 else 522 else
593 inject_event ("cf::inject_global_event", &context); 523 {
594 524 dSP;
595 rv = context.returnvalue; 525
526 ENTER;
527 SAVETMPS;
528
529 PUSHMARK (SP);
530
531 EXTEND (SP, 10);
532 PUSHs (sv_2mortal (newSViv (event_code)));
533
534 switch (event_code)
535 {
536 case EVENT_CRASH:
537 break;
538
539 case EVENT_PLAYER_LOAD:
540 case EVENT_PLAYER_SAVE:
541 PUSH_OB;
542 PUSH_PV;
543 break;
544
545 case EVENT_MAPLOAD:
546 case EVENT_MAPOUT:
547 case EVENT_MAPIN:
548 case EVENT_MAPCLEAN:
549 case EVENT_MAPRESET:
550 PUSH_MAP;
551 break;
552
553 case EVENT_MAPENTER:
554 case EVENT_MAPLEAVE:
555 case EVENT_BORN:
556 case EVENT_REMOVE:
557 case EVENT_PLAYER_DEATH:
558 PUSH_OB;
559 break;
560
561 case EVENT_GKILL:
562 PUSH_OB;
563 PUSH_OB;
564 break;
565
566 case EVENT_LOGIN:
567 case EVENT_LOGOUT:
568 PUSH_PL;
569 PUSH_PV;
570 break;
571
572 case EVENT_SHOUT:
573 case EVENT_MUZZLE:
574 case EVENT_KICK:
575 PUSH_OB;
576 PUSH_PV;
577 break;
578
579 case EVENT_EXTCMD:
580 PUSH_PL;
581 {
582 char *buf = va_arg (args, char *);
583 int len = va_arg (args, int);
584 PUSHs (sv_2mortal (newSVpvn (buf, len)));
585 }
586 break;
587
588 case EVENT_TELL:
589 break;
590 }
591
592 va_end (args);
593
594 PUTBACK;
595 int count = call_pv ("cf::inject_global_event", G_SCALAR | G_EVAL);
596 SPAGAIN;
597
598 if (SvTRUE (ERRSV))
599 LOG (llevError, "global event '%d' callback evaluation error: %s", event_code, SvPV_nolen (ERRSV));
600
601 rv = count > 0 ? POPi : 0;
602
603 PUTBACK;
604 FREETMPS;
605 LEAVE;
606 }
596 607
597 return &rv; 608 return &rv;
598} 609}
599 610
600void * 611void *
601eventListener (int *type, ...) 612eventListener (int *type, ...)
602{ 613{
603 static int rv = 0; 614 static int rv;
604 va_list args; 615 va_list args;
605 char *buf; 616 int event_code;
606 CFPContext context; 617 object *who, *activator, *third, *event;
618 char *message, *extension, *options;
607 619
608 if (!perl) 620 if (!perl)
609 return; 621 return;
610 622
611 memset (&context, 0, sizeof (context));
612
613 va_start (args, type); 623 va_start (args, type);
614
615 context.who = va_arg (args, object *); 624 who = va_arg (args, object *);
616 context.event_code = va_arg (args, int); 625 event_code = va_arg (args, int);
617 context.activator = va_arg (args, object *); 626 activator = va_arg (args, object *);
618 context.third = va_arg (args, object *); 627 third = va_arg (args, object *);
619
620 buf = va_arg (args, char *); 628 message = va_arg (args, char *);
621 if (buf != 0) 629 va_arg (args, int); // fix yourself
622 strncpy (context.message, buf, sizeof (context.message)); 630 extension = va_arg (args, char *);
623 631 options = va_arg (args, char *);
624 context.fix = va_arg (args, int); 632 event = va_arg (args, object *);
625 strncpy (context.extension, va_arg (args, char *), sizeof (context.extension));
626 strncpy (context.options, va_arg (args, char *), sizeof (context.options));
627 context.returnvalue = 0;
628 va_end (args); 633 va_end (args);
629 634
630 inject_event ("cf::inject_event", &context); 635 {
636 dSP;
637
638 ENTER;
639 SAVETMPS;
640
641 PUSHMARK (SP);
642 EXTEND (SP, 10);
643
644 PUSHcfapi (STRING, extension);
645 PUSHs (sv_2mortal (newSViv (event_code)));
646
647 PUSHcfapi (POBJECT, event);
648 PUSHcfapi (POBJECT, who);
649
650 switch (event_code)
651 {
652 case EVENT_STOP: // $ob (e.g. arrow)
653 case EVENT_TIME: // $ob
654 case EVENT_TIMER: // $ob
655 break;
656
657 case EVENT_APPLY: // $ob, $who
658 case EVENT_DROP: // $ob, $who
659 case EVENT_CLOSE: // $ob, $who
660 case EVENT_DEATH: // $ob[, $killer]
661 case EVENT_MOVE: // $ob, $enemy
662 case EVENT_THROW: // $ob, $thrower
663 PUSHcfapi (POBJECT, activator);
664 break;
665
666 case EVENT_ATTACK: // $ob, $who, $victim (?? please god enlighten me)
667 PUSHcfapi (POBJECT, activator);
668 PUSHcfapi (POBJECT, third);
669 break;
670
671 case EVENT_TRIGGER: // $ob, $originator, [$victim], [$msg]
672 PUSHcfapi (POBJECT, activator);
673 PUSHcfapi (POBJECT, third);
674 PUSHcfapi (POBJECT, message);
675 break;
676
677 case EVENT_SAY: // $ob, $who, $msg
678 PUSHcfapi (POBJECT, activator);
679 PUSHcfapi (STRING, message);
680 break;
681
682 default:
683 LOG (llevError, "perl plugin called for unsupported event type %d", event_code);
684 break;
685 }
686
687 PUTBACK;
688 int count = call_pv ("cf::inject_event", G_SCALAR | G_EVAL);
689 SPAGAIN;
690
691 if (SvTRUE (ERRSV))
692 LOG (llevError, "event '%d' callback evaluation error: %s", event_code, SvPV_nolen (ERRSV));
693
694 rv = count > 0 ? POPi : 0;
695
696 PUTBACK;
697 FREETMPS;
698 LEAVE;
699 }
631 700
632 rv = context.returnvalue;
633 return &rv; 701 return &rv;
634} 702}
635 703
636int 704int
637closePlugin () 705closePlugin ()
… …
1057 const_iv (SK_SUMMONING) 1125 const_iv (SK_SUMMONING)
1058 const_iv (SK_PYROMANCY) 1126 const_iv (SK_PYROMANCY)
1059 const_iv (SK_EVOCATION) 1127 const_iv (SK_EVOCATION)
1060 const_iv (SK_SORCERY) 1128 const_iv (SK_SORCERY)
1061 const_iv (SK_TWO_HANDED_WEAPON) 1129 const_iv (SK_TWO_HANDED_WEAPON)
1130 const_iv (SK_SPARK_TOUCH)
1131 const_iv (SK_SHIVER)
1132 const_iv (SK_ACID_SPLASH)
1133 const_iv (SK_POISON_NAIL)
1134
1135 const_iv (SOUND_NEW_PLAYER)
1136 const_iv (SOUND_FIRE_ARROW)
1137 const_iv (SOUND_LEARN_SPELL)
1138 const_iv (SOUND_FUMBLE_SPELL)
1139 const_iv (SOUND_WAND_POOF)
1140 const_iv (SOUND_OPEN_DOOR)
1141 const_iv (SOUND_PUSH_PLAYER)
1142 const_iv (SOUND_PLAYER_HITS1)
1143 const_iv (SOUND_PLAYER_HITS2)
1144 const_iv (SOUND_PLAYER_HITS3)
1145 const_iv (SOUND_PLAYER_HITS4)
1146 const_iv (SOUND_PLAYER_IS_HIT1)
1147 const_iv (SOUND_PLAYER_IS_HIT2)
1148 const_iv (SOUND_PLAYER_IS_HIT3)
1149 const_iv (SOUND_PLAYER_KILLS)
1150 const_iv (SOUND_PET_IS_KILLED)
1151 const_iv (SOUND_PLAYER_DIES)
1152 const_iv (SOUND_OB_EVAPORATE)
1153 const_iv (SOUND_OB_EXPLODE)
1154 const_iv (SOUND_CLOCK)
1155 const_iv (SOUND_TURN_HANDLE)
1156 const_iv (SOUND_FALL_HOLE)
1157 const_iv (SOUND_DRINK_POISON)
1158 const_iv (SOUND_CAST_SPELL_0)
1159
1160 const_iv (MAP_FLUSH)
1161 const_iv (MAP_PLAYER_UNIQUE)
1162 const_iv (MAP_BLOCK)
1163 const_iv (MAP_STYLE)
1164 const_iv (MAP_OVERLAY)
1165
1166 const_iv (MAP_IN_MEMORY)
1167 const_iv (MAP_SWAPPED)
1168 const_iv (MAP_LOADING)
1169 const_iv (MAP_SAVING)
1062 }; 1170 };
1063 1171
1064 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1172 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1065 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1173 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
1066 1174
… …
1083 const_event (CLOSE) 1191 const_event (CLOSE)
1084 const_event (TIMER) 1192 const_event (TIMER)
1085 const_event (MOVE) 1193 const_event (MOVE)
1086 1194
1087 const_event (BORN) 1195 const_event (BORN)
1088 const_event (CLOCK) 1196 //const_event (CLOCK)
1089 const_event (CRASH) 1197 const_event (CRASH)
1090 const_event (PLAYER_DEATH) 1198 const_event (PLAYER_DEATH)
1091 const_event (PLAYER_LOAD) 1199 const_event (PLAYER_LOAD)
1092 const_event (PLAYER_SAVE) 1200 const_event (PLAYER_SAVE)
1093 const_event (GKILL) 1201 const_event (GKILL)
… …
1103 const_event (REMOVE) 1211 const_event (REMOVE)
1104 const_event (SHOUT) 1212 const_event (SHOUT)
1105 const_event (TELL) 1213 const_event (TELL)
1106 const_event (MUZZLE) 1214 const_event (MUZZLE)
1107 const_event (KICK) 1215 const_event (KICK)
1216 const_event (EXTCMD)
1108 //const_event (FREE_OB) 1217 //const_event (FREE_OB)
1109 }; 1218 };
1110 1219
1111 AV *av = get_av ("cf::EVENT", 1); 1220 AV *av = get_av ("cf::EVENT", 1);
1112 1221
… …
1246 for (cprop = prop_table + sizeof (prop_table) / sizeof (prop_table [0]); cprop-- > prop_table; ) 1355 for (cprop = prop_table + sizeof (prop_table) / sizeof (prop_table [0]); cprop-- > prop_table; )
1247 { 1356 {
1248 hv_store (prop_type, cprop->name, strlen (cprop->name), newSViv (cprop->dtype), 0); 1357 hv_store (prop_type, cprop->name, strlen (cprop->name), newSViv (cprop->dtype), 0);
1249 hv_store (prop_idx, cprop->name, strlen (cprop->name), newSViv (cprop->idx ), 0); 1358 hv_store (prop_idx, cprop->name, strlen (cprop->name), newSViv (cprop->idx ), 0);
1250 } 1359 }
1360
1361 //I_EVENT_API (PACKAGE);
1251} 1362}
1252 1363
1253void 1364void
1254LOG (int level, char *msg) 1365LOG (int level, char *msg)
1255 PROTOTYPE: $$ 1366 PROTOTYPE: $$
1256 C_ARGS: level, "%s", msg 1367 C_ARGS: level, "%s", msg
1368
1369char *path_combine (char *base, char *path)
1370 PROTOTYPE: $$
1371
1372char *path_combine_and_normalize (char *base, char *path)
1373 PROTOTYPE: $$
1257 1374
1258char * 1375char *
1259cf_get_maps_directory (char *path) 1376cf_get_maps_directory (char *path)
1260 PROTOTYPE: $ 1377 PROTOTYPE: $
1261 ALIAS: maps_directory = 0 1378 ALIAS: maps_directory = 0
… …
1430 1547
1431void cf_object_update (object *op, int flags) 1548void cf_object_update (object *op, int flags)
1432 1549
1433void cf_object_pickup (object *op, object *what) 1550void cf_object_pickup (object *op, object *what)
1434 1551
1435char *cf_object_get_key (object *op, char *keyname)
1436 ALIAS: key = 0
1437
1438void cf_object_set_key (object *op, char *keyname, char *value)
1439
1440object *cf_create_object_by_name (const char *name) 1552object *cf_create_object_by_name (const char *name)
1553
1554void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0)
1555
1556void player_lvl_adj (object *who, object *skill = 0)
1557
1558int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1441 1559
1442MODULE = cf PACKAGE = cf::object PREFIX = cf_ 1560MODULE = cf PACKAGE = cf::object PREFIX = cf_
1443 1561
1444void cf_fix_object (object *pl) 1562void cf_fix_object (object *pl)
1445 ALIAS: fix = 0 1563 ALIAS: fix = 0
… …
1461 CODE: 1579 CODE:
1462{ 1580{
1463 int unused_type; 1581 int unused_type;
1464 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y); 1582 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1465} 1583}
1584
1585# syntatic sugar for easier use in event callbacks.
1586const char *options (object *op)
1587 CODE:
1588 RETVAL = op->name;
1589 OUTPUT:
1590 RETVAL
1591
1592const char *get_ob_key_value (object *op, const char *key)
1593
1594bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)
1466 1595
1467object *get_nearest_player (object *ob) 1596object *get_nearest_player (object *ob)
1468 ALIAS: nearest_player = 0 1597 ALIAS: nearest_player = 0
1469 PREINIT: 1598 PREINIT:
1470 extern object *get_nearest_player (object *); 1599 extern object *get_nearest_player (object *);
… …
1503 1632
1504MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ 1633MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1505 1634
1506player *player (object *op) 1635player *player (object *op)
1507 CODE: 1636 CODE:
1508 RETVAL = cf_player_find (cf_query_name (op)); 1637 RETVAL = op->contr;
1509 OUTPUT: RETVAL 1638 OUTPUT: RETVAL
1510 1639
1511void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 1640void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1512 1641
1513object *cf_player_send_inventory (object *op) 1642object *cf_player_send_inventory (object *op)
… …
1530 1659
1531void cf_player_set_party (object *op, partylist *party) 1660void cf_player_set_party (object *op, partylist *party)
1532 1661
1533void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0) 1662void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0)
1534 1663
1664void kill_player (object *op)
1535 1665
1536MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1666MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1537 1667
1538MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 1668MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1539 1669
… …
1542 1672
1543void cf_player_move (player *pl, int dir) 1673void cf_player_move (player *pl, int dir)
1544 1674
1545void MapNewmapCmd (player *pl) 1675void MapNewmapCmd (player *pl)
1546 1676
1677void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
1678
1547# nonstandard 1679# nonstandard
1548object *ob (player *pl) 1680object *ob (player *pl)
1549 CODE: 1681 CODE:
1550 RETVAL = pl->ob; 1682 RETVAL = pl->ob;
1551 OUTPUT: RETVAL 1683 OUTPUT: RETVAL
… …
1557 1689
1558player *next (player *pl) 1690player *next (player *pl)
1559 CODE: 1691 CODE:
1560 RETVAL = pl->next; 1692 RETVAL = pl->next;
1561 OUTPUT: RETVAL 1693 OUTPUT: RETVAL
1694
1695bool
1696cell_visible (player *pl, int dx, int dy)
1697 CODE:
1698 RETVAL = FABS (dx) <= pl->socket.mapx / 2 && FABS (dy) <= pl->socket.mapy / 2
1699 && !pl->blocked_los [dx + pl->socket.mapx / 2][dy + pl->socket.mapy / 2];
1700 OUTPUT:
1701 RETVAL
1702
1703void
1704send (player *pl, SV *packet)
1705 CODE:
1706{
1707 STRLEN len;
1708 char *buf = SvPVbyte (packet, len);
1709
1710 Write_String_To_Socket (&pl->socket, buf, len);
1711}
1712
1713int
1714listening (player *pl, int new_value = -1)
1715 CODE:
1716 RETVAL = pl->listening;
1717 if (new_value >= 0)
1718 pl->listening = new_value;
1719 OUTPUT:
1720 RETVAL
1562 1721
1563void get_savebed (player *pl) 1722void get_savebed (player *pl)
1564 ALIAS: 1723 ALIAS:
1565 savebed = 0 1724 savebed = 0
1566 PPCODE: 1725 PPCODE:
… …
1582 player *pl; 1741 player *pl;
1583 for (pl = first_player; pl; pl = pl->next) 1742 for (pl = first_player; pl; pl = pl->next)
1584 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl)); 1743 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
1585} 1744}
1586 1745
1746bool
1747peaceful (player *pl, bool new_setting = 0)
1748 PROTOTYPE: $;$
1749 CODE:
1750 RETVAL = pl->peaceful;
1751 if (items > 1)
1752 pl->peaceful = new_setting;
1753 OUTPUT:
1754 RETVAL
1755
1587living * 1756living *
1588orig_stats (player *pl) 1757orig_stats (player *pl)
1589 CODE: 1758 CODE:
1590 RETVAL = &pl->orig_stats; 1759 RETVAL = &pl->orig_stats;
1591 OUTPUT: RETVAL 1760 OUTPUT: RETVAL
… …
1625 RETVAL = map_get_map (&unused_type, 0, width, height); 1794 RETVAL = map_get_map (&unused_type, 0, width, height);
1626} 1795}
1627 OUTPUT: 1796 OUTPUT:
1628 RETVAL 1797 RETVAL
1629 1798
1799void delete_map (mapstruct *map)
1800
1801void clean_tmp_map (mapstruct *map)
1802
1803void play_sound_map (mapstruct *map, int x, int y, int sound_num)
1804
1805mapstruct *tile_map (mapstruct *map, unsigned int dir)
1806 CODE:
1807 RETVAL = dir < 4 ? map->tile_map [dir] : 0;
1808 OUTPUT:
1809 RETVAL
1810
1811char *tile_path (mapstruct *map, unsigned int dir)
1812 CODE:
1813 if (dir >= 4)
1814 XSRETURN_UNDEF;
1815 RETVAL = map->tile_path [dir];
1816 OUTPUT:
1817 RETVAL
1818
1630mapstruct *cf_map_get_map (char *name) 1819mapstruct *cf_map_get_map (char *name)
1631 PROTOTYPE: $ 1820 PROTOTYPE: $
1632 ALIAS: map = 0 1821 ALIAS: map = 0
1633 1822
1823mapstruct *has_been_loaded (char *name)
1824 PROTOTYPE: $
1825
1634mapstruct *cf_map_get_first () 1826mapstruct *cf_map_get_first ()
1635 PROTOTYPE: 1827 PROTOTYPE:
1636 ALIAS: first = 0 1828 ALIAS: first = 0
1637 1829
1638# whoever "designed" the plug-in api should have wasted 1830# whoever "designed" the plug-in api should have wasted
1639# his/her time with staying away form the project - would have 1831# his/her time with staying away from the project - would have
1640# saved others a lot of time, without doubt. 1832# saved others a lot of time, without doubt.
1641void set_path (mapstruct *where, char *path) 1833void set_path (mapstruct *where, char *path)
1642 CODE: 1834 CODE:
1643 strcpy (where->path, path); 1835 strcpy (where->path, path);
1836
1837int in_memory (mapstruct *map)
1838 CODE:
1839 RETVAL = map->in_memory;
1840 OUTPUT:
1841 RETVAL
1644 1842
1645bool unique (mapstruct *map) 1843bool unique (mapstruct *map)
1646 CODE: 1844 CODE:
1647 RETVAL = map->unique; 1845 RETVAL = map->unique;
1648 OUTPUT: 1846 OUTPUT:
… …
1657object *cf_map_insert_object (mapstruct *where, object* op, int x, int y) 1855object *cf_map_insert_object (mapstruct *where, object* op, int x, int y)
1658 1856
1659object* cf_map_present_arch_by_name (mapstruct *map, const char* str, int nx, int ny) 1857object* cf_map_present_arch_by_name (mapstruct *map, const char* str, int nx, int ny)
1660 C_ARGS: str, map, nx, ny 1858 C_ARGS: str, map, nx, ny
1661 1859
1662#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 *nx, I16 *ny)
1663
1664void 1860void
1861cf_map_normalise (mapstruct *map, int x, int y)
1862 PPCODE:
1863{
1864 mapstruct *nmap = 0;
1865 I16 nx = 0, ny = 0;
1866 int flags = cf_map_get_flags (map, &nmap, x, y, &nx, &ny);
1867
1868 EXTEND (SP, 4);
1869 PUSHs (sv_2mortal (newSViv (flags)));
1870
1871 if (GIMME_V == G_ARRAY)
1872 {
1873 PUSHs (sv_2mortal (newSVcfapi (CFAPI_PMAP, nmap)));
1874 PUSHs (sv_2mortal (newSViv (nx)));
1875 PUSHs (sv_2mortal (newSViv (ny)));
1876 }
1877}
1878
1879void
1665at (mapstruct *obj, unsigned int x, unsigned int y) 1880at (mapstruct *map, unsigned int x, unsigned int y)
1666 PROTOTYPE: $$$ 1881 PROTOTYPE: $$$
1667 INIT:
1668 if (x >= MAP_WIDTH (obj) || y >= MAP_HEIGHT (obj)) XSRETURN_EMPTY;
1669 PPCODE: 1882 PPCODE:
1670{ 1883{
1671 object *o; 1884 object *o;
1672 1885 mapstruct *nmap = 0;
1886 I16 nx, ny;
1887
1888 cf_map_get_flags (map, &nmap, x, y, &nx, &ny);
1889
1890 if (nmap)
1673 for (o = GET_MAP_OB (obj, x, y); o; o = o->above) 1891 for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)
1674 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o))); 1892 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
1675} 1893}
1676 1894
1677SV * 1895SV *
1678bot_at (mapstruct *obj, unsigned int x, unsigned int y) 1896bot_at (mapstruct *obj, unsigned int x, unsigned int y)
1679 PROTOTYPE: $$$ 1897 PROTOTYPE: $$$

Diff Legend

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