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.57 by root, Tue Jul 11 15:25:00 2006 UTC vs.
Revision 1.61 by root, Wed Jul 19 08:50:42 2006 UTC

… …
48#include <stdarg.h> 48#include <stdarg.h>
49 49
50//#include "EventAPI.h" 50//#include "EventAPI.h"
51#include "perlxsi.c" 51#include "perlxsi.c"
52 52
53extern sint64 *levels; // the experience table
54
53typedef object object_ornull; 55typedef object object_ornull;
54typedef mapstruct mapstruct_ornull; 56typedef mapstruct mapstruct_ornull;
57
58typedef double val64;
59#define newSVval64 newSVnv
60#define SvVAL64 SvNV
55 61
56static f_plug_api gethook; 62static f_plug_api gethook;
57static f_plug_api registerGlobalEvent; 63static f_plug_api registerGlobalEvent;
58static f_plug_api unregisterGlobalEvent; 64static f_plug_api unregisterGlobalEvent;
59static f_plug_api systemDirectory; 65static f_plug_api systemDirectory;
… …
86#define PUSH_PL PUSHcfapi_va(PPLAYER, player *) 92#define PUSH_PL PUSHcfapi_va(PPLAYER, player *)
87#define PUSH_MAP PUSHcfapi_va(PMAP, mapstruct *) 93#define PUSH_MAP PUSHcfapi_va(PMAP, mapstruct *)
88#define PUSH_PV PUSHcfapi_va(STRING, const char *) 94#define PUSH_PV PUSHcfapi_va(STRING, const char *)
89#define PUSH_IV PUSHs (sv_2mortal (newSViv (va_arg (args, int)))) 95#define PUSH_IV PUSHs (sv_2mortal (newSViv (va_arg (args, int))))
90 96
97extern void pay_player(object *op, uint64 amount);
98extern uint64 pay_player_arch(object *op, const char *arch, uint64 amount);
99
91////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 100//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
92 101
93// garbage collect some perl objects, if possible 102// garbage collect some perl objects, if possible
94// all objects no longer referenced and empty are 103// all objects no longer referenced and empty are
95// eligible for destruction. 104// eligible for destruction.
… …
226 case CFAPI_INT: 235 case CFAPI_INT:
227 sv = newSViv (*va_arg (args, int *)); 236 sv = newSViv (*va_arg (args, int *));
228 break; 237 break;
229 238
230 case CFAPI_LONG: 239 case CFAPI_LONG:
231 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */ 240 sv = newSVval64 ((val64)*va_arg (args, sint64 *));
232 break; 241 break;
233 242
234 case CFAPI_DOUBLE: 243 case CFAPI_DOUBLE:
235 sv = newSVnv (*va_arg (args, double *)); 244 sv = newSVnv (*va_arg (args, double *));
236 break; 245 break;
… …
409 418
410 /* Pick the global events you want to monitor from this plugin */ 419 /* Pick the global events you want to monitor from this plugin */
411 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener); 420 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);
412 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener); 421 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);
413 //registerGlobalEvent (NULL, EVENT_CRASH, PLUGIN_NAME, globalEventListener); 422 //registerGlobalEvent (NULL, EVENT_CRASH, PLUGIN_NAME, globalEventListener);
423 registerGlobalEvent (NULL, EVENT_FIND_UNARMED_SKILL, PLUGIN_NAME, globalEventListener);
424 registerGlobalEvent (NULL, EVENT_PLAYER_USE_SKILL, PLUGIN_NAME, globalEventListener);
425 registerGlobalEvent (NULL, EVENT_MONSTER_USE_SKILL, PLUGIN_NAME, globalEventListener);
414 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener); 426 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener);
415 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener); 427 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener);
416 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener); 428 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener);
417 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener); 429 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener);
418 registerGlobalEvent (NULL, EVENT_MAPENTER, PLUGIN_NAME, globalEventListener); 430 registerGlobalEvent (NULL, EVENT_MAPENTER, PLUGIN_NAME, globalEventListener);
… …
571 583
572 case EVENT_SHOUT: 584 case EVENT_SHOUT:
573 case EVENT_MUZZLE: 585 case EVENT_MUZZLE:
574 case EVENT_KICK: 586 case EVENT_KICK:
575 PUSH_OB; 587 PUSH_OB;
588 PUSH_PV;
589 break;
590
591 case EVENT_FIND_UNARMED_SKILL:
592 PUSH_OB;
593 break;
594
595 case EVENT_PLAYER_USE_SKILL:
596 case EVENT_MONSTER_USE_SKILL:
597 PUSH_OB;
598 PUSH_OB;
599 PUSH_OB;
600 PUSH_IV;
576 PUSH_PV; 601 PUSH_PV;
577 break; 602 break;
578 603
579 case EVENT_EXTCMD: 604 case EVENT_EXTCMD:
580 PUSH_PL; 605 PUSH_PL;
… …
1155 const_iv (SOUND_TURN_HANDLE) 1180 const_iv (SOUND_TURN_HANDLE)
1156 const_iv (SOUND_FALL_HOLE) 1181 const_iv (SOUND_FALL_HOLE)
1157 const_iv (SOUND_DRINK_POISON) 1182 const_iv (SOUND_DRINK_POISON)
1158 const_iv (SOUND_CAST_SPELL_0) 1183 const_iv (SOUND_CAST_SPELL_0)
1159 1184
1185 const_iv (PREFER_LOW)
1186 const_iv (PREFER_HIGH)
1187
1188 const_iv (ATNR_PHYSICAL)
1189 const_iv (ATNR_MAGIC)
1190 const_iv (ATNR_FIRE)
1191 const_iv (ATNR_ELECTRICITY)
1192 const_iv (ATNR_COLD)
1193 const_iv (ATNR_CONFUSION)
1194 const_iv (ATNR_ACID)
1195 const_iv (ATNR_DRAIN)
1196 const_iv (ATNR_WEAPONMAGIC)
1197 const_iv (ATNR_GHOSTHIT)
1198 const_iv (ATNR_POISON)
1199 const_iv (ATNR_SLOW)
1200 const_iv (ATNR_PARALYZE)
1201 const_iv (ATNR_TURN_UNDEAD)
1202 const_iv (ATNR_FEAR)
1203 const_iv (ATNR_CANCELLATION)
1204 const_iv (ATNR_DEPLETE)
1205 const_iv (ATNR_DEATH)
1206 const_iv (ATNR_CHAOS)
1207 const_iv (ATNR_COUNTERSPELL)
1208 const_iv (ATNR_GODPOWER)
1209 const_iv (ATNR_HOLYWORD)
1210 const_iv (ATNR_BLIND)
1211 const_iv (ATNR_INTERNAL)
1212 const_iv (ATNR_LIFE_STEALING)
1213 const_iv (ATNR_DISEASE)
1214
1160 const_iv (MAP_FLUSH) 1215 const_iv (MAP_FLUSH)
1161 const_iv (MAP_PLAYER_UNIQUE) 1216 const_iv (MAP_PLAYER_UNIQUE)
1162 const_iv (MAP_BLOCK) 1217 const_iv (MAP_BLOCK)
1163 const_iv (MAP_STYLE) 1218 const_iv (MAP_STYLE)
1164 const_iv (MAP_OVERLAY) 1219 const_iv (MAP_OVERLAY)
… …
1211 const_event (REMOVE) 1266 const_event (REMOVE)
1212 const_event (SHOUT) 1267 const_event (SHOUT)
1213 const_event (TELL) 1268 const_event (TELL)
1214 const_event (MUZZLE) 1269 const_event (MUZZLE)
1215 const_event (KICK) 1270 const_event (KICK)
1271 const_event (PLAYER_USE_SKILL)
1272 const_event (MONSTER_USE_SKILL)
1273 const_event (FIND_UNARMED_SKILL)
1216 const_event (EXTCMD) 1274 const_event (EXTCMD)
1217 //const_event (FREE_OB) 1275 //const_event (FREE_OB)
1218 }; 1276 };
1219 1277
1220 AV *av = get_av ("cf::EVENT", 1); 1278 AV *av = get_av ("cf::EVENT", 1);
… …
1397 1455
1398int 1456int
1399cf_find_animation (char *text) 1457cf_find_animation (char *text)
1400 PROTOTYPE: $ 1458 PROTOTYPE: $
1401 1459
1460int random_roll(int min, int max, object *op, int goodbad);
1461
1462int
1463exp_to_level (val64 exp)
1464 CODE:
1465{
1466 int i = 0;
1467
1468 RETVAL = settings.max_level;
1469
1470 for (i = 1; i <= settings.max_level; i++)
1471 {
1472 if (levels[i] > exp)
1473 {
1474 RETVAL = i - 1;
1475 break;
1476 }
1477 }
1478}
1479 OUTPUT: RETVAL
1480
1481val64
1482level_to_min_exp (int level)
1483 CODE:
1484 if (level > settings.max_level)
1485 RETVAL = levels[settings.max_level];
1486 else if (level < 1)
1487 RETVAL = 0;
1488 else
1489 RETVAL = levels[level];
1490 OUTPUT: RETVAL
1491
1492SV *
1493resistance_to_string (int atnr)
1494 CODE:
1495 if (atnr >= 0 && atnr < NROFATTACKS)
1496 RETVAL = newSVpv (resist_plus[atnr], 0);
1497 else
1498 XSRETURN_UNDEF;
1499 OUTPUT: RETVAL
1500
1402MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1501MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1403 1502
1404SV * 1503SV *
1405get_property (object *obj, int type, int idx) 1504get_property (object *obj, int type, int idx)
1406 CODE: 1505 CODE:
… …
1414 { 1513 {
1415 case CFAPI_INT: 1514 case CFAPI_INT:
1416 cf_object_set_int_property (obj, idx, SvIV (newval)); 1515 cf_object_set_int_property (obj, idx, SvIV (newval));
1417 break; 1516 break;
1418 case CFAPI_LONG: 1517 case CFAPI_LONG:
1419 cf_object_set_long_property (obj, idx, SvNV (newval)); 1518 cf_object_set_long_property (obj, idx, SvVAL64 (newval));
1420 break; 1519 break;
1421 case CFAPI_DOUBLE: 1520 case CFAPI_DOUBLE:
1422 { 1521 {
1423 int unused_type; 1522 int unused_type;
1424 object_set_property (&unused_type, obj, idx, (double)SvNV (newval)); 1523 object_set_property (&unused_type, obj, idx, (double)SvNV (newval));
… …
1502 1601
1503object *cf_object_clone (object *op, int clonetype = 0) 1602object *cf_object_clone (object *op, int clonetype = 0)
1504 1603
1505int cf_object_pay_item (object *op, object *buyer) 1604int cf_object_pay_item (object *op, object *buyer)
1506 1605
1507int cf_object_pay_amount (object *op, double amount) 1606int cf_object_pay_amount (object *op, val64 amount)
1508 1607
1509int cf_object_cast_spell (object *caster, object *ctoo, int dir, object *spell_ob, char *stringarg = 0) 1608int cf_object_cast_spell (object *caster, object *ctoo, int dir, object *spell_ob, char *stringarg = 0)
1510 1609
1511int cf_object_cast_ability (object *caster, object *ctoo, int dir, object *sp_, char *stringarg = 0) 1610int cf_object_cast_ability (object *caster, object *ctoo, int dir, object *sp_, char *stringarg = 0)
1512 1611
… …
1549 1648
1550void cf_object_pickup (object *op, object *what) 1649void cf_object_pickup (object *op, object *what)
1551 1650
1552object *cf_create_object_by_name (const char *name) 1651object *cf_create_object_by_name (const char *name)
1553 1652
1554void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0) 1653void change_exp (object *op, val64 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)
1555 1658
1556void player_lvl_adj (object *who, object *skill = 0) 1659void player_lvl_adj (object *who, object *skill = 0)
1557 1660
1558int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL) 1661int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1662
1663int calc_skill_exp (object *who, object *op, object *skill);
1664
1665void push_button (object *op);
1666
1667void use_trigger (object *op);
1668
1669void
1670cf_object_set_resistance (object *op, int rtype, int val)
1671 CODE:
1672 if (rtype >= 0 && rtype < NROFATTACKS)
1673 op->resist[rtype] = val;
1674
1559 1675
1560MODULE = cf PACKAGE = cf::object PREFIX = cf_ 1676MODULE = cf PACKAGE = cf::object PREFIX = cf_
1561 1677
1562void cf_fix_object (object *pl) 1678void cf_fix_object (object *pl)
1563 ALIAS: fix = 0 1679 ALIAS: fix = 0
… …
1657partylist *cf_player_get_party (object *op) 1773partylist *cf_player_get_party (object *op)
1658 ALIAS: party = 0 1774 ALIAS: party = 0
1659 1775
1660void cf_player_set_party (object *op, partylist *party) 1776void cf_player_set_party (object *op, partylist *party)
1661 1777
1662void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0) 1778void change_skill (object *op, val64 exp, char *skill_name = 0, int flag = 0)
1663 1779
1664void kill_player (object *op) 1780void kill_player (object *op)
1665 1781
1666MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1782MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1667 1783
… …
2054 ALIAS: message = 0 2170 ALIAS: message = 0
2055 2171
2056 2172
2057MODULE = cf PACKAGE = cf::living PREFIX = cf_living_ 2173MODULE = cf PACKAGE = cf::living PREFIX = cf_living_
2058 2174
2059double 2175val64
2060exp (living *liv, double new_val = 0.) 2176exp (living *liv, val64 new_val = 0)
2061 PROTOTYPE: $;$ 2177 PROTOTYPE: $;$
2062 ALIAS: 2178 ALIAS:
2063 Str = 1 2179 Str = 1
2064 Dex = 2 2180 Dex = 2
2065 Con = 3 2181 Con = 3

Diff Legend

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