| version 1.3 | version 1.4 | |||
|---|---|---|---|---|
|
| |||
| require "util.pl"; | require "util.pl"; | |||
| if ($#ARGV != 0 || ($ARGV[0] =~ m/^--?[hH](elp)?$/)){ | ||||
| die ("\nUSAGE: perl collect.pl ARCHDIR\n". | ||||
| "\nWhere ARCHDIR is the directory where you stored the ". | ||||
| "raw archetypes.\n". | ||||
| "This script will then create these files:\n". | ||||
| "archetypes,bmaps,bmaps.paths,faces,animations.\n" | ||||
| ) | ||||
| } | ||||
| $root = $ARGV[0]; | $root = $ARGV[0]; | |||
| $archetypes = "archetypes"; | $archetypes = "archetypes"; | |||
| $bmaps = "bmaps"; | $bmaps = "bmaps"; |
Legend:
| ||||||