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.52 by root, Tue May 9 17:48:28 2006 UTC vs.
Revision 1.59 by elmex, Sat Jul 15 11:57:02 2006 UTC

… …
45#include <plugin_common.h> 45#include <plugin_common.h>
46#include <sounds.h> 46#include <sounds.h>
47 47
48#include <stdarg.h> 48#include <stdarg.h>
49 49
50//#include "EventAPI.h"
50#include "perlxsi.c" 51#include "perlxsi.c"
52
53extern sint64 *levels; // the experience table
51 54
52typedef object object_ornull; 55typedef object object_ornull;
53typedef mapstruct mapstruct_ornull; 56typedef mapstruct mapstruct_ornull;
54 57
55static f_plug_api gethook; 58static f_plug_api gethook;
… …
84#define PUSH_OB PUSHcfapi_va(POBJECT, object *) 87#define PUSH_OB PUSHcfapi_va(POBJECT, object *)
85#define PUSH_PL PUSHcfapi_va(PPLAYER, player *) 88#define PUSH_PL PUSHcfapi_va(PPLAYER, player *)
86#define PUSH_MAP PUSHcfapi_va(PMAP, mapstruct *) 89#define PUSH_MAP PUSHcfapi_va(PMAP, mapstruct *)
87#define PUSH_PV PUSHcfapi_va(STRING, const char *) 90#define PUSH_PV PUSHcfapi_va(STRING, const char *)
88#define PUSH_IV PUSHs (sv_2mortal (newSViv (va_arg (args, int)))) 91#define PUSH_IV PUSHs (sv_2mortal (newSViv (va_arg (args, int))))
92
93extern void pay_player(object *op, uint64 amount);
94extern uint64 pay_player_arch(object *op, const char *arch, uint64 amount);
89 95
90////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 96//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
91 97
92// garbage collect some perl objects, if possible 98// garbage collect some perl objects, if possible
93// all objects no longer referenced and empty are 99// all objects no longer referenced and empty are
… …
408 414
409 /* Pick the global events you want to monitor from this plugin */ 415 /* Pick the global events you want to monitor from this plugin */
410 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener); 416 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);
411 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener); 417 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);
412 //registerGlobalEvent (NULL, EVENT_CRASH, PLUGIN_NAME, globalEventListener); 418 //registerGlobalEvent (NULL, EVENT_CRASH, PLUGIN_NAME, globalEventListener);
419 registerGlobalEvent (NULL, EVENT_FIND_UNARMED_SKILL, PLUGIN_NAME, globalEventListener);
420 registerGlobalEvent (NULL, EVENT_PLAYER_USE_SKILL, PLUGIN_NAME, globalEventListener);
421 registerGlobalEvent (NULL, EVENT_MONSTER_USE_SKILL, PLUGIN_NAME, globalEventListener);
413 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener); 422 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener);
414 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener); 423 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener);
415 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener); 424 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener);
416 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener); 425 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener);
417 registerGlobalEvent (NULL, EVENT_MAPENTER, PLUGIN_NAME, globalEventListener); 426 registerGlobalEvent (NULL, EVENT_MAPENTER, PLUGIN_NAME, globalEventListener);
… …
427 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener); 436 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
428 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener); 437 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
429 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener); 438 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
430 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener); 439 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener);
431 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener); 440 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener);
441 registerGlobalEvent (NULL, EVENT_EXTCMD, PLUGIN_NAME, globalEventListener);
432 442
433 char *argv[] = { 443 char *argv[] = {
434 "", 444 "",
435 "-e" 445 "-e"
436 "BEGIN {" 446 "BEGIN {"
… …
442 }; 452 };
443 453
444 perl = perl_alloc (); 454 perl = perl_alloc ();
445 perl_construct (perl); 455 perl_construct (perl);
446 456
457 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
458
447 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl)) 459 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl))
448 { 460 {
449 printf ("unable to initialize perl-interpreter, continuing without.\n"); 461 printf ("unable to initialize perl-interpreter, continuing without.\n");
450 462
451 perl_destruct (perl); 463 perl_destruct (perl);
… …
485 if (sv) 497 if (sv)
486 clearSVptr (sv); 498 clearSVptr (sv);
487 499
488 rv = 0; 500 rv = 0;
489 } 501 }
502 else if (event_code == EVENT_CLOCK)
503 {
504 dSP;
505 int i, count;
506
507 clean_obj_cache ();
508
509 ENTER;
510 SAVETMPS;
511
512 // service up to 8 events per tick better would be
513 // to check for elapsed time and stop processing after
514 // 0.25 * server_tick or so
515 for (i = 9; --i; )
516 {
517 PUSHMARK (SP);
518 XPUSHs (sv_2mortal (newSViv (0)));
519 PUTBACK;
520 count = call_pv ("Event::one_event", G_SCALAR | G_EVAL);
521 SPAGAIN;
522
523 if (!count || !POPi)
524 break;
525 }
526
527 FREETMPS;
528 LEAVE;
529 }
490 else 530 else
491 { 531 {
492 dSP; 532 dSP;
493 533
494 ENTER; 534 ENTER;
… …
542 case EVENT_KICK: 582 case EVENT_KICK:
543 PUSH_OB; 583 PUSH_OB;
544 PUSH_PV; 584 PUSH_PV;
545 break; 585 break;
546 586
587 case EVENT_FIND_UNARMED_SKILL:
588 PUSH_OB;
589 break;
590
591 case EVENT_PLAYER_USE_SKILL:
592 case EVENT_MONSTER_USE_SKILL:
593 PUSH_OB;
594 PUSH_OB;
595 PUSH_OB;
596 PUSH_IV;
597 PUSH_PV;
598 break;
599
547 case EVENT_CLOCK: 600 case EVENT_EXTCMD:
548 clean_obj_cache (); 601 PUSH_PL;
602 {
603 char *buf = va_arg (args, char *);
604 int len = va_arg (args, int);
605 PUSHs (sv_2mortal (newSVpvn (buf, len)));
606 }
549 break; 607 break;
550 608
551 case EVENT_TELL: 609 case EVENT_TELL:
552 break; 610 break;
553 } 611 }
… …
1117 const_iv (SOUND_CLOCK) 1175 const_iv (SOUND_CLOCK)
1118 const_iv (SOUND_TURN_HANDLE) 1176 const_iv (SOUND_TURN_HANDLE)
1119 const_iv (SOUND_FALL_HOLE) 1177 const_iv (SOUND_FALL_HOLE)
1120 const_iv (SOUND_DRINK_POISON) 1178 const_iv (SOUND_DRINK_POISON)
1121 const_iv (SOUND_CAST_SPELL_0) 1179 const_iv (SOUND_CAST_SPELL_0)
1180
1181 const_iv (PREFER_LOW)
1182 const_iv (PREFER_HIGH)
1183
1184 const_iv (ATNR_PHYSICAL)
1185 const_iv (ATNR_MAGIC)
1186 const_iv (ATNR_FIRE)
1187 const_iv (ATNR_ELECTRICITY)
1188 const_iv (ATNR_COLD)
1189 const_iv (ATNR_CONFUSION)
1190 const_iv (ATNR_ACID)
1191 const_iv (ATNR_DRAIN)
1192 const_iv (ATNR_WEAPONMAGIC)
1193 const_iv (ATNR_GHOSTHIT)
1194 const_iv (ATNR_POISON)
1195 const_iv (ATNR_SLOW)
1196 const_iv (ATNR_PARALYZE)
1197 const_iv (ATNR_TURN_UNDEAD)
1198 const_iv (ATNR_FEAR)
1199 const_iv (ATNR_CANCELLATION)
1200 const_iv (ATNR_DEPLETE)
1201 const_iv (ATNR_DEATH)
1202 const_iv (ATNR_CHAOS)
1203 const_iv (ATNR_COUNTERSPELL)
1204 const_iv (ATNR_GODPOWER)
1205 const_iv (ATNR_HOLYWORD)
1206 const_iv (ATNR_BLIND)
1207 const_iv (ATNR_INTERNAL)
1208 const_iv (ATNR_LIFE_STEALING)
1209 const_iv (ATNR_DISEASE)
1210
1211 const_iv (MAP_FLUSH)
1212 const_iv (MAP_PLAYER_UNIQUE)
1213 const_iv (MAP_BLOCK)
1214 const_iv (MAP_STYLE)
1215 const_iv (MAP_OVERLAY)
1216
1217 const_iv (MAP_IN_MEMORY)
1218 const_iv (MAP_SWAPPED)
1219 const_iv (MAP_LOADING)
1220 const_iv (MAP_SAVING)
1122 }; 1221 };
1123 1222
1124 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1223 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1125 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1224 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
1126 1225
… …
1143 const_event (CLOSE) 1242 const_event (CLOSE)
1144 const_event (TIMER) 1243 const_event (TIMER)
1145 const_event (MOVE) 1244 const_event (MOVE)
1146 1245
1147 const_event (BORN) 1246 const_event (BORN)
1148 const_event (CLOCK) 1247 //const_event (CLOCK)
1149 const_event (CRASH) 1248 const_event (CRASH)
1150 const_event (PLAYER_DEATH) 1249 const_event (PLAYER_DEATH)
1151 const_event (PLAYER_LOAD) 1250 const_event (PLAYER_LOAD)
1152 const_event (PLAYER_SAVE) 1251 const_event (PLAYER_SAVE)
1153 const_event (GKILL) 1252 const_event (GKILL)
… …
1163 const_event (REMOVE) 1262 const_event (REMOVE)
1164 const_event (SHOUT) 1263 const_event (SHOUT)
1165 const_event (TELL) 1264 const_event (TELL)
1166 const_event (MUZZLE) 1265 const_event (MUZZLE)
1167 const_event (KICK) 1266 const_event (KICK)
1267 const_event (PLAYER_USE_SKILL)
1268 const_event (MONSTER_USE_SKILL)
1269 const_event (FIND_UNARMED_SKILL)
1270 const_event (EXTCMD)
1168 //const_event (FREE_OB) 1271 //const_event (FREE_OB)
1169 }; 1272 };
1170 1273
1171 AV *av = get_av ("cf::EVENT", 1); 1274 AV *av = get_av ("cf::EVENT", 1);
1172 1275
… …
1306 for (cprop = prop_table + sizeof (prop_table) / sizeof (prop_table [0]); cprop-- > prop_table; ) 1409 for (cprop = prop_table + sizeof (prop_table) / sizeof (prop_table [0]); cprop-- > prop_table; )
1307 { 1410 {
1308 hv_store (prop_type, cprop->name, strlen (cprop->name), newSViv (cprop->dtype), 0); 1411 hv_store (prop_type, cprop->name, strlen (cprop->name), newSViv (cprop->dtype), 0);
1309 hv_store (prop_idx, cprop->name, strlen (cprop->name), newSViv (cprop->idx ), 0); 1412 hv_store (prop_idx, cprop->name, strlen (cprop->name), newSViv (cprop->idx ), 0);
1310 } 1413 }
1414
1415 //I_EVENT_API (PACKAGE);
1311} 1416}
1312 1417
1313void 1418void
1314LOG (int level, char *msg) 1419LOG (int level, char *msg)
1315 PROTOTYPE: $$ 1420 PROTOTYPE: $$
1316 C_ARGS: level, "%s", msg 1421 C_ARGS: level, "%s", msg
1422
1423char *path_combine (char *base, char *path)
1424 PROTOTYPE: $$
1425
1426char *path_combine_and_normalize (char *base, char *path)
1427 PROTOTYPE: $$
1317 1428
1318char * 1429char *
1319cf_get_maps_directory (char *path) 1430cf_get_maps_directory (char *path)
1320 PROTOTYPE: $ 1431 PROTOTYPE: $
1321 ALIAS: maps_directory = 0 1432 ALIAS: maps_directory = 0
… …
1339 OUTPUT: RETVAL 1450 OUTPUT: RETVAL
1340 1451
1341int 1452int
1342cf_find_animation (char *text) 1453cf_find_animation (char *text)
1343 PROTOTYPE: $ 1454 PROTOTYPE: $
1455
1456int random_roll(int min, int max, object *op, int goodbad);
1457
1458int
1459exp_to_level (double exp)
1460 CODE:
1461 int i = 0;
1462 RETVAL = 0;
1463 for (i = 1; i <= settings.max_level; i++)
1464 {
1465 if (levels[i] > exp)
1466 {
1467 RETVAL = i - 1;
1468 break;
1469 }
1470 }
1471 OUTPUT: RETVAL
1472
1473double
1474level_to_min_exp (int level)
1475 CODE:
1476 RETVAL = 0;
1477 if (level > settings.max_level)
1478 RETVAL = levels[settings.max_level];
1479 else if (level < 1)
1480 RETVAL = 0;
1481 else
1482 RETVAL = levels[level];
1483 OUTPUT: RETVAL
1484
1485SV *
1486resistance_to_string (int atnr)
1487 CODE:
1488 if (atnr >= 0 && atnr < NROFATTACKS)
1489 {
1490 RETVAL = newSVpv (resist_plus[atnr], 0);
1491 }
1492 else
1493 {
1494 XSRETURN_UNDEF;
1495 }
1496 OUTPUT: RETVAL
1344 1497
1345MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1498MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1346 1499
1347SV * 1500SV *
1348get_property (object *obj, int type, int idx) 1501get_property (object *obj, int type, int idx)
… …
1494 1647
1495object *cf_create_object_by_name (const char *name) 1648object *cf_create_object_by_name (const char *name)
1496 1649
1497void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0) 1650void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0)
1498 1651
1652void pay_player (object *op, double amount)
1653
1654double pay_player_arch (object *op, const char *arch, double amount)
1655
1499void player_lvl_adj (object *who, object *skill = 0) 1656void player_lvl_adj (object *who, object *skill = 0)
1500 1657
1501int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL) 1658int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1659
1660int calc_skill_exp (object *who, object *op, object *skill);
1661
1662char *cf_object_get_key (object *op, char *keyname)
1663 ALIAS: key = 0
1664
1665void cf_object_set_key (object *op, char *keyname, char *value)
1666
1667void
1668cf_object_set_resistance (object *op, int rtype, int val)
1669 CODE:
1670 if (rtype >= 0 && rtype < NROFATTACKS)
1671 op->resist[rtype] = val;
1672
1502 1673
1503MODULE = cf PACKAGE = cf::object PREFIX = cf_ 1674MODULE = cf PACKAGE = cf::object PREFIX = cf_
1504 1675
1505void cf_fix_object (object *pl) 1676void cf_fix_object (object *pl)
1506 ALIAS: fix = 0 1677 ALIAS: fix = 0
… …
1632 1803
1633player *next (player *pl) 1804player *next (player *pl)
1634 CODE: 1805 CODE:
1635 RETVAL = pl->next; 1806 RETVAL = pl->next;
1636 OUTPUT: RETVAL 1807 OUTPUT: RETVAL
1808
1809bool
1810cell_visible (player *pl, int dx, int dy)
1811 CODE:
1812 RETVAL = FABS (dx) <= pl->socket.mapx / 2 && FABS (dy) <= pl->socket.mapy / 2
1813 && !pl->blocked_los [dx + pl->socket.mapx / 2][dy + pl->socket.mapy / 2];
1814 OUTPUT:
1815 RETVAL
1816
1817void
1818send (player *pl, SV *packet)
1819 CODE:
1820{
1821 STRLEN len;
1822 char *buf = SvPVbyte (packet, len);
1823
1824 Write_String_To_Socket (&pl->socket, buf, len);
1825}
1637 1826
1638int 1827int
1639listening (player *pl, int new_value = -1) 1828listening (player *pl, int new_value = -1)
1640 CODE: 1829 CODE:
1641 RETVAL = pl->listening; 1830 RETVAL = pl->listening;
… …
1725 1914
1726void clean_tmp_map (mapstruct *map) 1915void clean_tmp_map (mapstruct *map)
1727 1916
1728void play_sound_map (mapstruct *map, int x, int y, int sound_num) 1917void play_sound_map (mapstruct *map, int x, int y, int sound_num)
1729 1918
1919mapstruct *tile_map (mapstruct *map, unsigned int dir)
1920 CODE:
1921 RETVAL = dir < 4 ? map->tile_map [dir] : 0;
1922 OUTPUT:
1923 RETVAL
1924
1925char *tile_path (mapstruct *map, unsigned int dir)
1926 CODE:
1927 if (dir >= 4)
1928 XSRETURN_UNDEF;
1929 RETVAL = map->tile_path [dir];
1930 OUTPUT:
1931 RETVAL
1932
1730mapstruct *cf_map_get_map (char *name) 1933mapstruct *cf_map_get_map (char *name)
1731 PROTOTYPE: $ 1934 PROTOTYPE: $
1732 ALIAS: map = 0 1935 ALIAS: map = 0
1733 1936
1937mapstruct *has_been_loaded (char *name)
1938 PROTOTYPE: $
1939
1734mapstruct *cf_map_get_first () 1940mapstruct *cf_map_get_first ()
1735 PROTOTYPE: 1941 PROTOTYPE:
1736 ALIAS: first = 0 1942 ALIAS: first = 0
1737 1943
1738# whoever "designed" the plug-in api should have wasted 1944# whoever "designed" the plug-in api should have wasted
1739# his/her time with staying away form the project - would have 1945# his/her time with staying away from the project - would have
1740# saved others a lot of time, without doubt. 1946# saved others a lot of time, without doubt.
1741void set_path (mapstruct *where, char *path) 1947void set_path (mapstruct *where, char *path)
1742 CODE: 1948 CODE:
1743 strcpy (where->path, path); 1949 strcpy (where->path, path);
1950
1951int in_memory (mapstruct *map)
1952 CODE:
1953 RETVAL = map->in_memory;
1954 OUTPUT:
1955 RETVAL
1744 1956
1745bool unique (mapstruct *map) 1957bool unique (mapstruct *map)
1746 CODE: 1958 CODE:
1747 RETVAL = map->unique; 1959 RETVAL = map->unique;
1748 OUTPUT: 1960 OUTPUT:
… …
1757object *cf_map_insert_object (mapstruct *where, object* op, int x, int y) 1969object *cf_map_insert_object (mapstruct *where, object* op, int x, int y)
1758 1970
1759object* cf_map_present_arch_by_name (mapstruct *map, const char* str, int nx, int ny) 1971object* cf_map_present_arch_by_name (mapstruct *map, const char* str, int nx, int ny)
1760 C_ARGS: str, map, nx, ny 1972 C_ARGS: str, map, nx, ny
1761 1973
1762#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 *nx, I16 *ny)
1763
1764void 1974void
1975cf_map_normalise (mapstruct *map, int x, int y)
1976 PPCODE:
1977{
1978 mapstruct *nmap = 0;
1979 I16 nx = 0, ny = 0;
1980 int flags = cf_map_get_flags (map, &nmap, x, y, &nx, &ny);
1981
1982 EXTEND (SP, 4);
1983 PUSHs (sv_2mortal (newSViv (flags)));
1984
1985 if (GIMME_V == G_ARRAY)
1986 {
1987 PUSHs (sv_2mortal (newSVcfapi (CFAPI_PMAP, nmap)));
1988 PUSHs (sv_2mortal (newSViv (nx)));
1989 PUSHs (sv_2mortal (newSViv (ny)));
1990 }
1991}
1992
1993void
1765at (mapstruct *obj, unsigned int x, unsigned int y) 1994at (mapstruct *map, unsigned int x, unsigned int y)
1766 PROTOTYPE: $$$ 1995 PROTOTYPE: $$$
1767 INIT:
1768 if (x >= MAP_WIDTH (obj) || y >= MAP_HEIGHT (obj)) XSRETURN_EMPTY;
1769 PPCODE: 1996 PPCODE:
1770{ 1997{
1771 object *o; 1998 object *o;
1772 1999 mapstruct *nmap = 0;
2000 I16 nx, ny;
2001
2002 cf_map_get_flags (map, &nmap, x, y, &nx, &ny);
2003
2004 if (nmap)
1773 for (o = GET_MAP_OB (obj, x, y); o; o = o->above) 2005 for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)
1774 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o))); 2006 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
1775} 2007}
1776 2008
1777SV * 2009SV *
1778bot_at (mapstruct *obj, unsigned int x, unsigned int y) 2010bot_at (mapstruct *obj, unsigned int x, unsigned int y)
1779 PROTOTYPE: $$$ 2011 PROTOTYPE: $$$

Diff Legend

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