Mercurial > hg > batmud > misc

changeset 230:84e762667995 misc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add support for location/area name mappings.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 27 Jan 2012 20:40:05 +0200
parents cbbef11d7cac
children c03535678aee
files log2template.pl
diffstat 1 files changed, 13 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/log2template.pl	Fri Jan 27 20:39:35 2012 +0200
+++ b/log2template.pl	Fri Jan 27 20:40:05 2012 +0200
@@ -77,6 +77,10 @@
 );
 
 
+my %areaMappings = (
+  "Ocp west" => { "name" => "Old Central Park in Arelium", "continent" => "Laenor" },
+);
+
 # Stat name translations
 my @statTransTable = (
   sub { return $_[0] =~ s/^ability at the (skill|spell) (.+)$/$2/ },
@@ -235,6 +239,15 @@
       $$mob{"continent"} = $1;
       $$mob{"xc"} = $2;
       $$mob{"yc"} = $3;
+    } elsif ($s =~ /^You are in '.*?' in (.+?)\.$/o) {
+      my $area = $1;
+      # Area, continent
+      if (defined($areaMappings{$area})) {
+        $$mob{"area"} = $areaMappings{$area}{"name"};
+      }
+      $$mob{"continent"} = $areaMappings{$area}{"continent"};
+      $$mob{"xc"} = 0;
+      $$mob{"yc"} = 0;
     } elsif ($s =~ /^You $sayregex '(-\?\?-|--\?\?--\?\?--\?\?--\?\?--)\.'$/o) {
       set_state(2, $s);
     } else {