Mercurial > hg > batmud > misc
changeset 174:f805996bfb4a misc
Fixes for Nuane(tm) compatibility.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Fri, 07 Jan 2011 14:21:01 +0000 |
| parents | 589cab204b57 |
| children | 686af99d677a |
| files | log2npctemplate.pl |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/log2npctemplate.pl Fri Jan 07 13:53:29 2011 +0000 +++ b/log2npctemplate.pl Fri Jan 07 14:21:01 2011 +0000 @@ -105,6 +105,8 @@ $monsters{$sdesc}{"exp"} = $exp; } } + } elsif ($s =~ /^\[\d\d:\d\d:\d\d\] hp/) { + # Ignore } elsif ($s =~ /^You see nothing special\.$/o) { setstate(0, $s); } elsif ($state == 0 && $s =~ /^You $sayregex '-+ .+? -+\.'$/o) { @@ -155,7 +157,8 @@ if ($s =~ /^ +([a-zA-Z ,-]+?)'s equipment:$/o) { # End of long desc setstate(4, $s); - } elsif ($s =~ /^(He|She|It) +\[[a-z]+\] \([0-9-]+\%\)$/o) { + } elsif ($s =~ /^(He|She|It) +\[[a-z]+\] \([0-9-]+\%\)$/o || + $s =~ /^(He|She|It) is (in (a )?)?(excellent shape|good shape|slightly hurt|noticeably hurt|not in a good shape|bad shape|very bad shape|near death)/o) { # End of long desc setstate(4, $s); } elsif ($s =~ /^You $sayregex /o) {