ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/utils/cfutil.in
(Generate patch)

Comparing deliantra/server/utils/cfutil.in (file contents):
Revision 1.92 by root, Tue Oct 5 23:59:10 2010 UTC vs.
Revision 1.95 by root, Wed Oct 6 00:19:32 2010 UTC

156 and die "map installation failed.\n"; 156 and die "map installation failed.\n";
157 157
158 print "maps installed successfully.\n"; 158 print "maps installed successfully.\n";
159} 159}
160 160
161our %WALL_SUFFIX = ( 161our @WALL_SUFFIX = qw(⬤ ╹ ╺ ┗ ╻ ┃ ┏ ┣ ╸ ┛ ━ ┻ ┓ ┫ ┳ ╋);
162 "_0" => "⬤",
163 "_1_3" => "╸",
164 "_1_4" => "╺",
165 "_2_1_2" => "━",
166
167 "_1_2" => "╹",
168 "_2_2_4" => "┛",
169 "_2_2_1" => "┗",
170 "_3_1" => "┻",
171
172 "_1_1" => "╻",
173 "_2_2_3" => "┓",
174 "_2_2_2" => "┏",
175 "_3_3" => "┳",
176
177 "_2_1_1" => "┃",
178 "_3_4" => "┫",
179 "_3_2" => "┣",
180 "_4" => "╋",
181);
182 162
183sub autoglyph { 163sub autoglyph {
184 my ($stem, $face) = @_; 164 my ($stem, $face) = @_;
185 165
186 if ($stem =~ /^wall\/|Nimwall/) { 166 if ($stem =~ /^wall\/|Nimwall/) {
167 return $WALL_SUFFIX[hex $1]
187 if ($stem =~ /((?:_[0-4])+).x11/) { 168 if $stem =~ /(_[0-9A-F]).x11/;
188 return $WALL_SUFFIX{$1} if exists $WALL_SUFFIX{$1};
189 }
190 169
191 "+" 170 "+"
192 171
193 } elsif ($stem =~ /^floor\/|^ground\/|Nimfloor/) { 172 } elsif ($stem =~ /^floor\/|^ground\/|Nimfloor/) {
194 "." 173 "."
850 $v->{magicmap} = $COLOR{$magicmap}; 829 $v->{magicmap} = $COLOR{$magicmap};
851 } 830 }
852 831
853 my $stem = delete $v->{stem}; 832 my $stem = delete $v->{stem};
854 $v->{glyph} //= autoglyph $stem, $v; 833 $v->{glyph} //= autoglyph $stem, $v;
834 utf8::encode $v->{glyph};
855 $v->{glyph} = (chr $v->{magicmap}) . $v->{glyph}; 835 $v->{glyph} = (chr $v->{magicmap}) . $v->{glyph};
856 836
857 delete $v->{arc}; 837 delete $v->{arc};
858 } 838 }
859 839

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines