Mercurial > hg > batmud > ggrtf

changeset 1404:e6e61c1475ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix curse expiration timer functionality.
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 06 Aug 2011 22:10:28 +0300
parents 5a95bb1e68bc
children ecbcca2ae3fc 094e13a50b39
files ggrtf.tf
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/ggrtf.tf	Sat Aug 06 20:37:35 2011 +0300
+++ b/ggrtf.tf	Sat Aug 06 22:10:28 2011 +0300
@@ -1681,11 +1681,11 @@
 
 ;; Check if given curse ID is still existing
 /def -i gcurse_check =\
-	/return regmatch(strcat("(^| )",_ccmp,"( |$$)"), lst_cursed)
+	/return regmatch(strcat("(^| )",replace("|","\|",{1}),"( |$$)"), lst_cursed)
 
 ;; Expiration macro
 /def -i gcurse_expire =\
-	/let _cid=%{2}%;/let _ctgt=%{1}%;/let _cinfo=%{4}%;\
+	/let _cid=%{2}%;/let _ctgt=%{1}%;/let _cinfo=%{3}%;\
 	/if (gcurse_check(_cinfo))\
 		/test prlist_delete("lst_cursed", _cinfo)%;\
 		/let _clong=$[prgetval(strcat("curse_",_cid,"_n"))]%;\