# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1181273600 0
# Node ID 9860ca854ca3538dfc75c5ba87eb55473f5ecac5
# Parent  2e826983286333fe31be47930a4d8708c74ec3cb
pre3: Added option for disabling version reporting; Widened /opts panel a bit.

diff -r 2e8269832863 -r 9860ca854ca3 ggrtf.tf
--- a/ggrtf.tf	Thu Jun 07 00:41:08 2007 +0000
+++ b/ggrtf.tf	Fri Jun 08 03:33:20 2007 +0000
@@ -1,8 +1,8 @@
 ;;
-;; GgrTF v0.6.2-pre2 - TinyFugue script for BatMUD
+;; GgrTF v0.6.2-pre3 - TinyFugue script for BatMUD
 ;; (C) Copyright 2004-2007 Matti Hämäläinen (Ggr Pupunen)
 ;;
-/set ggrtf_ver=0.6.2-pre2
+/set ggrtf_ver=0.6.2-pre3
 ;;
 ;; This triggerset is Free Software distributed under
 ;; GNU General Public License version 2.
@@ -655,7 +655,7 @@
 	/else \
 		/set qtval_s=@{Cred}OFF@{n}%;\
 	/endif%;\
-	/msw | /@{BCyellow}$[pad({1},-10)]@{n} : $[pad(qtval_d,-40)] - [%{qtval_s}]      |%;\
+	/msw | /@{BCyellow}$[pad({1},-10)]@{n} : $[pad(qtval_d,-45)] - [%{qtval_s}]      |%;\
 	/shift%;\
 /done
 
@@ -664,7 +664,7 @@
 	/eval /set qtval=$$[set_%{1}]%;\
 	/eval /set qtval_d=$$[set_%{1}_d]%;\
 	/eval /set qtval_s=$$[set_%{1}_s]%;\
-	/msw | /@{BCyellow}$[pad({1},-10)]@{n} : $[pad(qtval_d,-40)] - [@{Cgreen}$[pad(qtval,8)]@{n}] |%;\
+	/msw | /@{BCyellow}$[pad({1},-10)]@{n} : $[pad(qtval_d,-45)] - [@{Cgreen}$[pad(qtval,8)]@{n}] |%;\
 	/shift%;\
 /done
 
@@ -673,9 +673,9 @@
 	/eval /set qtval=$$[set_%{1}]%;\
 	/eval /set qtval_d=$$[set_%{1}_d]%;\
 	/eval /set qtval_s=$$[set_%{1}_s]%;\
-	/msw |---------------------------------------------------------------------|%;\
-	/msw | /@{BCyellow}$[pad({1},-10)]@{n} : $[pad(qtval_d,-53)] |%;\
-	/msw |             [@{Cgreen}$[prsubipad(qtval,53)]@{n}] |%;\
+	/msw |--------------------------------------------------------------------------|%;\
+	/msw | /@{BCyellow}$[pad({1},-10)]@{n} : $[pad(qtval_d,-58)] |%;\
+	/msw |             [@{Cgreen}$[prsubipad(qtval,58)]@{n}] |%;\
 	/shift%;\
 /done
 
@@ -683,12 +683,12 @@
 /def -i opts =\
 /msw ,----------------.%;\
 /msw | @{BCgreen}GgrTF@{n} @{Cyellow}Settings@{n} |%;\
-/msw +----------------+----------------------------------------------------.%;\
+/msw +----------------+---------------------------------------------------------.%;\
 /gopts_dolist %{lst_options}%;\
 /gsettings_dolist %{lst_settings}%;\
 /gsettings_dolist %{lst_hooks}%;\
 /gvalues_dolist %{lst_values}%;\
-/msw `---------------------------------------------------------------------'
+/msw `--------------------------------------------------------------------------'
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -914,8 +914,15 @@
 /def gversion =\
 	/result "GgrTF v%{ggrtf_ver} %{ggrtf_copy} on TinyFugue $[ver()]"
 
-/def -i -p9999 -mregexp -t"^@?([A-Z][a-z]+) hopples around you inquisitively, all bunny-like\.$" greport_ver =\
-	@@emoteto %{P1} is using $[gversion()]
+/prdeftoggle -n"repver" -d"Report version via 'hopple inquisitively'"
+/set opt_repver=on
+
+/set report_ver_t=0
+/def -i -E(opt_repver=~"on") -p9999 -mregexp -t"^@?([A-Z][a-z]+) hopples around you inquisitively, all bunny-like\.$" greport_ver =\
+	/if (time()-report_ver_t > 5)\
+		/set report_ver_t=$[time()]%;\
+		@@emoteto %{P1} is using $[gversion()]%;\
+	/endif
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;