ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/cfperl.xs
(Generate patch)

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.237 by root, Mon Jul 23 23:46:03 2007 UTC vs.
Revision 1.242 by root, Mon Aug 6 10:54:12 2007 UTC

… …
1384 1384
1385 const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED) 1385 const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1386 const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN) 1386 const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1387 const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD) 1387 const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1388 const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE) 1388 const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1389 const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)
1389 const_iv (NDI_ALL) 1390 const_iv (NDI_NOCREATE)
1390 1391
1391 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE) 1392 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1392 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF) 1393 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1393 1394
1394 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE) 1395 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
… …
1521 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY) 1522 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1522 1523
1523 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP) 1524 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1524 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV) 1525 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)
1525 const_iv (GT_MINIMAL) 1526 const_iv (GT_MINIMAL)
1527
1528 const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1529 const_iv (FT_RSRC) const_iv (FT_NUM)
1526 }; 1530 };
1527 1531
1528 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1532 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1529 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv)); 1533 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));
1530 1534
… …
1673octet_string path_combine (octet_string base, octet_string path) 1677octet_string path_combine (octet_string base, octet_string path)
1674 PROTOTYPE: $$ 1678 PROTOTYPE: $$
1675 1679
1676octet_string path_combine_and_normalize (octet_string base, octet_string path) 1680octet_string path_combine_and_normalize (octet_string base, octet_string path)
1677 PROTOTYPE: $$ 1681 PROTOTYPE: $$
1678
1679const_octet_string
1680get_maps_directory (octet_string path)
1681 PROTOTYPE: $
1682 ALIAS: maps_directory = 0
1683 CODE:
1684 RETVAL = create_pathname (path);
1685 OUTPUT: RETVAL
1686 1682
1687void 1683void
1688sub_generation_inc () 1684sub_generation_inc ()
1689 CODE: 1685 CODE:
1690 PL_sub_generation++; 1686 PL_sub_generation++;
… …
1812#object *mortals (U32 index) 1808#object *mortals (U32 index)
1813# CODE: 1809# CODE:
1814# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0; 1810# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0;
1815# OUTPUT: RETVAL 1811# OUTPUT: RETVAL
1816 1812
1817INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h | 1813INCLUDE: $PERL $srcdir/genacc attachable ../include/util.h ../include/cfperl.h |
1818 1814
1819MODULE = cf PACKAGE = cf::global 1815MODULE = cf PACKAGE = cf::global
1820 1816
1821int invoke (SV *klass, int event, ...) 1817int invoke (SV *klass, int event, ...)
1822 CODE: 1818 CODE:
… …
2148 pl->orig_stats = pl->ob->stats; 2144 pl->orig_stats = pl->ob->stats;
2149 2145
2150void clear_los (player *pl) 2146void clear_los (player *pl)
2151 2147
2152void cf_player_move (player *pl, int dir) 2148void cf_player_move (player *pl, int dir)
2153
2154void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
2155 2149
2156bool 2150bool
2157cell_visible (player *pl, int dx, int dy) 2151cell_visible (player *pl, int dx, int dy)
2158 CODE: 2152 CODE:
2159 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2 2153 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2
… …
2338 } 2332 }
2339 } 2333 }
2340 2334
2341 op->destroy (); 2335 op->destroy ();
2342} 2336}
2343
2344void play_sound_map (maptile *map, int x, int y, int sound_num)
2345 2337
2346int out_of_map (maptile *map, int x, int y) 2338int out_of_map (maptile *map, int x, int y)
2347 2339
2348void 2340void
2349trigger (maptile *map, long connection, bool state = true) 2341trigger (maptile *map, long connection, bool state = true)
… …
2622 2614
2623 THIS->send_packet (buf, len); 2615 THIS->send_packet (buf, len);
2624} 2616}
2625 2617
2626faceidx 2618faceidx
2627client::find_face (utf8_string name, faceidx defidx = 0) 2619client::need_face (utf8_string name, int pri = 0)
2628 CODE: 2620 CODE:
2629 RETVAL = face_find (name, defidx); 2621 RETVAL = face_find (name, 0);
2622 if (RETVAL)
2623 {
2630 THIS->send_face (RETVAL); 2624 THIS->send_face (RETVAL, pri);
2631 THIS->flush_fx (); 2625 THIS->flush_fx ();
2626 }
2632 OUTPUT: 2627 OUTPUT:
2633 RETVAL 2628 RETVAL
2629
2630int
2631client::fx_want (int idx, int value = -1)
2632 CODE:
2633 if (0 < idx && idx < FT_NUM)
2634 {
2635 RETVAL = THIS->fx_want [idx];
2636 if (items > 2)
2637 THIS->fx_want [idx] = value;
2638 }
2639 else
2640 RETVAL = 0;
2641 OUTPUT:
2642 RETVAL
2643
2644MODULE = cf PACKAGE = cf::sound PREFIX = sound_
2645
2646faceidx sound_find (utf8_string name)
2647
2648void sound_set (utf8_string str, faceidx face)
2649
2650# dire hack
2651void old_sound_index (int idx, faceidx face)
2652 CODE:
2653 extern faceidx old_sound_index [SOUND_CAST_SPELL_0];
2654 old_sound_index [idx] = face;
2634 2655
2635MODULE = cf PACKAGE = cf::face PREFIX = face_ 2656MODULE = cf PACKAGE = cf::face PREFIX = face_
2636 2657
2637#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h | 2658#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |
2638 2659

Diff Legend

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