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.55 by root, Mon Jun 26 15:40:15 2006 UTC vs.
Revision 1.66 by elmex, Sun Aug 13 17:16: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 <sproto.h>
51
52//#include "EventAPI.h"
50#include "perlxsi.c" 53#include "perlxsi.c"
54
55extern sint64 *levels; // the experience table
51 56
52typedef object object_ornull; 57typedef object object_ornull;
53typedef mapstruct mapstruct_ornull; 58typedef mapstruct mapstruct_ornull;
59
60typedef double val64;
61#define newSVval64 newSVnv
62#define SvVAL64 SvNV
54 63
55static f_plug_api gethook; 64static f_plug_api gethook;
56static f_plug_api registerGlobalEvent; 65static f_plug_api registerGlobalEvent;
57static f_plug_api unregisterGlobalEvent; 66static f_plug_api unregisterGlobalEvent;
58static f_plug_api systemDirectory; 67static f_plug_api systemDirectory;
… …
225 case CFAPI_INT: 234 case CFAPI_INT:
226 sv = newSViv (*va_arg (args, int *)); 235 sv = newSViv (*va_arg (args, int *));
227 break; 236 break;
228 237
229 case CFAPI_LONG: 238 case CFAPI_LONG:
230 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */ 239 sv = newSVval64 ((val64)*va_arg (args, sint64 *));
231 break; 240 break;
232 241
233 case CFAPI_DOUBLE: 242 case CFAPI_DOUBLE:
234 sv = newSVnv (*va_arg (args, double *)); 243 sv = newSVnv (*va_arg (args, double *));
235 break; 244 break;
… …
249 sv = &PL_sv_undef; 258 sv = &PL_sv_undef;
250 else 259 else
251 switch (obj->type) 260 switch (obj->type)
252 { 261 {
253 case MAP: 262 case MAP:
254 sv = newSVptr_cached (obj, "cf::object::map"); 263 sv = newSVptr_cached (obj, "cf::object::map::wrap");
255 break; 264 break;
256 265
257 case PLAYER: 266 case PLAYER:
258 sv = newSVptr_cached (obj, "cf::object::player"); 267 sv = newSVptr_cached (obj, "cf::object::player::wrap");
259 break; 268 break;
260 269
261 default: 270 default:
262 sv = newSVptr_cached (obj, "cf::object"); 271 sv = newSVptr_cached (obj, "cf::object::wrap");
263 break; 272 break;
264 } 273 }
265 } 274 }
266 break; 275 break;
267 276
268 case CFAPI_PMAP: 277 case CFAPI_PMAP:
269 sv = newSVptr (va_arg (args, mapstruct *), "cf::map"); 278 sv = newSVptr (va_arg (args, mapstruct *), "cf::map::wrap");
270 break; 279 break;
271 280
272 case CFAPI_PPLAYER: 281 case CFAPI_PPLAYER:
273 sv = newSVptr (va_arg (args, player *), "cf::player"); 282 sv = newSVptr (va_arg (args, player *), "cf::player::wrap");
274 break; 283 break;
275 284
276 case CFAPI_PARCH: 285 case CFAPI_PARCH:
277 sv = newSVptr (va_arg (args, archetype *), "cf::arch"); 286 sv = newSVptr (va_arg (args, archetype *), "cf::arch::wrap");
278 break; 287 break;
279 288
280 case CFAPI_PPARTY: 289 case CFAPI_PPARTY:
281 sv = newSVptr (va_arg (args, partylist *), "cf::party"); 290 sv = newSVptr (va_arg (args, partylist *), "cf::party::wrap");
282 break; 291 break;
283 292
284 case CFAPI_PREGION: 293 case CFAPI_PREGION:
285 sv = newSVptr (va_arg (args, region *), "cf::region"); 294 sv = newSVptr (va_arg (args, region *), "cf::region::wrap");
286 break; 295 break;
287 296
288 default: 297 default:
289 assert (("unhandled type in newSVcfapi", 0)); 298 assert (("unhandled type in newSVcfapi", 0));
290 } 299 }
… …
294 return sv; 303 return sv;
295} 304}
296 305
297///////////////////////////////////////////////////////////////////////////// 306/////////////////////////////////////////////////////////////////////////////
298 307
299int
300initPlugin (const char *iversion, f_plug_api gethooksptr) 308extern "C" int initPlugin (const char *iversion, f_plug_api gethooksptr)
301{ 309{
302 gethook = gethooksptr; 310 gethook = gethooksptr;
303 printf (PLUGIN_VERSION " init\n"); 311 printf (PLUGIN_VERSION " init\n");
304 312
305 return 0; 313 return 0;
… …
338 LEAVE; 346 LEAVE;
339 347
340 return returnvalue; 348 return returnvalue;
341} 349}
342 350
343void *
344getPluginProperty (int *type, ...) 351extern "C" void *getPluginProperty (int *type, ...)
345{ 352{
346 va_list args; 353 va_list args;
347 char *propname; 354 char *propname;
348 int i; 355 int i;
349 va_start (args, type); 356 va_start (args, type);
… …
372 } 379 }
373 } 380 }
374 else if (!strcmp (propname, "Identification")) 381 else if (!strcmp (propname, "Identification"))
375 { 382 {
376 va_end (args); 383 va_end (args);
377 return PLUGIN_NAME; 384 return (void*) PLUGIN_NAME;
378 } 385 }
379 else if (!strcmp (propname, "FullName")) 386 else if (!strcmp (propname, "FullName"))
380 { 387 {
381 va_end (args); 388 va_end (args);
382 return PLUGIN_VERSION; 389 return (void*) PLUGIN_VERSION;
383 } 390 }
384 else 391 else
385 va_end (args); 392 va_end (args);
386 393
387 return NULL; 394 return NULL;
388} 395}
389 396
390void *globalEventListener (int *type, ...); 397void *globalEventListener (int *type, ...);
391 398
392int 399extern "C" int postInitPlugin ()
393postInitPlugin ()
394{ 400{
395 int hooktype = 1; 401 int hooktype = 1;
396 int rtype = 0; 402 int rtype = 0;
397 403
398 printf (PLUGIN_VERSION " post init\n"); 404 printf (PLUGIN_VERSION " post init\n");
399 405
400 registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event"); 406 registerGlobalEvent = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_system_register_global_event");
401 unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event"); 407 unregisterGlobalEvent = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");
402 systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory"); 408 systemDirectory = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_system_directory");
403 object_set_property = gethook (&rtype, hooktype, "cfapi_object_set_property"); 409 object_set_property = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_object_set_property");
404 map_get_map = gethook (&rtype, hooktype, "cfapi_map_get_map"); 410 map_get_map = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_map_get_map");
405 object_insert = gethook (&rtype, hooktype, "cfapi_object_insert"); 411 object_insert = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_object_insert");
406 412
407 cf_init_plugin (gethook); 413 cf_init_plugin (gethook);
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_CAST_SPELL, PLUGIN_NAME, globalEventListener);
422 registerGlobalEvent (NULL, EVENT_MONSTER_USE_SKILL, PLUGIN_NAME, globalEventListener);
413 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener); 423 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener);
414 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener); 424 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener);
415 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener); 425 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener);
416 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener); 426 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener);
417 registerGlobalEvent (NULL, EVENT_MAPENTER, PLUGIN_NAME, globalEventListener); 427 registerGlobalEvent (NULL, EVENT_MAPENTER, PLUGIN_NAME, globalEventListener);
… …
469 va_list args; 479 va_list args;
470 static int rv; 480 static int rv;
471 int event_code; 481 int event_code;
472 482
473 if (!perl) 483 if (!perl)
474 return; 484 return NULL;
475 485
476 va_start (args, type); 486 va_start (args, type);
477 event_code = va_arg (args, int); 487 event_code = va_arg (args, int);
478 488
479 if (event_code == EVENT_FREE_OB) 489 if (event_code == EVENT_FREE_OB)
… …
487 497
488 if (sv) 498 if (sv)
489 clearSVptr (sv); 499 clearSVptr (sv);
490 500
491 rv = 0; 501 rv = 0;
502 }
503 else if (event_code == EVENT_CLOCK)
504 {
505 dSP;
506 int i, count;
507
508 clean_obj_cache ();
509
510 ENTER;
511 SAVETMPS;
512
513 // service up to 8 events per tick better would be
514 // to check for elapsed time and stop processing after
515 // 0.25 * server_tick or so
516 for (i = 9; --i; )
517 {
518 PUSHMARK (SP);
519 XPUSHs (sv_2mortal (newSViv (0)));
520 PUTBACK;
521 count = call_pv ("Event::one_event", G_SCALAR | G_EVAL);
522 SPAGAIN;
523
524 if (!count || !POPi)
525 break;
526 }
527
528 FREETMPS;
529 LEAVE;
492 } 530 }
493 else 531 else
494 { 532 {
495 dSP; 533 dSP;
496 534
… …
542 580
543 case EVENT_SHOUT: 581 case EVENT_SHOUT:
544 case EVENT_MUZZLE: 582 case EVENT_MUZZLE:
545 case EVENT_KICK: 583 case EVENT_KICK:
546 PUSH_OB; 584 PUSH_OB;
585 PUSH_PV;
586 break;
587
588 case EVENT_FIND_UNARMED_SKILL:
589 PUSH_OB;
590 break;
591
592 case EVENT_PLAYER_USE_SKILL:
593 case EVENT_MONSTER_USE_SKILL:
594 case EVENT_CAST_SPELL:
595 PUSH_OB;
596 PUSH_OB;
597 PUSH_OB;
598 PUSH_IV;
547 PUSH_PV; 599 PUSH_PV;
548 break; 600 break;
549 601
550 case EVENT_EXTCMD: 602 case EVENT_EXTCMD:
551 PUSH_PL; 603 PUSH_PL;
… …
554 int len = va_arg (args, int); 606 int len = va_arg (args, int);
555 PUSHs (sv_2mortal (newSVpvn (buf, len))); 607 PUSHs (sv_2mortal (newSVpvn (buf, len)));
556 } 608 }
557 break; 609 break;
558 610
559 case EVENT_CLOCK:
560 clean_obj_cache ();
561 break;
562
563 case EVENT_TELL: 611 case EVENT_TELL:
564 break; 612 break;
565 } 613 }
566 614
567 va_end (args); 615 va_end (args);
… …
581 } 629 }
582 630
583 return &rv; 631 return &rv;
584} 632}
585 633
586void *
587eventListener (int *type, ...) 634extern "C" void * eventListener (int *type, ...)
588{ 635{
589 static int rv; 636 static int rv;
590 va_list args; 637 va_list args;
591 int event_code; 638 int event_code;
592 object *who, *activator, *third, *event; 639 object *who, *activator, *third, *event;
593 char *message, *extension, *options; 640 char *message, *extension, *options;
594 641
595 if (!perl) 642 if (!perl)
596 return; 643 return NULL;
597 644
598 va_start (args, type); 645 va_start (args, type);
599 who = va_arg (args, object *); 646 who = va_arg (args, object *);
600 event_code = va_arg (args, int); 647 event_code = va_arg (args, int);
601 activator = va_arg (args, object *); 648 activator = va_arg (args, object *);
… …
674 } 721 }
675 722
676 return &rv; 723 return &rv;
677} 724}
678 725
679int 726extern "C" int closePlugin ()
680closePlugin ()
681{ 727{
682 printf (PLUGIN_VERSION " closing\n"); 728 printf (PLUGIN_VERSION " closing\n");
683 729
684 if (perl) 730 if (perl)
685 { 731 {
… …
1130 const_iv (SOUND_TURN_HANDLE) 1176 const_iv (SOUND_TURN_HANDLE)
1131 const_iv (SOUND_FALL_HOLE) 1177 const_iv (SOUND_FALL_HOLE)
1132 const_iv (SOUND_DRINK_POISON) 1178 const_iv (SOUND_DRINK_POISON)
1133 const_iv (SOUND_CAST_SPELL_0) 1179 const_iv (SOUND_CAST_SPELL_0)
1134 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
1135 const_iv (MAP_FLUSH) 1211 const_iv (MAP_FLUSH)
1136 const_iv (MAP_PLAYER_UNIQUE) 1212 const_iv (MAP_PLAYER_UNIQUE)
1137 const_iv (MAP_BLOCK) 1213 const_iv (MAP_BLOCK)
1138 const_iv (MAP_STYLE) 1214 const_iv (MAP_STYLE)
1139 const_iv (MAP_OVERLAY) 1215 const_iv (MAP_OVERLAY)
… …
1166 const_event (CLOSE) 1242 const_event (CLOSE)
1167 const_event (TIMER) 1243 const_event (TIMER)
1168 const_event (MOVE) 1244 const_event (MOVE)
1169 1245
1170 const_event (BORN) 1246 const_event (BORN)
1171 const_event (CLOCK) 1247 //const_event (CLOCK)
1172 const_event (CRASH) 1248 const_event (CRASH)
1173 const_event (PLAYER_DEATH) 1249 const_event (PLAYER_DEATH)
1174 const_event (PLAYER_LOAD) 1250 const_event (PLAYER_LOAD)
1175 const_event (PLAYER_SAVE) 1251 const_event (PLAYER_SAVE)
1176 const_event (GKILL) 1252 const_event (GKILL)
… …
1186 const_event (REMOVE) 1262 const_event (REMOVE)
1187 const_event (SHOUT) 1263 const_event (SHOUT)
1188 const_event (TELL) 1264 const_event (TELL)
1189 const_event (MUZZLE) 1265 const_event (MUZZLE)
1190 const_event (KICK) 1266 const_event (KICK)
1267 const_event (PLAYER_USE_SKILL)
1268 const_event (MONSTER_USE_SKILL)
1269 const_event (CAST_SPELL)
1270 const_event (FIND_UNARMED_SKILL)
1191 const_event (EXTCMD) 1271 const_event (EXTCMD)
1192 //const_event (FREE_OB) 1272 //const_event (FREE_OB)
1193 }; 1273 };
1194 1274
1195 AV *av = get_av ("cf::EVENT", 1); 1275 AV *av = get_av ("cf::EVENT", 1);
… …
1330 for (cprop = prop_table + sizeof (prop_table) / sizeof (prop_table [0]); cprop-- > prop_table; ) 1410 for (cprop = prop_table + sizeof (prop_table) / sizeof (prop_table [0]); cprop-- > prop_table; )
1331 { 1411 {
1332 hv_store (prop_type, cprop->name, strlen (cprop->name), newSViv (cprop->dtype), 0); 1412 hv_store (prop_type, cprop->name, strlen (cprop->name), newSViv (cprop->dtype), 0);
1333 hv_store (prop_idx, cprop->name, strlen (cprop->name), newSViv (cprop->idx ), 0); 1413 hv_store (prop_idx, cprop->name, strlen (cprop->name), newSViv (cprop->idx ), 0);
1334 } 1414 }
1415
1416 //I_EVENT_API (PACKAGE);
1335} 1417}
1336 1418
1337void 1419void
1338LOG (int level, char *msg) 1420LOG (int level, char *msg)
1339 PROTOTYPE: $$ 1421 PROTOTYPE: $$
1340 C_ARGS: level, "%s", msg 1422 C_ARGS: (LogLevel)level, "%s", msg
1341 1423
1342char *path_combine (char *base, char *path) 1424char *path_combine (char *base, char *path)
1343 PROTOTYPE: $$ 1425 PROTOTYPE: $$
1344 1426
1345char *path_combine_and_normalize (char *base, char *path) 1427char *path_combine_and_normalize (char *base, char *path)
… …
1347 1429
1348char * 1430char *
1349cf_get_maps_directory (char *path) 1431cf_get_maps_directory (char *path)
1350 PROTOTYPE: $ 1432 PROTOTYPE: $
1351 ALIAS: maps_directory = 0 1433 ALIAS: maps_directory = 0
1434
1435void
1436sub_generation_inc ()
1437 CODE:
1438 PL_sub_generation++;
1352 1439
1353char * 1440char *
1354mapdir () 1441mapdir ()
1355 PROTOTYPE: 1442 PROTOTYPE:
1356 ALIAS: 1443 ALIAS:
… …
1370 1457
1371int 1458int
1372cf_find_animation (char *text) 1459cf_find_animation (char *text)
1373 PROTOTYPE: $ 1460 PROTOTYPE: $
1374 1461
1462int random_roll(int min, int max, object *op, int goodbad);
1463
1464int
1465exp_to_level (val64 exp)
1466 CODE:
1467{
1468 int i = 0;
1469
1470 RETVAL = settings.max_level;
1471
1472 for (i = 1; i <= settings.max_level; i++)
1473 {
1474 if (levels[i] > exp)
1475 {
1476 RETVAL = i - 1;
1477 break;
1478 }
1479 }
1480}
1481 OUTPUT: RETVAL
1482
1483val64
1484level_to_min_exp (int level)
1485 CODE:
1486 if (level > settings.max_level)
1487 RETVAL = levels[settings.max_level];
1488 else if (level < 1)
1489 RETVAL = 0;
1490 else
1491 RETVAL = levels[level];
1492 OUTPUT: RETVAL
1493
1494SV *
1495resistance_to_string (int atnr)
1496 CODE:
1497 if (atnr >= 0 && atnr < NROFATTACKS)
1498 RETVAL = newSVpv (resist_plus[atnr], 0);
1499 else
1500 XSRETURN_UNDEF;
1501 OUTPUT: RETVAL
1502
1375MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1503MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1376 1504
1377SV * 1505SV *
1378get_property (object *obj, int type, int idx) 1506get_property (object *obj, int type, int idx)
1379 CODE: 1507 CODE:
… …
1387 { 1515 {
1388 case CFAPI_INT: 1516 case CFAPI_INT:
1389 cf_object_set_int_property (obj, idx, SvIV (newval)); 1517 cf_object_set_int_property (obj, idx, SvIV (newval));
1390 break; 1518 break;
1391 case CFAPI_LONG: 1519 case CFAPI_LONG:
1392 cf_object_set_long_property (obj, idx, SvNV (newval)); 1520 cf_object_set_long_property (obj, idx, (long) SvVAL64 (newval));
1393 break; 1521 break;
1394 case CFAPI_DOUBLE: 1522 case CFAPI_DOUBLE:
1395 { 1523 {
1396 int unused_type; 1524 int unused_type;
1397 object_set_property (&unused_type, obj, idx, (double)SvNV (newval)); 1525 object_set_property (&unused_type, obj, idx, (double)SvNV (newval));
… …
1475 1603
1476object *cf_object_clone (object *op, int clonetype = 0) 1604object *cf_object_clone (object *op, int clonetype = 0)
1477 1605
1478int cf_object_pay_item (object *op, object *buyer) 1606int cf_object_pay_item (object *op, object *buyer)
1479 1607
1480int cf_object_pay_amount (object *op, double amount) 1608int cf_object_pay_amount (object *op, uint64 amount)
1609
1610void pay_player (object *op, uint64 amount)
1611
1612val64 pay_player_arch (object *op, const char *arch, uint64 amount)
1481 1613
1482int cf_object_cast_spell (object *caster, object *ctoo, int dir, object *spell_ob, char *stringarg = 0) 1614int cf_object_cast_spell (object *caster, object *ctoo, int dir, object *spell_ob, char *stringarg = 0)
1483 1615
1484int cf_object_cast_ability (object *caster, object *ctoo, int dir, object *sp_, char *stringarg = 0) 1616int cf_object_cast_ability (object *caster, object *ctoo, int dir, object *sp_, char *stringarg = 0)
1485 1617
… …
1522 1654
1523void cf_object_pickup (object *op, object *what) 1655void cf_object_pickup (object *op, object *what)
1524 1656
1525object *cf_create_object_by_name (const char *name) 1657object *cf_create_object_by_name (const char *name)
1526 1658
1527void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0) 1659void change_exp (object *op, uint64 exp, const char *skill_name = 0, int flag = 0)
1528 1660
1529void player_lvl_adj (object *who, object *skill = 0) 1661void player_lvl_adj (object *who, object *skill = 0)
1530 1662
1531int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL) 1663int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1664
1665int calc_skill_exp (object *who, object *op, object *skill);
1666
1667void push_button (object *op);
1668
1669void use_trigger (object *op);
1670
1671void add_button_link (object *button, mapstruct *map, int connected);
1672
1673void remove_button_link (object *op);
1674
1675void
1676cf_object_set_resistance (object *op, int rtype, int val)
1677 CODE:
1678 if (rtype >= 0 && rtype < NROFATTACKS)
1679 op->resist[rtype] = val;
1680
1532 1681
1533MODULE = cf PACKAGE = cf::object PREFIX = cf_ 1682MODULE = cf PACKAGE = cf::object PREFIX = cf_
1534 1683
1535void cf_fix_object (object *pl) 1684void cf_fix_object (object *pl)
1536 ALIAS: fix = 0 1685 ALIAS: fix = 0
… …
1559const char *options (object *op) 1708const char *options (object *op)
1560 CODE: 1709 CODE:
1561 RETVAL = op->name; 1710 RETVAL = op->name;
1562 OUTPUT: 1711 OUTPUT:
1563 RETVAL 1712 RETVAL
1713
1714player *contr (object *op)
1715 CODE:
1716 RETVAL = op->contr;
1717 OUTPUT: RETVAL
1564 1718
1565const char *get_ob_key_value (object *op, const char *key) 1719const char *get_ob_key_value (object *op, const char *key)
1566 1720
1567bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1) 1721bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)
1568 1722
… …
1612 1766
1613void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 1767void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1614 1768
1615object *cf_player_send_inventory (object *op) 1769object *cf_player_send_inventory (object *op)
1616 1770
1617player *contr (object *op)
1618 CODE:
1619 RETVAL = op->contr;
1620 OUTPUT: RETVAL
1621
1622char *cf_player_get_ip (object *op) 1771char *cf_player_get_ip (object *op)
1623 ALIAS: ip = 0 1772 ALIAS: ip = 0
1624 1773
1625object *cf_player_get_marked_item (object *op) 1774object *cf_player_get_marked_item (object *op)
1626 ALIAS: marked_item = 0 1775 ALIAS: marked_item = 0
… …
1629 1778
1630partylist *cf_player_get_party (object *op) 1779partylist *cf_player_get_party (object *op)
1631 ALIAS: party = 0 1780 ALIAS: party = 0
1632 1781
1633void cf_player_set_party (object *op, partylist *party) 1782void cf_player_set_party (object *op, partylist *party)
1634
1635void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0)
1636 1783
1637void kill_player (object *op) 1784void kill_player (object *op)
1638 1785
1639MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1786MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1640 1787
… …
1762mapstruct *new (int width, int height) 1909mapstruct *new (int width, int height)
1763 PROTOTYPE: 1910 PROTOTYPE:
1764 CODE: 1911 CODE:
1765{ 1912{
1766 int unused_type; 1913 int unused_type;
1767 RETVAL = map_get_map (&unused_type, 0, width, height); 1914 RETVAL = (mapstruct*) map_get_map (&unused_type, 0, width, height);
1768} 1915}
1769 OUTPUT: 1916 OUTPUT:
1770 RETVAL 1917 RETVAL
1771 1918
1772void delete_map (mapstruct *map) 1919void delete_map (mapstruct *map)
1773 1920
1774void clean_tmp_map (mapstruct *map) 1921void clean_tmp_map (mapstruct *map)
1775 1922
1776void play_sound_map (mapstruct *map, int x, int y, int sound_num) 1923void play_sound_map (mapstruct *map, int x, int y, int sound_num)
1924
1925mapstruct *tile_map (mapstruct *map, unsigned int dir)
1926 CODE:
1927 RETVAL = dir < 4 ? map->tile_map [dir] : 0;
1928 OUTPUT:
1929 RETVAL
1930
1931char *tile_path (mapstruct *map, unsigned int dir)
1932 CODE:
1933 if (dir >= 4)
1934 XSRETURN_UNDEF;
1935 RETVAL = map->tile_path [dir];
1936 OUTPUT:
1937 RETVAL
1777 1938
1778mapstruct *cf_map_get_map (char *name) 1939mapstruct *cf_map_get_map (char *name)
1779 PROTOTYPE: $ 1940 PROTOTYPE: $
1780 ALIAS: map = 0 1941 ALIAS: map = 0
1781 1942
… …
1968 ALIAS: more = 0 2129 ALIAS: more = 0
1969 2130
1970const char *cf_archetype_get_name (archetype *arch) 2131const char *cf_archetype_get_name (archetype *arch)
1971 ALIAS: name = 0 2132 ALIAS: name = 0
1972 2133
2134object *cf_archetype_get_clone (archetype *arch)
2135 ALIAS: clone = 0
2136
1973MODULE = cf PACKAGE = cf::party PREFIX = cf_party_ 2137MODULE = cf PACKAGE = cf::party PREFIX = cf_party_
1974 2138
1975partylist *cf_party_get_first () 2139partylist *cf_party_get_first ()
1976 PROTOTYPE: 2140 PROTOTYPE:
1977 ALIAS: first = 0 2141 ALIAS: first = 0
… …
2013 ALIAS: message = 0 2177 ALIAS: message = 0
2014 2178
2015 2179
2016MODULE = cf PACKAGE = cf::living PREFIX = cf_living_ 2180MODULE = cf PACKAGE = cf::living PREFIX = cf_living_
2017 2181
2018double 2182val64
2019exp (living *liv, double new_val = 0.) 2183exp (living *liv, val64 new_val = 0)
2020 PROTOTYPE: $;$ 2184 PROTOTYPE: $;$
2021 ALIAS: 2185 ALIAS:
2022 Str = 1 2186 Str = 1
2023 Dex = 2 2187 Dex = 2
2024 Con = 3 2188 Con = 3
… …
2036 maxgrace = 15 2200 maxgrace = 15
2037 food = 16 2201 food = 16
2038 dam = 17 2202 dam = 17
2039 luck = 18 2203 luck = 18
2040 CODE: 2204 CODE:
2041# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = new_val; break 2205# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = (sint64)new_val; break
2042 switch (ix) 2206 switch (ix)
2043 { 2207 {
2044 LIVING_ACC (exp , 0); 2208 LIVING_ACC (exp , 0);
2045 LIVING_ACC (Str , 1); 2209 LIVING_ACC (Str , 1);
2046 LIVING_ACC (Dex , 2); 2210 LIVING_ACC (Dex , 2);

Diff Legend

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