| … | |
… | |
| 65 | $attacktype{ 'lifestealing' } = ( 1 << 24 ); |
65 | $attacktype{ 'lifestealing' } = ( 1 << 24 ); |
| 66 | $attacktype{ 'disease' } = ( 1 << 25 ); |
66 | $attacktype{ 'disease' } = ( 1 << 25 ); |
| 67 | |
67 | |
| 68 | &info("writing ...$archetypes"); |
68 | &info("writing ...$archetypes"); |
| 69 | open(ARCH,">".$archetypes) || &die("cannot open ".$archetypes); |
69 | open(ARCH,">".$archetypes) || &die("cannot open ".$archetypes); |
| 70 | &archsOut; |
70 | &archsOut($root); |
| 71 | close(ARCH); |
71 | close(ARCH); |
| 72 | |
72 | |
| 73 | |
73 | |
| 74 | if (!$archonly) { |
74 | if (!$archonly) { |
| 75 | &info("$bmaps"); |
75 | &info("$bmaps"); |
| … | |
… | |
| 217 | } |
217 | } |
| 218 | } |
218 | } |
| 219 | |
219 | |
| 220 | |
220 | |
| 221 | sub archsOut { |
221 | sub archsOut { |
|
|
222 | local($dir) = shift; |
|
|
223 | |
| 222 | foreach $arch (@archs) { |
224 | foreach $arch (@archs) { |
|
|
225 | # Assume the filename $arch begins with $dir. Assign the first path |
|
|
226 | # name component after $dir to $pathto. |
|
|
227 | if($arch =~ /^\Q$dir\E\/([^\/]+)\/.*[.]arc$/) { |
|
|
228 | $pathto = $1; |
|
|
229 | } else { |
|
|
230 | &warn("cannot determine editor_folder from arch '$arch'"); |
|
|
231 | $pathto = ""; |
|
|
232 | } |
| 223 | open(ARC,$arch) || &die("cannot open ".$arch); |
233 | open(ARC,$arch) || &die("cannot open ".$arch); |
| 224 | $pathto = $arch; |
|
|
| 225 | $pathto =~ s@[^/]*/@@; |
|
|
| 226 | $pathto =~ s@[a-z]*/(.*)/.*arc@$1@; |
|
|
| 227 | line: while(<ARC>) { |
234 | line: while(<ARC>) { |
| 228 | chop; |
235 | chop; |
| 229 | ($var,@values) = split; |
236 | ($var,@values) = split; |
| 230 | if ($var eq "#") { |
237 | if ($var eq "#") { |
| 231 | #developper comment, switch to next line |
238 | #developper comment, switch to next line |
| … | |
… | |
| 263 | if ($var eq "color_bg") { |
270 | if ($var eq "color_bg") { |
| 264 | $lbg = $values[0]; |
271 | $lbg = $values[0]; |
| 265 | next line; |
272 | next line; |
| 266 | } |
273 | } |
| 267 | if ($var eq "end") { |
274 | if ($var eq "end") { |
| 268 | print ARCH "editor_folder $pathto\n"; |
275 | print ARCH "editor_folder $pathto\n" if $pathto ne ""; |
| 269 | } |
276 | } |
| 270 | if ($var eq "visibility") { |
277 | if ($var eq "visibility") { |
| 271 | $lvis = $values[0]; |
278 | $lvis = $values[0]; |
| 272 | next line; |
279 | next line; |
| 273 | } |
280 | } |
