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.39 by root, Tue Mar 21 02:08:02 2006 UTC

… …
42#else 42#else
43#define MODULEAPI 43#define MODULEAPI
44#endif 44#endif
45 45
46#include <plugin_common.h> 46#include <plugin_common.h>
47#include <sounds.h>
47 48
48#include <stdarg.h> 49#include <stdarg.h>
49 50
50#include "perlxsi.c" 51#include "perlxsi.c"
51 52
… …
216 case CFAPI_INT: 217 case CFAPI_INT:
217 sv = newSViv (*va_arg (args, int *)); 218 sv = newSViv (*va_arg (args, int *));
218 break; 219 break;
219 220
220 case CFAPI_LONG: 221 case CFAPI_LONG:
221 sv = newSViv (*va_arg (args, long *)); 222 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */
222 break; 223 break;
223 224
224 case CFAPI_DOUBLE: 225 case CFAPI_DOUBLE:
225 sv = newSViv (*va_arg (args, double *)); 226 sv = newSViv (*va_arg (args, double *));
226 break; 227 break;
… …
449 registerGlobalEvent (NULL, EVENT_MAPLEAVE, PLUGIN_NAME, globalEventListener); 450 registerGlobalEvent (NULL, EVENT_MAPLEAVE, PLUGIN_NAME, globalEventListener);
450 registerGlobalEvent (NULL, EVENT_MAPRESET, PLUGIN_NAME, globalEventListener); 451 registerGlobalEvent (NULL, EVENT_MAPRESET, PLUGIN_NAME, globalEventListener);
451 registerGlobalEvent (NULL, EVENT_MAPLOAD, PLUGIN_NAME, globalEventListener); 452 registerGlobalEvent (NULL, EVENT_MAPLOAD, PLUGIN_NAME, globalEventListener);
452 registerGlobalEvent (NULL, EVENT_MAPOUT, PLUGIN_NAME, globalEventListener); 453 registerGlobalEvent (NULL, EVENT_MAPOUT, PLUGIN_NAME, globalEventListener);
453 registerGlobalEvent (NULL, EVENT_MAPIN, PLUGIN_NAME, globalEventListener); 454 registerGlobalEvent (NULL, EVENT_MAPIN, PLUGIN_NAME, globalEventListener);
455 registerGlobalEvent (NULL, EVENT_MAPCLEAN, PLUGIN_NAME, globalEventListener);
454 registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener); 456 registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener);
455 registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener); 457 registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);
456 registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener); 458 registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);
457 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener); 459 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
458 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener); 460 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
459 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener); 461 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
462 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener);
463 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener);
460 464
461 char *argv[] = { 465 char *argv[] = {
462 "", 466 "",
463 "-e" 467 "-e"
464 "BEGIN {" 468 "BEGIN {"
… …
510 { 514 {
511 case EVENT_CRASH: 515 case EVENT_CRASH:
512 printf ("Unimplemented for now\n"); 516 printf ("Unimplemented for now\n");
513 break; 517 break;
514 518
519 case EVENT_PLAYER_LOAD:
520 case EVENT_PLAYER_SAVE:
521 context.who = va_arg (args, object *);
522 buf = va_arg (args, char *);
523 if (buf != 0)
524 strncpy (context.message, buf, sizeof (context.message));
525 break;
526
515 case EVENT_MAPLOAD: 527 case EVENT_MAPLOAD:
516 case EVENT_MAPOUT: 528 case EVENT_MAPOUT:
517 case EVENT_MAPIN: 529 case EVENT_MAPIN:
530 case EVENT_MAPCLEAN:
518 context.map = va_arg (args, mapstruct *); 531 context.map = va_arg (args, mapstruct *);
519 break; 532 break;
520 533
521 case EVENT_MAPENTER: 534 case EVENT_MAPENTER:
522 case EVENT_MAPLEAVE: 535 case EVENT_MAPLEAVE:
… …
651 const_iv (llevInfo) 664 const_iv (llevInfo)
652 const_iv (llevDebug) 665 const_iv (llevDebug)
653 const_iv (llevMonster) 666 const_iv (llevMonster)
654 667
655 const_iv (PLAYER) 668 const_iv (PLAYER)
669 const_iv (TRANSPORT)
656 const_iv (ROD) 670 const_iv (ROD)
657 const_iv (TREASURE) 671 const_iv (TREASURE)
658 const_iv (POTION) 672 const_iv (POTION)
659 const_iv (FOOD) 673 const_iv (FOOD)
660 const_iv (POISON) 674 const_iv (POISON)
… …
665 const_iv (BOW) 679 const_iv (BOW)
666 const_iv (WEAPON) 680 const_iv (WEAPON)
667 const_iv (ARMOUR) 681 const_iv (ARMOUR)
668 const_iv (PEDESTAL) 682 const_iv (PEDESTAL)
669 const_iv (ALTAR) 683 const_iv (ALTAR)
670 const_iv (CONFUSION)
671 const_iv (LOCKED_DOOR) 684 const_iv (LOCKED_DOOR)
672 const_iv (SPECIAL_KEY) 685 const_iv (SPECIAL_KEY)
673 const_iv (MAP) 686 const_iv (MAP)
674 const_iv (DOOR) 687 const_iv (DOOR)
675 const_iv (KEY) 688 const_iv (KEY)
… …
776 const_iv (ITEM_TRANSFORMER) 789 const_iv (ITEM_TRANSFORMER)
777 const_iv (QUEST) 790 const_iv (QUEST)
778 791
779 const_iv (ST_BD_BUILD) 792 const_iv (ST_BD_BUILD)
780 const_iv (ST_BD_REMOVE) 793 const_iv (ST_BD_REMOVE)
794
781 const_iv (ST_MAT_FLOOR) 795 const_iv (ST_MAT_FLOOR)
782 const_iv (ST_MAT_WALL) 796 const_iv (ST_MAT_WALL)
783 const_iv (ST_MAT_ITEM) 797 const_iv (ST_MAT_ITEM)
784 798
785 const_iv (AT_PHYSICAL) 799 const_iv (AT_PHYSICAL)
… …
983 const_iv (WILL_APPLY_HANDLE) 997 const_iv (WILL_APPLY_HANDLE)
984 const_iv (WILL_APPLY_TREASURE) 998 const_iv (WILL_APPLY_TREASURE)
985 const_iv (WILL_APPLY_EARTHWALL) 999 const_iv (WILL_APPLY_EARTHWALL)
986 const_iv (WILL_APPLY_DOOR) 1000 const_iv (WILL_APPLY_DOOR)
987 const_iv (WILL_APPLY_FOOD) 1001 const_iv (WILL_APPLY_FOOD)
1002
1003 const_iv (SAVE_MODE)
1004 const_iv (SAVE_DIR_MODE)
1005
1006 const_iv (M_PAPER)
1007 const_iv (M_IRON)
1008 const_iv (M_GLASS)
1009 const_iv (M_LEATHER)
1010 const_iv (M_WOOD)
1011 const_iv (M_ORGANIC)
1012 const_iv (M_STONE)
1013 const_iv (M_CLOTH)
1014 const_iv (M_ADAMANT)
1015 const_iv (M_LIQUID)
1016 const_iv (M_SOFT_METAL)
1017 const_iv (M_BONE)
1018 const_iv (M_ICE)
1019 const_iv (M_SPECIAL)
1020
1021 const_iv (SK_EXP_ADD_SKILL)
1022 const_iv (SK_EXP_TOTAL)
1023 const_iv (SK_EXP_NONE)
1024 const_iv (SK_SUBTRACT_SKILL_EXP)
1025
1026 const_iv (SK_LOCKPICKING)
1027 const_iv (SK_HIDING)
1028 const_iv (SK_SMITHERY)
1029 const_iv (SK_BOWYER)
1030 const_iv (SK_JEWELER)
1031 const_iv (SK_ALCHEMY)
1032 const_iv (SK_STEALING)
1033 const_iv (SK_LITERACY)
1034 const_iv (SK_BARGAINING)
1035 const_iv (SK_JUMPING)
1036 const_iv (SK_DET_MAGIC)
1037 const_iv (SK_ORATORY)
1038 const_iv (SK_SINGING)
1039 const_iv (SK_DET_CURSE)
1040 const_iv (SK_FIND_TRAPS)
1041 const_iv (SK_MEDITATION)
1042 const_iv (SK_PUNCHING)
1043 const_iv (SK_FLAME_TOUCH)
1044 const_iv (SK_KARATE)
1045 const_iv (SK_CLIMBING)
1046 const_iv (SK_WOODSMAN)
1047 const_iv (SK_INSCRIPTION)
1048 const_iv (SK_ONE_HANDED_WEAPON)
1049 const_iv (SK_MISSILE_WEAPON)
1050 const_iv (SK_THROWING)
1051 const_iv (SK_USE_MAGIC_ITEM)
1052 const_iv (SK_DISARM_TRAPS)
1053 const_iv (SK_SET_TRAP)
1054 const_iv (SK_THAUMATURGY)
1055 const_iv (SK_PRAYING)
1056 const_iv (SK_CLAWING)
1057 const_iv (SK_LEVITATION)
1058 const_iv (SK_SUMMONING)
1059 const_iv (SK_PYROMANCY)
1060 const_iv (SK_EVOCATION)
1061 const_iv (SK_SORCERY)
1062 const_iv (SK_TWO_HANDED_WEAPON)
1063
1064 const_iv (SOUND_NEW_PLAYER)
1065 const_iv (SOUND_FIRE_ARROW)
1066 const_iv (SOUND_LEARN_SPELL)
1067 const_iv (SOUND_FUMBLE_SPELL)
1068 const_iv (SOUND_WAND_POOF)
1069 const_iv (SOUND_OPEN_DOOR)
1070 const_iv (SOUND_PUSH_PLAYER)
1071 const_iv (SOUND_PLAYER_HITS1)
1072 const_iv (SOUND_PLAYER_HITS2)
1073 const_iv (SOUND_PLAYER_HITS3)
1074 const_iv (SOUND_PLAYER_HITS4)
1075 const_iv (SOUND_PLAYER_IS_HIT1)
1076 const_iv (SOUND_PLAYER_IS_HIT2)
1077 const_iv (SOUND_PLAYER_IS_HIT3)
1078 const_iv (SOUND_PLAYER_KILLS)
1079 const_iv (SOUND_PET_IS_KILLED)
1080 const_iv (SOUND_PLAYER_DIES)
1081 const_iv (SOUND_OB_EVAPORATE)
1082 const_iv (SOUND_OB_EXPLODE)
1083 const_iv (SOUND_CLOCK)
1084 const_iv (SOUND_TURN_HANDLE)
1085 const_iv (SOUND_FALL_HOLE)
1086 const_iv (SOUND_DRINK_POISON)
1087 const_iv (SOUND_CAST_SPELL_0)
988 }; 1088 };
989 1089
990 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1090 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
991 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1091 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
992 1092
… …
1012 1112
1013 const_event (BORN) 1113 const_event (BORN)
1014 const_event (CLOCK) 1114 const_event (CLOCK)
1015 const_event (CRASH) 1115 const_event (CRASH)
1016 const_event (PLAYER_DEATH) 1116 const_event (PLAYER_DEATH)
1117 const_event (PLAYER_LOAD)
1118 const_event (PLAYER_SAVE)
1017 const_event (GKILL) 1119 const_event (GKILL)
1018 const_event (LOGIN) 1120 const_event (LOGIN)
1019 const_event (LOGOUT) 1121 const_event (LOGOUT)
1020 const_event (MAPENTER) 1122 const_event (MAPENTER)
1021 const_event (MAPLEAVE) 1123 const_event (MAPLEAVE)
1022 const_event (MAPRESET) 1124 const_event (MAPRESET)
1023 const_event (MAPLOAD) 1125 const_event (MAPLOAD)
1024 const_event (MAPOUT) 1126 const_event (MAPOUT)
1025 const_event (MAPIN) 1127 const_event (MAPIN)
1128 const_event (MAPCLEAN)
1026 const_event (REMOVE) 1129 const_event (REMOVE)
1027 const_event (SHOUT) 1130 const_event (SHOUT)
1028 const_event (TELL) 1131 const_event (TELL)
1029 const_event (MUZZLE) 1132 const_event (MUZZLE)
1030 const_event (KICK) 1133 const_event (KICK)
… …
1133 prop (CFAPI_INT, OBJECT_PROP_ANIM_SPEED) 1236 prop (CFAPI_INT, OBJECT_PROP_ANIM_SPEED)
1134 prop (CFAPI_INT, OBJECT_PROP_FRIENDLY) 1237 prop (CFAPI_INT, OBJECT_PROP_FRIENDLY)
1135 prop (CFAPI_STRING, OBJECT_PROP_SHORT_NAME) 1238 prop (CFAPI_STRING, OBJECT_PROP_SHORT_NAME)
1136 prop (CFAPI_INT, OBJECT_PROP_MAGICAL) 1239 prop (CFAPI_INT, OBJECT_PROP_MAGICAL)
1137 prop (CFAPI_INT, OBJECT_PROP_LUCK) 1240 prop (CFAPI_INT, OBJECT_PROP_LUCK)
1138 prop (CFAPI_LONG, OBJECT_PROP_EXP)
1139 prop (CFAPI_POBJECT, OBJECT_PROP_OWNER) 1241 prop (CFAPI_POBJECT, OBJECT_PROP_OWNER)
1140 prop (CFAPI_POBJECT, OBJECT_PROP_PRESENT) 1242 prop (CFAPI_POBJECT, OBJECT_PROP_PRESENT)
1141 prop (CFAPI_INT, OBJECT_PROP_CHEATER) 1243 prop (CFAPI_INT, OBJECT_PROP_CHEATER)
1142 prop (CFAPI_INT, OBJECT_PROP_MERGEABLE) 1244 prop (CFAPI_INT, OBJECT_PROP_MERGEABLE)
1143 prop (CFAPI_INT, OBJECT_PROP_PICKABLE) 1245 prop (CFAPI_INT, OBJECT_PROP_PICKABLE)
… …
1257 attacktype = 0 1359 attacktype = 0
1258 CODE: 1360 CODE:
1259 RETVAL = obj->attacktype; 1361 RETVAL = obj->attacktype;
1260 OUTPUT: RETVAL 1362 OUTPUT: RETVAL
1261 1363
1364# missing in plug-in api, of course
1262void 1365void
1263set_food (object *obj, int food) 1366set_food (object *obj, int food)
1264 CODE: 1367 CODE:
1265 obj->stats.food = food; 1368 obj->stats.food = food;
1266 1369
… …
1300 1403
1301void cf_object_free (object *op) 1404void cf_object_free (object *op)
1302 1405
1303object *cf_object_present_archname_inside (object *op, char *whatstr) 1406object *cf_object_present_archname_inside (object *op, char *whatstr)
1304 1407
1305int cf_object_transfer (object *op, int x, int y, int r, object *orig) 1408int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)
1306 1409
1307int cf_object_change_map (object *op, int x, int y, mapstruct *map) 1410int cf_object_change_map (object *op, int x, int y, mapstruct *map)
1308 1411
1309object *cf_object_clone (object *op, int clonetype = 0) 1412object *cf_object_clone (object *op, int clonetype = 0)
1310 1413
… …
1359 ALIAS: key = 0 1462 ALIAS: key = 0
1360 1463
1361void cf_object_set_key (object *op, char *keyname, char *value) 1464void cf_object_set_key (object *op, char *keyname, char *value)
1362 1465
1363object *cf_create_object_by_name (const char *name) 1466object *cf_create_object_by_name (const char *name)
1467
1468void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0)
1469
1470void player_lvl_adj (object *who, object *skill = 0)
1471
1364 1472
1365MODULE = cf PACKAGE = cf::object PREFIX = cf_ 1473MODULE = cf PACKAGE = cf::object PREFIX = cf_
1366 1474
1367void cf_fix_object (object *pl) 1475void cf_fix_object (object *pl)
1368 ALIAS: fix = 0 1476 ALIAS: fix = 0
… …
1415base_name (object *ob, int plural) 1523base_name (object *ob, int plural)
1416 CODE: 1524 CODE:
1417 RETVAL = cf_query_base_name (ob, plural); 1525 RETVAL = cf_query_base_name (ob, plural);
1418 OUTPUT: RETVAL 1526 OUTPUT: RETVAL
1419 1527
1528living *
1529stats (object *ob)
1530 CODE:
1531 RETVAL = &ob->stats;
1532 OUTPUT: RETVAL
1533
1420 1534
1421MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ 1535MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1422 1536
1423player *player (object *op) 1537player *player (object *op)
1424 CODE: 1538 CODE:
… …
1445partylist *cf_player_get_party (object *op) 1559partylist *cf_player_get_party (object *op)
1446 ALIAS: party = 0 1560 ALIAS: party = 0
1447 1561
1448void cf_player_set_party (object *op, partylist *party) 1562void cf_player_set_party (object *op, partylist *party)
1449 1563
1564void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0)
1450 1565
1451MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1566MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1452 1567
1453MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 1568MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1454 1569
… …
1457 1572
1458void cf_player_move (player *pl, int dir) 1573void cf_player_move (player *pl, int dir)
1459 1574
1460void MapNewmapCmd (player *pl) 1575void MapNewmapCmd (player *pl)
1461 1576
1577void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
1578
1462# nonstandard 1579# nonstandard
1463object *ob (player *pl) 1580object *ob (player *pl)
1464 CODE: 1581 CODE:
1465 RETVAL = pl->ob; 1582 RETVAL = pl->ob;
1466 OUTPUT: RETVAL 1583 OUTPUT: RETVAL
… …
1472 1589
1473player *next (player *pl) 1590player *next (player *pl)
1474 CODE: 1591 CODE:
1475 RETVAL = pl->next; 1592 RETVAL = pl->next;
1476 OUTPUT: RETVAL 1593 OUTPUT: RETVAL
1594
1595void get_savebed (player *pl)
1596 ALIAS:
1597 savebed = 0
1598 PPCODE:
1599 EXTEND (SP, 3);
1600 PUSHs (sv_2mortal (newSVpv (pl->savebed_map, 0)));
1601 PUSHs (sv_2mortal (newSViv (pl->bed_x)));
1602 PUSHs (sv_2mortal (newSViv (pl->bed_y)));
1603
1604void set_savebed (player *pl, char *map_path, int x, int y)
1605 CODE:
1606 strcpy (pl->savebed_map, map_path);
1607 pl->bed_x = x;
1608 pl->bed_y = y;
1477 1609
1478void 1610void
1479list () 1611list ()
1480 PPCODE: 1612 PPCODE:
1481{ 1613{
1482 player *pl; 1614 player *pl;
1483 for (pl = first_player; pl; pl = pl->next) 1615 for (pl = first_player; pl; pl = pl->next)
1484 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl)); 1616 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
1485} 1617}
1618
1619living *
1620orig_stats (player *pl)
1621 CODE:
1622 RETVAL = &pl->orig_stats;
1623 OUTPUT: RETVAL
1624
1625living *
1626last_stats (player *pl)
1627 CODE:
1628 RETVAL = &pl->last_stats;
1629 OUTPUT: RETVAL
1486 1630
1487 1631
1488MODULE = cf PACKAGE = cf::map PREFIX = cf_map_ 1632MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
1489 1633
1490SV * 1634SV *
… …
1513 RETVAL = map_get_map (&unused_type, 0, width, height); 1657 RETVAL = map_get_map (&unused_type, 0, width, height);
1514} 1658}
1515 OUTPUT: 1659 OUTPUT:
1516 RETVAL 1660 RETVAL
1517 1661
1662void delete_map (mapstruct *map)
1663
1664void clean_tmp_map (mapstruct *map)
1665
1666void play_sound_map (mapstruct *map, int x, int y, int sound_num)
1667
1518mapstruct *cf_map_get_map (char *name) 1668mapstruct *cf_map_get_map (char *name)
1519 PROTOTYPE: $ 1669 PROTOTYPE: $
1520 ALIAS: map = 0 1670 ALIAS: map = 0
1521 1671
1522mapstruct *cf_map_get_first () 1672mapstruct *cf_map_get_first ()
1523 PROTOTYPE: 1673 PROTOTYPE:
1524 ALIAS: first = 0 1674 ALIAS: first = 0
1675
1676# whoever "designed" the plug-in api should have wasted
1677# his/her time with staying away form the project - would have
1678# saved others a lot of time, without doubt.
1679void set_path (mapstruct *where, char *path)
1680 CODE:
1681 strcpy (where->path, path);
1682
1683bool unique (mapstruct *map)
1684 CODE:
1685 RETVAL = map->unique;
1686 OUTPUT:
1687 RETVAL
1688
1689void set_unique (mapstruct *map, bool unique)
1690 CODE:
1691 map->unique = unique;
1525 1692
1526object *cf_map_insert_object_there (mapstruct *where, object *op, object *originator, int flags) 1693object *cf_map_insert_object_there (mapstruct *where, object *op, object *originator, int flags)
1527 1694
1528object *cf_map_insert_object (mapstruct *where, object* op, int x, int y) 1695object *cf_map_insert_object (mapstruct *where, object* op, int x, int y)
1529 1696
… …
1643 } 1810 }
1644 } 1811 }
1645 } 1812 }
1646} 1813}
1647 1814
1815
1648MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_ 1816MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_
1649 1817
1650archetype *cf_archetype_get_first() 1818archetype *cf_archetype_get_first()
1651 PROTOTYPE: 1819 PROTOTYPE:
1652 ALIAS: first = 0 1820 ALIAS: first = 0
… …
1704 1872
1705const char *cf_region_get_message (region *reg) 1873const char *cf_region_get_message (region *reg)
1706 ALIAS: message = 0 1874 ALIAS: message = 0
1707 1875
1708 1876
1877MODULE = cf PACKAGE = cf::living PREFIX = cf_living_
1878
1879double
1880exp (living *liv, double new_val = 0.)
1881 PROTOTYPE: $;$
1882 ALIAS:
1883 Str = 1
1884 Dex = 2
1885 Con = 3
1886 Wis = 4
1887 Cha = 5
1888 Int = 6
1889 Pow = 7
1890 wc = 8
1891 ac = 9
1892 hp = 10
1893 maxhp = 11
1894 sp = 12
1895 maxsp = 13
1896 grace = 14
1897 maxgrace = 15
1898 food = 16
1899 dam = 17
1900 luck = 18
1901 CODE:
1902# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = new_val; break
1903 switch (ix)
1904 {
1905 LIVING_ACC (exp , 0);
1906 LIVING_ACC (Str , 1);
1907 LIVING_ACC (Dex , 2);
1908 LIVING_ACC (Con , 3);
1909 LIVING_ACC (Wis , 4);
1910 LIVING_ACC (Cha , 5);
1911 LIVING_ACC (Int , 6);
1912 LIVING_ACC (Pow , 7);
1913 LIVING_ACC (wc , 8);
1914 LIVING_ACC (ac , 9);
1915 LIVING_ACC (hp , 10);
1916 LIVING_ACC (maxhp , 11);
1917 LIVING_ACC (sp , 12);
1918 LIVING_ACC (maxsp , 13);
1919 LIVING_ACC (grace , 14);
1920 LIVING_ACC (maxgrace, 15);
1921 LIVING_ACC (food , 16);
1922 LIVING_ACC (dam , 17);
1923 LIVING_ACC (luck , 18);
1924 }
1925# undef LIVING_ACC
1926 OUTPUT:
1927 RETVAL
1928

Diff Legend

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