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.118 by root, Sat Dec 30 20:32:30 2006 UTC vs.
Revision 1.121 by root, Sun Dec 31 18:10:41 2006 UTC

… …
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
832maptile * 832maptile *
833maptile::find_map (const char *path, maptile *origin) 833maptile::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
852void
853maptile::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
861maptile *
862maptile::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
881void 852void
882maptile::change_all_map_light (int change) 853maptile::change_all_map_light (int change)
883{ 854{
… …
1317 const_iv (P_BLOCKSVIEW) 1288 const_iv (P_BLOCKSVIEW)
1318 const_iv (P_PLAYER) 1289 const_iv (P_PLAYER)
1319 const_iv (P_NO_MAGIC) 1290 const_iv (P_NO_MAGIC)
1320 const_iv (P_IS_ALIVE) 1291 const_iv (P_IS_ALIVE)
1321 const_iv (P_NO_CLERIC) 1292 const_iv (P_NO_CLERIC)
1322 const_iv (P_NEED_UPDATE)
1323 const_iv (P_OUT_OF_MAP) 1293 const_iv (P_OUT_OF_MAP)
1324 const_iv (P_NEW_MAP) 1294 const_iv (P_NEW_MAP)
1295 const_iv (P_UPTODATE)
1325 1296
1326 const_iv (UP_OBJ_INSERT) 1297 const_iv (UP_OBJ_INSERT)
1327 const_iv (UP_OBJ_REMOVE) 1298 const_iv (UP_OBJ_REMOVE)
1328 const_iv (UP_OBJ_CHANGE) 1299 const_iv (UP_OBJ_CHANGE)
1329 const_iv (UP_OBJ_FACE) 1300 const_iv (UP_OBJ_FACE)
… …
1624 case 5: RETVAL = settings.playerdir; break; 1595 case 5: RETVAL = settings.playerdir; break;
1625 case 6: RETVAL = settings.datadir ; break; 1596 case 6: RETVAL = settings.datadir ; break;
1626 } 1597 }
1627 OUTPUT: RETVAL 1598 OUTPUT: RETVAL
1628 1599
1600void abort ()
1601
1629void emergency_save () 1602void emergency_save ()
1630 1603
1631void _exit (int status = 0) 1604void _exit (int status = 0)
1632 1605
1633int find_animation (char *text) 1606int find_animation (char *text)
… …
1942 RETVAL = op->contr; 1915 RETVAL = op->contr;
1943 OUTPUT: RETVAL 1916 OUTPUT: RETVAL
1944 1917
1945void check_score (object *op) 1918void check_score (object *op)
1946 1919
1947void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 1920void message (object *op, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1921 CODE:
1922 new_draw_info (flags, 0, op, txt);
1948 1923
1949object *cf_player_send_inventory (object *op) 1924object *cf_player_send_inventory (object *op)
1950 1925
1951char *cf_player_get_ip (object *op) 1926char *cf_player_get_ip (object *op)
1952 ALIAS: ip = 0 1927 ALIAS: ip = 0
… …
2256 region *region\ 2231 region *region\
2257) 2232)
2258 CODE: 2233 CODE:
2259{ 2234{
2260 random_map_params rmp; 2235 random_map_params rmp;
2236 memset (&rmp, 0, sizeof (rmp)); // just to be sure
2261 2237
2262 assign (rmp.wallstyle , wallstyle); 2238 assign (rmp.wallstyle , wallstyle);
2263 assign (rmp.wall_name , wall_name); 2239 assign (rmp.wall_name , wall_name);
2264 assign (rmp.floorstyle , floorstyle); 2240 assign (rmp.floorstyle , floorstyle);
2265 assign (rmp.monsterstyle , monsterstyle); 2241 assign (rmp.monsterstyle , monsterstyle);
… …
2323 PROTOTYPE: 2299 PROTOTYPE:
2324 CODE: 2300 CODE:
2325 RETVAL = get_firstparty (); 2301 RETVAL = get_firstparty ();
2326 OUTPUT: RETVAL 2302 OUTPUT: RETVAL
2327 2303
2328partylist *next (partylist *party) 2304INCLUDE: $PERL genacc partylist ../include/player.h |
2329 CODE:
2330 RETVAL = party->next;
2331 OUTPUT: RETVAL
2332
2333const char *name (partylist *party)
2334 CODE:
2335 RETVAL = party->partyname;
2336 OUTPUT: RETVAL
2337
2338const char *password (partylist *party)
2339 CODE:
2340 RETVAL = party->passwd;
2341 OUTPUT: RETVAL
2342 2305
2343MODULE = cf PACKAGE = cf::region 2306MODULE = cf PACKAGE = cf::region
2344 2307
2345region *first () 2308region *first ()
2346 PROTOTYPE: 2309 PROTOTYPE:
2347 CODE: 2310 CODE:
2348 RETVAL = first_region; 2311 RETVAL = first_region;
2349 OUTPUT: RETVAL 2312 OUTPUT: RETVAL
2350 2313
2351region *next (region *reg) 2314INCLUDE: $PERL genacc region ../include/map.h |
2352 CODE:
2353 RETVAL = reg->next;
2354 OUTPUT: RETVAL
2355
2356const char *name (region *reg)
2357 CODE:
2358 RETVAL = reg->name;
2359 OUTPUT: RETVAL
2360
2361region *parent (region *reg)
2362 CODE:
2363 RETVAL = reg->parent;
2364 OUTPUT: RETVAL
2365
2366const char *longname (region *reg)
2367 CODE:
2368 RETVAL = reg->longname;
2369 OUTPUT: RETVAL
2370
2371const char *msg (region *reg)
2372 CODE:
2373 RETVAL = reg->msg;
2374 OUTPUT: RETVAL
2375 2315
2376MODULE = cf PACKAGE = cf::living 2316MODULE = cf PACKAGE = cf::living
2377 2317
2378INCLUDE: $PERL genacc living ../include/living.h | 2318INCLUDE: $PERL genacc living ../include/living.h |
2379 2319

Diff Legend

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