Mercurial > hg > batmud > misc

changeset 160:1dcef20c57fd misc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleanups, fixes.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 30 Dec 2010 01:20:55 +0000
parents b593faff9795
children b666a36d7655
files log2npctemplate.pl
diffstat 1 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/log2npctemplate.pl	Thu Dec 30 01:20:37 2010 +0000
+++ b/log2npctemplate.pl	Thu Dec 30 01:20:55 2010 +0000
@@ -1,9 +1,4 @@
 #!/usr/bin/perl -w
-# Feed in log files with data from following command alias:
-# command qla say ---------- $* ----------;prod $*;whereami;say --??--??--??--??--;blook at $*;say -=-=-=-=-=-=-=-=-;look at $*;say ====================
-#
-# Yes, could be less spammy, but I can't be arsed to change it now.
-#
 use strict;
 
 my @spellchants = (
@@ -26,6 +21,7 @@
 "closes his eyes and with a dry, dark voice entones",
 "shakes with firey rage and yells",
 "traces fiery demonic night runes in the air",
+"weaves a mystic matrix with glowing red lines in arcane ways and chants",
 #"",
 );
 
@@ -64,7 +60,7 @@
     # Grab spells cast
 #    print STDERR "CAST: '$1' '$3' \@ #$line\n";
     $spells{$1}{$line} = $3;
-  } elsif (/\| +(\d+): (.+?) +\|$/) {
+  } elsif (/\| \d\d:\d\d +(\d+): (.+?) +\|$/) {
     # Grab exp worth
     my $exp = $1;
     my $tmp = $2;
@@ -140,6 +136,9 @@
     } elsif (/^([A-Z][a-z, ]+): (.*)$/) {
       # Collect EQ and slot information
       $mob_eqs->{$1} = $2;
+    } elsif (/^([A-Z][a-z, ]+)\s+\(partially hidden\)\s*: (.*)$/) {
+      # Collect EQ and slot information
+      $mob_eqs->{$1} = $2;
     } elsif (/^ +([a-zA-Z -]+?)'s equipment:$/) {
     } elsif (/^((It|She|He) has a blueish black kiss on ... cheek\.|(It|She|He) suffers from scourge\.|Some glittering red mist is surrounding this creature.|Nothing\.|(It|He|She) has a faint ring of .+ magic mist around ... neck\.)$/) {
     } else {