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.38 by root, Sat Mar 18 01:32:53 2006 UTC

… …
216 case CFAPI_INT: 216 case CFAPI_INT:
217 sv = newSViv (*va_arg (args, int *)); 217 sv = newSViv (*va_arg (args, int *));
218 break; 218 break;
219 219
220 case CFAPI_LONG: 220 case CFAPI_LONG:
221 sv = newSViv (*va_arg (args, long *)); 221 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */
222 break; 222 break;
223 223
224 case CFAPI_DOUBLE: 224 case CFAPI_DOUBLE:
225 sv = newSViv (*va_arg (args, double *)); 225 sv = newSViv (*va_arg (args, double *));
226 break; 226 break;
… …
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)
1019
1020 const_iv (SK_EXP_ADD_SKILL)
1021 const_iv (SK_EXP_TOTAL)
1022 const_iv (SK_EXP_NONE)
1023 const_iv (SK_SUBTRACT_SKILL_EXP)
1024
1025 const_iv (SK_LOCKPICKING)
1026 const_iv (SK_HIDING)
1027 const_iv (SK_SMITHERY)
1028 const_iv (SK_BOWYER)
1029 const_iv (SK_JEWELER)
1030 const_iv (SK_ALCHEMY)
1031 const_iv (SK_STEALING)
1032 const_iv (SK_LITERACY)
1033 const_iv (SK_BARGAINING)
1034 const_iv (SK_JUMPING)
1035 const_iv (SK_DET_MAGIC)
1036 const_iv (SK_ORATORY)
1037 const_iv (SK_SINGING)
1038 const_iv (SK_DET_CURSE)
1039 const_iv (SK_FIND_TRAPS)
1040 const_iv (SK_MEDITATION)
1041 const_iv (SK_PUNCHING)
1042 const_iv (SK_FLAME_TOUCH)
1043 const_iv (SK_KARATE)
1044 const_iv (SK_CLIMBING)
1045 const_iv (SK_WOODSMAN)
1046 const_iv (SK_INSCRIPTION)
1047 const_iv (SK_ONE_HANDED_WEAPON)
1048 const_iv (SK_MISSILE_WEAPON)
1049 const_iv (SK_THROWING)
1050 const_iv (SK_USE_MAGIC_ITEM)
1051 const_iv (SK_DISARM_TRAPS)
1052 const_iv (SK_SET_TRAP)
1053 const_iv (SK_THAUMATURGY)
1054 const_iv (SK_PRAYING)
1055 const_iv (SK_CLAWING)
1056 const_iv (SK_LEVITATION)
1057 const_iv (SK_SUMMONING)
1058 const_iv (SK_PYROMANCY)
1059 const_iv (SK_EVOCATION)
1060 const_iv (SK_SORCERY)
1061 const_iv (SK_TWO_HANDED_WEAPON)
988 }; 1062 };
989 1063
990 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1064 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
991 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1065 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
992 1066
… …
1012 1086
1013 const_event (BORN) 1087 const_event (BORN)
1014 const_event (CLOCK) 1088 const_event (CLOCK)
1015 const_event (CRASH) 1089 const_event (CRASH)
1016 const_event (PLAYER_DEATH) 1090 const_event (PLAYER_DEATH)
1091 const_event (PLAYER_LOAD)
1092 const_event (PLAYER_SAVE)
1017 const_event (GKILL) 1093 const_event (GKILL)
1018 const_event (LOGIN) 1094 const_event (LOGIN)
1019 const_event (LOGOUT) 1095 const_event (LOGOUT)
1020 const_event (MAPENTER) 1096 const_event (MAPENTER)
1021 const_event (MAPLEAVE) 1097 const_event (MAPLEAVE)
1022 const_event (MAPRESET) 1098 const_event (MAPRESET)
1023 const_event (MAPLOAD) 1099 const_event (MAPLOAD)
1024 const_event (MAPOUT) 1100 const_event (MAPOUT)
1025 const_event (MAPIN) 1101 const_event (MAPIN)
1102 const_event (MAPCLEAN)
1026 const_event (REMOVE) 1103 const_event (REMOVE)
1027 const_event (SHOUT) 1104 const_event (SHOUT)
1028 const_event (TELL) 1105 const_event (TELL)
1029 const_event (MUZZLE) 1106 const_event (MUZZLE)
1030 const_event (KICK) 1107 const_event (KICK)
… …
1133 prop (CFAPI_INT, OBJECT_PROP_ANIM_SPEED) 1210 prop (CFAPI_INT, OBJECT_PROP_ANIM_SPEED)
1134 prop (CFAPI_INT, OBJECT_PROP_FRIENDLY) 1211 prop (CFAPI_INT, OBJECT_PROP_FRIENDLY)
1135 prop (CFAPI_STRING, OBJECT_PROP_SHORT_NAME) 1212 prop (CFAPI_STRING, OBJECT_PROP_SHORT_NAME)
1136 prop (CFAPI_INT, OBJECT_PROP_MAGICAL) 1213 prop (CFAPI_INT, OBJECT_PROP_MAGICAL)
1137 prop (CFAPI_INT, OBJECT_PROP_LUCK) 1214 prop (CFAPI_INT, OBJECT_PROP_LUCK)
1138 prop (CFAPI_LONG, OBJECT_PROP_EXP)
1139 prop (CFAPI_POBJECT, OBJECT_PROP_OWNER) 1215 prop (CFAPI_POBJECT, OBJECT_PROP_OWNER)
1140 prop (CFAPI_POBJECT, OBJECT_PROP_PRESENT) 1216 prop (CFAPI_POBJECT, OBJECT_PROP_PRESENT)
1141 prop (CFAPI_INT, OBJECT_PROP_CHEATER) 1217 prop (CFAPI_INT, OBJECT_PROP_CHEATER)
1142 prop (CFAPI_INT, OBJECT_PROP_MERGEABLE) 1218 prop (CFAPI_INT, OBJECT_PROP_MERGEABLE)
1143 prop (CFAPI_INT, OBJECT_PROP_PICKABLE) 1219 prop (CFAPI_INT, OBJECT_PROP_PICKABLE)
… …
1257 attacktype = 0 1333 attacktype = 0
1258 CODE: 1334 CODE:
1259 RETVAL = obj->attacktype; 1335 RETVAL = obj->attacktype;
1260 OUTPUT: RETVAL 1336 OUTPUT: RETVAL
1261 1337
1338# missing in plug-in api, of course
1262void 1339void
1263set_food (object *obj, int food) 1340set_food (object *obj, int food)
1264 CODE: 1341 CODE:
1265 obj->stats.food = food; 1342 obj->stats.food = food;
1266 1343
… …
1300 1377
1301void cf_object_free (object *op) 1378void cf_object_free (object *op)
1302 1379
1303object *cf_object_present_archname_inside (object *op, char *whatstr) 1380object *cf_object_present_archname_inside (object *op, char *whatstr)
1304 1381
1305int cf_object_transfer (object *op, int x, int y, int r, object *orig) 1382int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)
1306 1383
1307int cf_object_change_map (object *op, int x, int y, mapstruct *map) 1384int cf_object_change_map (object *op, int x, int y, mapstruct *map)
1308 1385
1309object *cf_object_clone (object *op, int clonetype = 0) 1386object *cf_object_clone (object *op, int clonetype = 0)
1310 1387
… …
1415base_name (object *ob, int plural) 1492base_name (object *ob, int plural)
1416 CODE: 1493 CODE:
1417 RETVAL = cf_query_base_name (ob, plural); 1494 RETVAL = cf_query_base_name (ob, plural);
1418 OUTPUT: RETVAL 1495 OUTPUT: RETVAL
1419 1496
1497living *
1498stats (object *ob)
1499 CODE:
1500 RETVAL = &ob->stats;
1501 OUTPUT: RETVAL
1502
1420 1503
1421MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ 1504MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1422 1505
1423player *player (object *op) 1506player *player (object *op)
1424 CODE: 1507 CODE:
… …
1445partylist *cf_player_get_party (object *op) 1528partylist *cf_player_get_party (object *op)
1446 ALIAS: party = 0 1529 ALIAS: party = 0
1447 1530
1448void cf_player_set_party (object *op, partylist *party) 1531void cf_player_set_party (object *op, partylist *party)
1449 1532
1533void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0)
1534
1450 1535
1451MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1536MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1452 1537
1453MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 1538MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1454 1539
… …
1472 1557
1473player *next (player *pl) 1558player *next (player *pl)
1474 CODE: 1559 CODE:
1475 RETVAL = pl->next; 1560 RETVAL = pl->next;
1476 OUTPUT: RETVAL 1561 OUTPUT: RETVAL
1562
1563void get_savebed (player *pl)
1564 ALIAS:
1565 savebed = 0
1566 PPCODE:
1567 EXTEND (SP, 3);
1568 PUSHs (sv_2mortal (newSVpv (pl->savebed_map, 0)));
1569 PUSHs (sv_2mortal (newSViv (pl->bed_x)));
1570 PUSHs (sv_2mortal (newSViv (pl->bed_y)));
1571
1572void set_savebed (player *pl, char *map_path, int x, int y)
1573 CODE:
1574 strcpy (pl->savebed_map, map_path);
1575 pl->bed_x = x;
1576 pl->bed_y = y;
1477 1577
1478void 1578void
1479list () 1579list ()
1480 PPCODE: 1580 PPCODE:
1481{ 1581{
1482 player *pl; 1582 player *pl;
1483 for (pl = first_player; pl; pl = pl->next) 1583 for (pl = first_player; pl; pl = pl->next)
1484 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl)); 1584 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
1485} 1585}
1586
1587living *
1588orig_stats (player *pl)
1589 CODE:
1590 RETVAL = &pl->orig_stats;
1591 OUTPUT: RETVAL
1592
1593living *
1594last_stats (player *pl)
1595 CODE:
1596 RETVAL = &pl->last_stats;
1597 OUTPUT: RETVAL
1486 1598
1487 1599
1488MODULE = cf PACKAGE = cf::map PREFIX = cf_map_ 1600MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
1489 1601
1490SV * 1602SV *
… …
1520 ALIAS: map = 0 1632 ALIAS: map = 0
1521 1633
1522mapstruct *cf_map_get_first () 1634mapstruct *cf_map_get_first ()
1523 PROTOTYPE: 1635 PROTOTYPE:
1524 ALIAS: first = 0 1636 ALIAS: first = 0
1637
1638# whoever "designed" the plug-in api should have wasted
1639# his/her time with staying away form the project - would have
1640# saved others a lot of time, without doubt.
1641void set_path (mapstruct *where, char *path)
1642 CODE:
1643 strcpy (where->path, path);
1644
1645bool unique (mapstruct *map)
1646 CODE:
1647 RETVAL = map->unique;
1648 OUTPUT:
1649 RETVAL
1650
1651void set_unique (mapstruct *map, bool unique)
1652 CODE:
1653 map->unique = unique;
1525 1654
1526object *cf_map_insert_object_there (mapstruct *where, object *op, object *originator, int flags) 1655object *cf_map_insert_object_there (mapstruct *where, object *op, object *originator, int flags)
1527 1656
1528object *cf_map_insert_object (mapstruct *where, object* op, int x, int y) 1657object *cf_map_insert_object (mapstruct *where, object* op, int x, int y)
1529 1658
… …
1643 } 1772 }
1644 } 1773 }
1645 } 1774 }
1646} 1775}
1647 1776
1777
1648MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_ 1778MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_
1649 1779
1650archetype *cf_archetype_get_first() 1780archetype *cf_archetype_get_first()
1651 PROTOTYPE: 1781 PROTOTYPE:
1652 ALIAS: first = 0 1782 ALIAS: first = 0
… …
1704 1834
1705const char *cf_region_get_message (region *reg) 1835const char *cf_region_get_message (region *reg)
1706 ALIAS: message = 0 1836 ALIAS: message = 0
1707 1837
1708 1838
1839MODULE = cf PACKAGE = cf::living PREFIX = cf_living_
1840
1841double
1842exp (living *liv, double new_val = 0.)
1843 PROTOTYPE: $;$
1844 ALIAS:
1845 Str = 1
1846 Dex = 2
1847 Con = 3
1848 Wis = 4
1849 Cha = 5
1850 Int = 6
1851 Pow = 7
1852 wc = 8
1853 ac = 9
1854 hp = 10
1855 maxhp = 11
1856 sp = 12
1857 maxsp = 13
1858 grace = 14
1859 maxgrace = 15
1860 food = 16
1861 dam = 17
1862 luck = 18
1863 CODE:
1864# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = new_val; break
1865 switch (ix)
1866 {
1867 LIVING_ACC (exp , 0);
1868 LIVING_ACC (Str , 1);
1869 LIVING_ACC (Dex , 2);
1870 LIVING_ACC (Con , 3);
1871 LIVING_ACC (Wis , 4);
1872 LIVING_ACC (Cha , 5);
1873 LIVING_ACC (Int , 6);
1874 LIVING_ACC (Pow , 7);
1875 LIVING_ACC (wc , 8);
1876 LIVING_ACC (ac , 9);
1877 LIVING_ACC (hp , 10);
1878 LIVING_ACC (maxhp , 11);
1879 LIVING_ACC (sp , 12);
1880 LIVING_ACC (maxsp , 13);
1881 LIVING_ACC (grace , 14);
1882 LIVING_ACC (maxgrace, 15);
1883 LIVING_ACC (food , 16);
1884 LIVING_ACC (dam , 17);
1885 LIVING_ACC (luck , 18);
1886 }
1887# undef LIVING_ACC
1888 OUTPUT:
1889 RETVAL
1890

Diff Legend

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