Mercurial > hg > batmud > ggrtf

annotate gm-pssmangle.tf @ 1655:356c3c26aee6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Get rid of ISO-8859-1 in copyrights.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 28 Sep 2021 02:24:25 +0300
parents e29200d5e4a1
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1 ;;
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
2 ;; GgrTF::PSSMangle - 'pss' output parser/mangler
1655
356c3c26aee6 Get rid of ISO-8859-1 in copyrights.
Matti Hamalainen <ccr@tnsp.org>
parents: 1611
diff changeset
3 ;; (C) Copyright 2005-2015 Matti Hamalainen (Ggr) & Jarkko Vaaraniemi (Jeskko)
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
4 ;;
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
5 ;; This file (triggerset) is Free Software distributed under
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
6 ;; GNU General Public License version 2.
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
7 ;;
1287
ee59bb33d269 Update copyrights to 2011.
Matti Hamalainen <ccr@tnsp.org>
parents: 1196
diff changeset
8 ;; NOTICE! This file requires GgrTF (version 0.6.15 or later) to be loaded.
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
9 ;;
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
10 /loaded GgrTF::PSSMangle
1035
c10f8a59a2e3 Use module depencies for checking required parent modules.
Matti Hamalainen <ccr@tnsp.org>
parents: 940
diff changeset
11 /test prdefmodule("PSSMangle")
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
12
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
14 ;; Settings
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
15 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
16 /prdeftoggle -n"fullparty" -d"Always show full party formation"
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
17 /prdeftoggle -n"prettypss" -d"Make output of /pss and autopss pretty"
940
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
18 /prdeftoggle -n"diffpss" -d"Show diff values in prettypss output"
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
19 /set opt_prettypss=on
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
20
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
21
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
22 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
23 ;; Output and prettyprinting macros
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
24 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
25 /def -i gparty_val =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
26 /if (!{1})\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
27 /let _qtmp=-%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
28 /else \
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
29 /let _qtmp=%{1}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
30 /endif%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
31 /return "@{$[prgetnlite({1},{2})]}$[pad(_qtmp,4)]@{n}"
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
32
940
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
33 /def -i gparty_dval =\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
34 /let _qtmp=$[{1}-{2}]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
35 /if (_qtmp < 0)\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
36 /let _qcol=@{Cred}%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
37 /else \
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
38 /let _qcol=@{Cgreen}%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
39 /endif%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
40 /return "%{_qcol}$[pad(_qtmp,4)]@{n}"
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
41
1196
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
42 /def -i gparty_get_color =\
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
43 /if ({1}=~"unc")\
1591
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
44 /let _tmpc=BCwhite,BCbgred%;\
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
45 /elseif ({1}=~"stun"|{1}=~"stu")\
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
46 /let _tmpc=BCred%;\
1575
029893216347 Add "amb" state to pss-mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1472
diff changeset
47 /elseif ({1}=~"amb")\
1591
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
48 /let _tmpc=BCred%;\
1196
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
49 /elseif ({1}=~"Glaced")\
1591
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
50 /let _tmpc=BCwhite,Cbgblue%;\
1589
eb7a1eba6373 Party member 'rest' state now has its own color.
Matti Hamalainen <ccr@tnsp.org>
parents: 1588
diff changeset
51 /elseif ({1}=~"form"|{1}=~"mbr")\
1591
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
52 /let _tmpc=Cmagenta%;\
1589
eb7a1eba6373 Party member 'rest' state now has its own color.
Matti Hamalainen <ccr@tnsp.org>
parents: 1588
diff changeset
53 /elseif ({1}=~"rest")\
1591
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
54 /let _tmpc=Ccyan%;\
1196
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
55 /elseif (_gp_i=~"*")\
1591
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
56 /let _tmpc=BCblack%;\
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
57 /else /let _tmpc=BCwhite%;\
1196
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
58 /endif%;\
1591
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
59 /if ({2})\
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
60 /return _tmpc%;\
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
61 /else \
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
62 /return "@{%{_tmpc}}"%;\
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
63 /endif
1196
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
64
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
65
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
66 /def -i gparty_sc =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
67 /eval /set _gp_i=$$[gparty_%{1}_%{2}_i]%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
68 /eval /set _gp_s=$$[gparty_%{1}_%{2}_s]%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
69 /eval /set _gp_pl=$$[gparty_%{1}_%{2}_pl]%;\
1593
023dddbfa587 Hopefully add number of rescuers to pss-mangled output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1592
diff changeset
70 /eval /set _gp_pr=$$[gparty_%{1}_%{2}_pr]%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
71 /eval /set _gp_hp=$$[gparty_%{1}_%{2}_hp]%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
72 /eval /set _gp_hpm=$$[gparty_%{1}_%{2}_hpm]%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
73 /eval /set _gp_sp=$$[gparty_%{1}_%{2}_sp]%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
74 /eval /set _gp_spm=$$[gparty_%{1}_%{2}_spm]%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
75 /eval /set _gp_ep=$$[gparty_%{1}_%{2}_ep]%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
76 /eval /set _gp_epm=$$[gparty_%{1}_%{2}_epm]%;\
1196
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
77 /let _tmpc=$[gparty_get_color(_gp_pl)]%;\
1593
023dddbfa587 Hopefully add number of rescuers to pss-mangled output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1592
diff changeset
78 /return "@{BCcyan}$[prsubpad(_gp_pr,1)]@{n}%{_tmpc}$[prsubpad(_gp_s,9)]@{n}@{Cblue}:@{n}$[gparty_val(_gp_hp,_gp_hpm)]@{Cblue}:@{n}$[gparty_val(_gp_sp,_gp_spm)]@{Cblue}:@{n}$[gparty_val(_gp_ep,_gp_epm)]"
940
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
79
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
80 /def -i gparty_scd =\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
81 /eval /set _gp_hp=$$[gparty_%{1}_%{2}_hp]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
82 /eval /set _gp_ohp=$$[gparty_%{1}_%{2}_ohp]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
83 /eval /set _gp_sp=$$[gparty_%{1}_%{2}_sp]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
84 /eval /set _gp_osp=$$[gparty_%{1}_%{2}_osp]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
85 /eval /set _gp_ep=$$[gparty_%{1}_%{2}_ep]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
86 /eval /set _gp_oep=$$[gparty_%{1}_%{2}_oep]%;\
1593
023dddbfa587 Hopefully add number of rescuers to pss-mangled output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1592
diff changeset
87 /return " @{BCblack}-------@{n} @{Cblue}:@{n}$[gparty_dval(_gp_hp,_gp_ohp)]@{BCblue}:@{n}$[gparty_dval(_gp_sp,_gp_osp)]@{Cblue}:@{n}$[gparty_dval(_gp_ep,_gp_oep)]"
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
88
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
89 /def -i gparty_show_souls =\
1444
4f0ba7bef88d Return immediately from gparty_show_souls if no arguments are given.
Matti Hamalainen <ccr@tnsp.org>
parents: 1442
diff changeset
90 /if ({#} <= 0) /return%;/endif%;\
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
91 /let _tmps=%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
92 /let _souls=0%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
93 /while ({#})\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
94 /eval /set _gp_pl=$$[gparty_%{1}_sl_pl]%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
95 /eval /set _gp_hp=$$[gparty_%{1}_sl_hp]%;\
1441
fe7d9c6c552f If soul's place is not properly set by 'pss' grabbing, use a default to avoid problems in output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1439
diff changeset
96 /if (_gp_pl=~"") /set _gp_pl=@{BCblue} ?@{n}%;/endif%;\
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
97 /let _tmpc=$[gparty_get_color(_gp_pl)]%;\
1593
023dddbfa587 Hopefully add number of rescuers to pss-mangled output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1592
diff changeset
98 /let _tmps=%{_tmps}$[prsubpad({1},10)]@{Cblue}:@{n}%{_tmpc}%{_gp_pl}@{n}@{Cblue}:@{n}$[gparty_val(_gp_hp,100)]@{Cblue}:@{n} |%;\
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
99 /shift%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
100 /if (mod(++_souls,3) == 0)\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
101 /msw |%{_tmps}%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
102 /let _tmps=%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
103 /endif%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
104 /done%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
105 /while (mod(_souls,3) != 0)\
1593
023dddbfa587 Hopefully add number of rescuers to pss-mangled output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1592
diff changeset
106 /let _tmps=%{_tmps} |%;\
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
107 /let _souls=$[_souls+1]%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
108 /done%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
109 /if (_tmps!~"")\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
110 /msw |%{_tmps}%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
111 /endif%;\
1593
023dddbfa587 Hopefully add number of rescuers to pss-mangled output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1592
diff changeset
112 /echo `-------------------------+-------------------------+-------------------------'
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
113
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
114 /def -i gparty_show =\
1593
023dddbfa587 Hopefully add number of rescuers to pss-mangled output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1592
diff changeset
115 /echo ,-----------------------------------------------------------------------------.%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
116 /msw |$[gparty_sc(1,1)]|$[gparty_sc(1,2)]|$[gparty_sc(1,3)]|%;\
940
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
117 /if (opt_diffpss=~"on") /msw |$[gparty_scd(1,1)]|$[gparty_scd(1,2)]|$[gparty_scd(1,3)]|%;/endif%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
118 /if (gparty_row2 | gparty_row3 | opt_fullparty=~"on")\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
119 /msw |$[gparty_sc(2,1)]|$[gparty_sc(2,2)]|$[gparty_sc(2,3)]|%;\
940
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
120 /if (opt_diffpss=~"on") /msw |$[gparty_scd(2,1)]|$[gparty_scd(2,2)]|$[gparty_scd(2,3)]|%;/endif%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
121 /if (gparty_row3 | opt_fullparty=~"on")\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
122 /msw |$[gparty_sc(3,1)]|$[gparty_sc(3,2)]|$[gparty_sc(3,3)]|%;\
940
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
123 /if (opt_diffpss=~"on") /msw |$[gparty_scd(3,1)]|$[gparty_scd(3,2)]|$[gparty_scd(3,3)]|%;/endif%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
124 /endif%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
125 /endif%;\
1593
023dddbfa587 Hopefully add number of rescuers to pss-mangled output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1592
diff changeset
126 /echo `-----------------------------------------------------------------------------'
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
127
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
128
1173
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
129 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
130 ;; TF5 status line PSS
1591
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
131 ;; NOTE: This is not finished and probably does not work.
1173
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
132 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
133 /def -i gparty_pc =\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
134 /eval /set _gp_i=$$[gparty_%{1}_%{2}_i]%;\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
135 /eval /set _gp_s=$$[gparty_%{1}_%{2}_s]%;\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
136 /eval /set _gp_pl=$$[gparty_%{1}_%{2}_pl]%;\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
137 /eval /set _gp_hp=$$[gparty_%{1}_%{2}_hp]%;\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
138 /eval /set _gp_hpm=$$[gparty_%{1}_%{2}_hpm]%;\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
139 /eval /set _gp_sp=$$[gparty_%{1}_%{2}_sp]%;\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
140 /eval /set _gp_spm=$$[gparty_%{1}_%{2}_spm]%;\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
141 /eval /set _gp_ep=$$[gparty_%{1}_%{2}_ep]%;\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
142 /eval /set _gp_epm=$$[gparty_%{1}_%{2}_epm]%;\
1591
824fc8a981fd Adjust coloring.
Matti Hamalainen <ccr@tnsp.org>
parents: 1590
diff changeset
143 /let _tmpc=$[gparty_get_color(_gp_pl,1)]%;\
1173
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
144 /let _tmps="$[prsubpad(_gp_s,9)]"::%{_tmpc} ":"::Cblue "%{_gp_hp}":4:$[prgetnlite(_gp_hp,_gp_hpm)] ":"::Cblue "%{_gp_sp}":4:$[prgetnlite(_gp_sp,_gp_spm)] ":"::Cblue "%{_gp_ep}":4:$[prgetnlite(_gp_ep,_gp_epm)]%;\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
145 /return _tmps
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
146
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
147 /def -i gparty_status =\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
148 /eval /status_add -c -s1 -r2 "[" $[gparty_pc(1,1)] "|" $[gparty_pc(1,2)] "|" $[gparty_pc(1,3)] "]"%;\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
149 /eval /status_add -c -s1 -r3 "[" $[gparty_pc(2,1)] "|" $[gparty_pc(2,2)] "|" $[gparty_pc(2,3)] "]"%;\
0e42ce8d08ec Add unfinished statusline PSS output support. Essentially shows similar colorized / prettypss output on the statusline. You need to /set status_height=5 (at least) and /set opt_statuspss=on to make it work.
Matti Hamalainen <ccr@tnsp.org>
parents: 1172
diff changeset
150 /eval /status_add -c -s1 -r4 "[" $[gparty_pc(3,1)] "|" $[gparty_pc(3,2)] "|" $[gparty_pc(3,3)] "]"
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
151
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
152
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
153 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
154 ;; Utility and grabbing triggers
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
155 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1172
d04ba89b9c88 Rename variable to clarify its purpose.
Matti Hamalainen <ccr@tnsp.org>
parents: 1117
diff changeset
156 /set gparty_grab=0
1035
c10f8a59a2e3 Use module depencies for checking required parent modules.
Matti Hamalainen <ccr@tnsp.org>
parents: 940
diff changeset
157 /undef pss
1172
d04ba89b9c88 Rename variable to clarify its purpose.
Matti Hamalainen <ccr@tnsp.org>
parents: 1117
diff changeset
158 /def -i pss = /set gparty_grab=1%;@@party status short
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
159
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
160 /def -i gparty_set =\
1196
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
161 /if (regmatch("^(Glaced) ([A-Z][a-z]+)",{2}))\
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
162 /let _gpn=%{P2}%;\
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
163 /let _gpl=%{P1}%;\
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
164 /elseif (regmatch("^([A-Z][a-z]+)",{2}))\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
165 /let _gpn=%{P1}%;\
1196
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
166 /let _gpl=%{3}%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
167 /else \
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
168 /let _gpn=%{2}%;\
1196
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
169 /let _gpl=%{3}%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
170 /endif%;\
1592
28dc80de64c0 Store number of rescuers from unc and stun states.
Matti Hamalainen <ccr@tnsp.org>
parents: 1591
diff changeset
171 /if (regmatch("^([a-z]+)\|([0-9]+)$",{3}))\
28dc80de64c0 Store number of rescuers from unc and stun states.
Matti Hamalainen <ccr@tnsp.org>
parents: 1591
diff changeset
172 /let _gpl=%{P1}%;\
28dc80de64c0 Store number of rescuers from unc and stun states.
Matti Hamalainen <ccr@tnsp.org>
parents: 1591
diff changeset
173 /let _gpr=%{P2}%;\
28dc80de64c0 Store number of rescuers from unc and stun states.
Matti Hamalainen <ccr@tnsp.org>
parents: 1591
diff changeset
174 /else \
28dc80de64c0 Store number of rescuers from unc and stun states.
Matti Hamalainen <ccr@tnsp.org>
parents: 1591
diff changeset
175 /let _gpr=%;\
28dc80de64c0 Store number of rescuers from unc and stun states.
Matti Hamalainen <ccr@tnsp.org>
parents: 1591
diff changeset
176 /endif%;\
1611
e29200d5e4a1 Fix gparty_members collection.
Matti Hamalainen <ccr@tnsp.org>
parents: 1593
diff changeset
177 /set gparty_mtmp=%{gparty_mtmp} %{_gpn}%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
178 /if (!regmatch("^([1-3])\.([1-3])$",{1})) /break%;/endif%;\
1117
b59054fd6ee3 Clear party row variables in pssmangle to ensure that only necessary rows are shown when /fullparty is OFF.
Matti Hamalainen <ccr@tnsp.org>
parents: 1035
diff changeset
179 /if ({2}!~"") /set gparty_row%{P1}=1%;/endif%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
180 /let _gps=$[replace(".","_",{1})]%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
181 /set gparty_%{_gps}_i=%{10}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
182 /set gparty_%{_gps}_s=%{_gpn}%;\
1196
acf623dd0c0d Handle special case of Gatekeeper glacing partymembers.
Matti Hamalainen <ccr@tnsp.org>
parents: 1173
diff changeset
183 /set gparty_%{_gps}_pl=%{_gpl}%;\
1592
28dc80de64c0 Store number of rescuers from unc and stun states.
Matti Hamalainen <ccr@tnsp.org>
parents: 1591
diff changeset
184 /set gparty_%{_gps}_pr=%{_gpr}%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
185 /set gparty_%{_gps}_hp=%{4}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
186 /set gparty_%{_gps}_hpm=%{5}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
187 /set gparty_%{_gps}_sp=%{6}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
188 /set gparty_%{_gps}_spm=%{7}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
189 /set gparty_%{_gps}_ep=%{8}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
190 /set gparty_%{_gps}_epm=%{9}
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
191
1588
256d21087586 Rename a macro.
Matti Hamalainen <ccr@tnsp.org>
parents: 1586
diff changeset
192 /def -i gparty_set_familiar =\
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
193 /if (regmatch("^ *([A-Za-z][A-Za-z ]+[A-Za-z]) *$",{3}))\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
194 /let _tmps=%{P1}%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
195 /else \
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
196 /let _tmps=%{3}%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
197 /endif%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
198 /if (_tmps=~"VERY low") /let _ghp=15%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
199 /elseif (_tmps=~"very low") /let _ghp=30%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
200 /elseif (_tmps=~"low") /let _ghp=45%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
201 /elseif (_tmps=~"medium") /let _ghp=60%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
202 /elseif (_tmps=~"high") /let _ghp=75%;\
1590
d43359389e67 Add some missing entity/soul statuses.
Matti Hamalainen <ccr@tnsp.org>
parents: 1589
diff changeset
203 /elseif (_tmps=~"VERY high"|_tmps=~"V. high") /let _ghp=90%;\
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
204 /elseif (_tmps=~"full") /let _ghp=100%;\
1590
d43359389e67 Add some missing entity/soul statuses.
Matti Hamalainen <ccr@tnsp.org>
parents: 1589
diff changeset
205 /elseif (_tmps=~"superb") /let _ghp=100+%;\
d43359389e67 Add some missing entity/soul statuses.
Matti Hamalainen <ccr@tnsp.org>
parents: 1589
diff changeset
206 /elseif (_tmps=~"negative") /let _ghp=neg%;\
d43359389e67 Add some missing entity/soul statuses.
Matti Hamalainen <ccr@tnsp.org>
parents: 1589
diff changeset
207 /elseif (_tmps=~"none") /let _ghp=0!%;\
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
208 /else /let _ghp=??%;/endif%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
209 /set gparty_grab=-2%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
210 /set gparty_souls=%{gparty_souls} %{1}%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
211 /set gparty_%{1}_sl_pl=%{2}%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
212 /set gparty_%{1}_sl_hp=%{_ghp}%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
213
940
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
214 /def -i gparty_cset =\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
215 /eval /set gparty_%{1}_is=$$[gparty_%{1}_i]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
216 /eval /set gparty_%{1}_os=$$[gparty_%{1}_s]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
217 /eval /set gparty_%{1}_opl=$$[gparty_%{1}_pl]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
218 /eval /set gparty_%{1}_ohp=$$[gparty_%{1}_hp]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
219 /eval /set gparty_%{1}_ohpm=$$[gparty_%{1}_hpm]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
220 /eval /set gparty_%{1}_osp=$$[gparty_%{1}_sp]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
221 /eval /set gparty_%{1}_ospm=$$[gparty_%{1}_spm]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
222 /eval /set gparty_%{1}_oep=$$[gparty_%{1}_ep]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
223 /eval /set gparty_%{1}_oepm=$$[gparty_%{1}_epm]%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
224 /set gparty_%{1}_i=%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
225 /set gparty_%{1}_s=%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
226 /set gparty_%{1}_pl=%;\
1592
28dc80de64c0 Store number of rescuers from unc and stun states.
Matti Hamalainen <ccr@tnsp.org>
parents: 1591
diff changeset
227 /set gparty_%{1}_pr=%;\
940
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
228 /set gparty_%{1}_hp=%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
229 /set gparty_%{1}_hpm=%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
230 /set gparty_%{1}_sp=%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
231 /set gparty_%{1}_spm=%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
232 /set gparty_%{1}_ep=%;\
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
233 /set gparty_%{1}_epm=
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
234
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
235
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
236 /def -i gparty_clear =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
237 /set gparty_mtmp=%;\
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
238 /set gparty_souls=%;\
1117
b59054fd6ee3 Clear party row variables in pssmangle to ensure that only necessary rows are shown when /fullparty is OFF.
Matti Hamalainen <ccr@tnsp.org>
parents: 1035
diff changeset
239 /for _crow 1 3 /set gparty_row%%{_crow}=0%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
240 /for _ccol 1 3 \
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
241 /for _crow 1 3 \
940
0e79ab258862 Misc. cleanups; Added option for showing hp/sp/ep diffs.
Matti Hamalainen <ccr@tnsp.org>
parents: 939
diff changeset
242 /gparty_cset %%%{_crow}_%%%{_ccol}
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
243
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
244
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
245 /def -i -F -Egparty_grab>0 -p9999 -msimple -t',-----------------------------------------------------------------------------.' gpss_getbegin =\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
246 /if (opt_prettypss=~"on") /substitute -ag%;/endif%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
247 /gparty_clear
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
248
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
249
1593
023dddbfa587 Hopefully add number of rescuers to pss-mangled output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1592
diff changeset
250 /def -i -F -Egparty_grab>0 -p999 -mregexp -t"^\|(.)([1-3?]\.[1-3?]) +([A-Z][A-Za-z ][A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z]?) +(ld|ldr|fol|mbr|form|unc|amb|dead|rest|stun|unc\|[0-9]+|stu\|[0-9]+) +([0-9-]+)\( *([0-9-]+)\) +([0-9-]+)\( *([0-9-]+)\) +([0-9-]+)\( *([0-9-]+)\)" gpss_getps =\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
251 /if (opt_prettypss=~"on") /substitute -ag%;/endif%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
252 /test gparty_set({P2},{P3},{P4},{P5},{P6},{P7},{P8},{P9},{P10},{P1})
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
253
1447
83c1ea5b4400 For players whose name ends in "s", the animist soul companion line name field is punctuated as it should be ("Xxxxxs' soul"), but we didn't handle that case. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents: 1444
diff changeset
254 /def -i -F -Egparty_grab<0 -p999 -mregexp -t"^\| ([A-Z][a-z]+)'s? soul\ {1,8}( fol|form| |stun) (.........)" gpss_getps2 =\
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
255 /if (opt_prettypss=~"on") /substitute -ag%;/endif%;\
1588
256d21087586 Rename a macro.
Matti Hamalainen <ccr@tnsp.org>
parents: 1586
diff changeset
256 /test gparty_set_familiar({P1},{P2},{P3})
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
257
1593
023dddbfa587 Hopefully add number of rescuers to pss-mangled output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1592
diff changeset
258 /def -i -F -Egparty_grab>0 -p999 -mregexp -t"^\|(.)([1-3?]\.[1-3?]) +\+([A-Z][A-Za-z ][A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z ]?[A-Za-z]?) +(ld|ldr|fol|mbr|form|unc|amb|dead|rest|stun|unc\|[0-9]+|stu\|[0-9]+) +([0-9-]+)\( *([0-9-]+)\) " gpss_getps3 =\
1460
d4d193570c78 Kludge-fix for elemental entities in 'pss' output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1447
diff changeset
259 /if (opt_prettypss=~"on") /substitute -ag%;/endif%;\
d4d193570c78 Kludge-fix for elemental entities in 'pss' output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1447
diff changeset
260 /test gparty_set({P2},{P3},{P4},{P5})
d4d193570c78 Kludge-fix for elemental entities in 'pss' output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1447
diff changeset
261
d4d193570c78 Kludge-fix for elemental entities in 'pss' output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1447
diff changeset
262
d4d193570c78 Kludge-fix for elemental entities in 'pss' output.
Matti Hamalainen <ccr@tnsp.org>
parents: 1447
diff changeset
263
1172
d04ba89b9c88 Rename variable to clarify its purpose.
Matti Hamalainen <ccr@tnsp.org>
parents: 1117
diff changeset
264 /def -i -F -Egparty_grab -p99 -msimple -t'`-----------------------------------------------------------------------------\'' gpss_getend =\
1439
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
265 /if (gparty_grab > 0)\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
266 /set gparty_grab=-1%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
267 /set gparty_members=%{gparty_mtmp}%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
268 /if (opt_statuspss=~"on") /gparty_status%;/endif%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
269 /if (opt_prettypss=~"on") /substitute -ag%;/gparty_show%;/endif%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
270 /prexecfuncs %{event_pss_once}%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
271 /set event_pss_once=%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
272 /elseif (gparty_grab < -1)\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
273 /set gparty_grab=0%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
274 /if (opt_prettypss=~"on") /substitute -ag%;/gparty_show_souls %{gparty_souls}%;/endif%;\
4014856de443 Add support for animist soul companions in the PSS mangler.
Matti Hamalainen <ccr@tnsp.org>
parents: 1287
diff changeset
275 /endif
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
276
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
277 /def -i -F -p9999 -msimple -t"You are not in a party." gpss_noparty =\
1172
d04ba89b9c88 Rename variable to clarify its purpose.
Matti Hamalainen <ccr@tnsp.org>
parents: 1117
diff changeset
278 /set gparty_grab=0%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
279 /set event_pss_once=
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
280