Setting up 3.5.0 as trunk

lib/world/shp/shop-convert.pl

@@ -0,0 +1,73 @@
+#!/usr/bin/perl -w
+
+# This quick and dirty perl script was written to convert v3 shop files from
+# using hard-coded numbers to using keywords.  The keywords are stored in
+# the @item_types array found immediately after these comments.  Ensure that
+# the order and contents of this array match the item types in your source
+# code (defines found in structs.h, keywords in constant.c).
+#
+# Please note that this is not a supported script and is merely provided in
+# an attempt to ease your life if you choose to use keywords rather than
+# hard-coded values in the same fashion.
+#
+# ** IMPORTANT ** Back up your shop files before using this script, and verify
+# the changes before booting up your mud.  This may make your mud unbootable
+# if you do not verify the changes.
+#
+# ** IMPORTANT ** This only works on v3 shops (ie, ones that conform to the
+# v3 format, and begin with the line 'CircleMUD v3.0 Shop File~'.  This will
+# destroy v2 shop files.
+#
+# Usage:    shop-convert.pl [old shop file] > [new shop file]
+# Example:  shop-convert.pl 1.shp > 1.shp.new
+#
+
+my @item_types = (
+  "UNDEFINED",
+  "LIGHT",
+  "SCROLL",
+  "WAND",
+  "STAFF",
+  "WEAPON",
+  "FIRE WEAPON",
+  "MISSILE",
+  "TREASURE",
+  "ARMOR",
+  "POTION",
+  "WORN",
+  "OTHER",
+  "TRASH",
+  "TRAP",
+  "CONTAINER",
+  "NOTE",
+  "LIQ CONTAINER",
+  "KEY",
+  "FOOD",
+  "MONEY",
+  "PEN",
+  "BOAT",
+  "FOUNTAIN",
+);
+
+my $state  = 0;
+my $vthree = 0;
+while (<>) {
+  chomp;
+  $vthree = 1 if (/^CircleMUD v3.0 Shop File~/);
+  die "Use only on v3 format shop files.\n" unless ($vthree);
+  if (/^#/) {
+    $state = 1;
+  } elsif ($state == 1) {
+    $state++ if ($_ eq '-1');
+  } elsif ($state == 2 || $state == 3) {
+    $state++;
+  } elsif ($state == 4) {
+    if ($_ eq '-1') {
+      $state++;
+    } else {
+      $_ = $item_types[$_];  # add 'lc' before '$item' to lower case.
+    }
+  }
+  print "$_\n";
+}
+