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.47 by root, Sun Apr 2 15:57:54 2006 UTC vs.
Revision 1.53 by root, Sun Jun 11 15:02:16 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;
… …
1088 const_iv (SK_SUMMONING) 1098 const_iv (SK_SUMMONING)
1089 const_iv (SK_PYROMANCY) 1099 const_iv (SK_PYROMANCY)
1090 const_iv (SK_EVOCATION) 1100 const_iv (SK_EVOCATION)
1091 const_iv (SK_SORCERY) 1101 const_iv (SK_SORCERY)
1092 const_iv (SK_TWO_HANDED_WEAPON) 1102 const_iv (SK_TWO_HANDED_WEAPON)
1103 const_iv (SK_SPARK_TOUCH)
1104 const_iv (SK_SHIVER)
1105 const_iv (SK_ACID_SPLASH)
1106 const_iv (SK_POISON_NAIL)
1093 1107
1094 const_iv (SOUND_NEW_PLAYER) 1108 const_iv (SOUND_NEW_PLAYER)
1095 const_iv (SOUND_FIRE_ARROW) 1109 const_iv (SOUND_FIRE_ARROW)
1096 const_iv (SOUND_LEARN_SPELL) 1110 const_iv (SOUND_LEARN_SPELL)
1097 const_iv (SOUND_FUMBLE_SPELL) 1111 const_iv (SOUND_FUMBLE_SPELL)
… …
1159 const_event (REMOVE) 1173 const_event (REMOVE)
1160 const_event (SHOUT) 1174 const_event (SHOUT)
1161 const_event (TELL) 1175 const_event (TELL)
1162 const_event (MUZZLE) 1176 const_event (MUZZLE)
1163 const_event (KICK) 1177 const_event (KICK)
1178 const_event (EXTCMD)
1164 //const_event (FREE_OB) 1179 //const_event (FREE_OB)
1165 }; 1180 };
1166 1181
1167 AV *av = get_av ("cf::EVENT", 1); 1182 AV *av = get_av ("cf::EVENT", 1);
1168 1183
… …
1486 1501
1487void cf_object_update (object *op, int flags) 1502void cf_object_update (object *op, int flags)
1488 1503
1489void cf_object_pickup (object *op, object *what) 1504void cf_object_pickup (object *op, object *what)
1490 1505
1491char *cf_object_get_key (object *op, char *keyname)
1492 ALIAS: key = 0
1493
1494void cf_object_set_key (object *op, char *keyname, char *value)
1495
1496object *cf_create_object_by_name (const char *name) 1506object *cf_create_object_by_name (const char *name)
1497 1507
1498void 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)
1499 1509
1500void player_lvl_adj (object *who, object *skill = 0) 1510void player_lvl_adj (object *who, object *skill = 0)
1501 1511
1512int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1502 1513
1503MODULE = cf PACKAGE = cf::object PREFIX = cf_ 1514MODULE = cf PACKAGE = cf::object PREFIX = cf_
1504 1515
1505void cf_fix_object (object *pl) 1516void cf_fix_object (object *pl)
1506 ALIAS: fix = 0 1517 ALIAS: fix = 0
… …
1602 1613
1603void cf_player_set_party (object *op, partylist *party) 1614void cf_player_set_party (object *op, partylist *party)
1604 1615
1605void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0) 1616void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0)
1606 1617
1618void kill_player (object *op)
1619
1607MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1620MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1608 1621
1609MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 1622MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1610 1623
1611player *cf_player_find (char *name) 1624player *cf_player_find (char *name)
… …
1630 1643
1631player *next (player *pl) 1644player *next (player *pl)
1632 CODE: 1645 CODE:
1633 RETVAL = pl->next; 1646 RETVAL = pl->next;
1634 OUTPUT: RETVAL 1647 OUTPUT: RETVAL
1648
1649void
1650send (player *pl, SV *packet)
1651 CODE:
1652{
1653 STRLEN len;
1654 char *buf = SvPVbyte (packet, len);
1655
1656 Write_String_To_Socket (&pl->socket, buf, len);
1657}
1658
1659int
1660listening (player *pl, int new_value = -1)
1661 CODE:
1662 RETVAL = pl->listening;
1663 if (new_value >= 0)
1664 pl->listening = new_value;
1665 OUTPUT:
1666 RETVAL
1635 1667
1636void get_savebed (player *pl) 1668void get_savebed (player *pl)
1637 ALIAS: 1669 ALIAS:
1638 savebed = 0 1670 savebed = 0
1639 PPCODE: 1671 PPCODE:

Diff Legend

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