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.58 by elmex, Tue Jul 11 16:50:16 2006 UTC vs.
Revision 1.65 by elmex, Sat Aug 12 11:51:38 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;
… …
229 case CFAPI_INT: 235 case CFAPI_INT:
230 sv = newSViv (*va_arg (args, int *)); 236 sv = newSViv (*va_arg (args, int *));
231 break; 237 break;
232 238
233 case CFAPI_LONG: 239 case CFAPI_LONG:
234 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */ 240 sv = newSVval64 ((val64)*va_arg (args, sint64 *));
235 break; 241 break;
236 242
237 case CFAPI_DOUBLE: 243 case CFAPI_DOUBLE:
238 sv = newSVnv (*va_arg (args, double *)); 244 sv = newSVnv (*va_arg (args, double *));
239 break; 245 break;
… …
253 sv = &PL_sv_undef; 259 sv = &PL_sv_undef;
254 else 260 else
255 switch (obj->type) 261 switch (obj->type)
256 { 262 {
257 case MAP: 263 case MAP:
258 sv = newSVptr_cached (obj, "cf::object::map"); 264 sv = newSVptr_cached (obj, "cf::object::map::wrap");
259 break; 265 break;
260 266
261 case PLAYER: 267 case PLAYER:
262 sv = newSVptr_cached (obj, "cf::object::player"); 268 sv = newSVptr_cached (obj, "cf::object::player::wrap");
263 break; 269 break;
264 270
265 default: 271 default:
266 sv = newSVptr_cached (obj, "cf::object"); 272 sv = newSVptr_cached (obj, "cf::object::wrap");
267 break; 273 break;
268 } 274 }
269 } 275 }
270 break; 276 break;
271 277
272 case CFAPI_PMAP: 278 case CFAPI_PMAP:
273 sv = newSVptr (va_arg (args, mapstruct *), "cf::map"); 279 sv = newSVptr (va_arg (args, mapstruct *), "cf::map::wrap");
274 break; 280 break;
275 281
276 case CFAPI_PPLAYER: 282 case CFAPI_PPLAYER:
277 sv = newSVptr (va_arg (args, player *), "cf::player"); 283 sv = newSVptr (va_arg (args, player *), "cf::player::wrap");
278 break; 284 break;
279 285
280 case CFAPI_PARCH: 286 case CFAPI_PARCH:
281 sv = newSVptr (va_arg (args, archetype *), "cf::arch"); 287 sv = newSVptr (va_arg (args, archetype *), "cf::arch::wrap");
282 break; 288 break;
283 289
284 case CFAPI_PPARTY: 290 case CFAPI_PPARTY:
285 sv = newSVptr (va_arg (args, partylist *), "cf::party"); 291 sv = newSVptr (va_arg (args, partylist *), "cf::party::wrap");
286 break; 292 break;
287 293
288 case CFAPI_PREGION: 294 case CFAPI_PREGION:
289 sv = newSVptr (va_arg (args, region *), "cf::region"); 295 sv = newSVptr (va_arg (args, region *), "cf::region::wrap");
290 break; 296 break;
291 297
292 default: 298 default:
293 assert (("unhandled type in newSVcfapi", 0)); 299 assert (("unhandled type in newSVcfapi", 0));
294 } 300 }
… …
412 418
413 /* Pick the global events you want to monitor from this plugin */ 419 /* Pick the global events you want to monitor from this plugin */
414 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener); 420 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);
415 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener); 421 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);
416 //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_CAST_SPELL, PLUGIN_NAME, globalEventListener);
426 registerGlobalEvent (NULL, EVENT_MONSTER_USE_SKILL, PLUGIN_NAME, globalEventListener);
417 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener); 427 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener);
418 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener); 428 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener);
419 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener); 429 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener);
420 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener); 430 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener);
421 registerGlobalEvent (NULL, EVENT_MAPENTER, PLUGIN_NAME, globalEventListener); 431 registerGlobalEvent (NULL, EVENT_MAPENTER, PLUGIN_NAME, globalEventListener);
… …
574 584
575 case EVENT_SHOUT: 585 case EVENT_SHOUT:
576 case EVENT_MUZZLE: 586 case EVENT_MUZZLE:
577 case EVENT_KICK: 587 case EVENT_KICK:
578 PUSH_OB; 588 PUSH_OB;
589 PUSH_PV;
590 break;
591
592 case EVENT_FIND_UNARMED_SKILL:
593 PUSH_OB;
594 break;
595
596 case EVENT_PLAYER_USE_SKILL:
597 case EVENT_MONSTER_USE_SKILL:
598 case EVENT_CAST_SPELL:
599 PUSH_OB;
600 PUSH_OB;
601 PUSH_OB;
602 PUSH_IV;
579 PUSH_PV; 603 PUSH_PV;
580 break; 604 break;
581 605
582 case EVENT_EXTCMD: 606 case EVENT_EXTCMD:
583 PUSH_PL; 607 PUSH_PL;
… …
1158 const_iv (SOUND_TURN_HANDLE) 1182 const_iv (SOUND_TURN_HANDLE)
1159 const_iv (SOUND_FALL_HOLE) 1183 const_iv (SOUND_FALL_HOLE)
1160 const_iv (SOUND_DRINK_POISON) 1184 const_iv (SOUND_DRINK_POISON)
1161 const_iv (SOUND_CAST_SPELL_0) 1185 const_iv (SOUND_CAST_SPELL_0)
1162 1186
1187 const_iv (PREFER_LOW)
1188 const_iv (PREFER_HIGH)
1189
1190 const_iv (ATNR_PHYSICAL)
1191 const_iv (ATNR_MAGIC)
1192 const_iv (ATNR_FIRE)
1193 const_iv (ATNR_ELECTRICITY)
1194 const_iv (ATNR_COLD)
1195 const_iv (ATNR_CONFUSION)
1196 const_iv (ATNR_ACID)
1197 const_iv (ATNR_DRAIN)
1198 const_iv (ATNR_WEAPONMAGIC)
1199 const_iv (ATNR_GHOSTHIT)
1200 const_iv (ATNR_POISON)
1201 const_iv (ATNR_SLOW)
1202 const_iv (ATNR_PARALYZE)
1203 const_iv (ATNR_TURN_UNDEAD)
1204 const_iv (ATNR_FEAR)
1205 const_iv (ATNR_CANCELLATION)
1206 const_iv (ATNR_DEPLETE)
1207 const_iv (ATNR_DEATH)
1208 const_iv (ATNR_CHAOS)
1209 const_iv (ATNR_COUNTERSPELL)
1210 const_iv (ATNR_GODPOWER)
1211 const_iv (ATNR_HOLYWORD)
1212 const_iv (ATNR_BLIND)
1213 const_iv (ATNR_INTERNAL)
1214 const_iv (ATNR_LIFE_STEALING)
1215 const_iv (ATNR_DISEASE)
1216
1163 const_iv (MAP_FLUSH) 1217 const_iv (MAP_FLUSH)
1164 const_iv (MAP_PLAYER_UNIQUE) 1218 const_iv (MAP_PLAYER_UNIQUE)
1165 const_iv (MAP_BLOCK) 1219 const_iv (MAP_BLOCK)
1166 const_iv (MAP_STYLE) 1220 const_iv (MAP_STYLE)
1167 const_iv (MAP_OVERLAY) 1221 const_iv (MAP_OVERLAY)
… …
1214 const_event (REMOVE) 1268 const_event (REMOVE)
1215 const_event (SHOUT) 1269 const_event (SHOUT)
1216 const_event (TELL) 1270 const_event (TELL)
1217 const_event (MUZZLE) 1271 const_event (MUZZLE)
1218 const_event (KICK) 1272 const_event (KICK)
1273 const_event (PLAYER_USE_SKILL)
1274 const_event (MONSTER_USE_SKILL)
1275 const_event (CAST_SPELL)
1276 const_event (FIND_UNARMED_SKILL)
1219 const_event (EXTCMD) 1277 const_event (EXTCMD)
1220 //const_event (FREE_OB) 1278 //const_event (FREE_OB)
1221 }; 1279 };
1222 1280
1223 AV *av = get_av ("cf::EVENT", 1); 1281 AV *av = get_av ("cf::EVENT", 1);
… …
1378char * 1436char *
1379cf_get_maps_directory (char *path) 1437cf_get_maps_directory (char *path)
1380 PROTOTYPE: $ 1438 PROTOTYPE: $
1381 ALIAS: maps_directory = 0 1439 ALIAS: maps_directory = 0
1382 1440
1441void
1442sub_generation_inc ()
1443 CODE:
1444 PL_sub_generation++;
1445
1383char * 1446char *
1384mapdir () 1447mapdir ()
1385 PROTOTYPE: 1448 PROTOTYPE:
1386 ALIAS: 1449 ALIAS:
1387 mapdir = 0 1450 mapdir = 0
… …
1400 1463
1401int 1464int
1402cf_find_animation (char *text) 1465cf_find_animation (char *text)
1403 PROTOTYPE: $ 1466 PROTOTYPE: $
1404 1467
1468int random_roll(int min, int max, object *op, int goodbad);
1469
1470int
1471exp_to_level (val64 exp)
1472 CODE:
1473{
1474 int i = 0;
1475
1476 RETVAL = settings.max_level;
1477
1478 for (i = 1; i <= settings.max_level; i++)
1479 {
1480 if (levels[i] > exp)
1481 {
1482 RETVAL = i - 1;
1483 break;
1484 }
1485 }
1486}
1487 OUTPUT: RETVAL
1488
1489val64
1490level_to_min_exp (int level)
1491 CODE:
1492 if (level > settings.max_level)
1493 RETVAL = levels[settings.max_level];
1494 else if (level < 1)
1495 RETVAL = 0;
1496 else
1497 RETVAL = levels[level];
1498 OUTPUT: RETVAL
1499
1500SV *
1501resistance_to_string (int atnr)
1502 CODE:
1503 if (atnr >= 0 && atnr < NROFATTACKS)
1504 RETVAL = newSVpv (resist_plus[atnr], 0);
1505 else
1506 XSRETURN_UNDEF;
1507 OUTPUT: RETVAL
1508
1405MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1509MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1406 1510
1407SV * 1511SV *
1408get_property (object *obj, int type, int idx) 1512get_property (object *obj, int type, int idx)
1409 CODE: 1513 CODE:
… …
1417 { 1521 {
1418 case CFAPI_INT: 1522 case CFAPI_INT:
1419 cf_object_set_int_property (obj, idx, SvIV (newval)); 1523 cf_object_set_int_property (obj, idx, SvIV (newval));
1420 break; 1524 break;
1421 case CFAPI_LONG: 1525 case CFAPI_LONG:
1422 cf_object_set_long_property (obj, idx, SvNV (newval)); 1526 cf_object_set_long_property (obj, idx, SvVAL64 (newval));
1423 break; 1527 break;
1424 case CFAPI_DOUBLE: 1528 case CFAPI_DOUBLE:
1425 { 1529 {
1426 int unused_type; 1530 int unused_type;
1427 object_set_property (&unused_type, obj, idx, (double)SvNV (newval)); 1531 object_set_property (&unused_type, obj, idx, (double)SvNV (newval));
… …
1505 1609
1506object *cf_object_clone (object *op, int clonetype = 0) 1610object *cf_object_clone (object *op, int clonetype = 0)
1507 1611
1508int cf_object_pay_item (object *op, object *buyer) 1612int cf_object_pay_item (object *op, object *buyer)
1509 1613
1510int cf_object_pay_amount (object *op, double amount) 1614int cf_object_pay_amount (object *op, val64 amount)
1615
1616void pay_player (object *op, val64 amount)
1617
1618val64 pay_player_arch (object *op, const char *arch, val64 amount)
1511 1619
1512int cf_object_cast_spell (object *caster, object *ctoo, int dir, object *spell_ob, char *stringarg = 0) 1620int cf_object_cast_spell (object *caster, object *ctoo, int dir, object *spell_ob, char *stringarg = 0)
1513 1621
1514int cf_object_cast_ability (object *caster, object *ctoo, int dir, object *sp_, char *stringarg = 0) 1622int cf_object_cast_ability (object *caster, object *ctoo, int dir, object *sp_, char *stringarg = 0)
1515 1623
… …
1552 1660
1553void cf_object_pickup (object *op, object *what) 1661void cf_object_pickup (object *op, object *what)
1554 1662
1555object *cf_create_object_by_name (const char *name) 1663object *cf_create_object_by_name (const char *name)
1556 1664
1557void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0) 1665void change_exp (object *op, val64 exp, const char *skill_name = 0, int flag = 0)
1558
1559void pay_player (object *op, double amount)
1560
1561double pay_player_arch (object *op, const char *arch, double amount)
1562 1666
1563void player_lvl_adj (object *who, object *skill = 0) 1667void player_lvl_adj (object *who, object *skill = 0)
1564 1668
1565int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL) 1669int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1670
1671int calc_skill_exp (object *who, object *op, object *skill);
1672
1673void push_button (object *op);
1674
1675void use_trigger (object *op);
1676
1677void add_button_link (object *button, mapstruct *map, int connected);
1678
1679void remove_button_link (object *op);
1680
1681void
1682cf_object_set_resistance (object *op, int rtype, int val)
1683 CODE:
1684 if (rtype >= 0 && rtype < NROFATTACKS)
1685 op->resist[rtype] = val;
1686
1566 1687
1567MODULE = cf PACKAGE = cf::object PREFIX = cf_ 1688MODULE = cf PACKAGE = cf::object PREFIX = cf_
1568 1689
1569void cf_fix_object (object *pl) 1690void cf_fix_object (object *pl)
1570 ALIAS: fix = 0 1691 ALIAS: fix = 0
… …
1593const char *options (object *op) 1714const char *options (object *op)
1594 CODE: 1715 CODE:
1595 RETVAL = op->name; 1716 RETVAL = op->name;
1596 OUTPUT: 1717 OUTPUT:
1597 RETVAL 1718 RETVAL
1719
1720player *contr (object *op)
1721 CODE:
1722 RETVAL = op->contr;
1723 OUTPUT: RETVAL
1598 1724
1599const char *get_ob_key_value (object *op, const char *key) 1725const char *get_ob_key_value (object *op, const char *key)
1600 1726
1601bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1) 1727bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)
1602 1728
… …
1646 1772
1647void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 1773void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1648 1774
1649object *cf_player_send_inventory (object *op) 1775object *cf_player_send_inventory (object *op)
1650 1776
1651player *contr (object *op)
1652 CODE:
1653 RETVAL = op->contr;
1654 OUTPUT: RETVAL
1655
1656char *cf_player_get_ip (object *op) 1777char *cf_player_get_ip (object *op)
1657 ALIAS: ip = 0 1778 ALIAS: ip = 0
1658 1779
1659object *cf_player_get_marked_item (object *op) 1780object *cf_player_get_marked_item (object *op)
1660 ALIAS: marked_item = 0 1781 ALIAS: marked_item = 0
… …
1664partylist *cf_player_get_party (object *op) 1785partylist *cf_player_get_party (object *op)
1665 ALIAS: party = 0 1786 ALIAS: party = 0
1666 1787
1667void cf_player_set_party (object *op, partylist *party) 1788void cf_player_set_party (object *op, partylist *party)
1668 1789
1669void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0) 1790void change_skill (object *op, val64 exp, char *skill_name = 0, int flag = 0)
1670 1791
1671void kill_player (object *op) 1792void kill_player (object *op)
1672 1793
1673MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1794MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1674 1795
… …
2016 ALIAS: more = 0 2137 ALIAS: more = 0
2017 2138
2018const char *cf_archetype_get_name (archetype *arch) 2139const char *cf_archetype_get_name (archetype *arch)
2019 ALIAS: name = 0 2140 ALIAS: name = 0
2020 2141
2142object *cf_archetype_get_clone (archetype *arch)
2143 ALIAS: clone = 0
2144
2021MODULE = cf PACKAGE = cf::party PREFIX = cf_party_ 2145MODULE = cf PACKAGE = cf::party PREFIX = cf_party_
2022 2146
2023partylist *cf_party_get_first () 2147partylist *cf_party_get_first ()
2024 PROTOTYPE: 2148 PROTOTYPE:
2025 ALIAS: first = 0 2149 ALIAS: first = 0
… …
2061 ALIAS: message = 0 2185 ALIAS: message = 0
2062 2186
2063 2187
2064MODULE = cf PACKAGE = cf::living PREFIX = cf_living_ 2188MODULE = cf PACKAGE = cf::living PREFIX = cf_living_
2065 2189
2066double 2190val64
2067exp (living *liv, double new_val = 0.) 2191exp (living *liv, val64 new_val = 0)
2068 PROTOTYPE: $;$ 2192 PROTOTYPE: $;$
2069 ALIAS: 2193 ALIAS:
2070 Str = 1 2194 Str = 1
2071 Dex = 2 2195 Dex = 2
2072 Con = 3 2196 Con = 3

Diff Legend

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