ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/map-world.ext
(Generate patch)

Comparing deliantra/server/ext/map-world.ext (file contents):
Revision 1.6 by root, Wed Jan 24 03:13:21 2007 UTC vs.
Revision 1.7 by root, Fri Jan 26 20:59:57 2007 UTC

… …
31 $self->width ($WORLD->{tilew}); 31 $self->width ($WORLD->{tilew});
32 $self->height ($WORLD->{tileh}); 32 $self->height ($WORLD->{tileh});
33 33
34 my ($x, $y) = $self->wxwy; 34 my ($x, $y) = $self->wxwy;
35 35
36 $self->tile_path (0, sprintf "/world/world_%03d_%03d", $x, $y - 1) if $y > 0;
37 $self->tile_path (1, sprintf "/world/world_%03d_%03d", $x + 1, $y) if $x < 999;
38 $self->tile_path (2, sprintf "/world/world_%03d_%03d", $x, $y + 1) if $y < 999;
39 $self->tile_path (3, sprintf "/world/world_%03d_%03d", $x - 1, $y) if $x > 0;
40
41 $self->outdoor (1); 36 $self->outdoor (1);
42 37
43 $self->name ("'The World' at +$x+$y"); 38 $self->name ("'The World' at +$x+$y");
44 $self->msg ("worldmap dynamically created by map-world extension"); 39 $self->msg ("worldmap dynamically created by map-world extension");
40
41# $self->tile_path (0, sprintf "/world/world_%03d_%03d", $x, $y - 1) if $y > 0;
42# $self->tile_path (1, sprintf "/world/world_%03d_%03d", $x + 1, $y) if $x < 999;
43# $self->tile_path (2, sprintf "/world/world_%03d_%03d", $x, $y + 1) if $y < 999;
44# $self->tile_path (3, sprintf "/world/world_%03d_%03d", $x - 1, $y) if $x > 0;
45 $self->tile_path (0, sprintf "/world/world_%03d_%03d", $x, $y - 1) if $y > 100;
46 $self->tile_path (1, sprintf "/world/world_%03d_%03d", $x + 1, $y) if $x < 129;
47 $self->tile_path (2, sprintf "/world/world_%03d_%03d", $x, $y + 1) if $y < 129;
48 $self->tile_path (3, sprintf "/world/world_%03d_%03d", $x - 1, $y) if $x > 100;
45 49
46 #TODO: region 50 #TODO: region
47 51
48 $self->{load_path} = sprintf "%s/%s/world-overlay/world_%03d_%03d", cf::datadir, cf::mapdir, $x, $y 52 $self->{load_path} = sprintf "%s/%s/world-overlay/world_%03d_%03d", cf::datadir, cf::mapdir, $x, $y
49 if $x >= $WORLD->{minx} && $x <= $WORLD->{maxx} 53 if $x >= $WORLD->{minx} && $x <= $WORLD->{maxx}
50 && $y >= $WORLD->{miny} && $y <= $WORLD->{maxy}; 54 && $y >= $WORLD->{miny} && $y <= $WORLD->{maxy};
51
52 55
53 1 56 1
54} 57}
55 58
56sub load { 59sub load {

Diff Legend

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