dsrc/sku.0/sys.server/compiled/game/abstract/armor_statistics/armorconvert.pl

   1 #!/usr/bin/perl
   2
   3 # Author: Brandon Reinhart
   4 # Date:   04/10/03
   5 #
   6 # Converts armor_templates from version 0 to version 1.
   7
   8 use Cwd;
   9
  10 print "Converting armor statistics files to new format.\n";
  11
  12 # Test to make sure the file is a .tpf and convert it to the new format.
  13 sub convertFile
  14 {
  15 #       print "  --> \[$_[0]\]\n";
  16
  17         # Cull files that are not .tpfs.
  18         $_ = $_[0];
  19         if ( !/\.tpf$/ )
  20         {
  21                 return;
  22         }
  23
  24         # Open the file and our target file.
  25         open CURFILE, $_[0];
  26         open NEWFILE, ">$_[0].new";
  27
  28         # Convert this file.
  29         $vullist = "0";
  30         $linetoprint = "";
  31         $printline = 0;
  32         while( <CURFILE> )
  33         {
  34                 if ( /\n$/ )
  35                 {
  36                         chop;
  37                 }
  38                 if ( /\r$/ )
  39                 {
  40                         chop;
  41                 }
  42
  43                 if ( $printline == 1 )
  44                 {
  45                         if ( $linetoprint =~ /type/ )
  46                         {
  47                                 /effectiveness\s*=(\d*)/;
  48                                 $effnum = $1;
  49                                 if ( /type/ && $effnum > 1 )
  50                                 {
  51                                         chop($linetoprint);
  52                                         $linetoprint .= ",";
  53                                 }
  54                                 else
  55                                 {
  56                                         chop($linetoprint);
  57                                         $linetoprint .= "]";
  58                                 }
  59                         }
  60                         print NEWFILE $linetoprint . "\n";
  61                         $linetoprint = "";
  62                 }
  63                 $printline = 1;
  64
  65                 # Convert class entry.
  66                 s/class\s*armor_template\s*0/class armor_template 1/;
  67
  68                 # Convert specialProtection.
  69                 if ( /type/ )
  70                 {
  71                         # Get endchar.
  72                         /(.).$/;
  73                         $endchar = $1;
  74
  75                         # Get type.
  76                         /type\s*=\s*(.*),\s*elemental/;
  77                         $pretype = $1;
  78                         if ( $pretype =~ /elemental/ || $pretype =~ /environmental/ )
  79                         {
  80                                 # Get elemental subtype.
  81                                 /elementalType\s*=\s*EDT(.*),\s*effect/;
  82                                 $pretype .= $1;
  83                         }
  84
  85                         # Get effectiveness.
  86                         /effectiveness\s*=(\d*)/;
  87                         $effnum = $1;
  88                         if ( $effnum == 0 || $effnum == 1 )
  89                         {
  90                                 $vullist .= " \| $pretype";
  91                                 $printline = 0;
  92                         }
  93                         else
  94                         {
  95                                 # Write the new line.
  96                                 $_ = "  [type = $pretype, effectiveness = $effnum]]";
  97                         }
  98                 }
  99
 100                 # Convert encumberance.
 101                 if ( /encumberance/ )
 102                 {
 103                         # Get health.
 104                         if ( /AT_strength/ )
 105                         {
 106                                 /AT_strength]\s*=\s*(\d*)/;
 107                                 $_ = "encumbrance [0] = $1";
 108                         }
 109                         elsif ( /AT_quickness/ )
 110                         {
 111                                 /AT_quickness]\s*=\s*(\d*)/;
 112                                 $_ = "encumbrance [1] = $1";
 113                         }
 114                         elsif ( /AT_focus/ )
 115                         {
 116                                 /AT_focus]\s*=\s*(\d*)/;
 117                                 $_ = "encumbrance [2] = $1";
 118                         }
 119                         else
 120                         {
 121                                 $printline = 0;
 122                         }
 123                 }
 124
 125                 # Put contents of line into new file.
 126                 if ( $printline == 1 )
 127                 {
 128                         $linetoprint = $_;
 129                 }
 130         }
 131
 132         # Add final line.
 133         print NEWFILE $linetoprint;
 134
 135         # Add the vulnerability line.
 136         print NEWFILE "vulnerability = $vullist\n";
 137
 138         # Close the file.
 139         close CURFILE;
 140         close NEWFILE;
 141
 142         # Rename the file.
 143         rename $_[0], "$_[0].old";
 144         rename "$_[0].new", $_[0];
 145
 146         # Go through again.
 147         open CURFILE, $_[0];
 148         open NEWFILE, ">$_[0].new";
 149         $printline = 0;
 150         while ( <CURFILE> )
 151         {
 152                 if ( /\n$/ )
 153                 {
 154                         chop;
 155                 }
 156                 if ( $printline == 1 )
 157                 {
 158                         # On the second pass, remove any empty sp blocks.
 159                         if ( $linetoprint =~ /specialProtection/ )
 160                         {
 161                                 if ( /type/ )
 162                                 {
 163                                         print NEWFILE $linetoprint . "\n";
 164                                 }
 165                                 else
 166                                 {
 167                                         print NEWFILE "specialProtection = []\n";
 168                                 }
 169                         }
 170                         else
 171                         {
 172                                 print NEWFILE $linetoprint . "\n";
 173                         }
 174                 }
 175
 176                 $printline = 1;
 177                 $linetoprint = $_;
 178         }
 179
 180         # Add final line.
 181         print NEWFILE $linetoprint;
 182
 183         # Close the files.
 184         close CURFILE;
 185         close NEWFILE;
 186
 187         # Rename the file.
 188         rename "$_[0].new", $_[0];
 189 }
 190
 191 sub fileRename
 192 {
 193         rename "$_[0].old", $_[0];
 194 }
 195
 196 # Open all files in a directory and convert them.  Called recursively.
 197 sub convertDir
 198 {
 199         print "OPENING \[$_[0]\]\n";
 200         opendir THISDIR, $_[0] or die "I could not open $_[0]: $!\n";
 201         my @allfiles = grep !/^\.\.?$/, readdir THISDIR;
 202         closedir THISDIR;
 203         chdir( $_[0] );
 204
 205         foreach $file (@allfiles)
 206         {
 207                 if ( -d $file )
 208                 {
 209                         convertDir($file);
 210                         chdir( ".." ) or die "Can't change to .. $!\n";
 211                 }
 212                 else
 213                 {
 214                         convertFile($file);
 215                         #fileRename($file);
 216                 }
 217         }
 218 }
 219
 220 convertDir ".";
 221
 222