Mercurial > hg > batmud > misc

changeset 130:09515ab68178 misc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed, obsolete now.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 20 Dec 2010 15:31:09 +0000
parents 56b84ce195d9
children c00076b2d39a
files materials/csv2phpsql.pl
diffstat 1 files changed, 0 insertions(+), 405 deletions(-) [+]
line wrap: on
line diff
--- a/materials/csv2phpsql.pl	Mon Dec 20 15:30:28 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,405 +0,0 @@
-#!/usr/bin/perl -w
-#use strict;
-
-my %transtab = (
-  2 => {
-    "very light" => 0,
-    "light" => 1,
-    "normal" => 2,
-    "heavy" => 3,
-    "very heavy" => 4,
-  },
-  3 => {
-    "very fragile" => 0,
-    "fragile" => 1,
-    "normal" => 2,
-    "sturdy" => 3,
-    "very sturdy" => 4,
-    "incredibly sturdy" => 5,
-  },
-  4 => {
-    "notable magical" => 0,
-    "very magical" => 1,
-    "weakly magical" => 2,
-    "highly magical" => 3,
-    "not magical" => 4,
-    "magical" => 5,
-    "a bit magical" => 6,
-  },
-  5 => {
-    "unburnable" => 0,
-    "almost unburnable" => 1,
-    "quite unburnable" => 2,
-    "normal" => 3,
-    "quite flammable" => 4,
-    "very flammable" => 5,
-    "highly flammable" => 6,
-  },
-  6 => {
-    "icy" => 0,
-    "drafty" => 1,
-    "comfortable" => 2,
-    "chilly" => 3,
-    "excellent" => 4,
-    "very warm" => 5,
-  },
-  7 => {
-    "non toxic" => 0,
-    "very low toxicity" => 1,
-    "low toxicity" => 2,
-    "mediocre toxicity" => 3,
-    "toxic" => 4,
-    "very toxic" => 5,
-    "highly toxic" => 6,
-  },
-  8 => {
-    "insulator" => 0,
-    "good" => 1,
-    "weak" => 2,
-    "poor" => 3,
-    "great" => 4,
-    "lousy" => 5,
-  },
-  9 => {
-    "loose" => 0,
-    "a bit loose" => 1,
-    "quite solid" => 2,
-    "solid" => 3,
-    "very solid" => 4,
-    "incredibly solid" => 5,
-  },
-  10 => {
-    "poor mentality" => 3,
-    "low mentality" => 1,
-    "some mentality" => 0,
-    "mental" => 2,
-    "great mentality" => 4,
-    "high mentality" => 5,
-  },
-  11 => {
-    "great reactivity" => 0,
-    "not reactive" => 1,
-    "reactive" => 2,
-    "poor reactivity" => 3,
-    "low reactivity" => 4,
-    "notable reactivity" => 5,
-    "high reactivity" => 6,
-  },
-  12 => {
-    "not used" => 0,
-    "rarely used" => 1,
-    "sometimes used" => 2,
-    "frequently used" => 3,
-    "quite much used" => 4,
-    "most common" => 5,
-  },
-  13 => {
-    "not used" => 0,
-    "rarely used" => 1,
-    "sometimes used" => 2,
-    "frequently used" => 3,
-    "quite much used" => 4,
-    "most common" => 5,
-  },
-  14 => {
-    "cheap" => 0,
-    "low-priced" => 1,
-    "average" => 2,
-    "valuable" => 3,
-    "very valuable" => 4,
-    "highly valuable" => 5,
-  },
-  15 => {
-    "impossible" => 0,
-    "very rare" => 1,
-    "rare" => 2,
-    "average" => 3,
-    "common" => 4,
-    "quite common" => 5,
-    "very common" => 6,
-  },
-  16 => {
-    "Organ" => 0,
-    "Cloth" => 1,
-    "Paper" => 2,
-    "Bone" => 3,
-    "Metal" => 4,
-    "Wood" => 5,
-    "Stone" => 6,
-    "Alloy" => 7,
-    "Inorg" => 8,
-    "Glass" => 9,
-    "Gem" => 10,
-  },
-  17 => {
-    "No" => 0,
-    "Yes" => 1,
-  },
-  18 => {
-    "Hit" => 0,
-    "Protrusion" => 1,
-    "Crag" => 2,
-    "Lode" => 3,
-    "Pocket" => 4,
-    "Gloss" => 5,
-    "Shard" => 6,
-    "Deposit" => 7,
-    "Mountain" => 8,
-    "Nest" => 9,
-    "Stack" => 10,
-    "Mound" => 11,
-    "Chunky" => 12,
-    "Puddle" => 13,
-    "Slab" => 14,
-    "Network" => 15,
-    "Pool" => 16,
-    "Hill" => 17,
-    "Mass" => 18,
-    "Tangle" => 19,
-    "Graveyard" => 20,
-    "Lump" => 21,
-    "Coil" => 22,
-    "Abyss" => 23,
-    "Pile" => 24,
-    "Torrent" => 25,
-  },
-  19 => {
-    "heap" => 0,
-    "stick" => 1,
-    "pocket" => 2,
-    "hunk" => 3,
-    "shard" => 4,
-    "string" => 5,
-    "stone" => 6,
-    "slice" => 7,
-    "wisp" => 8,
-    "wad" => 9,
-    "clump" => 10,
-    "carcass" => 11,
-    "gob" => 12,
-    "strip" => 13,
-    "dough" => 14,
-    "ball" => 15,
-    "chunk" => 16,
-    "load" => 17,
-    "leaf" => 18,
-    "salt" => 19,
-    "pile" => 20,
-    "isotope" => 21,
-    "tusk" => 22,
-    "clod" => 23,
-    "lump" => 24,
-    "lode" => 25,
-    "piece" => 26,
-    "flame" => 27,
-    "stem" => 28,
-    "sphere" => 29,
-    "fragment" => 30,
-    "mineral" => 31,
-    "twig" => 32,
-    "stalk" => 33,
-    "crystal" => 34,
-    "log" => 35,
-    "reed" => 36,
-    "nugget" => 37,
-    "mix" => 38,
-    "mic" => 39,
-    "pulp" => 40,
-    "block" => 41,
-    "puddle" => 42,
-    "sliver" => 43,
-  },
-  20 => {
-    "formed" => 0,
-    "stick" => 1,
-    "bundle" => 2,
-    "ellipsoid" => 3,
-    "pocket" => 4,
-    "brick" => 5,
-    "mold" => 6,
-    "gene" => 7,
-    "shard" => 8,
-    "form" => 9,
-    "wisp" => 10,
-    "isometric" => 11,
-    "cord" => 12,
-    "billot" => 13,
-    "bar" => 14,
-    "bolt" => 15,
-    "strip" => 16,
-    "ball" => 17,
-    "billit" => 18,
-    "chunk" => 19,
-    "octagon" => 20,
-    "cube" => 21,
-    "ingot" => 22,
-    "chip" => 23,
-    "casting" => 24,
-    "dean" => 25,
-    "piece" => 26,
-    "flame" => 27,
-    "billet" => 28,
-    "crafted" => 29,
-    "cut" => 30,
-    "pelt" => 31,
-    "strand" => 32,
-    "crystal" => 33,
-    "log" => 34,
-    "reed" => 35,
-    "tetragonal" => 36,
-    "sheet" => 37,
-    "strap" => 38,
-    "reem" => 39,
-    "length" => 40,
-    "sculpted" => 41,
-    "block" => 42,
-    "hexagonal" => 43,
-    "product" => 44,
-    "shaped" => 45,
-    "puddle" => 46,
-    "fibres" => 47,
-    "slab" => 48,
-  },
-);
-
-my @names = (
-  "Name",
-  "Weight",
-  "Sturdyness",
-  "Magic",
-  "Flammability",
-  "Warmth",
-  "Toxicity",
-  "Resist",
-  "Malleability",
-  "Mentality",
-  "Reactivity",
-  "Weapon rarity",
-  "Armour rarity",
-  "Value",
-  "Rarity",
-  "Type",
-  "Found in Nature",
-  "Lode name",
-  "Raw names",
-  "Refined names",
-);
-
-
-###
-### Parse input
-###
-my $opts = shift || die("Usage: kakka [-sql|-php|-mat] < material_info.csv\n");
-
-my %data = ();
-while (<STDIN>) {
-  chomp;
-  if (/^([a-z ]+);([a-z ]+);([a-z ]+);([a-z ]+);([a-z ]+);([a-z ]+);([a-z ]+);([a-z ]+);([a-z ]+);([a-z ]+);([a-z ]+);([a-z ]+);([a-z ]+);([a-z -]+);([a-z ]+);([a-zA-Z ]+);(Yes|No);([A-Z][a-z]+);([a-z, ]+);([a-z, ]+);$/) {
-    for (my $i = 2; $i <= 18; $i++) {
-      $data{$1}{$i} = $$i;
-    }
-    for (my $i = 19; $i <= 20; $i++) {
-      my @tmp = split(/, */, $$i);
-      $data{$1}{$i} = \@tmp;
-    }
-  } else {
-    print STDERR "$0: # $_\n";
-  }
-}
-
-
-###
-### Dump data ...
-###
-if ($opts eq "-mat") {
-  print "my \%alloyNames = (";
-  my $n = 0;
-  foreach my $i (sort { $a cmp $b } keys %data) {
-    print "\"$i\" => $n,";
-    $n++;
-  }
-  print ");\n\n";
-  print "my \@alloyNameTable = (";
-  foreach my $i (sort { $a cmp $b } keys %data) {
-    print "\"$i\",";
-  }
-  print ");\n\n";
-} elsif ($opts eq "-php") {
-  print "<?\n".
-  "\$transNameTable = array(";
-  foreach my $i (@names) {
-    print "\"$i\",";
-  }
-  print ");\n\n".
-  "\$transTable = array(\n";
-  foreach my $i (sort { $a <=> $b } keys %transtab) {
-    print "  array(";
-    foreach my $j (keys %{$transtab{$i}}) {
-      if (defined($transtab{$i}{$j})) {
-        print $transtab{$i}{$j};
-        $j =~ s/very /v./;
-        $j =~ s/incredibly /incr./;
-        print " => \"$j\","
-      } else {
-        print STDERR "$0: Unknown transTable type $i : $j\n";
-      }
-    }
-    print "),\n";
-  }
-  print ");\n\n".
-  "\$matTable = array(\n";
-  foreach my $i (sort { $a cmp $b } keys %data) {
-    print "  \"$i\" => array(";
-    foreach my $j (sort { $a <=> $b } keys %{$data{$i}}) {
-      my $s = $data{$i}{$j};
-      if (defined($transtab{$j}{$s})) {
-        print $transtab{$j}{$s}.", ";
-      } elsif (ref($s) eq "ARRAY") {
-        print "array(";
-        foreach my $q (sort { $a cmp $b } @{$s}) {
-          if (defined($transtab{$j}{$q})) {
-            print $transtab{$j}{$q}.",";
-          } else {
-            print STDERR "$0: Unknown matTable type $i : $j :: $q!\n";
-          }
-        }
-        print "),";
-      } else {
-        print STDERR "$0: Unknown matTable type $i : $j == $s\n";
-        print "-1,";
-      }
-    }
-    print "),\n";
-  }
-  print ");\n?>\n";
-} elsif ($opts eq "-sql") {
-
-  print qq|
-DROP TABLE IF EXISTS material_info;
-CREATE TABLE material_info (
-  id INT NOT NULL auto_increment,
-  name VARCHAR(50),
-|;
-  foreach my $i (@names) {
-    my $s = lc($i);
-    $s =~ s/[^a-z]/_/g;
-    print "  ".$s." INT,\n";
-  }
-  print qq|
-  PRIMARY KEY (id, name)
-);
-  |;
-
-  foreach my $i (sort { $a cmp $b } keys %data) {
-    print "INSERT INTO material_info VALUES ('$i', ";
-    foreach my $j (sort { $a <=> $b } keys %{$data{$i}}) {
-      my $s = $data{$i}{$j};
-      if (defined($transtab{$j}{$s})) {
-        print $transtab{$j}{$s}.", ";
-      } elsif (ref($s) eq "ARRAY") {
-      } else {
-        print "NULL,";
-      }
-    }
-  }
-}