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.32 by root, Tue Mar 7 13:59:57 2006 UTC vs.
Revision 1.34 by root, Thu Mar 16 23:43:58 2006 UTC

… …
456 registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener); 456 registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);
457 registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener); 457 registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);
458 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener); 458 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
459 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener); 459 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
460 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);
461 463
462 char *argv[] = { 464 char *argv[] = {
463 "", 465 "",
464 "-e" 466 "-e"
465 "BEGIN {" 467 "BEGIN {"
… …
511 { 513 {
512 case EVENT_CRASH: 514 case EVENT_CRASH:
513 printf ("Unimplemented for now\n"); 515 printf ("Unimplemented for now\n");
514 break; 516 break;
515 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
516 case EVENT_MAPLOAD: 526 case EVENT_MAPLOAD:
517 case EVENT_MAPOUT: 527 case EVENT_MAPOUT:
518 case EVENT_MAPIN: 528 case EVENT_MAPIN:
519 case EVENT_MAPCLEAN: 529 case EVENT_MAPCLEAN:
520 context.map = va_arg (args, mapstruct *); 530 context.map = va_arg (args, mapstruct *);
… …
653 const_iv (llevInfo) 663 const_iv (llevInfo)
654 const_iv (llevDebug) 664 const_iv (llevDebug)
655 const_iv (llevMonster) 665 const_iv (llevMonster)
656 666
657 const_iv (PLAYER) 667 const_iv (PLAYER)
668 const_iv (TRANSPORT)
658 const_iv (ROD) 669 const_iv (ROD)
659 const_iv (TREASURE) 670 const_iv (TREASURE)
660 const_iv (POTION) 671 const_iv (POTION)
661 const_iv (FOOD) 672 const_iv (FOOD)
662 const_iv (POISON) 673 const_iv (POISON)
… …
667 const_iv (BOW) 678 const_iv (BOW)
668 const_iv (WEAPON) 679 const_iv (WEAPON)
669 const_iv (ARMOUR) 680 const_iv (ARMOUR)
670 const_iv (PEDESTAL) 681 const_iv (PEDESTAL)
671 const_iv (ALTAR) 682 const_iv (ALTAR)
672 const_iv (CONFUSION)
673 const_iv (LOCKED_DOOR) 683 const_iv (LOCKED_DOOR)
674 const_iv (SPECIAL_KEY) 684 const_iv (SPECIAL_KEY)
675 const_iv (MAP) 685 const_iv (MAP)
676 const_iv (DOOR) 686 const_iv (DOOR)
677 const_iv (KEY) 687 const_iv (KEY)
… …
778 const_iv (ITEM_TRANSFORMER) 788 const_iv (ITEM_TRANSFORMER)
779 const_iv (QUEST) 789 const_iv (QUEST)
780 790
781 const_iv (ST_BD_BUILD) 791 const_iv (ST_BD_BUILD)
782 const_iv (ST_BD_REMOVE) 792 const_iv (ST_BD_REMOVE)
793
783 const_iv (ST_MAT_FLOOR) 794 const_iv (ST_MAT_FLOOR)
784 const_iv (ST_MAT_WALL) 795 const_iv (ST_MAT_WALL)
785 const_iv (ST_MAT_ITEM) 796 const_iv (ST_MAT_ITEM)
786 797
787 const_iv (AT_PHYSICAL) 798 const_iv (AT_PHYSICAL)
… …
988 const_iv (WILL_APPLY_DOOR) 999 const_iv (WILL_APPLY_DOOR)
989 const_iv (WILL_APPLY_FOOD) 1000 const_iv (WILL_APPLY_FOOD)
990 1001
991 const_iv (SAVE_MODE) 1002 const_iv (SAVE_MODE)
992 const_iv (SAVE_DIR_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)
993 }; 1019 };
994 1020
995 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; )
996 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1022 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
997 1023
… …
1017 1043
1018 const_event (BORN) 1044 const_event (BORN)
1019 const_event (CLOCK) 1045 const_event (CLOCK)
1020 const_event (CRASH) 1046 const_event (CRASH)
1021 const_event (PLAYER_DEATH) 1047 const_event (PLAYER_DEATH)
1048 const_event (PLAYER_LOAD)
1049 const_event (PLAYER_SAVE)
1022 const_event (GKILL) 1050 const_event (GKILL)
1023 const_event (LOGIN) 1051 const_event (LOGIN)
1024 const_event (LOGOUT) 1052 const_event (LOGOUT)
1025 const_event (MAPENTER) 1053 const_event (MAPENTER)
1026 const_event (MAPLEAVE) 1054 const_event (MAPLEAVE)
… …
1263 attacktype = 0 1291 attacktype = 0
1264 CODE: 1292 CODE:
1265 RETVAL = obj->attacktype; 1293 RETVAL = obj->attacktype;
1266 OUTPUT: RETVAL 1294 OUTPUT: RETVAL
1267 1295
1296# missing in plug-in api, of course
1268void 1297void
1269set_food (object *obj, int food) 1298set_food (object *obj, int food)
1270 CODE: 1299 CODE:
1271 obj->stats.food = food; 1300 obj->stats.food = food;
1272 1301
… …
1421base_name (object *ob, int plural) 1450base_name (object *ob, int plural)
1422 CODE: 1451 CODE:
1423 RETVAL = cf_query_base_name (ob, plural); 1452 RETVAL = cf_query_base_name (ob, plural);
1424 OUTPUT: RETVAL 1453 OUTPUT: RETVAL
1425 1454
1455living *
1456stats (object *ob)
1457 CODE:
1458 RETVAL = &ob->stats;
1459 OUTPUT: RETVAL
1460
1426 1461
1427MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ 1462MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1428 1463
1429player *player (object *op) 1464player *player (object *op)
1430 CODE: 1465 CODE:
… …
1478 1513
1479player *next (player *pl) 1514player *next (player *pl)
1480 CODE: 1515 CODE:
1481 RETVAL = pl->next; 1516 RETVAL = pl->next;
1482 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;
1483 1533
1484void 1534void
1485list () 1535list ()
1486 PPCODE: 1536 PPCODE:
1487{ 1537{
1488 player *pl; 1538 player *pl;
1489 for (pl = first_player; pl; pl = pl->next) 1539 for (pl = first_player; pl; pl = pl->next)
1490 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl)); 1540 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
1491} 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
1492 1554
1493 1555
1494MODULE = cf PACKAGE = cf::map PREFIX = cf_map_ 1556MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
1495 1557
1496SV * 1558SV *
… …
1710 1772
1711const char *cf_region_get_message (region *reg) 1773const char *cf_region_get_message (region *reg)
1712 ALIAS: message = 0 1774 ALIAS: message = 0
1713 1775
1714 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