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.62 by root, Thu Jul 20 04:23:50 2006 UTC vs.
Revision 1.67 by elmex, Mon Aug 14 04:22:05 2006 UTC

… …
45#include <plugin_common.h> 45#include <plugin_common.h>
46#include <sounds.h> 46#include <sounds.h>
47 47
48#include <stdarg.h> 48#include <stdarg.h>
49 49
50#include <sproto.h>
51
50//#include "EventAPI.h" 52//#include "EventAPI.h"
51#include "perlxsi.c" 53#include "perlxsi.c"
52 54
53extern sint64 *levels; // the experience table 55extern sint64 *levels; // the experience table
54 56
… …
92#define PUSH_PL PUSHcfapi_va(PPLAYER, player *) 94#define PUSH_PL PUSHcfapi_va(PPLAYER, player *)
93#define PUSH_MAP PUSHcfapi_va(PMAP, mapstruct *) 95#define PUSH_MAP PUSHcfapi_va(PMAP, mapstruct *)
94#define PUSH_PV PUSHcfapi_va(STRING, const char *) 96#define PUSH_PV PUSHcfapi_va(STRING, const char *)
95#define PUSH_IV PUSHs (sv_2mortal (newSViv (va_arg (args, int)))) 97#define PUSH_IV PUSHs (sv_2mortal (newSViv (va_arg (args, int))))
96 98
97extern void pay_player(object *op, uint64 amount);
98extern uint64 pay_player_arch(object *op, const char *arch, uint64 amount);
99
100////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 99//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
101 100
102// garbage collect some perl objects, if possible 101// garbage collect some perl objects, if possible
103// all objects no longer referenced and empty are 102// all objects no longer referenced and empty are
104// eligible for destruction. 103// eligible for destruction.
… …
259 sv = &PL_sv_undef; 258 sv = &PL_sv_undef;
260 else 259 else
261 switch (obj->type) 260 switch (obj->type)
262 { 261 {
263 case MAP: 262 case MAP:
264 sv = newSVptr_cached (obj, "cf::object::map"); 263 sv = newSVptr_cached (obj, "cf::object::map::wrap");
265 break; 264 break;
266 265
267 case PLAYER: 266 case PLAYER:
268 sv = newSVptr_cached (obj, "cf::object::player"); 267 sv = newSVptr_cached (obj, "cf::object::player::wrap");
269 break; 268 break;
270 269
271 default: 270 default:
272 sv = newSVptr_cached (obj, "cf::object"); 271 sv = newSVptr_cached (obj, "cf::object::wrap");
273 break; 272 break;
274 } 273 }
275 } 274 }
276 break; 275 break;
277 276
278 case CFAPI_PMAP: 277 case CFAPI_PMAP:
279 sv = newSVptr (va_arg (args, mapstruct *), "cf::map"); 278 sv = newSVptr (va_arg (args, mapstruct *), "cf::map::wrap");
280 break; 279 break;
281 280
282 case CFAPI_PPLAYER: 281 case CFAPI_PPLAYER:
283 sv = newSVptr (va_arg (args, player *), "cf::player"); 282 sv = newSVptr (va_arg (args, player *), "cf::player::wrap");
284 break; 283 break;
285 284
286 case CFAPI_PARCH: 285 case CFAPI_PARCH:
287 sv = newSVptr (va_arg (args, archetype *), "cf::arch"); 286 sv = newSVptr (va_arg (args, archetype *), "cf::arch::wrap");
288 break; 287 break;
289 288
290 case CFAPI_PPARTY: 289 case CFAPI_PPARTY:
291 sv = newSVptr (va_arg (args, partylist *), "cf::party"); 290 sv = newSVptr (va_arg (args, partylist *), "cf::party::wrap");
292 break; 291 break;
293 292
294 case CFAPI_PREGION: 293 case CFAPI_PREGION:
295 sv = newSVptr (va_arg (args, region *), "cf::region"); 294 sv = newSVptr (va_arg (args, region *), "cf::region::wrap");
296 break; 295 break;
297 296
298 default: 297 default:
299 assert (("unhandled type in newSVcfapi", 0)); 298 assert (("unhandled type in newSVcfapi", 0));
300 } 299 }
… …
304 return sv; 303 return sv;
305} 304}
306 305
307///////////////////////////////////////////////////////////////////////////// 306/////////////////////////////////////////////////////////////////////////////
308 307
309int
310initPlugin (const char *iversion, f_plug_api gethooksptr) 308extern "C" int initPlugin (const char *iversion, f_plug_api gethooksptr)
311{ 309{
312 gethook = gethooksptr; 310 gethook = gethooksptr;
313 printf (PLUGIN_VERSION " init\n"); 311 printf (PLUGIN_VERSION " init\n");
314 312
315 return 0; 313 return 0;
… …
348 LEAVE; 346 LEAVE;
349 347
350 return returnvalue; 348 return returnvalue;
351} 349}
352 350
353void *
354getPluginProperty (int *type, ...) 351extern "C" void *getPluginProperty (int *type, ...)
355{ 352{
356 va_list args; 353 va_list args;
357 char *propname; 354 char *propname;
358 int i; 355 int i;
359 va_start (args, type); 356 va_start (args, type);
… …
382 } 379 }
383 } 380 }
384 else if (!strcmp (propname, "Identification")) 381 else if (!strcmp (propname, "Identification"))
385 { 382 {
386 va_end (args); 383 va_end (args);
387 return PLUGIN_NAME; 384 return (void*) PLUGIN_NAME;
388 } 385 }
389 else if (!strcmp (propname, "FullName")) 386 else if (!strcmp (propname, "FullName"))
390 { 387 {
391 va_end (args); 388 va_end (args);
392 return PLUGIN_VERSION; 389 return (void*) PLUGIN_VERSION;
393 } 390 }
394 else 391 else
395 va_end (args); 392 va_end (args);
396 393
397 return NULL; 394 return NULL;
398} 395}
399 396
400void *globalEventListener (int *type, ...); 397void *globalEventListener (int *type, ...);
401 398
402int 399extern "C" int postInitPlugin ()
403postInitPlugin ()
404{ 400{
405 int hooktype = 1; 401 int hooktype = 1;
406 int rtype = 0; 402 int rtype = 0;
407 403
408 printf (PLUGIN_VERSION " post init\n"); 404 printf (PLUGIN_VERSION " post init\n");
409 405
410 registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event"); 406 registerGlobalEvent = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_system_register_global_event");
411 unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event"); 407 unregisterGlobalEvent = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");
412 systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory"); 408 systemDirectory = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_system_directory");
413 object_set_property = gethook (&rtype, hooktype, "cfapi_object_set_property"); 409 object_set_property = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_object_set_property");
414 map_get_map = gethook (&rtype, hooktype, "cfapi_map_get_map"); 410 map_get_map = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_map_get_map");
415 object_insert = gethook (&rtype, hooktype, "cfapi_object_insert"); 411 object_insert = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_object_insert");
416 412
417 cf_init_plugin (gethook); 413 cf_init_plugin (gethook);
418 414
419 /* Pick the global events you want to monitor from this plugin */ 415 /* Pick the global events you want to monitor from this plugin */
420 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener); 416 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);
421 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener); 417 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);
422 //registerGlobalEvent (NULL, EVENT_CRASH, PLUGIN_NAME, globalEventListener); 418 //registerGlobalEvent (NULL, EVENT_CRASH, PLUGIN_NAME, globalEventListener);
423 registerGlobalEvent (NULL, EVENT_FIND_UNARMED_SKILL, PLUGIN_NAME, globalEventListener); 419 registerGlobalEvent (NULL, EVENT_FIND_UNARMED_SKILL, PLUGIN_NAME, globalEventListener);
424 registerGlobalEvent (NULL, EVENT_PLAYER_USE_SKILL, PLUGIN_NAME, globalEventListener); 420 registerGlobalEvent (NULL, EVENT_PLAYER_USE_SKILL, PLUGIN_NAME, globalEventListener);
421 registerGlobalEvent (NULL, EVENT_CAST_SPELL, PLUGIN_NAME, globalEventListener);
425 registerGlobalEvent (NULL, EVENT_MONSTER_USE_SKILL, PLUGIN_NAME, globalEventListener); 422 registerGlobalEvent (NULL, EVENT_MONSTER_USE_SKILL, PLUGIN_NAME, globalEventListener);
426 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener); 423 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener);
427 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener); 424 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener);
428 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener); 425 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener);
429 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener); 426 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener);
… …
482 va_list args; 479 va_list args;
483 static int rv; 480 static int rv;
484 int event_code; 481 int event_code;
485 482
486 if (!perl) 483 if (!perl)
487 return; 484 return NULL;
488 485
489 va_start (args, type); 486 va_start (args, type);
490 event_code = va_arg (args, int); 487 event_code = va_arg (args, int);
491 488
492 if (event_code == EVENT_FREE_OB) 489 if (event_code == EVENT_FREE_OB)
… …
592 PUSH_OB; 589 PUSH_OB;
593 break; 590 break;
594 591
595 case EVENT_PLAYER_USE_SKILL: 592 case EVENT_PLAYER_USE_SKILL:
596 case EVENT_MONSTER_USE_SKILL: 593 case EVENT_MONSTER_USE_SKILL:
594 case EVENT_CAST_SPELL:
597 PUSH_OB; 595 PUSH_OB;
598 PUSH_OB; 596 PUSH_OB;
599 PUSH_OB; 597 PUSH_OB;
600 PUSH_IV; 598 PUSH_IV;
601 PUSH_PV; 599 PUSH_PV;
… …
631 } 629 }
632 630
633 return &rv; 631 return &rv;
634} 632}
635 633
636void *
637eventListener (int *type, ...) 634extern "C" void * eventListener (int *type, ...)
638{ 635{
639 static int rv; 636 static int rv;
640 va_list args; 637 va_list args;
641 int event_code; 638 int event_code;
642 object *who, *activator, *third, *event; 639 object *who, *activator, *third, *event;
643 char *message, *extension, *options; 640 char *message, *extension, *options;
644 641
645 if (!perl) 642 if (!perl)
646 return; 643 return NULL;
647 644
648 va_start (args, type); 645 va_start (args, type);
649 who = va_arg (args, object *); 646 who = va_arg (args, object *);
650 event_code = va_arg (args, int); 647 event_code = va_arg (args, int);
651 activator = va_arg (args, object *); 648 activator = va_arg (args, object *);
… …
677 case EVENT_STOP: // $ob (e.g. arrow) 674 case EVENT_STOP: // $ob (e.g. arrow)
678 case EVENT_TIME: // $ob 675 case EVENT_TIME: // $ob
679 case EVENT_TIMER: // $ob 676 case EVENT_TIMER: // $ob
680 break; 677 break;
681 678
682 case EVENT_APPLY: // $ob, $who 679 case EVENT_APPLY: // $ob, $who
683 case EVENT_DROP: // $ob, $who 680 case EVENT_DROP: // $ob, $who
684 case EVENT_CLOSE: // $ob, $who 681 case EVENT_CLOSE: // $ob, $who
685 case EVENT_DEATH: // $ob[, $killer] 682 case EVENT_DEATH: // $ob[, $killer]
686 case EVENT_MOVE: // $ob, $enemy 683 case EVENT_MOVE: // $ob, $enemy
687 case EVENT_THROW: // $ob, $thrower 684 case EVENT_THROW: // $ob, $thrower
688 PUSHcfapi (POBJECT, activator); 685 PUSHcfapi (POBJECT, activator);
689 break; 686 break;
690 687
688 case EVENT_DROP_ON: // $ob, $who, $what
691 case EVENT_ATTACK: // $ob, $who, $victim (?? please god enlighten me) 689 case EVENT_ATTACK: // $ob, $who, $victim (?? please god enlighten me)
692 PUSHcfapi (POBJECT, activator); 690 PUSHcfapi (POBJECT, activator);
693 PUSHcfapi (POBJECT, third); 691 PUSHcfapi (POBJECT, third);
694 break; 692 break;
695 693
… …
724 } 722 }
725 723
726 return &rv; 724 return &rv;
727} 725}
728 726
729int 727extern "C" int closePlugin ()
730closePlugin ()
731{ 728{
732 printf (PLUGIN_VERSION " closing\n"); 729 printf (PLUGIN_VERSION " closing\n");
733 730
734 if (perl) 731 if (perl)
735 { 732 {
… …
1063 const_iv (F_DAMNED) 1060 const_iv (F_DAMNED)
1064 const_iv (F_OPEN) 1061 const_iv (F_OPEN)
1065 const_iv (F_NOPICK) 1062 const_iv (F_NOPICK)
1066 const_iv (F_LOCKED) 1063 const_iv (F_LOCKED)
1067 1064
1065 const_iv (F_BUY)
1066 const_iv (F_SHOP)
1067 const_iv (F_SELL)
1068
1068 const_iv (P_BLOCKSVIEW) 1069 const_iv (P_BLOCKSVIEW)
1069 const_iv (P_NO_MAGIC) 1070 const_iv (P_NO_MAGIC)
1070 const_iv (P_IS_ALIVE) 1071 const_iv (P_IS_ALIVE)
1071 const_iv (P_NO_CLERIC) 1072 const_iv (P_NO_CLERIC)
1072 const_iv (P_NEED_UPDATE) 1073 const_iv (P_NEED_UPDATE)
… …
1235 const_event (NONE) 1236 const_event (NONE)
1236 const_event (APPLY) 1237 const_event (APPLY)
1237 const_event (ATTACK) 1238 const_event (ATTACK)
1238 const_event (DEATH) 1239 const_event (DEATH)
1239 const_event (DROP) 1240 const_event (DROP)
1241 const_event (DROP_ON)
1240 const_event (PICKUP) 1242 const_event (PICKUP)
1241 const_event (SAY) 1243 const_event (SAY)
1242 const_event (STOP) 1244 const_event (STOP)
1243 const_event (TIME) 1245 const_event (TIME)
1244 const_event (THROW) 1246 const_event (THROW)
… …
1268 const_event (TELL) 1270 const_event (TELL)
1269 const_event (MUZZLE) 1271 const_event (MUZZLE)
1270 const_event (KICK) 1272 const_event (KICK)
1271 const_event (PLAYER_USE_SKILL) 1273 const_event (PLAYER_USE_SKILL)
1272 const_event (MONSTER_USE_SKILL) 1274 const_event (MONSTER_USE_SKILL)
1275 const_event (CAST_SPELL)
1273 const_event (FIND_UNARMED_SKILL) 1276 const_event (FIND_UNARMED_SKILL)
1274 const_event (EXTCMD) 1277 const_event (EXTCMD)
1275 //const_event (FREE_OB) 1278 //const_event (FREE_OB)
1276 }; 1279 };
1277 1280
… …
1417 } 1420 }
1418 1421
1419 //I_EVENT_API (PACKAGE); 1422 //I_EVENT_API (PACKAGE);
1420} 1423}
1421 1424
1425NV floor (NV x)
1426
1427NV ceil (NV x)
1428
1422void 1429void
1423LOG (int level, char *msg) 1430LOG (int level, char *msg)
1424 PROTOTYPE: $$ 1431 PROTOTYPE: $$
1425 C_ARGS: level, "%s", msg 1432 C_ARGS: (LogLevel)level, "%s", msg
1426 1433
1427char *path_combine (char *base, char *path) 1434char *path_combine (char *base, char *path)
1428 PROTOTYPE: $$ 1435 PROTOTYPE: $$
1429 1436
1430char *path_combine_and_normalize (char *base, char *path) 1437char *path_combine_and_normalize (char *base, char *path)
… …
1432 1439
1433char * 1440char *
1434cf_get_maps_directory (char *path) 1441cf_get_maps_directory (char *path)
1435 PROTOTYPE: $ 1442 PROTOTYPE: $
1436 ALIAS: maps_directory = 0 1443 ALIAS: maps_directory = 0
1444
1445void
1446sub_generation_inc ()
1447 CODE:
1448 PL_sub_generation++;
1437 1449
1438char * 1450char *
1439mapdir () 1451mapdir ()
1440 PROTOTYPE: 1452 PROTOTYPE:
1441 ALIAS: 1453 ALIAS:
… …
1513 { 1525 {
1514 case CFAPI_INT: 1526 case CFAPI_INT:
1515 cf_object_set_int_property (obj, idx, SvIV (newval)); 1527 cf_object_set_int_property (obj, idx, SvIV (newval));
1516 break; 1528 break;
1517 case CFAPI_LONG: 1529 case CFAPI_LONG:
1518 cf_object_set_long_property (obj, idx, SvVAL64 (newval)); 1530 cf_object_set_long_property (obj, idx, (long) SvVAL64 (newval));
1519 break; 1531 break;
1520 case CFAPI_DOUBLE: 1532 case CFAPI_DOUBLE:
1521 { 1533 {
1522 int unused_type; 1534 int unused_type;
1523 object_set_property (&unused_type, obj, idx, (double)SvNV (newval)); 1535 object_set_property (&unused_type, obj, idx, (double)SvNV (newval));
… …
1601 1613
1602object *cf_object_clone (object *op, int clonetype = 0) 1614object *cf_object_clone (object *op, int clonetype = 0)
1603 1615
1604int cf_object_pay_item (object *op, object *buyer) 1616int cf_object_pay_item (object *op, object *buyer)
1605 1617
1606int cf_object_pay_amount (object *op, val64 amount) 1618int cf_object_pay_amount (object *op, uint64 amount)
1619
1620void pay_player (object *op, uint64 amount)
1621
1622val64 pay_player_arch (object *op, const char *arch, uint64 amount)
1607 1623
1608int cf_object_cast_spell (object *caster, object *ctoo, int dir, object *spell_ob, char *stringarg = 0) 1624int cf_object_cast_spell (object *caster, object *ctoo, int dir, object *spell_ob, char *stringarg = 0)
1609 1625
1610int cf_object_cast_ability (object *caster, object *ctoo, int dir, object *sp_, char *stringarg = 0) 1626int cf_object_cast_ability (object *caster, object *ctoo, int dir, object *sp_, char *stringarg = 0)
1611 1627
… …
1648 1664
1649void cf_object_pickup (object *op, object *what) 1665void cf_object_pickup (object *op, object *what)
1650 1666
1651object *cf_create_object_by_name (const char *name) 1667object *cf_create_object_by_name (const char *name)
1652 1668
1653void change_exp (object *op, val64 exp, const char *skill_name = 0, int flag = 0) 1669void change_exp (object *op, uint64 exp, const char *skill_name = 0, int flag = 0)
1654
1655void pay_player (object *op, val64 amount)
1656
1657val64 pay_player_arch (object *op, const char *arch, val64 amount)
1658 1670
1659void player_lvl_adj (object *who, object *skill = 0) 1671void player_lvl_adj (object *who, object *skill = 0)
1660 1672
1661int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL) 1673int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1662 1674
… …
1706const char *options (object *op) 1718const char *options (object *op)
1707 CODE: 1719 CODE:
1708 RETVAL = op->name; 1720 RETVAL = op->name;
1709 OUTPUT: 1721 OUTPUT:
1710 RETVAL 1722 RETVAL
1723
1724player *contr (object *op)
1725 CODE:
1726 RETVAL = op->contr;
1727 OUTPUT: RETVAL
1711 1728
1712const char *get_ob_key_value (object *op, const char *key) 1729const char *get_ob_key_value (object *op, const char *key)
1713 1730
1714bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1) 1731bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)
1715 1732
… …
1759 1776
1760void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 1777void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1761 1778
1762object *cf_player_send_inventory (object *op) 1779object *cf_player_send_inventory (object *op)
1763 1780
1764player *contr (object *op)
1765 CODE:
1766 RETVAL = op->contr;
1767 OUTPUT: RETVAL
1768
1769char *cf_player_get_ip (object *op) 1781char *cf_player_get_ip (object *op)
1770 ALIAS: ip = 0 1782 ALIAS: ip = 0
1771 1783
1772object *cf_player_get_marked_item (object *op) 1784object *cf_player_get_marked_item (object *op)
1773 ALIAS: marked_item = 0 1785 ALIAS: marked_item = 0
… …
1776 1788
1777partylist *cf_player_get_party (object *op) 1789partylist *cf_player_get_party (object *op)
1778 ALIAS: party = 0 1790 ALIAS: party = 0
1779 1791
1780void cf_player_set_party (object *op, partylist *party) 1792void cf_player_set_party (object *op, partylist *party)
1781
1782void change_skill (object *op, val64 exp, char *skill_name = 0, int flag = 0)
1783 1793
1784void kill_player (object *op) 1794void kill_player (object *op)
1785 1795
1786MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1796MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1787 1797
… …
1909mapstruct *new (int width, int height) 1919mapstruct *new (int width, int height)
1910 PROTOTYPE: 1920 PROTOTYPE:
1911 CODE: 1921 CODE:
1912{ 1922{
1913 int unused_type; 1923 int unused_type;
1914 RETVAL = map_get_map (&unused_type, 0, width, height); 1924 RETVAL = (mapstruct*) map_get_map (&unused_type, 0, width, height);
1915} 1925}
1916 OUTPUT: 1926 OUTPUT:
1917 RETVAL 1927 RETVAL
1918 1928
1919void delete_map (mapstruct *map) 1929void delete_map (mapstruct *map)
… …
2129 ALIAS: more = 0 2139 ALIAS: more = 0
2130 2140
2131const char *cf_archetype_get_name (archetype *arch) 2141const char *cf_archetype_get_name (archetype *arch)
2132 ALIAS: name = 0 2142 ALIAS: name = 0
2133 2143
2144object *cf_archetype_get_clone (archetype *arch)
2145 ALIAS: clone = 0
2146
2134MODULE = cf PACKAGE = cf::party PREFIX = cf_party_ 2147MODULE = cf PACKAGE = cf::party PREFIX = cf_party_
2135 2148
2136partylist *cf_party_get_first () 2149partylist *cf_party_get_first ()
2137 PROTOTYPE: 2150 PROTOTYPE:
2138 ALIAS: first = 0 2151 ALIAS: first = 0
… …
2197 maxgrace = 15 2210 maxgrace = 15
2198 food = 16 2211 food = 16
2199 dam = 17 2212 dam = 17
2200 luck = 18 2213 luck = 18
2201 CODE: 2214 CODE:
2202# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = new_val; break 2215# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = (sint64)new_val; break
2203 switch (ix) 2216 switch (ix)
2204 { 2217 {
2205 LIVING_ACC (exp , 0); 2218 LIVING_ACC (exp , 0);
2206 LIVING_ACC (Str , 1); 2219 LIVING_ACC (Str , 1);
2207 LIVING_ACC (Dex , 2); 2220 LIVING_ACC (Dex , 2);

Diff Legend

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