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.5 by root, Thu Feb 8 02:21:18 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 =~ /^\s*(?:#?.*|)$/) {
231 #developper comment, switch to next line 238 #developper comment, switch to next line
232 $commentNum++; 239 $commentNum++;
233 next line; 240 next line;
234 }
235 if ($var eq "Object") { 241 } elsif ($var eq "Object") {
236 $lface[0] = ""; 242 $lface[0] = "";
237 $#lface = 0; 243 $#lface = 0;
238 $lfg = ""; 244 $lfg = "";
239 $lbg = ""; 245 $lbg = "";
240 $lvis = ""; 246 $lvis = "";
241 $mm = ""; 247 $mm = "";
242 $floor = ""; 248 $floor = "";
243 $walkon = 0; 249 $walkon = 0;
244 $nopick = 0; 250 $nopick = 0;
245 $arch = join "_", @values; 251 $arch = join "_", @values;
246 }
247 if ($var eq "end") { 252 } elsif ($var eq "end") {
248 if ($#lface !=0) { 253 if ($#lface !=0) {
249 $#lface--; 254 $#lface--;
250 foreach $face (@lface) { 255 foreach $face (@lface) {
251 &storeFaceInfo($face, $lfg, $lbg, $lvis,$mm,$floor); 256 &storeFaceInfo($face, $lfg, $lbg, $lvis,$mm,$floor);
252 } 257 }
253 } 258 }
254 if ($walkon && !$nopick) { 259 if ($walkon && !$nopick) {
255 &warn("File $arch has an object with walk_on set which can be picked up\n"); 260 &warn("File $arch has an object with walk_on set which can be picked up\n");
256 } 261 }
257 }
258 # Process the color/face info now 262 # Process the color/face info now
259 if ($var eq "color_fg") { 263 } elsif ($var eq "color_fg") {
260 $lfg = $values[0]; 264 $lfg = $values[0];
261 next line; 265 next line;
262 }
263 if ($var eq "color_bg") { 266 } elsif ($var eq "color_bg") {
264 $lbg = $values[0]; 267 $lbg = $values[0];
265 next line; 268 next line;
266 }
267 if ($var eq "end") { 269 } elsif ($var eq "end") {
268 print ARCH "editor_folder $pathto\n"; 270 print ARCH "editor_folder $pathto\n" if $pathto ne "";
269 }
270 if ($var eq "visibility") { 271 } elsif ($var eq "visibility") {
271 $lvis = $values[0]; 272 $lvis = $values[0];
272 next line; 273 next line;
273 }
274 if ($var eq "magicmap") { 274 } elsif ($var eq "magicmap") {
275 $mm = $values[0]; 275 $mm = $values[0];
276 next line; 276 next line;
277 }
278 if ($var eq "attacktype") { 277 } elsif ($var eq "attacktype") {
279 $at = 0; 278 $at = 0;
280 foreach $t ( @values ) { 279 foreach $t ( @values ) {
281 if ( $t =~ /^\d+$/ ) { 280 if ( $t =~ /^\d+$/ ) {
282 $at |= $t; 281 $at |= $t;
283 } else { 282 } else {
… …
287 &warn($arch . " has invalid attacktype " . $t); 286 &warn($arch . " has invalid attacktype " . $t);
288 } 287 }
289 } 288 }
290 } 289 }
291 $_ = $var . ' ' . $at; 290 $_ = $var . ' ' . $at;
292 }
293 if ($var eq "is_floor") { 291 } elsif ($var eq "is_floor") {
294 $floor = $values[0]; 292 $floor = $values[0];
295 # is_floor is also needed for archs, so let it pass 293 # is_floor is also needed for archs, so let it pass
296 # through 294 # through
297 }
298 elsif ($var eq "no_pick") { 295 } elsif ($var eq "no_pick") {
299 $nopick = $values[0]; 296 $nopick = $values[0];
300 } elsif ($var eq "walk_on") { 297 } elsif ($var eq "walk_on") {
301 $walkon = $values[0]; 298 $walkon = $values[0];
302 }
303 elsif ($var eq "face") { 299 } elsif ($var eq "face") {
304 $lface[$#lface++] = $values[0] 300 $lface[$#lface++] = $values[0]
305 }
306 elsif ($var eq "anim") { 301 } elsif ($var eq "anim") {
307 if ($anim{$arch}) { 302 if ($anim{$arch}) {
308 &warn("$arch is a duplicate animation name"); 303 &warn("$arch is a duplicate animation name");
309 $anim{$arch}=""; 304 $anim{$arch}="";
310 } 305 }
311 while (<ARC>) { 306 while (<ARC>) {
… …
321 } 316 }
322 $anim{$arch} .= "$var\n"; 317 $anim{$arch} .= "$var\n";
323 } 318 }
324 print ARCH "animation $arch\n"; 319 print ARCH "animation $arch\n";
325 next line; # don't want the mina 320 next line; # don't want the mina
326 }
327 if ($var eq "face" && ! $faces{$values[0]}) { 321 } elsif ($var eq "face" && ! $faces{$values[0]}) {
328 &warn($arch." is missing face ".$values[0]) 322 &warn($arch." is missing face ".$values[0])
329 }
330 if ($var eq "smoothface") { 323 } elsif ($var eq "smoothface") {
331 if ($smoothing{$values[0]} && ($smoothing{$values[0]} ne $values[1])) { 324 if ($smoothing{$values[0]} && ($smoothing{$values[0]} ne $values[1])) {
332 &warn($arch." duplicate smoothface for ".$values[0].": ".$smoothing{$values[0]}." and ".$values[1]); 325 &warn($arch." duplicate smoothface for ".$values[0].": ".$smoothing{$values[0]}." and ".$values[1]);
333 } elsif ( ($values[0] eq "") || ($values[1] eq "")) { 326 } elsif ( ($values[0] eq "") || ($values[1] eq "")) {
334 &warn ($arch." incomplete smoothface entry found: ".$values[0]." ".$values[1]); 327 &warn ($arch." incomplete smoothface entry found: ".$values[0]." ".$values[1]);
335 } else { 328 } else {
… …
358} 351}
359 352
360sub bmapsOut { 353sub bmapsOut {
361 &pheader; 354 &pheader;
362 $idx = 0; 355 $idx = 0;
363 &pline("bug.111"); 356 &pline("bug.x11");
364 foreach $face (sort(keys %faces)) { 357 foreach $face (sort(keys %faces)) {
365 &pline($face) if $face !~ /bug\.111/; 358 &pline($face) if $face !~ /bug\.x11/;
366 } 359 }
367} 360}
368 361
369sub pathsOut { 362sub pathsOut {
370 &pheader; 363 &pheader;
371 $idx = 0; 364 $idx = 0;
372 &opline($root."/system/bug.111"); 365 &opline($root."/system/bug.x11");
373 foreach $face (sort(keys %faces)) { 366 foreach $face (sort(keys %faces)) {
374 &opline($faces{$face}) if $faces{$face} !~ /bug\.111/; 367 &opline($faces{$face}) if $faces{$face} !~ /bug\.x11/;
375 } 368 }
376} 369}
377 370
378sub treasuresOut { 371sub treasuresOut {
379 foreach $treasure (@treasure_files) { 372 foreach $treasure (@treasure_files) {
… …
472} 465}
473sub smoothOut { 466sub smoothOut {
474 local ($sm); 467 local ($sm);
475 print SMOOTHS "##########################################################\n"; 468 print SMOOTHS "##########################################################\n";
476 print SMOOTHS "# Do not touch this file. #\n"; 469 print SMOOTHS "# Do not touch this file. #\n";
477 print SMOOTHS "# It has been generated from the informations present #\n"; 470 print SMOOTHS "# It has been generated from the information present #\n";
478 print SMOOTHS "# in the archetype files. #\n"; 471 print SMOOTHS "# in the archetype files. #\n";
479 print SMOOTHS "# To add new entries, simply add #\n"; 472 print SMOOTHS "# To add new entries, simply add #\n";
480 print SMOOTHS "# smoothface xxx yyy #\n"; 473 print SMOOTHS "# smoothface xxx yyy #\n";
481 print SMOOTHS "# to an archetype and collect.pl will put below an entry #\n"; 474 print SMOOTHS "# to an archetype and collect.pl will put below an entry #\n";
482 print SMOOTHS "# xxx yyy #\n"; 475 print SMOOTHS "# xxx yyy #\n";

Diff Legend

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