… | |
… | |
2057 | |
2057 | |
2058 | void cf_player_move (player *pl, int dir) |
2058 | void cf_player_move (player *pl, int dir) |
2059 | |
2059 | |
2060 | void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0); |
2060 | void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0); |
2061 | |
2061 | |
2062 | player *first () |
|
|
2063 | CODE: |
|
|
2064 | RETVAL = first_player; |
|
|
2065 | OUTPUT: RETVAL |
|
|
2066 | |
|
|
2067 | bool |
2062 | bool |
2068 | cell_visible (player *pl, int dx, int dy) |
2063 | cell_visible (player *pl, int dx, int dy) |
2069 | CODE: |
2064 | CODE: |
2070 | RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2 |
2065 | RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2 |
2071 | && !pl->blocked_los [dx + pl->ns->mapx / 2][dy + pl->ns->mapy / 2]; |
2066 | && !pl->blocked_los [dx + pl->ns->mapx / 2][dy + pl->ns->mapy / 2]; |
… | |
… | |
2372 | |
2367 | |
2373 | INCLUDE: $PERL genacc partylist ../include/player.h | |
2368 | INCLUDE: $PERL genacc partylist ../include/player.h | |
2374 | |
2369 | |
2375 | MODULE = cf PACKAGE = cf::region |
2370 | MODULE = cf PACKAGE = cf::region |
2376 | |
2371 | |
2377 | region *first () |
2372 | void |
2378 | PROTOTYPE: |
2373 | list () |
2379 | CODE: |
2374 | PPCODE: |
2380 | RETVAL = first_region; |
2375 | for_all_regions (rgn) |
2381 | OUTPUT: RETVAL |
2376 | XPUSHs (sv_2mortal (to_sv (rgn))); |
2382 | |
2377 | |
2383 | region *find (char *name) |
2378 | region *find (char *name) |
2384 | PROTOTYPE: $ |
2379 | PROTOTYPE: $ |
2385 | CODE: |
2380 | CODE: |
2386 | RETVAL = region::find (name); |
2381 | RETVAL = region::find (name); |
2387 | OUTPUT: RETVAL |
2382 | OUTPUT: RETVAL |
2388 | |
2383 | |
|
|
2384 | region *find_fuzzy (char *name) |
|
|
2385 | PROTOTYPE: $ |
|
|
2386 | CODE: |
|
|
2387 | RETVAL = region::find_fuzzy (name); |
|
|
2388 | OUTPUT: RETVAL |
|
|
2389 | |
2389 | INCLUDE: $PERL genacc region ../include/map.h | |
2390 | INCLUDE: $PERL genacc region ../include/map.h | |
2390 | |
2391 | |
2391 | MODULE = cf PACKAGE = cf::living |
2392 | MODULE = cf PACKAGE = cf::living |
2392 | |
2393 | |
2393 | INCLUDE: $PERL genacc living ../include/living.h | |
2394 | INCLUDE: $PERL genacc living ../include/living.h | |