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.119 by root, Sun Dec 31 10:28:36 2006 UTC vs.
Revision 1.123 by root, Sun Dec 31 22:23:12 2006 UTC

… …
1288 const_iv (P_BLOCKSVIEW) 1288 const_iv (P_BLOCKSVIEW)
1289 const_iv (P_PLAYER) 1289 const_iv (P_PLAYER)
1290 const_iv (P_NO_MAGIC) 1290 const_iv (P_NO_MAGIC)
1291 const_iv (P_IS_ALIVE) 1291 const_iv (P_IS_ALIVE)
1292 const_iv (P_NO_CLERIC) 1292 const_iv (P_NO_CLERIC)
1293 const_iv (P_NEED_UPDATE)
1294 const_iv (P_OUT_OF_MAP) 1293 const_iv (P_OUT_OF_MAP)
1295 const_iv (P_NEW_MAP) 1294 const_iv (P_NEW_MAP)
1295 const_iv (P_UPTODATE)
1296 1296
1297 const_iv (UP_OBJ_INSERT) 1297 const_iv (UP_OBJ_INSERT)
1298 const_iv (UP_OBJ_REMOVE) 1298 const_iv (UP_OBJ_REMOVE)
1299 const_iv (UP_OBJ_CHANGE) 1299 const_iv (UP_OBJ_CHANGE)
1300 const_iv (UP_OBJ_FACE) 1300 const_iv (UP_OBJ_FACE)
… …
1595 case 5: RETVAL = settings.playerdir; break; 1595 case 5: RETVAL = settings.playerdir; break;
1596 case 6: RETVAL = settings.datadir ; break; 1596 case 6: RETVAL = settings.datadir ; break;
1597 } 1597 }
1598 OUTPUT: RETVAL 1598 OUTPUT: RETVAL
1599 1599
1600void abort ()
1601
1600void emergency_save () 1602void emergency_save ()
1601 1603
1602void _exit (int status = 0) 1604void _exit (int status = 0)
1603 1605
1604int find_animation (char *text) 1606int find_animation (char *text)
… …
1913 RETVAL = op->contr; 1915 RETVAL = op->contr;
1914 OUTPUT: RETVAL 1916 OUTPUT: RETVAL
1915 1917
1916void check_score (object *op) 1918void check_score (object *op)
1917 1919
1918void 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);
1919 1923
1920object *cf_player_send_inventory (object *op) 1924object *cf_player_send_inventory (object *op)
1921 1925
1922char *cf_player_get_ip (object *op) 1926char *cf_player_get_ip (object *op)
1923 ALIAS: ip = 0 1927 ALIAS: ip = 0
… …
2177 case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break; 2181 case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break;
2178 case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break; 2182 case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break;
2179 case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break; 2183 case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break;
2180 case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break; 2184 case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;
2181 } 2185 }
2182 OUTPUT: 2186 OUTPUT: RETVAL
2183 RETVAL
2184 2187
2185void fix_walls (maptile *map, int x, int y) 2188void fix_walls (maptile *map, int x, int y)
2186 2189
2187void fix_walls_around (maptile *map, int x, int y) 2190void fix_walls_around (maptile *map, int x, int y)
2191
2192const char *
2193region_name (maptile *m)
2194 CODE:
2195 RETVAL = get_name_of_region_for_map (m);
2196 OUTPUT: RETVAL
2188 2197
2189# worst xs function of my life 2198# worst xs function of my life
2190maptile * 2199maptile *
2191_create_random_map (\ 2200_create_random_map (\
2192 char *path,\ 2201 char *path,\
… …
2236 assign (rmp.monsterstyle , monsterstyle); 2245 assign (rmp.monsterstyle , monsterstyle);
2237 assign (rmp.treasurestyle , treasurestyle); 2246 assign (rmp.treasurestyle , treasurestyle);
2238 assign (rmp.layoutstyle , layoutstyle); 2247 assign (rmp.layoutstyle , layoutstyle);
2239 assign (rmp.doorstyle , doorstyle); 2248 assign (rmp.doorstyle , doorstyle);
2240 assign (rmp.decorstyle , decorstyle); 2249 assign (rmp.decorstyle , decorstyle);
2241 assign (rmp.origin_map , origin_map);
2242 assign (rmp.final_map , final_map);
2243 assign (rmp.exitstyle , exitstyle); 2250 assign (rmp.exitstyle , exitstyle);
2244 assign (rmp.this_map , this_map);
2245 assign (rmp.exit_on_final_map, exit_on_final_map); 2251 assign (rmp.exit_on_final_map, exit_on_final_map);
2246 2252
2253 rmp.origin_map = origin_map;
2254 rmp.final_map = final_map;
2255 rmp.this_map = this_map;
2247 rmp.Xsize = Xsize; 2256 rmp.Xsize = Xsize;
2248 rmp.Ysize = Ysize; 2257 rmp.Ysize = Ysize;
2249 rmp.expand2x = expand2x; 2258 rmp.expand2x = expand2x;
2250 rmp.layoutoptions1 = layoutoptions1; 2259 rmp.layoutoptions1 = layoutoptions1;
2251 rmp.layoutoptions2 = layoutoptions2; 2260 rmp.layoutoptions2 = layoutoptions2;
… …
2298 2307
2299INCLUDE: $PERL genacc partylist ../include/player.h | 2308INCLUDE: $PERL genacc partylist ../include/player.h |
2300 2309
2301MODULE = cf PACKAGE = cf::region 2310MODULE = cf PACKAGE = cf::region
2302 2311
2303region *first () 2312region *first ()
2304 PROTOTYPE: 2313 PROTOTYPE:
2305 CODE: 2314 CODE:
2306 RETVAL = first_region; 2315 RETVAL = first_region;
2316 OUTPUT: RETVAL
2317
2318region *find (char *name)
2319 PROTOTYPE: $
2320 CODE:
2321 RETVAL = get_region_by_name (name);
2307 OUTPUT: RETVAL 2322 OUTPUT: RETVAL
2308 2323
2309INCLUDE: $PERL genacc region ../include/map.h | 2324INCLUDE: $PERL genacc region ../include/map.h |
2310 2325
2311MODULE = cf PACKAGE = cf::living 2326MODULE = cf PACKAGE = cf::living

Diff Legend

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