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.51 by root, Sun May 7 19:24:27 2006 UTC vs.
Revision 1.54 by root, Mon Jun 12 13:25:27 2006 UTC

… …
427 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener); 427 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
428 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener); 428 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
429 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener); 429 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
430 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener); 430 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener);
431 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener); 431 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener);
432 registerGlobalEvent (NULL, EVENT_EXTCMD, PLUGIN_NAME, globalEventListener);
432 433
433 char *argv[] = { 434 char *argv[] = {
434 "", 435 "",
435 "-e" 436 "-e"
436 "BEGIN {" 437 "BEGIN {"
… …
540 case EVENT_SHOUT: 541 case EVENT_SHOUT:
541 case EVENT_MUZZLE: 542 case EVENT_MUZZLE:
542 case EVENT_KICK: 543 case EVENT_KICK:
543 PUSH_OB; 544 PUSH_OB;
544 PUSH_PV; 545 PUSH_PV;
546 break;
547
548 case EVENT_EXTCMD:
549 PUSH_PL;
550 {
551 char *buf = va_arg (args, char *);
552 int len = va_arg (args, int);
553 PUSHs (sv_2mortal (newSVpvn (buf, len)));
554 }
545 break; 555 break;
546 556
547 case EVENT_CLOCK: 557 case EVENT_CLOCK:
548 clean_obj_cache (); 558 clean_obj_cache ();
549 break; 559 break;
… …
1163 const_event (REMOVE) 1173 const_event (REMOVE)
1164 const_event (SHOUT) 1174 const_event (SHOUT)
1165 const_event (TELL) 1175 const_event (TELL)
1166 const_event (MUZZLE) 1176 const_event (MUZZLE)
1167 const_event (KICK) 1177 const_event (KICK)
1178 const_event (EXTCMD)
1168 //const_event (FREE_OB) 1179 //const_event (FREE_OB)
1169 }; 1180 };
1170 1181
1171 AV *av = get_av ("cf::EVENT", 1); 1182 AV *av = get_av ("cf::EVENT", 1);
1172 1183
… …
1490 1501
1491void cf_object_update (object *op, int flags) 1502void cf_object_update (object *op, int flags)
1492 1503
1493void cf_object_pickup (object *op, object *what) 1504void cf_object_pickup (object *op, object *what)
1494 1505
1495char *cf_object_get_key (object *op, char *keyname)
1496 ALIAS: key = 0
1497
1498void cf_object_set_key (object *op, char *keyname, char *value)
1499
1500object *cf_create_object_by_name (const char *name) 1506object *cf_create_object_by_name (const char *name)
1501 1507
1502void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0) 1508void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0)
1503 1509
1504void player_lvl_adj (object *who, object *skill = 0) 1510void player_lvl_adj (object *who, object *skill = 0)
… …
1637 1643
1638player *next (player *pl) 1644player *next (player *pl)
1639 CODE: 1645 CODE:
1640 RETVAL = pl->next; 1646 RETVAL = pl->next;
1641 OUTPUT: RETVAL 1647 OUTPUT: RETVAL
1648
1649bool
1650cell_visible (player *pl, int dx, int dy)
1651 CODE:
1652 RETVAL = FABS (dx) <= pl->socket.mapx / 2 && FABS (dy) <= pl->socket.mapy / 2
1653 && !pl->blocked_los [dx + pl->socket.mapx / 2][dy + pl->socket.mapy / 2];
1654 OUTPUT:
1655 RETVAL
1656
1657void
1658send (player *pl, SV *packet)
1659 CODE:
1660{
1661 STRLEN len;
1662 char *buf = SvPVbyte (packet, len);
1663
1664 Write_String_To_Socket (&pl->socket, buf, len);
1665}
1642 1666
1643int 1667int
1644listening (player *pl, int new_value = -1) 1668listening (player *pl, int new_value = -1)
1645 CODE: 1669 CODE:
1646 RETVAL = pl->listening; 1670 RETVAL = pl->listening;
… …
1762object *cf_map_insert_object (mapstruct *where, object* op, int x, int y) 1786object *cf_map_insert_object (mapstruct *where, object* op, int x, int y)
1763 1787
1764object* cf_map_present_arch_by_name (mapstruct *map, const char* str, int nx, int ny) 1788object* cf_map_present_arch_by_name (mapstruct *map, const char* str, int nx, int ny)
1765 C_ARGS: str, map, nx, ny 1789 C_ARGS: str, map, nx, ny
1766 1790
1767#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 *nx, I16 *ny)
1768
1769void 1791void
1792cf_map_normalise (mapstruct *map, int x, int y)
1793 PPCODE:
1794{
1795 mapstruct *nmap = 0;
1796 I16 nx = 0, ny = 0;
1797 int flags = cf_map_get_flags (map, &nmap, x, y, &nx, &ny);
1798
1799 EXTEND (SP, 4);
1800 PUSHs (sv_2mortal (newSViv (flags)));
1801
1802 if (GIMME_V == G_ARRAY)
1803 {
1804 PUSHs (sv_2mortal (newSVcfapi (CFAPI_PMAP, nmap)));
1805 PUSHs (sv_2mortal (newSViv (nx)));
1806 PUSHs (sv_2mortal (newSViv (ny)));
1807 }
1808}
1809
1810void
1770at (mapstruct *obj, unsigned int x, unsigned int y) 1811at (mapstruct *map, unsigned int x, unsigned int y)
1771 PROTOTYPE: $$$ 1812 PROTOTYPE: $$$
1772 INIT:
1773 if (x >= MAP_WIDTH (obj) || y >= MAP_HEIGHT (obj)) XSRETURN_EMPTY;
1774 PPCODE: 1813 PPCODE:
1775{ 1814{
1776 object *o; 1815 object *o;
1777 1816 mapstruct *nmap = 0;
1817 I16 nx, ny;
1818
1819 cf_map_get_flags (map, &nmap, x, y, &nx, &ny);
1820
1821 if (nmap)
1778 for (o = GET_MAP_OB (obj, x, y); o; o = o->above) 1822 for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)
1779 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o))); 1823 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
1780} 1824}
1781 1825
1782SV * 1826SV *
1783bot_at (mapstruct *obj, unsigned int x, unsigned int y) 1827bot_at (mapstruct *obj, unsigned int x, unsigned int y)
1784 PROTOTYPE: $$$ 1828 PROTOTYPE: $$$

Diff Legend

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