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.67 by elmex, Mon Aug 14 04:22:05 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
50//#include "EventAPI.h" 52//#include "EventAPI.h"
51#include "perlxsi.c" 53#include "perlxsi.c"
52 54
55extern sint64 *levels; // the experience table
56
53typedef object object_ornull; 57typedef object object_ornull;
54typedef mapstruct mapstruct_ornull; 58typedef mapstruct mapstruct_ornull;
59
60typedef double val64;
61#define newSVval64 newSVnv
62#define SvVAL64 SvNV
55 63
56static f_plug_api gethook; 64static f_plug_api gethook;
57static f_plug_api registerGlobalEvent; 65static f_plug_api registerGlobalEvent;
58static f_plug_api unregisterGlobalEvent; 66static f_plug_api unregisterGlobalEvent;
59static f_plug_api systemDirectory; 67static f_plug_api systemDirectory;
… …
86#define PUSH_PL PUSHcfapi_va(PPLAYER, player *) 94#define PUSH_PL PUSHcfapi_va(PPLAYER, player *)
87#define PUSH_MAP PUSHcfapi_va(PMAP, mapstruct *) 95#define PUSH_MAP PUSHcfapi_va(PMAP, mapstruct *)
88#define PUSH_PV PUSHcfapi_va(STRING, const char *) 96#define PUSH_PV PUSHcfapi_va(STRING, const char *)
89#define PUSH_IV PUSHs (sv_2mortal (newSViv (va_arg (args, int)))) 97#define PUSH_IV PUSHs (sv_2mortal (newSViv (va_arg (args, int))))
90 98
91extern void pay_player(object *op, uint64 amount);
92extern uint64 pay_player_arch(object *op, const char *arch, uint64 amount);
93
94////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 99//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
95 100
96// garbage collect some perl objects, if possible 101// garbage collect some perl objects, if possible
97// all objects no longer referenced and empty are 102// all objects no longer referenced and empty are
98// eligible for destruction. 103// eligible for destruction.
… …
229 case CFAPI_INT: 234 case CFAPI_INT:
230 sv = newSViv (*va_arg (args, int *)); 235 sv = newSViv (*va_arg (args, int *));
231 break; 236 break;
232 237
233 case CFAPI_LONG: 238 case CFAPI_LONG:
234 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */ 239 sv = newSVval64 ((val64)*va_arg (args, sint64 *));
235 break; 240 break;
236 241
237 case CFAPI_DOUBLE: 242 case CFAPI_DOUBLE:
238 sv = newSVnv (*va_arg (args, double *)); 243 sv = newSVnv (*va_arg (args, double *));
239 break; 244 break;
… …
253 sv = &PL_sv_undef; 258 sv = &PL_sv_undef;
254 else 259 else
255 switch (obj->type) 260 switch (obj->type)
256 { 261 {
257 case MAP: 262 case MAP:
258 sv = newSVptr_cached (obj, "cf::object::map"); 263 sv = newSVptr_cached (obj, "cf::object::map::wrap");
259 break; 264 break;
260 265
261 case PLAYER: 266 case PLAYER:
262 sv = newSVptr_cached (obj, "cf::object::player"); 267 sv = newSVptr_cached (obj, "cf::object::player::wrap");
263 break; 268 break;
264 269
265 default: 270 default:
266 sv = newSVptr_cached (obj, "cf::object"); 271 sv = newSVptr_cached (obj, "cf::object::wrap");
267 break; 272 break;
268 } 273 }
269 } 274 }
270 break; 275 break;
271 276
272 case CFAPI_PMAP: 277 case CFAPI_PMAP:
273 sv = newSVptr (va_arg (args, mapstruct *), "cf::map"); 278 sv = newSVptr (va_arg (args, mapstruct *), "cf::map::wrap");
274 break; 279 break;
275 280
276 case CFAPI_PPLAYER: 281 case CFAPI_PPLAYER:
277 sv = newSVptr (va_arg (args, player *), "cf::player"); 282 sv = newSVptr (va_arg (args, player *), "cf::player::wrap");
278 break; 283 break;
279 284
280 case CFAPI_PARCH: 285 case CFAPI_PARCH:
281 sv = newSVptr (va_arg (args, archetype *), "cf::arch"); 286 sv = newSVptr (va_arg (args, archetype *), "cf::arch::wrap");
282 break; 287 break;
283 288
284 case CFAPI_PPARTY: 289 case CFAPI_PPARTY:
285 sv = newSVptr (va_arg (args, partylist *), "cf::party"); 290 sv = newSVptr (va_arg (args, partylist *), "cf::party::wrap");
286 break; 291 break;
287 292
288 case CFAPI_PREGION: 293 case CFAPI_PREGION:
289 sv = newSVptr (va_arg (args, region *), "cf::region"); 294 sv = newSVptr (va_arg (args, region *), "cf::region::wrap");
290 break; 295 break;
291 296
292 default: 297 default:
293 assert (("unhandled type in newSVcfapi", 0)); 298 assert (("unhandled type in newSVcfapi", 0));
294 } 299 }
… …
298 return sv; 303 return sv;
299} 304}
300 305
301///////////////////////////////////////////////////////////////////////////// 306/////////////////////////////////////////////////////////////////////////////
302 307
303int
304initPlugin (const char *iversion, f_plug_api gethooksptr) 308extern "C" int initPlugin (const char *iversion, f_plug_api gethooksptr)
305{ 309{
306 gethook = gethooksptr; 310 gethook = gethooksptr;
307 printf (PLUGIN_VERSION " init\n"); 311 printf (PLUGIN_VERSION " init\n");
308 312
309 return 0; 313 return 0;
… …
342 LEAVE; 346 LEAVE;
343 347
344 return returnvalue; 348 return returnvalue;
345} 349}
346 350
347void *
348getPluginProperty (int *type, ...) 351extern "C" void *getPluginProperty (int *type, ...)
349{ 352{
350 va_list args; 353 va_list args;
351 char *propname; 354 char *propname;
352 int i; 355 int i;
353 va_start (args, type); 356 va_start (args, type);
… …
376 } 379 }
377 } 380 }
378 else if (!strcmp (propname, "Identification")) 381 else if (!strcmp (propname, "Identification"))
379 { 382 {
380 va_end (args); 383 va_end (args);
381 return PLUGIN_NAME; 384 return (void*) PLUGIN_NAME;
382 } 385 }
383 else if (!strcmp (propname, "FullName")) 386 else if (!strcmp (propname, "FullName"))
384 { 387 {
385 va_end (args); 388 va_end (args);
386 return PLUGIN_VERSION; 389 return (void*) PLUGIN_VERSION;
387 } 390 }
388 else 391 else
389 va_end (args); 392 va_end (args);
390 393
391 return NULL; 394 return NULL;
392} 395}
393 396
394void *globalEventListener (int *type, ...); 397void *globalEventListener (int *type, ...);
395 398
396int 399extern "C" int postInitPlugin ()
397postInitPlugin ()
398{ 400{
399 int hooktype = 1; 401 int hooktype = 1;
400 int rtype = 0; 402 int rtype = 0;
401 403
402 printf (PLUGIN_VERSION " post init\n"); 404 printf (PLUGIN_VERSION " post init\n");
403 405
404 registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event"); 406 registerGlobalEvent = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_system_register_global_event");
405 unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event"); 407 unregisterGlobalEvent = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");
406 systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory"); 408 systemDirectory = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_system_directory");
407 object_set_property = gethook (&rtype, hooktype, "cfapi_object_set_property"); 409 object_set_property = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_object_set_property");
408 map_get_map = gethook (&rtype, hooktype, "cfapi_map_get_map"); 410 map_get_map = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_map_get_map");
409 object_insert = gethook (&rtype, hooktype, "cfapi_object_insert"); 411 object_insert = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_object_insert");
410 412
411 cf_init_plugin (gethook); 413 cf_init_plugin (gethook);
412 414
413 /* Pick the global events you want to monitor from this plugin */ 415 /* Pick the global events you want to monitor from this plugin */
414 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener); 416 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);
415 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener); 417 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);
416 //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);
417 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener); 423 registerGlobalEvent (NULL, EVENT_PLAYER_DEATH, PLUGIN_NAME, globalEventListener);
418 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener); 424 registerGlobalEvent (NULL, EVENT_GKILL, PLUGIN_NAME, globalEventListener);
419 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener); 425 registerGlobalEvent (NULL, EVENT_LOGIN, PLUGIN_NAME, globalEventListener);
420 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener); 426 registerGlobalEvent (NULL, EVENT_LOGOUT, PLUGIN_NAME, globalEventListener);
421 registerGlobalEvent (NULL, EVENT_MAPENTER, PLUGIN_NAME, globalEventListener); 427 registerGlobalEvent (NULL, EVENT_MAPENTER, PLUGIN_NAME, globalEventListener);
… …
473 va_list args; 479 va_list args;
474 static int rv; 480 static int rv;
475 int event_code; 481 int event_code;
476 482
477 if (!perl) 483 if (!perl)
478 return; 484 return NULL;
479 485
480 va_start (args, type); 486 va_start (args, type);
481 event_code = va_arg (args, int); 487 event_code = va_arg (args, int);
482 488
483 if (event_code == EVENT_FREE_OB) 489 if (event_code == EVENT_FREE_OB)
… …
577 case EVENT_KICK: 583 case EVENT_KICK:
578 PUSH_OB; 584 PUSH_OB;
579 PUSH_PV; 585 PUSH_PV;
580 break; 586 break;
581 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;
599 PUSH_PV;
600 break;
601
582 case EVENT_EXTCMD: 602 case EVENT_EXTCMD:
583 PUSH_PL; 603 PUSH_PL;
584 { 604 {
585 char *buf = va_arg (args, char *); 605 char *buf = va_arg (args, char *);
586 int len = va_arg (args, int); 606 int len = va_arg (args, int);
… …
609 } 629 }
610 630
611 return &rv; 631 return &rv;
612} 632}
613 633
614void *
615eventListener (int *type, ...) 634extern "C" void * eventListener (int *type, ...)
616{ 635{
617 static int rv; 636 static int rv;
618 va_list args; 637 va_list args;
619 int event_code; 638 int event_code;
620 object *who, *activator, *third, *event; 639 object *who, *activator, *third, *event;
621 char *message, *extension, *options; 640 char *message, *extension, *options;
622 641
623 if (!perl) 642 if (!perl)
624 return; 643 return NULL;
625 644
626 va_start (args, type); 645 va_start (args, type);
627 who = va_arg (args, object *); 646 who = va_arg (args, object *);
628 event_code = va_arg (args, int); 647 event_code = va_arg (args, int);
629 activator = va_arg (args, object *); 648 activator = va_arg (args, object *);
… …
655 case EVENT_STOP: // $ob (e.g. arrow) 674 case EVENT_STOP: // $ob (e.g. arrow)
656 case EVENT_TIME: // $ob 675 case EVENT_TIME: // $ob
657 case EVENT_TIMER: // $ob 676 case EVENT_TIMER: // $ob
658 break; 677 break;
659 678
660 case EVENT_APPLY: // $ob, $who 679 case EVENT_APPLY: // $ob, $who
661 case EVENT_DROP: // $ob, $who 680 case EVENT_DROP: // $ob, $who
662 case EVENT_CLOSE: // $ob, $who 681 case EVENT_CLOSE: // $ob, $who
663 case EVENT_DEATH: // $ob[, $killer] 682 case EVENT_DEATH: // $ob[, $killer]
664 case EVENT_MOVE: // $ob, $enemy 683 case EVENT_MOVE: // $ob, $enemy
665 case EVENT_THROW: // $ob, $thrower 684 case EVENT_THROW: // $ob, $thrower
666 PUSHcfapi (POBJECT, activator); 685 PUSHcfapi (POBJECT, activator);
667 break; 686 break;
668 687
688 case EVENT_DROP_ON: // $ob, $who, $what
669 case EVENT_ATTACK: // $ob, $who, $victim (?? please god enlighten me) 689 case EVENT_ATTACK: // $ob, $who, $victim (?? please god enlighten me)
670 PUSHcfapi (POBJECT, activator); 690 PUSHcfapi (POBJECT, activator);
671 PUSHcfapi (POBJECT, third); 691 PUSHcfapi (POBJECT, third);
672 break; 692 break;
673 693
… …
702 } 722 }
703 723
704 return &rv; 724 return &rv;
705} 725}
706 726
707int 727extern "C" int closePlugin ()
708closePlugin ()
709{ 728{
710 printf (PLUGIN_VERSION " closing\n"); 729 printf (PLUGIN_VERSION " closing\n");
711 730
712 if (perl) 731 if (perl)
713 { 732 {
… …
1041 const_iv (F_DAMNED) 1060 const_iv (F_DAMNED)
1042 const_iv (F_OPEN) 1061 const_iv (F_OPEN)
1043 const_iv (F_NOPICK) 1062 const_iv (F_NOPICK)
1044 const_iv (F_LOCKED) 1063 const_iv (F_LOCKED)
1045 1064
1065 const_iv (F_BUY)
1066 const_iv (F_SHOP)
1067 const_iv (F_SELL)
1068
1046 const_iv (P_BLOCKSVIEW) 1069 const_iv (P_BLOCKSVIEW)
1047 const_iv (P_NO_MAGIC) 1070 const_iv (P_NO_MAGIC)
1048 const_iv (P_IS_ALIVE) 1071 const_iv (P_IS_ALIVE)
1049 const_iv (P_NO_CLERIC) 1072 const_iv (P_NO_CLERIC)
1050 const_iv (P_NEED_UPDATE) 1073 const_iv (P_NEED_UPDATE)
… …
1158 const_iv (SOUND_TURN_HANDLE) 1181 const_iv (SOUND_TURN_HANDLE)
1159 const_iv (SOUND_FALL_HOLE) 1182 const_iv (SOUND_FALL_HOLE)
1160 const_iv (SOUND_DRINK_POISON) 1183 const_iv (SOUND_DRINK_POISON)
1161 const_iv (SOUND_CAST_SPELL_0) 1184 const_iv (SOUND_CAST_SPELL_0)
1162 1185
1186 const_iv (PREFER_LOW)
1187 const_iv (PREFER_HIGH)
1188
1189 const_iv (ATNR_PHYSICAL)
1190 const_iv (ATNR_MAGIC)
1191 const_iv (ATNR_FIRE)
1192 const_iv (ATNR_ELECTRICITY)
1193 const_iv (ATNR_COLD)
1194 const_iv (ATNR_CONFUSION)
1195 const_iv (ATNR_ACID)
1196 const_iv (ATNR_DRAIN)
1197 const_iv (ATNR_WEAPONMAGIC)
1198 const_iv (ATNR_GHOSTHIT)
1199 const_iv (ATNR_POISON)
1200 const_iv (ATNR_SLOW)
1201 const_iv (ATNR_PARALYZE)
1202 const_iv (ATNR_TURN_UNDEAD)
1203 const_iv (ATNR_FEAR)
1204 const_iv (ATNR_CANCELLATION)
1205 const_iv (ATNR_DEPLETE)
1206 const_iv (ATNR_DEATH)
1207 const_iv (ATNR_CHAOS)
1208 const_iv (ATNR_COUNTERSPELL)
1209 const_iv (ATNR_GODPOWER)
1210 const_iv (ATNR_HOLYWORD)
1211 const_iv (ATNR_BLIND)
1212 const_iv (ATNR_INTERNAL)
1213 const_iv (ATNR_LIFE_STEALING)
1214 const_iv (ATNR_DISEASE)
1215
1163 const_iv (MAP_FLUSH) 1216 const_iv (MAP_FLUSH)
1164 const_iv (MAP_PLAYER_UNIQUE) 1217 const_iv (MAP_PLAYER_UNIQUE)
1165 const_iv (MAP_BLOCK) 1218 const_iv (MAP_BLOCK)
1166 const_iv (MAP_STYLE) 1219 const_iv (MAP_STYLE)
1167 const_iv (MAP_OVERLAY) 1220 const_iv (MAP_OVERLAY)
… …
1183 const_event (NONE) 1236 const_event (NONE)
1184 const_event (APPLY) 1237 const_event (APPLY)
1185 const_event (ATTACK) 1238 const_event (ATTACK)
1186 const_event (DEATH) 1239 const_event (DEATH)
1187 const_event (DROP) 1240 const_event (DROP)
1241 const_event (DROP_ON)
1188 const_event (PICKUP) 1242 const_event (PICKUP)
1189 const_event (SAY) 1243 const_event (SAY)
1190 const_event (STOP) 1244 const_event (STOP)
1191 const_event (TIME) 1245 const_event (TIME)
1192 const_event (THROW) 1246 const_event (THROW)
… …
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);
… …
1362 } 1420 }
1363 1421
1364 //I_EVENT_API (PACKAGE); 1422 //I_EVENT_API (PACKAGE);
1365} 1423}
1366 1424
1425NV floor (NV x)
1426
1427NV ceil (NV x)
1428
1367void 1429void
1368LOG (int level, char *msg) 1430LOG (int level, char *msg)
1369 PROTOTYPE: $$ 1431 PROTOTYPE: $$
1370 C_ARGS: level, "%s", msg 1432 C_ARGS: (LogLevel)level, "%s", msg
1371 1433
1372char *path_combine (char *base, char *path) 1434char *path_combine (char *base, char *path)
1373 PROTOTYPE: $$ 1435 PROTOTYPE: $$
1374 1436
1375char *path_combine_and_normalize (char *base, char *path) 1437char *path_combine_and_normalize (char *base, char *path)
… …
1377 1439
1378char * 1440char *
1379cf_get_maps_directory (char *path) 1441cf_get_maps_directory (char *path)
1380 PROTOTYPE: $ 1442 PROTOTYPE: $
1381 ALIAS: maps_directory = 0 1443 ALIAS: maps_directory = 0
1444
1445void
1446sub_generation_inc ()
1447 CODE:
1448 PL_sub_generation++;
1382 1449
1383char * 1450char *
1384mapdir () 1451mapdir ()
1385 PROTOTYPE: 1452 PROTOTYPE:
1386 ALIAS: 1453 ALIAS:
… …
1400 1467
1401int 1468int
1402cf_find_animation (char *text) 1469cf_find_animation (char *text)
1403 PROTOTYPE: $ 1470 PROTOTYPE: $
1404 1471
1472int random_roll(int min, int max, object *op, int goodbad);
1473
1474int
1475exp_to_level (val64 exp)
1476 CODE:
1477{
1478 int i = 0;
1479
1480 RETVAL = settings.max_level;
1481
1482 for (i = 1; i <= settings.max_level; i++)
1483 {
1484 if (levels[i] > exp)
1485 {
1486 RETVAL = i - 1;
1487 break;
1488 }
1489 }
1490}
1491 OUTPUT: RETVAL
1492
1493val64
1494level_to_min_exp (int level)
1495 CODE:
1496 if (level > settings.max_level)
1497 RETVAL = levels[settings.max_level];
1498 else if (level < 1)
1499 RETVAL = 0;
1500 else
1501 RETVAL = levels[level];
1502 OUTPUT: RETVAL
1503
1504SV *
1505resistance_to_string (int atnr)
1506 CODE:
1507 if (atnr >= 0 && atnr < NROFATTACKS)
1508 RETVAL = newSVpv (resist_plus[atnr], 0);
1509 else
1510 XSRETURN_UNDEF;
1511 OUTPUT: RETVAL
1512
1405MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1513MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1406 1514
1407SV * 1515SV *
1408get_property (object *obj, int type, int idx) 1516get_property (object *obj, int type, int idx)
1409 CODE: 1517 CODE:
… …
1417 { 1525 {
1418 case CFAPI_INT: 1526 case CFAPI_INT:
1419 cf_object_set_int_property (obj, idx, SvIV (newval)); 1527 cf_object_set_int_property (obj, idx, SvIV (newval));
1420 break; 1528 break;
1421 case CFAPI_LONG: 1529 case CFAPI_LONG:
1422 cf_object_set_long_property (obj, idx, SvNV (newval)); 1530 cf_object_set_long_property (obj, idx, (long) SvVAL64 (newval));
1423 break; 1531 break;
1424 case CFAPI_DOUBLE: 1532 case CFAPI_DOUBLE:
1425 { 1533 {
1426 int unused_type; 1534 int unused_type;
1427 object_set_property (&unused_type, obj, idx, (double)SvNV (newval)); 1535 object_set_property (&unused_type, obj, idx, (double)SvNV (newval));
… …
1505 1613
1506object *cf_object_clone (object *op, int clonetype = 0) 1614object *cf_object_clone (object *op, int clonetype = 0)
1507 1615
1508int cf_object_pay_item (object *op, object *buyer) 1616int cf_object_pay_item (object *op, object *buyer)
1509 1617
1510int cf_object_pay_amount (object *op, double amount) 1618int cf_object_pay_amount (object *op, uint64 amount)
1619
1620void pay_player (object *op, uint64 amount)
1621
1622val64 pay_player_arch (object *op, const char *arch, uint64 amount)
1511 1623
1512int cf_object_cast_spell (object *caster, object *ctoo, int dir, object *spell_ob, char *stringarg = 0) 1624int cf_object_cast_spell (object *caster, object *ctoo, int dir, object *spell_ob, char *stringarg = 0)
1513 1625
1514int cf_object_cast_ability (object *caster, object *ctoo, int dir, object *sp_, char *stringarg = 0) 1626int cf_object_cast_ability (object *caster, object *ctoo, int dir, object *sp_, char *stringarg = 0)
1515 1627
… …
1552 1664
1553void cf_object_pickup (object *op, object *what) 1665void cf_object_pickup (object *op, object *what)
1554 1666
1555object *cf_create_object_by_name (const char *name) 1667object *cf_create_object_by_name (const char *name)
1556 1668
1557void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0) 1669void change_exp (object *op, uint64 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 1670
1563void player_lvl_adj (object *who, object *skill = 0) 1671void player_lvl_adj (object *who, object *skill = 0)
1564 1672
1565int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL) 1673int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1674
1675int calc_skill_exp (object *who, object *op, object *skill);
1676
1677void push_button (object *op);
1678
1679void use_trigger (object *op);
1680
1681void add_button_link (object *button, mapstruct *map, int connected);
1682
1683void remove_button_link (object *op);
1684
1685void
1686cf_object_set_resistance (object *op, int rtype, int val)
1687 CODE:
1688 if (rtype >= 0 && rtype < NROFATTACKS)
1689 op->resist[rtype] = val;
1690
1566 1691
1567MODULE = cf PACKAGE = cf::object PREFIX = cf_ 1692MODULE = cf PACKAGE = cf::object PREFIX = cf_
1568 1693
1569void cf_fix_object (object *pl) 1694void cf_fix_object (object *pl)
1570 ALIAS: fix = 0 1695 ALIAS: fix = 0
… …
1593const char *options (object *op) 1718const char *options (object *op)
1594 CODE: 1719 CODE:
1595 RETVAL = op->name; 1720 RETVAL = op->name;
1596 OUTPUT: 1721 OUTPUT:
1597 RETVAL 1722 RETVAL
1723
1724player *contr (object *op)
1725 CODE:
1726 RETVAL = op->contr;
1727 OUTPUT: RETVAL
1598 1728
1599const char *get_ob_key_value (object *op, const char *key) 1729const char *get_ob_key_value (object *op, const char *key)
1600 1730
1601bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1) 1731bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)
1602 1732
… …
1646 1776
1647void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 1777void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1648 1778
1649object *cf_player_send_inventory (object *op) 1779object *cf_player_send_inventory (object *op)
1650 1780
1651player *contr (object *op)
1652 CODE:
1653 RETVAL = op->contr;
1654 OUTPUT: RETVAL
1655
1656char *cf_player_get_ip (object *op) 1781char *cf_player_get_ip (object *op)
1657 ALIAS: ip = 0 1782 ALIAS: ip = 0
1658 1783
1659object *cf_player_get_marked_item (object *op) 1784object *cf_player_get_marked_item (object *op)
1660 ALIAS: marked_item = 0 1785 ALIAS: marked_item = 0
… …
1663 1788
1664partylist *cf_player_get_party (object *op) 1789partylist *cf_player_get_party (object *op)
1665 ALIAS: party = 0 1790 ALIAS: party = 0
1666 1791
1667void cf_player_set_party (object *op, partylist *party) 1792void cf_player_set_party (object *op, partylist *party)
1668
1669void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0)
1670 1793
1671void kill_player (object *op) 1794void kill_player (object *op)
1672 1795
1673MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1796MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1674 1797
… …
1796mapstruct *new (int width, int height) 1919mapstruct *new (int width, int height)
1797 PROTOTYPE: 1920 PROTOTYPE:
1798 CODE: 1921 CODE:
1799{ 1922{
1800 int unused_type; 1923 int unused_type;
1801 RETVAL = map_get_map (&unused_type, 0, width, height); 1924 RETVAL = (mapstruct*) map_get_map (&unused_type, 0, width, height);
1802} 1925}
1803 OUTPUT: 1926 OUTPUT:
1804 RETVAL 1927 RETVAL
1805 1928
1806void delete_map (mapstruct *map) 1929void delete_map (mapstruct *map)
… …
2016 ALIAS: more = 0 2139 ALIAS: more = 0
2017 2140
2018const char *cf_archetype_get_name (archetype *arch) 2141const char *cf_archetype_get_name (archetype *arch)
2019 ALIAS: name = 0 2142 ALIAS: name = 0
2020 2143
2144object *cf_archetype_get_clone (archetype *arch)
2145 ALIAS: clone = 0
2146
2021MODULE = cf PACKAGE = cf::party PREFIX = cf_party_ 2147MODULE = cf PACKAGE = cf::party PREFIX = cf_party_
2022 2148
2023partylist *cf_party_get_first () 2149partylist *cf_party_get_first ()
2024 PROTOTYPE: 2150 PROTOTYPE:
2025 ALIAS: first = 0 2151 ALIAS: first = 0
… …
2061 ALIAS: message = 0 2187 ALIAS: message = 0
2062 2188
2063 2189
2064MODULE = cf PACKAGE = cf::living PREFIX = cf_living_ 2190MODULE = cf PACKAGE = cf::living PREFIX = cf_living_
2065 2191
2066double 2192val64
2067exp (living *liv, double new_val = 0.) 2193exp (living *liv, val64 new_val = 0)
2068 PROTOTYPE: $;$ 2194 PROTOTYPE: $;$
2069 ALIAS: 2195 ALIAS:
2070 Str = 1 2196 Str = 1
2071 Dex = 2 2197 Dex = 2
2072 Con = 3 2198 Con = 3
… …
2084 maxgrace = 15 2210 maxgrace = 15
2085 food = 16 2211 food = 16
2086 dam = 17 2212 dam = 17
2087 luck = 18 2213 luck = 18
2088 CODE: 2214 CODE:
2089# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = new_val; break 2215# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = (sint64)new_val; break
2090 switch (ix) 2216 switch (ix)
2091 { 2217 {
2092 LIVING_ACC (exp , 0); 2218 LIVING_ACC (exp , 0);
2093 LIVING_ACC (Str , 1); 2219 LIVING_ACC (Str , 1);
2094 LIVING_ACC (Dex , 2); 2220 LIVING_ACC (Dex , 2);

Diff Legend

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