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.29 by root, Mon Mar 6 23:31:54 2006 UTC vs.
Revision 1.34 by root, Thu Mar 16 23:43:58 2006 UTC

… …
449 registerGlobalEvent (NULL, EVENT_MAPLEAVE, PLUGIN_NAME, globalEventListener); 449 registerGlobalEvent (NULL, EVENT_MAPLEAVE, PLUGIN_NAME, globalEventListener);
450 registerGlobalEvent (NULL, EVENT_MAPRESET, PLUGIN_NAME, globalEventListener); 450 registerGlobalEvent (NULL, EVENT_MAPRESET, PLUGIN_NAME, globalEventListener);
451 registerGlobalEvent (NULL, EVENT_MAPLOAD, PLUGIN_NAME, globalEventListener); 451 registerGlobalEvent (NULL, EVENT_MAPLOAD, PLUGIN_NAME, globalEventListener);
452 registerGlobalEvent (NULL, EVENT_MAPOUT, PLUGIN_NAME, globalEventListener); 452 registerGlobalEvent (NULL, EVENT_MAPOUT, PLUGIN_NAME, globalEventListener);
453 registerGlobalEvent (NULL, EVENT_MAPIN, PLUGIN_NAME, globalEventListener); 453 registerGlobalEvent (NULL, EVENT_MAPIN, PLUGIN_NAME, globalEventListener);
454 registerGlobalEvent (NULL, EVENT_MAPCLEAN, PLUGIN_NAME, globalEventListener);
454 registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener); 455 registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener);
455 registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener); 456 registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);
456 registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener); 457 registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);
457 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener); 458 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
458 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener); 459 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
459 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener); 460 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
461 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener);
462 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener);
460 463
461 char *argv[] = { 464 char *argv[] = {
462 "", 465 "",
463 "-e" 466 "-e"
464 "BEGIN {" 467 "BEGIN {"
… …
510 { 513 {
511 case EVENT_CRASH: 514 case EVENT_CRASH:
512 printf ("Unimplemented for now\n"); 515 printf ("Unimplemented for now\n");
513 break; 516 break;
514 517
518 case EVENT_PLAYER_LOAD:
519 case EVENT_PLAYER_SAVE:
520 context.who = 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
515 case EVENT_MAPLOAD: 526 case EVENT_MAPLOAD:
516 case EVENT_MAPOUT: 527 case EVENT_MAPOUT:
517 case EVENT_MAPIN: 528 case EVENT_MAPIN:
529 case EVENT_MAPCLEAN:
518 context.map = va_arg (args, mapstruct *); 530 context.map = va_arg (args, mapstruct *);
519 break; 531 break;
520 532
521 case EVENT_MAPENTER: 533 case EVENT_MAPENTER:
522 case EVENT_MAPLEAVE: 534 case EVENT_MAPLEAVE:
… …
651 const_iv (llevInfo) 663 const_iv (llevInfo)
652 const_iv (llevDebug) 664 const_iv (llevDebug)
653 const_iv (llevMonster) 665 const_iv (llevMonster)
654 666
655 const_iv (PLAYER) 667 const_iv (PLAYER)
668 const_iv (TRANSPORT)
656 const_iv (ROD) 669 const_iv (ROD)
657 const_iv (TREASURE) 670 const_iv (TREASURE)
658 const_iv (POTION) 671 const_iv (POTION)
659 const_iv (FOOD) 672 const_iv (FOOD)
660 const_iv (POISON) 673 const_iv (POISON)
… …
665 const_iv (BOW) 678 const_iv (BOW)
666 const_iv (WEAPON) 679 const_iv (WEAPON)
667 const_iv (ARMOUR) 680 const_iv (ARMOUR)
668 const_iv (PEDESTAL) 681 const_iv (PEDESTAL)
669 const_iv (ALTAR) 682 const_iv (ALTAR)
670 const_iv (CONFUSION)
671 const_iv (LOCKED_DOOR) 683 const_iv (LOCKED_DOOR)
672 const_iv (SPECIAL_KEY) 684 const_iv (SPECIAL_KEY)
673 const_iv (MAP) 685 const_iv (MAP)
674 const_iv (DOOR) 686 const_iv (DOOR)
675 const_iv (KEY) 687 const_iv (KEY)
… …
776 const_iv (ITEM_TRANSFORMER) 788 const_iv (ITEM_TRANSFORMER)
777 const_iv (QUEST) 789 const_iv (QUEST)
778 790
779 const_iv (ST_BD_BUILD) 791 const_iv (ST_BD_BUILD)
780 const_iv (ST_BD_REMOVE) 792 const_iv (ST_BD_REMOVE)
793
781 const_iv (ST_MAT_FLOOR) 794 const_iv (ST_MAT_FLOOR)
782 const_iv (ST_MAT_WALL) 795 const_iv (ST_MAT_WALL)
783 const_iv (ST_MAT_ITEM) 796 const_iv (ST_MAT_ITEM)
784 797
785 const_iv (AT_PHYSICAL) 798 const_iv (AT_PHYSICAL)
… …
983 const_iv (WILL_APPLY_HANDLE) 996 const_iv (WILL_APPLY_HANDLE)
984 const_iv (WILL_APPLY_TREASURE) 997 const_iv (WILL_APPLY_TREASURE)
985 const_iv (WILL_APPLY_EARTHWALL) 998 const_iv (WILL_APPLY_EARTHWALL)
986 const_iv (WILL_APPLY_DOOR) 999 const_iv (WILL_APPLY_DOOR)
987 const_iv (WILL_APPLY_FOOD) 1000 const_iv (WILL_APPLY_FOOD)
1001
1002 const_iv (SAVE_MODE)
1003 const_iv (SAVE_DIR_MODE)
1004
1005 const_iv (M_PAPER)
1006 const_iv (M_IRON)
1007 const_iv (M_GLASS)
1008 const_iv (M_LEATHER)
1009 const_iv (M_WOOD)
1010 const_iv (M_ORGANIC)
1011 const_iv (M_STONE)
1012 const_iv (M_CLOTH)
1013 const_iv (M_ADAMANT)
1014 const_iv (M_LIQUID)
1015 const_iv (M_SOFT_METAL)
1016 const_iv (M_BONE)
1017 const_iv (M_ICE)
1018 const_iv (M_SPECIAL)
988 }; 1019 };
989 1020
990 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1021 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
991 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1022 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
992 1023
… …
1012 1043
1013 const_event (BORN) 1044 const_event (BORN)
1014 const_event (CLOCK) 1045 const_event (CLOCK)
1015 const_event (CRASH) 1046 const_event (CRASH)
1016 const_event (PLAYER_DEATH) 1047 const_event (PLAYER_DEATH)
1048 const_event (PLAYER_LOAD)
1049 const_event (PLAYER_SAVE)
1017 const_event (GKILL) 1050 const_event (GKILL)
1018 const_event (LOGIN) 1051 const_event (LOGIN)
1019 const_event (LOGOUT) 1052 const_event (LOGOUT)
1020 const_event (MAPENTER) 1053 const_event (MAPENTER)
1021 const_event (MAPLEAVE) 1054 const_event (MAPLEAVE)
1022 const_event (MAPRESET) 1055 const_event (MAPRESET)
1023 const_event (MAPLOAD) 1056 const_event (MAPLOAD)
1024 const_event (MAPOUT) 1057 const_event (MAPOUT)
1025 const_event (MAPIN) 1058 const_event (MAPIN)
1059 const_event (MAPCLEAN)
1026 const_event (REMOVE) 1060 const_event (REMOVE)
1027 const_event (SHOUT) 1061 const_event (SHOUT)
1028 const_event (TELL) 1062 const_event (TELL)
1029 const_event (MUZZLE) 1063 const_event (MUZZLE)
1030 const_event (KICK) 1064 const_event (KICK)
… …
1257 attacktype = 0 1291 attacktype = 0
1258 CODE: 1292 CODE:
1259 RETVAL = obj->attacktype; 1293 RETVAL = obj->attacktype;
1260 OUTPUT: RETVAL 1294 OUTPUT: RETVAL
1261 1295
1296# missing in plug-in api, of course
1262void 1297void
1263set_food (object *obj, int food) 1298set_food (object *obj, int food)
1264 CODE: 1299 CODE:
1265 obj->stats.food = food; 1300 obj->stats.food = food;
1266 1301
… …
1415base_name (object *ob, int plural) 1450base_name (object *ob, int plural)
1416 CODE: 1451 CODE:
1417 RETVAL = cf_query_base_name (ob, plural); 1452 RETVAL = cf_query_base_name (ob, plural);
1418 OUTPUT: RETVAL 1453 OUTPUT: RETVAL
1419 1454
1455living *
1456stats (object *ob)
1457 CODE:
1458 RETVAL = &ob->stats;
1459 OUTPUT: RETVAL
1460
1420 1461
1421MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ 1462MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1422 1463
1423player *player (object *op) 1464player *player (object *op)
1424 CODE: 1465 CODE:
… …
1472 1513
1473player *next (player *pl) 1514player *next (player *pl)
1474 CODE: 1515 CODE:
1475 RETVAL = pl->next; 1516 RETVAL = pl->next;
1476 OUTPUT: RETVAL 1517 OUTPUT: RETVAL
1518
1519void get_savebed (player *pl)
1520 ALIAS:
1521 savebed = 0
1522 PPCODE:
1523 EXTEND (SP, 3);
1524 PUSHs (sv_2mortal (newSVpv (pl->savebed_map, 0)));
1525 PUSHs (sv_2mortal (newSViv (pl->bed_x)));
1526 PUSHs (sv_2mortal (newSViv (pl->bed_y)));
1527
1528void set_savebed (player *pl, char *map_path, int x, int y)
1529 CODE:
1530 strcpy (pl->savebed_map, map_path);
1531 pl->bed_x = x;
1532 pl->bed_y = y;
1477 1533
1478void 1534void
1479list () 1535list ()
1480 PPCODE: 1536 PPCODE:
1481{ 1537{
1482 player *pl; 1538 player *pl;
1483 for (pl = first_player; pl; pl = pl->next) 1539 for (pl = first_player; pl; pl = pl->next)
1484 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl)); 1540 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
1485} 1541}
1542
1543living *
1544orig_stats (player *pl)
1545 CODE:
1546 RETVAL = &pl->orig_stats;
1547 OUTPUT: RETVAL
1548
1549living *
1550last_stats (player *pl)
1551 CODE:
1552 RETVAL = &pl->last_stats;
1553 OUTPUT: RETVAL
1486 1554
1487 1555
1488MODULE = cf PACKAGE = cf::map PREFIX = cf_map_ 1556MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
1489 1557
1490SV * 1558SV *
… …
1704 1772
1705const char *cf_region_get_message (region *reg) 1773const char *cf_region_get_message (region *reg)
1706 ALIAS: message = 0 1774 ALIAS: message = 0
1707 1775
1708 1776
1777MODULE = cf PACKAGE = cf::living PREFIX = cf_living_
1778
1779double
1780exp (living *liv, double new_val = 0.)
1781 PROTOTYPE: $;$
1782 ALIAS:
1783 Str = 1
1784 Dex = 2
1785 Con = 3
1786 Wis = 4
1787 Cha = 5
1788 Int = 6
1789 Pow = 7
1790 wc = 8
1791 ac = 9
1792 hp = 10
1793 maxhp = 11
1794 sp = 12
1795 maxsp = 13
1796 grace = 14
1797 maxgrace = 15
1798 food = 16
1799 dam = 17
1800 luck = 18
1801 CODE:
1802# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (ix > 1) liv->acc = new_val; break
1803 switch (ix)
1804 {
1805 LIVING_ACC (exp , 0);
1806 LIVING_ACC (Str , 1);
1807 LIVING_ACC (Dex , 2);
1808 LIVING_ACC (Con , 3);
1809 LIVING_ACC (Wis , 4);
1810 LIVING_ACC (Cha , 5);
1811 LIVING_ACC (Int , 6);
1812 LIVING_ACC (Pow , 7);
1813 LIVING_ACC (wc , 8);
1814 LIVING_ACC (ac , 9);
1815 LIVING_ACC (hp , 10);
1816 LIVING_ACC (maxhp , 11);
1817 LIVING_ACC (sp , 12);
1818 LIVING_ACC (maxsp , 13);
1819 LIVING_ACC (grace , 14);
1820 LIVING_ACC (maxgrace, 15);
1821 LIVING_ACC (food , 16);
1822 LIVING_ACC (dam , 17);
1823 LIVING_ACC (luck , 18);
1824 }
1825# undef LIVING_ACC
1826 OUTPUT:
1827 RETVAL
1828

Diff Legend

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