Mercurial > hg > batmud > ggrtf

changeset 681:f52eeb232f78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Bugfixes.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 05 Oct 2007 04:47:47 +0000
parents db2a79d3f0e3
children f564ca55e0a9
files ggrtf-ptracker.tf
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/ggrtf-ptracker.tf	Fri Oct 05 04:23:38 2007 +0000
+++ b/ggrtf-ptracker.tf	Fri Oct 05 04:47:47 2007 +0000
@@ -13,7 +13,7 @@
 ;; Bindings
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 /def -i -F -p9999 -mregexp -t"^([A-Z][a-z]+) tugs eagerly on your sleeve.$" gpprot_tug1 =\
-	/pprots @@emoteto %{P1}
+	/eval /pprots @@emoteto %{P1}
 
 /def -i -F -p9999 -msimple -t"You tug eagerly on your own sleeve." gpprot_tug2 =\
 	/pprots @@emote
@@ -58,16 +58,16 @@
 
 
 /def -i gpprot_getn_do =\
-	/let _tms=%{1}%;/shift%;\
 	/while ({#})\
 		/eval /set _tzqp=^($$[pprot_%{1}_A])$$$%;\
-		/if (regmatch(_tzqp,_tms)) /return {1}%;/endif%;\
+		/if (regmatch(_tzqp,_pprot_tms)) /return {1}%;/endif%;\
 		/shift%;\
 	/done%;\
 	/return ""
 
 /def -i gpprot_getn =\
-	/gpprot_getn_do %{1} %{lst_pprots}
+	/set _pprot_tms=%{1}%;\
+	/gpprot_getn_do %{lst_pprots}
 
 
 /def -i gpprot_reset_do =\
@@ -164,7 +164,7 @@
 
 /def -i pprots =\
 	/if ({#} > 0)\
-		/set _pprot_cmd=%{1}%;\
+		/set _pprot_cmd=%{*}%;\
 		/set _pprot_col_n=%;\
 		/set _pprot_col_name=%;\
 		/set _pprot_col_pname=%;\