ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/cfperl.xs
(Generate patch)

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.346 by root, Sat Jan 16 17:41:01 2010 UTC vs.
Revision 1.358 by root, Sun Apr 4 04:58:46 2010 UTC

… …
1419 static const struct { 1419 static const struct {
1420 const char *name; 1420 const char *name;
1421 IV iv; 1421 IV iv;
1422 } *civ, const_iv[] = { 1422 } *civ, const_iv[] = {
1423# define const_iv(name) { # name, (IV)name }, 1423# define const_iv(name) { # name, (IV)name },
1424# include "const_iv.h"
1424 const_iv (llevError) const_iv (llevInfo) const_iv (llevDebug) const_iv (llevMonster) 1425 const_iv (llevError) const_iv (llevInfo) const_iv (llevDebug) const_iv (llevMonster)
1425 const_iv (logBacktrace) 1426 const_iv (logBacktrace)
1426 1427
1427 const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd) 1428 const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)
1428 1429
… …
1436 const_iv (body_arm) const_iv (body_torso) const_iv (body_head) 1437 const_iv (body_arm) const_iv (body_torso) const_iv (body_head)
1437 const_iv (body_neck) const_iv (body_skill) const_iv (body_finger) 1438 const_iv (body_neck) const_iv (body_skill) const_iv (body_finger)
1438 const_iv (body_shoulder) const_iv (body_foot) const_iv (body_hand) 1439 const_iv (body_shoulder) const_iv (body_foot) const_iv (body_hand)
1439 const_iv (body_wrist) const_iv (body_waist) 1440 const_iv (body_wrist) const_iv (body_waist)
1440 1441
1441 const_iv (PLAYER) const_iv (TRANSPORT) const_iv (ROD) const_iv (TREASURE)
1442 const_iv (POTION) const_iv (FOOD) const_iv (POISON) const_iv (BOOK)
1443 const_iv (CLOCK) const_iv (ARROW) const_iv (BOW) const_iv (WEAPON)
1444 const_iv (ARMOUR) const_iv (PEDESTAL) const_iv (ALTAR) const_iv (LOCKED_DOOR)
1445 const_iv (SPECIAL_KEY) const_iv (MAP) const_iv (DOOR) const_iv (KEY)
1446 const_iv (TIMED_GATE) const_iv (TRIGGER) const_iv (GRIMREAPER) const_iv (MAGIC_EAR)
1447 const_iv (TRIGGER_BUTTON) const_iv (TRIGGER_ALTAR) const_iv (TRIGGER_PEDESTAL) const_iv (SHIELD)
1448 const_iv (HELMET) const_iv (HORN) const_iv (MONEY) const_iv (CLASS)
1449 const_iv (GRAVESTONE) const_iv (AMULET) const_iv (PLAYERMOVER) const_iv (TELEPORTER)
1450 const_iv (CREATOR) const_iv (SKILL) const_iv (EARTHWALL) const_iv (GOLEM)
1451 const_iv (THROWN_OBJ) const_iv (BLINDNESS) const_iv (GOD) const_iv (DETECTOR)
1452 const_iv (TRIGGER_MARKER) const_iv (DEAD_OBJECT) const_iv (DRINK) const_iv (MARKER)
1453 const_iv (HOLY_ALTAR) const_iv (PLAYER_CHANGER) const_iv (BATTLEGROUND) const_iv (PEACEMAKER)
1454 const_iv (GEM) const_iv (FIREWALL) const_iv (ANVIL) const_iv (CHECK_INV)
1455 const_iv (MOOD_FLOOR) const_iv (EXIT) const_iv (ENCOUNTER) const_iv (SHOP_FLOOR)
1456 const_iv (SHOP_MAT) const_iv (RING) const_iv (FLOOR) const_iv (FLESH)
1457 const_iv (INORGANIC) const_iv (SKILL_TOOL) const_iv (LIGHTER) const_iv (BUILDABLE_WALL)
1458 const_iv (MISC_OBJECT) const_iv (LAMP) const_iv (DUPLICATOR) const_iv (SPELLBOOK)
1459 const_iv (CLOAK) const_iv (SPINNER) const_iv (GATE) const_iv (BUTTON)
1460 const_iv (T_HANDLE) const_iv (HOLE) const_iv (TRAPDOOR) const_iv (SIGN)
1461 const_iv (BOOTS) const_iv (GLOVES) const_iv (SPELL) const_iv (SPELL_EFFECT)
1462 const_iv (CONVERTER) const_iv (BRACERS) const_iv (POISONING) const_iv (SAVEBED)
1463 const_iv (WAND) const_iv (SCROLL) const_iv (DIRECTOR) const_iv (GIRDLE)
1464 const_iv (FORCE) const_iv (POTION_EFFECT) const_iv (EVENT_CONNECTOR) const_iv (CLOSE_CON)
1465 const_iv (CONTAINER) const_iv (ARMOUR_IMPROVER) const_iv (WEAPON_IMPROVER) const_iv (SKILLSCROLL)
1466 const_iv (DEEP_SWAMP) const_iv (IDENTIFY_ALTAR) const_iv (MENU) const_iv (RUNE)
1467 const_iv (TRAP) const_iv (POWER_CRYSTAL) const_iv (CORPSE) const_iv (DISEASE)
1468 const_iv (SYMPTOM) const_iv (BUILDER) const_iv (MATERIAL) const_iv (ITEM_TRANSFORMER)
1469 const_iv (MAPSCRIPT) const_iv (SAFE_GROUND)
1470
1471 const_iv (NUM_TYPES) const_iv (NUM_SUBTYPES) 1442 const_iv (NUM_TYPES) const_iv (NUM_SUBTYPES)
1472
1473 const_iv (ST_BD_BUILD) const_iv (ST_BD_REMOVE)
1474 const_iv (ST_MAT_FLOOR) const_iv (ST_MAT_WALL) const_iv (ST_MAT_ITEM)
1475 1443
1476 const_iv (AT_PHYSICAL) const_iv (AT_MAGIC) const_iv (AT_FIRE) const_iv (AT_ELECTRICITY) 1444 const_iv (AT_PHYSICAL) const_iv (AT_MAGIC) const_iv (AT_FIRE) const_iv (AT_ELECTRICITY)
1477 const_iv (AT_COLD) const_iv (AT_CONFUSION) const_iv (AT_ACID) const_iv (AT_DRAIN) 1445 const_iv (AT_COLD) const_iv (AT_CONFUSION) const_iv (AT_ACID) const_iv (AT_DRAIN)
1478 const_iv (AT_WEAPONMAGIC) const_iv (AT_GHOSTHIT) const_iv (AT_POISON) const_iv (AT_SLOW) 1446 const_iv (AT_WEAPONMAGIC) const_iv (AT_GHOSTHIT) const_iv (AT_POISON) const_iv (AT_SLOW)
1479 const_iv (AT_PARALYZE) const_iv (AT_TURN_UNDEAD) const_iv (AT_FEAR) const_iv (AT_CANCELLATION) 1447 const_iv (AT_PARALYZE) const_iv (AT_TURN_UNDEAD) const_iv (AT_FEAR) const_iv (AT_CANCELLATION)
1480 const_iv (AT_DEPLETE) const_iv (AT_DEATH) const_iv (AT_CHAOS) const_iv (AT_COUNTERSPELL) 1448 const_iv (AT_DEPLETE) const_iv (AT_DEATH) const_iv (AT_CHAOS) const_iv (AT_COUNTERSPELL)
1481 const_iv (AT_GODPOWER) const_iv (AT_HOLYWORD) const_iv (AT_BLIND) const_iv (AT_INTERNAL) 1449 const_iv (AT_GODPOWER) const_iv (AT_HOLYWORD) const_iv (AT_BLIND) const_iv (AT_INTERNAL)
1482 const_iv (AT_LIFE_STEALING) const_iv (AT_DISEASE) 1450 const_iv (AT_LIFE_STEALING) const_iv (AT_DISEASE)
1483 1451
1484 const_iv (WEAP_HIT) const_iv (WEAP_SLASH) const_iv (WEAP_PIERCE) const_iv (WEAP_CLEAVE)
1485 const_iv (WEAP_SLICE) const_iv (WEAP_STAB) const_iv (WEAP_WHIP) const_iv (WEAP_CRUSH)
1486 const_iv (WEAP_BLUD)
1487
1488 const_iv (FLAG_ALIVE) const_iv (FLAG_WIZ) const_iv (FLAG_REMOVED) const_iv (FLAG_FREED)
1489 const_iv (FLAG_APPLIED) const_iv (FLAG_UNPAID) const_iv (FLAG_USE_SHIELD)
1490 const_iv (FLAG_NO_PICK) const_iv (FLAG_ANIMATE) const_iv (FLAG_MONSTER) const_iv (FLAG_FRIENDLY)
1491 const_iv (FLAG_GENERATOR) const_iv (FLAG_IS_THROWN) const_iv (FLAG_AUTO_APPLY) const_iv (FLAG_PLAYER_SOLD)
1492 const_iv (FLAG_SEE_INVISIBLE) const_iv (FLAG_CAN_ROLL) const_iv (FLAG_OVERLAY_FLOOR) const_iv (FLAG_IS_TURNABLE)
1493 const_iv (FLAG_IS_USED_UP) const_iv (FLAG_IDENTIFIED) const_iv (FLAG_REFLECTING) const_iv (FLAG_CHANGING)
1494 const_iv (FLAG_SPLITTING) const_iv (FLAG_HITBACK) const_iv (FLAG_STARTEQUIP) const_iv (FLAG_BLOCKSVIEW)
1495 const_iv (FLAG_UNDEAD) const_iv (FLAG_SCARED) const_iv (FLAG_UNAGGRESSIVE) const_iv (FLAG_REFL_MISSILE)
1496 const_iv (FLAG_REFL_SPELL) const_iv (FLAG_NO_MAGIC) const_iv (FLAG_IS_LIGHTABLE)
1497 const_iv (FLAG_TEAR_DOWN) const_iv (FLAG_RUN_AWAY) const_iv (FLAG_PICK_UP) const_iv (FLAG_UNIQUE)
1498 const_iv (FLAG_NO_DROP) const_iv (FLAG_WIZCAST) const_iv (FLAG_CAST_SPELL) const_iv (FLAG_USE_SCROLL)
1499 const_iv (FLAG_USE_RANGE) const_iv (FLAG_USE_BOW) const_iv (FLAG_USE_ARMOUR) const_iv (FLAG_USE_WEAPON)
1500 const_iv (FLAG_USE_RING) const_iv (FLAG_READY_RANGE) const_iv (FLAG_READY_BOW) const_iv (FLAG_XRAYS)
1501 const_iv (FLAG_NO_APPLY) const_iv (FLAG_IS_FLOOR) const_iv (FLAG_LIFESAVE) const_iv (FLAG_NO_STRENGTH)
1502 const_iv (FLAG_SLEEP) const_iv (FLAG_STAND_STILL) const_iv (FLAG_RANDOM_MOVE) const_iv (FLAG_ONLY_ATTACK)
1503 const_iv (FLAG_CONFUSED) const_iv (FLAG_STEALTH) const_iv (FLAG_WIZPASS) const_iv (FLAG_IS_LINKED)
1504 const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)
1505 const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)
1506 const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)
1507 const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)
1508 const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)
1509 const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_DEBUG) const_iv (FLAG_BERSERK)
1510 const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1511 const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER) const_iv (FLAG_WIZLOOK)
1512 const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1513 const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1514
1515 const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1516 const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1517 const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1518 const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1519 const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)
1520 const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1521
1522 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE) 1452 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1523 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF) 1453 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1524 1454
1525 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE) 1455 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_LEVEL)
1526 1456
1527 const_iv (SP_RAISE_DEAD) 1457 const_iv (SP_RAISE_DEAD)
1528 const_iv (SP_RUNE) 1458 const_iv (SP_RUNE)
1529 const_iv (SP_MAKE_MARK) 1459 const_iv (SP_MAKE_MARK)
1530 const_iv (SP_BOLT) 1460 const_iv (SP_BOLT)
… …
1571 const_iv (SP_CAUSE_DISEASE) 1501 const_iv (SP_CAUSE_DISEASE)
1572 const_iv (SP_AURA) 1502 const_iv (SP_AURA)
1573 const_iv (SP_TOWN_PORTAL) 1503 const_iv (SP_TOWN_PORTAL)
1574 const_iv (SP_PARTY_SPELL) 1504 const_iv (SP_PARTY_SPELL)
1575 1505
1506 const_iv (AP_TOGGLE) const_iv (AP_APPLY) const_iv (AP_UNAPPLY) const_iv (AP_MODE)
1507 const_iv (AP_NO_MERGE) const_iv (AP_NO_SLOT) const_iv (AP_PRINT) const_iv (AP_IGNORE_CURSE)
1508
1576 const_iv (F_APPLIED) const_iv (F_LOCATION) const_iv (F_UNPAID) const_iv (F_MAGIC) 1509 const_iv (F_APPLIED) const_iv (F_LOCATION) const_iv (F_UNPAID) const_iv (F_MAGIC)
1577 const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK) 1510 const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1578 const_iv (F_LOCKED) 1511 const_iv (F_LOCKED)
1579
1580 const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1581 1512
1582 const_iv (P_BLOCKSVIEW) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE) 1513 const_iv (P_BLOCKSVIEW) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)
1583 const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE) 1514 const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1584 1515
1585 const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE) 1516 const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
… …
1608 const_iv (SK_WOODSMAN) const_iv (SK_INSCRIPTION) const_iv (SK_ONE_HANDED_WEAPON) const_iv (SK_MISSILE_WEAPON) 1539 const_iv (SK_WOODSMAN) const_iv (SK_INSCRIPTION) const_iv (SK_ONE_HANDED_WEAPON) const_iv (SK_MISSILE_WEAPON)
1609 const_iv (SK_THROWING) const_iv (SK_USE_MAGIC_ITEM) const_iv (SK_DISARM_TRAPS) const_iv (SK_SET_TRAP) 1540 const_iv (SK_THROWING) const_iv (SK_USE_MAGIC_ITEM) const_iv (SK_DISARM_TRAPS) const_iv (SK_SET_TRAP)
1610 const_iv (SK_THAUMATURGY) const_iv (SK_PRAYING) const_iv (SK_CLAWING) const_iv (SK_LEVITATION) 1541 const_iv (SK_THAUMATURGY) const_iv (SK_PRAYING) const_iv (SK_CLAWING) const_iv (SK_LEVITATION)
1611 const_iv (SK_SUMMONING) const_iv (SK_PYROMANCY) const_iv (SK_EVOCATION) const_iv (SK_SORCERY) 1542 const_iv (SK_SUMMONING) const_iv (SK_PYROMANCY) const_iv (SK_EVOCATION) const_iv (SK_SORCERY)
1612 const_iv (SK_TWO_HANDED_WEAPON) const_iv (SK_SPARK_TOUCH) const_iv (SK_SHIVER) const_iv (SK_ACID_SPLASH) 1543 const_iv (SK_TWO_HANDED_WEAPON) const_iv (SK_SPARK_TOUCH) const_iv (SK_SHIVER) const_iv (SK_ACID_SPLASH)
1613 const_iv (SK_POISON_NAIL) 1544 const_iv (SK_POISON_NAIL) const_iv (SK_MINING) const_iv (SK_FISHING)
1614 1545
1615 const_iv (SOUND_NEW_PLAYER) const_iv (SOUND_FIRE_ARROW) const_iv (SOUND_LEARN_SPELL) const_iv (SOUND_FUMBLE_SPELL) 1546 const_iv (SOUND_NEW_PLAYER) const_iv (SOUND_FIRE_ARROW) const_iv (SOUND_LEARN_SPELL) const_iv (SOUND_FUMBLE_SPELL)
1616 const_iv (SOUND_WAND_POOF) const_iv (SOUND_OPEN_DOOR) const_iv (SOUND_PUSH_PLAYER) const_iv (SOUND_PLAYER_HITS1) 1547 const_iv (SOUND_WAND_POOF) const_iv (SOUND_OPEN_DOOR) const_iv (SOUND_PUSH_PLAYER) const_iv (SOUND_PLAYER_HITS1)
1617 const_iv (SOUND_PLAYER_HITS2) const_iv (SOUND_PLAYER_HITS3) const_iv (SOUND_PLAYER_HITS4) const_iv (SOUND_PLAYER_IS_HIT1) 1548 const_iv (SOUND_PLAYER_HITS2) const_iv (SOUND_PLAYER_HITS3) const_iv (SOUND_PLAYER_HITS4) const_iv (SOUND_PLAYER_IS_HIT1)
1618 const_iv (SOUND_PLAYER_IS_HIT2) const_iv (SOUND_PLAYER_IS_HIT3) const_iv (SOUND_PLAYER_KILLS) const_iv (SOUND_PET_IS_KILLED) 1549 const_iv (SOUND_PLAYER_IS_HIT2) const_iv (SOUND_PLAYER_IS_HIT3) const_iv (SOUND_PLAYER_KILLS) const_iv (SOUND_PET_IS_KILLED)
1619 const_iv (SOUND_PLAYER_DIES) const_iv (SOUND_OB_EVAPORATE) const_iv (SOUND_OB_EXPLODE) const_iv (SOUND_CLOCK) 1550 const_iv (SOUND_PLAYER_DIES) const_iv (SOUND_OB_EVAPORATE) const_iv (SOUND_OB_EXPLODE) const_iv (SOUND_CLOCK)
1620 const_iv (SOUND_TURN_HANDLE) const_iv (SOUND_FALL_HOLE) const_iv (SOUND_DRINK_POISON) const_iv (SOUND_CAST_SPELL_0) 1551 const_iv (SOUND_TURN_HANDLE) const_iv (SOUND_FALL_HOLE) const_iv (SOUND_DRINK_POISON) const_iv (SOUND_CAST_SPELL_0)
1621
1622 const_iv (PREFER_LOW) const_iv (PREFER_HIGH)
1623 1552
1624 const_iv (ATNR_PHYSICAL) const_iv (ATNR_MAGIC) const_iv (ATNR_FIRE) const_iv (ATNR_ELECTRICITY) 1553 const_iv (ATNR_PHYSICAL) const_iv (ATNR_MAGIC) const_iv (ATNR_FIRE) const_iv (ATNR_ELECTRICITY)
1625 const_iv (ATNR_COLD) const_iv (ATNR_CONFUSION) const_iv (ATNR_ACID) const_iv (ATNR_DRAIN) 1554 const_iv (ATNR_COLD) const_iv (ATNR_CONFUSION) const_iv (ATNR_ACID) const_iv (ATNR_DRAIN)
1626 const_iv (ATNR_WEAPONMAGIC) const_iv (ATNR_GHOSTHIT) const_iv (ATNR_POISON) const_iv (ATNR_SLOW) 1555 const_iv (ATNR_WEAPONMAGIC) const_iv (ATNR_GHOSTHIT) const_iv (ATNR_POISON) const_iv (ATNR_SLOW)
1627 const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION) 1556 const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
… …
1822 } 1751 }
1823 1752
1824void server_tick () 1753void server_tick ()
1825 CODE: 1754 CODE:
1826{ 1755{
1756 ev_now_update (EV_DEFAULT);
1827 NOW = ev_now (EV_DEFAULT); 1757 NOW = ev_now (EV_DEFAULT);
1828 SvNV_set (sv_now, NOW); SvNOK_only (sv_now); 1758 SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
1829 SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start); 1759 SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
1830 runtime = SvNVX (sv_runtime); 1760 runtime = SvNVX (sv_runtime);
1831 1761
1832 server_tick (); 1762 server_tick ();
1833 1763
1834 NOW = ev_time (); 1764 ev_now_update (EV_DEFAULT);
1765 NOW = ev_now (EV_DEFAULT);
1835 SvNV_set (sv_now, NOW); SvNOK_only (sv_now); 1766 SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
1836 runtime += TICK; 1767 runtime += TICK;
1837 SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime); 1768 SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
1838} 1769}
1839 1770
… …
2093#object *mortals (U32 index) 2024#object *mortals (U32 index)
2094# CODE: 2025# CODE:
2095# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0; 2026# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0;
2096# OUTPUT: RETVAL 2027# OUTPUT: RETVAL
2097 2028
2098INCLUDE: $PERL $srcdir/genacc attachable ../include/util.h ../include/cfperl.h | 2029INCLUDE: $PERL $srcdir/genacc attachable $srcdir/../include/util.h $srcdir/../include/cfperl.h |
2099 2030
2100MODULE = cf PACKAGE = cf::global 2031MODULE = cf PACKAGE = cf::global
2101 2032
2102int invoke (SV *klass, int event, ...) 2033int invoke (SV *klass, int event, ...)
2103 CODE: 2034 CODE:
… …
2107 RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END); 2038 RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END);
2108 OUTPUT: RETVAL 2039 OUTPUT: RETVAL
2109 2040
2110MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 2041MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
2111 2042
2112INCLUDE: $PERL $srcdir/genacc object ../include/object.h | 2043INCLUDE: $PERL $srcdir/genacc object $srcdir/../include/object.h |
2113 2044
2114int invoke (object *op, int event, ...) 2045int invoke (object *op, int event, ...)
2115 CODE: 2046 CODE:
2116 if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT"); 2047 if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT");
2117 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2048 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2218 2149
2219int apply_shop_mat (object *shop_mat, object *op); 2150int apply_shop_mat (object *shop_mat, object *op);
2220 2151
2221int move (object *op, int dir, object *originator = op) 2152int move (object *op, int dir, object *originator = op)
2222 CODE: 2153 CODE:
2223 RETVAL = move_ob (op, dir, originator); 2154 RETVAL = op->move (dir, originator);
2224 OUTPUT: 2155 OUTPUT:
2225 RETVAL 2156 RETVAL
2226 2157
2227void apply (object *applier, object *applied, int flags = 0)
2228 CODE:
2229 manual_apply (applied, applier, flags);
2230
2231void apply_below (object *op) 2158void apply_below (object *op)
2232 CODE: 2159 CODE:
2233 player_apply_below (op); 2160 player_apply_below (op);
2234 2161
2235int cast_heal (object *op, object *caster, object *spell, int dir = 0) 2162int cast_heal (object *op, object *caster, object *spell, int dir = 0)
… …
2295 2222
2296void handle_apply_yield (object *op) 2223void handle_apply_yield (object *op)
2297 2224
2298int convert_item (object *item, object *converter) 2225int convert_item (object *item, object *converter)
2299 2226
2227void fix_generated_item (object *op, object *creator, int difficulty, int max_magic, int flags);
2300 2228
2301MODULE = cf PACKAGE = cf::object PREFIX = cf_ 2229MODULE = cf PACKAGE = cf::object PREFIX = cf_
2302 2230
2303# no clean way to get an object from an archetype - stupid idiotic 2231# no clean way to get an object from an archetype - stupid idiotic
2304# dumb kludgy misdesigned plug-in api slowly gets on my nerves. 2232# dumb kludgy misdesigned plug-in api slowly gets on my nerves.
… …
2308 CODE: 2236 CODE:
2309 RETVAL = archetype ? get_archetype (archetype) : object::create (); 2237 RETVAL = archetype ? get_archetype (archetype) : object::create ();
2310 OUTPUT: 2238 OUTPUT:
2311 RETVAL 2239 RETVAL
2312 2240
2241object *generate (utf8_string arch, object *creator)
2242 CODE:
2243 object *obj = get_archetype (arch);
2244 fix_generated_item (obj, creator, 0, 0, GT_MINIMAL);
2245 RETVAL = obj;
2246 OUTPUT:
2247 RETVAL
2248
2313object *find_object (U32 tag) 2249object *find_object (U32 tag)
2250
2251object *find_object_uuid (UUID i)
2314 2252
2315# TODO: nuke 2253# TODO: nuke
2316object *insert_ob_in_map_at (object *ob, maptile *where, object_ornull *orig, int flag, int x, int y) 2254object *insert_ob_in_map_at (object *ob, maptile *where, object_ornull *orig, int flag, int x, int y)
2317 PROTOTYPE: $$$$$$ 2255 PROTOTYPE: $$$$$$
2318 CODE: 2256 CODE:
… …
2380 RETVAL = op->contr; 2318 RETVAL = op->contr;
2381 OUTPUT: RETVAL 2319 OUTPUT: RETVAL
2382 2320
2383bool move_player (object *op, int dir) 2321bool move_player (object *op, int dir)
2384 2322
2385void check_score (object *op)
2386
2387void message (object *op, utf8_string txt, int flags = NDI_ORANGE | NDI_UNIQUE) 2323void message (object *op, utf8_string txt, int flags = NDI_ORANGE | NDI_UNIQUE)
2388 CODE: 2324 CODE:
2389 new_draw_info (flags, 0, op, txt); 2325 new_draw_info (flags, 0, op, txt);
2390 2326
2391void kill_player (object *op) 2327void kill_player (object *op)
… …
2403int command_arrest (object *op, utf8_string params) 2339int command_arrest (object *op, utf8_string params)
2404 2340
2405 2341
2406MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 2342MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2407 2343
2408INCLUDE: $PERL $srcdir/genacc player ../include/player.h | 2344INCLUDE: $PERL $srcdir/genacc player $srcdir/../include/player.h |
2409 2345
2410int invoke (player *pl, int event, ...) 2346int invoke (player *pl, int event, ...)
2411 CODE: 2347 CODE:
2412 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER"); 2348 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER");
2413 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2349 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2505 if (op->tag) 2441 if (op->tag)
2506 XPUSHs (sv_2mortal (to_sv (op))); 2442 XPUSHs (sv_2mortal (to_sv (op)));
2507 } 2443 }
2508} 2444}
2509 2445
2510INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h | 2446INCLUDE: $PERL $srcdir/genacc maptile $srcdir/../include/map.h |
2511 2447
2512void 2448void
2513adjust_daylight () 2449adjust_daylight ()
2514 CODE: 2450 CODE:
2515 maptile::adjust_daylight (); 2451 maptile::adjust_daylight ();
… …
2754 utf8_string monsterstyle,\ 2690 utf8_string monsterstyle,\
2755 utf8_string treasurestyle,\ 2691 utf8_string treasurestyle,\
2756 utf8_string layoutstyle,\ 2692 utf8_string layoutstyle,\
2757 utf8_string doorstyle,\ 2693 utf8_string doorstyle,\
2758 utf8_string decorstyle,\ 2694 utf8_string decorstyle,\
2695 utf8_string miningstyle,\
2759 utf8_string origin_map,\ 2696 utf8_string origin_map,\
2760 utf8_string final_map,\ 2697 utf8_string final_map,\
2761 utf8_string exitstyle,\ 2698 utf8_string exitstyle,\
2762 utf8_string this_map,\ 2699 utf8_string this_map,\
2763 utf8_string exit_on_final_map,\ 2700 utf8_string exit_on_final_map,\
… …
2795 assign (rmp.monsterstyle , monsterstyle); 2732 assign (rmp.monsterstyle , monsterstyle);
2796 assign (rmp.treasurestyle , treasurestyle); 2733 assign (rmp.treasurestyle , treasurestyle);
2797 assign (rmp.layoutstyle , layoutstyle); 2734 assign (rmp.layoutstyle , layoutstyle);
2798 assign (rmp.doorstyle , doorstyle); 2735 assign (rmp.doorstyle , doorstyle);
2799 assign (rmp.decorstyle , decorstyle); 2736 assign (rmp.decorstyle , decorstyle);
2737 assign (rmp.miningstyle , miningstyle);
2800 assign (rmp.exitstyle , exitstyle); 2738 assign (rmp.exitstyle , exitstyle);
2801 assign (rmp.exit_on_final_map, exit_on_final_map); 2739 assign (rmp.exit_on_final_map, exit_on_final_map);
2802 2740
2803 rmp.origin_map = origin_map; 2741 rmp.origin_map = origin_map;
2804 rmp.final_map = final_map; 2742 rmp.final_map = final_map;
… …
2832 OUTPUT: 2770 OUTPUT:
2833 RETVAL 2771 RETVAL
2834 2772
2835MODULE = cf PACKAGE = cf::mapspace 2773MODULE = cf PACKAGE = cf::mapspace
2836 2774
2837INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h | 2775INCLUDE: $PERL $srcdir/genacc mapspace $srcdir/../include/map.h |
2838 2776
2839MODULE = cf PACKAGE = cf::arch 2777MODULE = cf PACKAGE = cf::arch
2840 2778
2841int archetypes_size () 2779int archetypes_size ()
2842 CODE: 2780 CODE:
… …
2846archetype *archetypes (U32 index) 2784archetype *archetypes (U32 index)
2847 CODE: 2785 CODE:
2848 RETVAL = index < archetypes.size () ? archetypes [index] : 0; 2786 RETVAL = index < archetypes.size () ? archetypes [index] : 0;
2849 OUTPUT: RETVAL 2787 OUTPUT: RETVAL
2850 2788
2851INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h | 2789INCLUDE: $PERL $srcdir/genacc archetype $srcdir/../include/object.h |
2852 2790
2853MODULE = cf PACKAGE = cf::party 2791MODULE = cf PACKAGE = cf::party
2854 2792
2855partylist *first () 2793partylist *first ()
2856 PROTOTYPE: 2794 PROTOTYPE:
2857 CODE: 2795 CODE:
2858 RETVAL = get_firstparty (); 2796 RETVAL = get_firstparty ();
2859 OUTPUT: RETVAL 2797 OUTPUT: RETVAL
2860 2798
2861INCLUDE: $PERL $srcdir/genacc partylist ../include/player.h | 2799INCLUDE: $PERL $srcdir/genacc partylist $srcdir/../include/player.h |
2862 2800
2863MODULE = cf PACKAGE = cf::region 2801MODULE = cf PACKAGE = cf::region
2864 2802
2865void 2803void
2866list () 2804list ()
… …
2879 RETVAL = 0; 2817 RETVAL = 0;
2880 while (rgn = rgn->parent) 2818 while (rgn = rgn->parent)
2881 RETVAL++; 2819 RETVAL++;
2882 OUTPUT: RETVAL 2820 OUTPUT: RETVAL
2883 2821
2884INCLUDE: $PERL $srcdir/genacc region ../include/region.h | 2822INCLUDE: $PERL $srcdir/genacc region $srcdir/../include/region.h |
2885 2823
2886MODULE = cf PACKAGE = cf::living 2824MODULE = cf PACKAGE = cf::living
2887 2825
2888INCLUDE: $PERL $srcdir/genacc living ../include/living.h | 2826INCLUDE: $PERL $srcdir/genacc living $srcdir/../include/living.h |
2889 2827
2890MODULE = cf PACKAGE = cf::settings 2828MODULE = cf PACKAGE = cf::settings
2891 2829
2892INCLUDE: $PERL $srcdir/genacc Settings ../include/global.h | 2830INCLUDE: $PERL $srcdir/genacc Settings $srcdir/../include/global.h |
2893 2831
2894MODULE = cf PACKAGE = cf::client 2832MODULE = cf PACKAGE = cf::client
2895 2833
2896INCLUDE: $PERL $srcdir/genacc client ../include/client.h | 2834INCLUDE: $PERL $srcdir/genacc client $srcdir/../include/client.h |
2897 2835
2898int invoke (client *ns, int event, ...) 2836int invoke (client *ns, int event, ...)
2899 CODE: 2837 CODE:
2900 if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT"); 2838 if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT");
2901 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2839 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2967 extern faceidx old_sound_index [SOUND_CAST_SPELL_0]; 2905 extern faceidx old_sound_index [SOUND_CAST_SPELL_0];
2968 old_sound_index [idx] = face; 2906 old_sound_index [idx] = face;
2969 2907
2970MODULE = cf PACKAGE = cf::face PREFIX = face_ 2908MODULE = cf PACKAGE = cf::face PREFIX = face_
2971 2909
2972#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h | 2910#INCLUDE: $PERL $srcdir/genacc faceset $srcdir/../include/face.h |
2973 2911
2974faceidx face_find (utf8_string name, faceidx defidx = 0) 2912faceidx face_find (utf8_string name, faceidx defidx = 0)
2975 2913
2976faceidx alloc (utf8_string name) 2914faceidx alloc (utf8_string name)
2977 CODE: 2915 CODE:
… …
3076 ns->force_newmap = true; 3014 ns->force_newmap = true;
3077 } 3015 }
3078 3016
3079MODULE = cf PACKAGE = cf::anim PREFIX = anim_ 3017MODULE = cf PACKAGE = cf::anim PREFIX = anim_
3080 3018
3081#INCLUDE: $PERL $srcdir/genacc faceset ../include/anim.h | 3019#INCLUDE: $PERL $srcdir/genacc faceset $srcdir/../include/anim.h |
3082 3020
3083animidx anim_find (utf8_string name) 3021animidx anim_find (utf8_string name)
3084 CODE: 3022 CODE:
3085 RETVAL = animation::find (name).number; 3023 RETVAL = animation::find (name).number;
3086 OUTPUT: RETVAL 3024 OUTPUT: RETVAL
… …
3112 for_all_clients (ns) 3050 for_all_clients (ns)
3113 ns->anims_sent.reset (); 3051 ns->anims_sent.reset ();
3114 3052
3115MODULE = cf PACKAGE = cf::object::freezer 3053MODULE = cf PACKAGE = cf::object::freezer
3116 3054
3117INCLUDE: $PERL $srcdir/genacc object_freezer ../include/cfperl.h | 3055INCLUDE: $PERL $srcdir/genacc object_freezer $srcdir/../include/cfperl.h |
3118 3056
3119SV * 3057SV *
3120new (char *klass) 3058new (char *klass)
3121 CODE: 3059 CODE:
3122 RETVAL = newSVptr (new object_freezer, gv_stashpv ("cf::object::freezer", 1)); 3060 RETVAL = newSVptr (new object_freezer, gv_stashpv ("cf::object::freezer", 1));
… …
3129 sv_to (sv, self); 3067 sv_to (sv, self);
3130 delete self; 3068 delete self;
3131 3069
3132MODULE = cf PACKAGE = cf::object::thawer 3070MODULE = cf PACKAGE = cf::object::thawer
3133 3071
3134INCLUDE: $PERL $srcdir/genacc object_thawer ../include/cfperl.h | 3072INCLUDE: $PERL $srcdir/genacc object_thawer $srcdir/../include/cfperl.h |
3135 3073
3136SV * 3074SV *
3137new_from_file (char *klass, octet_string path) 3075new_from_file (char *klass, octet_string path)
3138 CODE: 3076 CODE:
3139 object_thawer *f = new object_thawer (path); 3077 object_thawer *f = new object_thawer (path);

Diff Legend

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