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

Comparing deliantra/server/lib/collect.pl.in (file contents):
Revision 1.1 by root, Fri Feb 3 07:13:04 2006 UTC vs.
Revision 1.4 by pippijn, Tue Jan 2 22:27:24 2007 UTC

… …
6 if ($ARGV[0] =~ m/^--?[hH](elp)?$/) { 6 if ($ARGV[0] =~ m/^--?[hH](elp)?$/) {
7 die ("\nUSAGE: perl collect.pl ARCHDIR\n". 7 die ("\nUSAGE: perl collect.pl ARCHDIR\n".
8 "\nWhere ARCHDIR is the directory where you stored the ". 8 "\nWhere ARCHDIR is the directory where you stored the ".
9 "raw archetypes.\n". 9 "raw archetypes.\n".
10 "This script will then create these files:\n". 10 "This script will then create these files:\n".
11 "archetypes,bmaps,bmaps.paths,faces,treasures.bld,animations.\n" 11 "archetypes,bmaps,bmaps.paths,faces,smooth,treasures.bld,animations.\n"
12 ) 12 )
13 } 13 }
14} 14}
15 15
16# archonly is used to only build the archetypes. I find this 16# archonly is used to only build the archetypes. I find this
… …
30$faces = "faces"; 30$faces = "faces";
31$treasures = "treasures.bld"; 31$treasures = "treasures.bld";
32$animations = "animations"; 32$animations = "animations";
33$paths = $bmaps."."."paths"; 33$paths = $bmaps."."."paths";
34$faceExt = "\\.[a-zA-Z0-9][A-Z0-9][A-Z0-9]"; 34$faceExt = "\\.[a-zA-Z0-9][A-Z0-9][A-Z0-9]";
35$smooths = "smooth"; 35$smooth = "smooth";
36 36
37### main 37### main
38&info("looking ..."); 38&info("looking ...");
39&traverse($root); 39&traverse($root);
40 40
… …
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");
69open(ARCH,">".$archetypes) || &die("cannot open ".$archetypes); 69open(ARCH,">".$archetypes) || &die("cannot open ".$archetypes);
70&archsOut; 70&archsOut($root);
71close(ARCH); 71close(ARCH);
72 72
73 73
74if (!$archonly) { 74if (!$archonly) {
75 &info("$bmaps"); 75 &info("$bmaps");
… …
84 &info("$faces"); 84 &info("$faces");
85 open(FACES,">".$faces) || &die("cannot open ".$faces); 85 open(FACES,">".$faces) || &die("cannot open ".$faces);
86 &facesOut; 86 &facesOut;
87 close(FACES); 87 close(FACES);
88 88
89 &info("$smooths"); 89 &info("$smooth");
90 open(SMOOTHS,">".$smooths) || &die("cannot open ".$smooths); 90 open(SMOOTHS,">".$smooth) || &die("cannot open ".$smooth);
91 &smoothOut; 91 &smoothOut;
92 close(SMOOTHS); 92 close(SMOOTHS);
93 93
94 &info("$treasures"); 94 &info("$treasures");
95 # We still support the old consolidated treasure information 95 # We still support the old consolidated treasure information
… …
170 170
171sub storeFaceInfo { 171sub storeFaceInfo {
172 local($lface,@values) = @_; 172 local($lface,@values) = @_;
173 173
174 if ($values[0] ne "") { 174 if ($values[0] ne "") {
175# blank.111 is a special case - 175# blank.x11 is a special case -
176# since no foreground pixels will actually be drawn, foreground colors is 176# since no foreground pixels will actually be drawn, foreground colors is
177# not relevant. Several monsters use blank.111 as part of their 177# not relevant. Several monsters use blank.x11 as part of their
178# animation to make them appear invisible, but have some other 178# animation to make them appear invisible, but have some other
179# foreground color set. 179# foreground color set.
180# Same applies to empty also. 180# Same applies to empty also.
181 if ($fg{$lface} && $fg{$lface} ne $values[0] && $lface ne "blank.111" 181 if ($fg{$lface} && $fg{$lface} ne $values[0] && $lface ne "blank.x11"
182 && $lface ne "empty.111") { 182 && $lface ne "empty.x11") {
183 &warn($arch." duplicate fg color ".$fg{$lface}."/".$values[0]." face ".$lface); 183 &warn($arch." duplicate fg color ".$fg{$lface}."/".$values[0]." face ".$lface);
184 } else { 184 } else {
185 $fg{$lface} = $values[0]; 185 $fg{$lface} = $values[0];
186 } 186 }
187 } 187 }
… …
190 &warn($arch." duplicate bg color ".$bg{$lface}."/".$values[1]." face ".$lface); 190 &warn($arch." duplicate bg color ".$bg{$lface}."/".$values[1]." face ".$lface);
191 } else { 191 } else {
192 $bg{$lface} = $values[1]; 192 $bg{$lface} = $values[1];
193 } 193 }
194 } 194 }
195 if ($values[2] ne "" && $lface ne "blank.111" && $lface ne "empty.111") { 195 if ($values[2] ne "" && $lface ne "blank.x11" && $lface ne "empty.x11") {
196# blank.111 is a special case - see above explanation 196# blank.x11 is a special case - see above explanation
197# Its visibility is always 0. 197# Its visibility is always 0.
198 if ($visibility{$lface} && $visibility{$lface} ne $values[2]) { 198 if ($visibility{$lface} && $visibility{$lface} ne $values[2]) {
199 &warn($arch." duplicate visibilty ".$visibility{$lface}."/".$values[2]." face ".$lface); 199 &warn($arch." duplicate visibilty ".$visibility{$lface}."/".$values[2]." face ".$lface);
200 } else { 200 } else {
201 $visibility{$lface} = $values[2]; 201 $visibility{$lface} = $values[2];
202 } 202 }
203 } 203 }
204 if ($values[3] ne "" && lface ne "blank.111" && $lface ne "empty.111") { 204 if ($values[3] ne "" && lface ne "blank.x11" && $lface ne "empty.x11") {
205 if ($magicmap{$lface} && $magicmap{$lface} ne $values[3]) { 205 if ($magicmap{$lface} && $magicmap{$lface} ne $values[3]) {
206 &warn($arch." duplicate magicmap color ".$magicmap{$lface}."/".$values[3]." face ".$lface); 206 &warn($arch." duplicate magicmap color ".$magicmap{$lface}."/".$values[3]." face ".$lface);
207 } else { 207 } else {
208 $magicmap{$lface} = $values[3]; 208 $magicmap{$lface} = $values[3];
209 } 209 }
… …
217 } 217 }
218} 218}
219 219
220 220
221sub archsOut { 221sub archsOut {
222 local($dir) = shift;
223
222 foreach $arch (@archs) { 224 foreach $arch (@archs) {
225 # Assume the filename $arch begins with $dir. Assign all path name
226 # components 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@;
227line: while(<ARC>) { 234line: 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 }
… …
358} 365}
359 366
360sub bmapsOut { 367sub bmapsOut {
361 &pheader; 368 &pheader;
362 $idx = 0; 369 $idx = 0;
363 &pline("bug.111"); 370 &pline("bug.x11");
364 foreach $face (sort(keys %faces)) { 371 foreach $face (sort(keys %faces)) {
365 &pline($face) if $face !~ /bug\.111/; 372 &pline($face) if $face !~ /bug\.x11/;
366 } 373 }
367} 374}
368 375
369sub pathsOut { 376sub pathsOut {
370 &pheader; 377 &pheader;
371 $idx = 0; 378 $idx = 0;
372 &opline($root."/system/bug.111"); 379 &opline($root."/system/bug.x11");
373 foreach $face (sort(keys %faces)) { 380 foreach $face (sort(keys %faces)) {
374 &opline($faces{$face}) if $faces{$face} !~ /bug\.111/; 381 &opline($faces{$face}) if $faces{$face} !~ /bug\.x11/;
375 } 382 }
376} 383}
377 384
378sub treasuresOut { 385sub treasuresOut {
379 foreach $treasure (@treasure_files) { 386 foreach $treasure (@treasure_files) {
… …
472} 479}
473sub smoothOut { 480sub smoothOut {
474 local ($sm); 481 local ($sm);
475 print SMOOTHS "##########################################################\n"; 482 print SMOOTHS "##########################################################\n";
476 print SMOOTHS "# Do not touch this file. #\n"; 483 print SMOOTHS "# Do not touch this file. #\n";
477 print SMOOTHS "# It has been generated from the informations present #\n"; 484 print SMOOTHS "# It has been generated from the information present #\n";
478 print SMOOTHS "# in the archetype files. #\n"; 485 print SMOOTHS "# in the archetype files. #\n";
479 print SMOOTHS "# To add new entries, simply add #\n"; 486 print SMOOTHS "# To add new entries, simply add #\n";
480 print SMOOTHS "# smoothface xxx yyy #\n"; 487 print SMOOTHS "# smoothface xxx yyy #\n";
481 print SMOOTHS "# to an archetype and collect.pl will put below an entry #\n"; 488 print SMOOTHS "# to an archetype and collect.pl will put below an entry #\n";
482 print SMOOTHS "# xxx yyy #\n"; 489 print SMOOTHS "# xxx yyy #\n";

Diff Legend

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