# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1182803749 0
# Node ID e63f283f610ed35d1437e80a303d67e4ab9054c1
# Parent  09808d5e006f93ba1a99b635b1e34faa3c762967
Lite 'train'/'study' output so that skills/spells you can afford currently are lited green.

diff -r 09808d5e006f -r e63f283f610e ggrtf-misc.tf
--- 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 =\