… | |
… | |
1409 | prop (CFAPI_INT, MAP_PROP_WPARTX) |
1409 | prop (CFAPI_INT, MAP_PROP_WPARTX) |
1410 | prop (CFAPI_INT, MAP_PROP_WPARTY) |
1410 | prop (CFAPI_INT, MAP_PROP_WPARTY) |
1411 | prop (CFAPI_STRING, MAP_PROP_MESSAGE) |
1411 | prop (CFAPI_STRING, MAP_PROP_MESSAGE) |
1412 | prop (CFAPI_PMAP, MAP_PROP_NEXT) |
1412 | prop (CFAPI_PMAP, MAP_PROP_NEXT) |
1413 | prop (CFAPI_PREGION, MAP_PROP_REGION) |
1413 | prop (CFAPI_PREGION, MAP_PROP_REGION) |
1414 | prop (CFAPI_POBJECT, OBJECT_PROP_OB_ABOVE) |
|
|
1415 | prop (CFAPI_POBJECT, OBJECT_PROP_OB_BELOW) |
|
|
1416 | prop (CFAPI_POBJECT, OBJECT_PROP_NEXT_ACTIVE_OB) |
1414 | prop (CFAPI_POBJECT, OBJECT_PROP_NEXT_ACTIVE_OB) |
1417 | prop (CFAPI_POBJECT, OBJECT_PROP_PREV_ACTIVE_OB) |
1415 | prop (CFAPI_POBJECT, OBJECT_PROP_PREV_ACTIVE_OB) |
1418 | prop (CFAPI_POBJECT, OBJECT_PROP_INVENTORY) |
1416 | prop (CFAPI_POBJECT, OBJECT_PROP_INVENTORY) |
1419 | prop (CFAPI_POBJECT, OBJECT_PROP_ENVIRONMENT) |
1417 | prop (CFAPI_POBJECT, OBJECT_PROP_ENVIRONMENT) |
1420 | prop (CFAPI_POBJECT, OBJECT_PROP_HEAD) |
|
|
1421 | prop (CFAPI_POBJECT, OBJECT_PROP_CONTAINER) |
1418 | prop (CFAPI_POBJECT, OBJECT_PROP_CONTAINER) |
1422 | prop (CFAPI_PMAP, OBJECT_PROP_MAP) |
1419 | prop (CFAPI_PMAP, OBJECT_PROP_MAP) |
1423 | prop (CFAPI_INT, OBJECT_PROP_COUNT) |
1420 | prop (CFAPI_INT, OBJECT_PROP_COUNT) |
1424 | prop (CFAPI_INT, OBJECT_PROP_REFCOUNT) |
1421 | prop (CFAPI_INT, OBJECT_PROP_REFCOUNT) |
1425 | prop (CFAPI_STRING, OBJECT_PROP_NAME) |
1422 | prop (CFAPI_STRING, OBJECT_PROP_NAME) |
… | |
… | |
1649 | RETVAL = newSVpv (resist_plus[atnr], 0); |
1646 | RETVAL = newSVpv (resist_plus[atnr], 0); |
1650 | else |
1647 | else |
1651 | XSRETURN_UNDEF; |
1648 | XSRETURN_UNDEF; |
1652 | OUTPUT: RETVAL |
1649 | OUTPUT: RETVAL |
1653 | |
1650 | |
|
|
1651 | int |
|
|
1652 | _valid (SV *obj) |
|
|
1653 | CODE: |
|
|
1654 | RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext); |
|
|
1655 | OUTPUT: |
|
|
1656 | RETVAL |
|
|
1657 | |
1654 | MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ |
1658 | MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ |
1655 | |
1659 | |
1656 | int invoke (object *op, int event, ...) |
1660 | int invoke (object *op, int event, ...) |
1657 | CODE: |
1661 | CODE: |
1658 | if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT"); |
1662 | if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT"); |
… | |
… | |
1663 | |
1667 | |
1664 | SV *registry (object *op) |
1668 | SV *registry (object *op) |
1665 | CODE: |
1669 | CODE: |
1666 | RETVAL = registry_of (op); |
1670 | RETVAL = registry_of (op); |
1667 | OUTPUT: |
1671 | OUTPUT: |
|
|
1672 | RETVAL |
|
|
1673 | |
|
|
1674 | object *head (object *op) |
|
|
1675 | PROTOTYPE: $ |
|
|
1676 | ALIAS: |
|
|
1677 | more = 1 |
|
|
1678 | above = 2 |
|
|
1679 | below = 3 |
|
|
1680 | CODE: |
|
|
1681 | switch (ix) |
|
|
1682 | { |
|
|
1683 | case 0: RETVAL = op->head ? op->head : op; break; // DOH! |
|
|
1684 | case 1: RETVAL = op->more; break; |
|
|
1685 | case 2: RETVAL = op->above; break; |
|
|
1686 | case 3: RETVAL = op->below; break; |
|
|
1687 | } |
|
|
1688 | OUTPUT: |
1668 | RETVAL |
1689 | RETVAL |
1669 | |
1690 | |
1670 | SV * |
1691 | SV * |
1671 | get_property (object *obj, int type, int idx) |
1692 | get_property (object *obj, int type, int idx) |
1672 | CODE: |
1693 | CODE: |
… | |
… | |
1752 | |
1773 | |
1753 | int need_identify (const object *obj); |
1774 | int need_identify (const object *obj); |
1754 | |
1775 | |
1755 | int apply_shop_mat (object *shop_mat, object *op); |
1776 | int apply_shop_mat (object *shop_mat, object *op); |
1756 | |
1777 | |
1757 | void cf_object_move (object *op, int dir, object *originator = op) |
1778 | int move (object *op, int dir, object *originator = op) |
|
|
1779 | CODE: |
|
|
1780 | RETVAL = move_ob (op, dir, originator); |
|
|
1781 | OUTPUT: |
|
|
1782 | RETVAL |
1758 | |
1783 | |
1759 | void cf_object_apply (object *op, object *author, int flags = 0) |
1784 | void cf_object_apply (object *op, object *author, int flags = 0) |
1760 | |
1785 | |
1761 | void cf_object_apply_below (object *op) |
1786 | void cf_object_apply_below (object *op) |
1762 | |
1787 | |