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.121 by root, Sun Dec 31 18:10:41 2006 UTC vs.
Revision 1.122 by root, Sun Dec 31 21:02:05 2006 UTC

… …
2181 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;
2182 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;
2183 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;
2184 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;
2185 } 2185 }
2186 OUTPUT: 2186 OUTPUT: RETVAL
2187 RETVAL
2188 2187
2189void fix_walls (maptile *map, int x, int y) 2188void fix_walls (maptile *map, int x, int y)
2190 2189
2191void 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
2192 2197
2193# worst xs function of my life 2198# worst xs function of my life
2194maptile * 2199maptile *
2195_create_random_map (\ 2200_create_random_map (\
2196 char *path,\ 2201 char *path,\
… …
2241 assign (rmp.monsterstyle , monsterstyle); 2246 assign (rmp.monsterstyle , monsterstyle);
2242 assign (rmp.treasurestyle , treasurestyle); 2247 assign (rmp.treasurestyle , treasurestyle);
2243 assign (rmp.layoutstyle , layoutstyle); 2248 assign (rmp.layoutstyle , layoutstyle);
2244 assign (rmp.doorstyle , doorstyle); 2249 assign (rmp.doorstyle , doorstyle);
2245 assign (rmp.decorstyle , decorstyle); 2250 assign (rmp.decorstyle , decorstyle);
2246 assign (rmp.origin_map , origin_map);
2247 assign (rmp.final_map , final_map);
2248 assign (rmp.exitstyle , exitstyle); 2251 assign (rmp.exitstyle , exitstyle);
2249 assign (rmp.this_map , this_map);
2250 assign (rmp.exit_on_final_map, exit_on_final_map); 2252 assign (rmp.exit_on_final_map, exit_on_final_map);
2251 2253
2254 rmp.origin_map = origin_map;
2255 rmp.final_map = final_map;
2256 rmp.this_map = this_map;
2252 rmp.Xsize = Xsize; 2257 rmp.Xsize = Xsize;
2253 rmp.Ysize = Ysize; 2258 rmp.Ysize = Ysize;
2254 rmp.expand2x = expand2x; 2259 rmp.expand2x = expand2x;
2255 rmp.layoutoptions1 = layoutoptions1; 2260 rmp.layoutoptions1 = layoutoptions1;
2256 rmp.layoutoptions2 = layoutoptions2; 2261 rmp.layoutoptions2 = layoutoptions2;
… …
2303 2308
2304INCLUDE: $PERL genacc partylist ../include/player.h | 2309INCLUDE: $PERL genacc partylist ../include/player.h |
2305 2310
2306MODULE = cf PACKAGE = cf::region 2311MODULE = cf PACKAGE = cf::region
2307 2312
2308region *first () 2313region *first ()
2309 PROTOTYPE: 2314 PROTOTYPE:
2310 CODE: 2315 CODE:
2311 RETVAL = first_region; 2316 RETVAL = first_region;
2317 OUTPUT: RETVAL
2318
2319region *find (char *name)
2320 PROTOTYPE: $
2321 CODE:
2322 RETVAL = get_region_by_name (name);
2312 OUTPUT: RETVAL 2323 OUTPUT: RETVAL
2313 2324
2314INCLUDE: $PERL genacc region ../include/map.h | 2325INCLUDE: $PERL genacc region ../include/map.h |
2315 2326
2316MODULE = cf PACKAGE = cf::living 2327MODULE = cf PACKAGE = cf::living

Diff Legend

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