changeset 644:e63f283f610e

Lite 'train'/'study' output so that skills/spells you can afford currently are lited green.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 25 Jun 2007 20:35:49 +0000
parents 09808d5e006f
children 710a342b2f1a
files ggrtf-misc.tf
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/ggrtf-misc.tf	Mon Jun 25 20:34:48 2007 +0000
+++ b/ggrtf-misc.tf	Mon Jun 25 20:35:49 2007 +0000
@@ -110,6 +110,17 @@
 /def -i -F -p9999 -P2BCred -mregexp -t" (safe|chest|crate|vault|box|closet|money-box).* (\(open\))" glite_open
 /def -i -F -p9999 -P2BCgreen -mregexp -t" (safe|chest|crate|vault|box|closet|money-box).* (\(closed\))" glite_closed
 
+
+;; Lite skills/spells you can train with current exp
+/def -i -F -p9999 -mregexp -t"^\| ([A-Z][A-Za-z ]+) +\| +([0-9]+) \| +([0-9]+) \| +([0-9]+) \| +([0-9]+) \|$" glite_trainexp =\
+	/if ({P5} <= status_qexp)\
+		/let _tcs=Cgreen%;\
+	/else \
+		/let _tcs=n%;\
+	/endif%;\
+	/substitute -p | @{%{_tcs}}%{P1}@{n} | @{%{_tcs}}$[pad({P2},3)]@{n} | @{%{_tcs}}$[pad({P3},3)]@{n} | @{%{_tcs}}$[pad({P4},3)]@{n} | @{%{_tcs}}$[pad({P5},8)]@{n} |
+
+
 ;; Ambush
 /set ambush_t=0
 /def -i -p9999 -aCred -msimple -t"You cannot leave, you have been AMBUSHED." gmisc_ambush1 =\