[ViewVC] Diff of: cvs/deliantra/Deliantra/bin/cfmap-plushify

Comparing deliantra/Deliantra/bin/cfmap-plushify (file contents):
Revision 1.11 by root, Wed Oct 28 08:51:27 2009 UTC vs.
Revision 1.12 by root, Wed Oct 28 10:17:01 2009 UTC

 #TODO: fix dialogue
 #TODO: update file format version
 # this script checks, fixes and simplifies @match expressions in a map
+use Deliantra;
 use Deliantra::Map;
+load_archetypes;
 our $dirty;
 sub fix_msg($) {
    my ($msg) = @_;
    warn "$path ($_) unexpected characters in match\n" if /[\[\]]/;
    $_
 }
-sub patch_face($) {
+sub patch_arch($) {
    if ($_[0]{face} =~ /\.[1-9]\d\d$/) {
       $_[0]{face} =~ s/\.([2-9])\1\1$/.x1$1/; # 222, 333, 444
       $_[0]{face} =~ s/\.1(\d\d)$/.x$1/; # 1AB xAB
       $dirty++;
+   }
+   unless (exists $ARCH{ $_[0]{_name} }) {
+      die "$_[0]{_name}\n";#d#
    }
 }
 sub patch_inv($) {
   my ($arch) = @_;
   my $inv = $arch->{inventory} || [];
   for (@$inv) {
-     patch_face $_;
+     patch_arch $_;
      if ($_->{type} == 116 || $_->{_name} =~ /^event_/) {
         # deliantra to old deliantra+
         if ($_->{slaying} eq '/python/IPO/send.py') {
            $_->{title} = 'perl';
          or die "$path: file load error\n";
       $dirty = 0;
       for my $a (map @$_, grep $_, map @$_, grep $_, @{ $map->{map} }) {
-         patch_face $a;
+         patch_arch $a;
          patch_inv $a if $a->{inventory};
          next unless $a->{msg} =~ /^\@match /;
          my $old = $a->{msg};

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