Mercurial > hg > batmud > ggrtf

changeset 85:10535d630996

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More fixes to regexps and passing of variables
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 18 Oct 2005 18:29:47 +0000
parents b5da20be6b96
children 74f8963f2136
files ggrtf-pssmangle.tf
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/ggrtf-pssmangle.tf	Tue Oct 18 14:40:03 2005 +0000
+++ b/ggrtf-pssmangle.tf	Tue Oct 18 18:29:47 2005 +0000
@@ -48,9 +48,9 @@
 		/substitute -ag%;\
 	/endif
 
-/def -F -mregexp -t"^\|.([1-3?].[1-3?])   ([A-Z][a-z ][a-z ][a-z ][a-z ][a-z ][a-z ][a-z ][a-z ][a-z ][a-z ][a-z ]) +(ld|ldr|fol|mbr|form|unc|dead|rest|stun) +([0-9-]+)\( *([0-9-]+)\) +([0-9-]+)\( *([0-9-]+)\) +([0-9-]+)\( *([0-9-]+)\)" party_get =\
+/def -F -mregexp -t"^\|.([1-3?].[1-3?])   ([A-Z][a-z ][a-z ]?[a-z ]?[a-z ]?[a-z ]?[a-z ]?[a-z ]?[a-z ]?[a-z ]?[a-z ]?[a-z]?) +(ld|ldr|fol|mbr|form|unc|dead|rest|stun) +([0-9-]+)\( *([0-9-]+)\) +([0-9-]+)\( *([0-9-]+)\) +([0-9-]+)\( *([0-9-]+)\)" party_get =\
 	/if ({P1} !~ "?.?")\
-		/party_set %{P1} %{P2} %{P3} %{P4} %{P5} %{P6} %{P7} %{P8} %{P9}%;\
+		/test $[party_set({P1},{P2},{P3},{P4},{P5},{P6},{P7},{P8},{P9})]%;\
 	/endif%;\
 	/if ({party_pssgag} == 1)\
 		/substitute -ag%;\