| … | |
… | |
| 828 | CALL_CALL ("cf::map::emergency_save", G_VOID); |
828 | CALL_CALL ("cf::map::emergency_save", G_VOID); |
| 829 | CALL_END; |
829 | CALL_END; |
| 830 | } |
830 | } |
| 831 | |
831 | |
| 832 | maptile * |
832 | maptile * |
| 833 | maptile::find_map (const char *path, maptile *origin) |
833 | maptile::load_map_sync (const char *path, maptile *origin) |
| 834 | { |
834 | { |
| 835 | CALL_BEGIN (2); |
835 | CALL_BEGIN (2); |
| 836 | CALL_ARG (path); |
836 | CALL_ARG (path); |
| 837 | CALL_ARG (origin); |
837 | CALL_ARG (origin); |
| 838 | CALL_CALL ("cf::map::find_map", G_SCALAR); |
838 | CALL_CALL ("cf::map::load_map_sync", G_SCALAR); |
| 839 | |
839 | |
| 840 | maptile *retval; |
840 | maptile *retval; |
| 841 | |
841 | |
| 842 | if (count) |
842 | if (count) |
| 843 | sv_to (POPs, retval); |
843 | sv_to (POPs, retval); |
| … | |
… | |
| 845 | retval = 0; |
845 | retval = 0; |
| 846 | |
846 | |
| 847 | CALL_END; |
847 | CALL_END; |
| 848 | |
848 | |
| 849 | return retval; |
849 | return retval; |
| 850 | } |
|
|
| 851 | |
|
|
| 852 | void |
|
|
| 853 | maptile::do_load () |
|
|
| 854 | { |
|
|
| 855 | CALL_BEGIN (1); |
|
|
| 856 | CALL_ARG (this); |
|
|
| 857 | CALL_CALL ("cf::map::do_load", G_VOID); |
|
|
| 858 | CALL_END; |
|
|
| 859 | } |
|
|
| 860 | |
|
|
| 861 | maptile * |
|
|
| 862 | maptile::customise_for (object *op) |
|
|
| 863 | { |
|
|
| 864 | CALL_BEGIN (2); |
|
|
| 865 | CALL_ARG (this); |
|
|
| 866 | CALL_ARG (op); |
|
|
| 867 | CALL_CALL ("cf::map::customise_for", G_SCALAR); |
|
|
| 868 | |
|
|
| 869 | maptile *retval; |
|
|
| 870 | |
|
|
| 871 | if (count) |
|
|
| 872 | sv_to (POPs, retval); |
|
|
| 873 | else |
|
|
| 874 | retval = 0; |
|
|
| 875 | |
|
|
| 876 | CALL_END; |
|
|
| 877 | |
|
|
| 878 | return retval ? retval : this; |
|
|
| 879 | } |
850 | } |
| 880 | |
851 | |
| 881 | void |
852 | void |
| 882 | maptile::change_all_map_light (int change) |
853 | maptile::change_all_map_light (int change) |
| 883 | { |
854 | { |
| … | |
… | |
| 2323 | PROTOTYPE: |
2294 | PROTOTYPE: |
| 2324 | CODE: |
2295 | CODE: |
| 2325 | RETVAL = get_firstparty (); |
2296 | RETVAL = get_firstparty (); |
| 2326 | OUTPUT: RETVAL |
2297 | OUTPUT: RETVAL |
| 2327 | |
2298 | |
| 2328 | partylist *next (partylist *party) |
2299 | INCLUDE: $PERL genacc partylist ../include/player.h | |
| 2329 | CODE: |
|
|
| 2330 | RETVAL = party->next; |
|
|
| 2331 | OUTPUT: RETVAL |
|
|
| 2332 | |
|
|
| 2333 | const char *name (partylist *party) |
|
|
| 2334 | CODE: |
|
|
| 2335 | RETVAL = party->partyname; |
|
|
| 2336 | OUTPUT: RETVAL |
|
|
| 2337 | |
|
|
| 2338 | const char *password (partylist *party) |
|
|
| 2339 | CODE: |
|
|
| 2340 | RETVAL = party->passwd; |
|
|
| 2341 | OUTPUT: RETVAL |
|
|
| 2342 | |
2300 | |
| 2343 | MODULE = cf PACKAGE = cf::region |
2301 | MODULE = cf PACKAGE = cf::region |
| 2344 | |
2302 | |
| 2345 | region *first () |
2303 | region *first () |
| 2346 | PROTOTYPE: |
2304 | PROTOTYPE: |
| 2347 | CODE: |
2305 | CODE: |
| 2348 | RETVAL = first_region; |
2306 | RETVAL = first_region; |
| 2349 | OUTPUT: RETVAL |
2307 | OUTPUT: RETVAL |
| 2350 | |
2308 | |
| 2351 | region *next (region *reg) |
2309 | INCLUDE: $PERL genacc region ../include/map.h | |
| 2352 | CODE: |
|
|
| 2353 | RETVAL = reg->next; |
|
|
| 2354 | OUTPUT: RETVAL |
|
|
| 2355 | |
|
|
| 2356 | const char *name (region *reg) |
|
|
| 2357 | CODE: |
|
|
| 2358 | RETVAL = reg->name; |
|
|
| 2359 | OUTPUT: RETVAL |
|
|
| 2360 | |
|
|
| 2361 | region *parent (region *reg) |
|
|
| 2362 | CODE: |
|
|
| 2363 | RETVAL = reg->parent; |
|
|
| 2364 | OUTPUT: RETVAL |
|
|
| 2365 | |
|
|
| 2366 | const char *longname (region *reg) |
|
|
| 2367 | CODE: |
|
|
| 2368 | RETVAL = reg->longname; |
|
|
| 2369 | OUTPUT: RETVAL |
|
|
| 2370 | |
|
|
| 2371 | const char *msg (region *reg) |
|
|
| 2372 | CODE: |
|
|
| 2373 | RETVAL = reg->msg; |
|
|
| 2374 | OUTPUT: RETVAL |
|
|
| 2375 | |
2310 | |
| 2376 | MODULE = cf PACKAGE = cf::living |
2311 | MODULE = cf PACKAGE = cf::living |
| 2377 | |
2312 | |
| 2378 | INCLUDE: $PERL genacc living ../include/living.h | |
2313 | INCLUDE: $PERL genacc living ../include/living.h | |
| 2379 | |
2314 | |
