Mercurial > hg > batmud > ggrtf

annotate gm-ptracker.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 87f45da5abd1
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::ProtTracker - Party-wide prot tracker
1655
356c3c26aee6 Get rid of ISO-8859-1 in copyrights.
Matti Hamalainen <ccr@tnsp.org>
parents: 1586
diff changeset
3 ;; (C) Copyright 2007-2015 Matti Hamalainen (Ggr)
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
4 ;; Originally based on ideas by Aloysha
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
5 ;;
1454
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
6 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
7 ;;
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
8 ;; This program is free software; you can redistribute it and/or
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
9 ;; modify it under the terms of the GNU General Public License
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
10 ;; version 2 as published by the Free Software Foundation.
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
11 ;;
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
12 ;; This program is distributed in the hope that it will be useful,
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
15 ;; file "COPYING.txt" for more details.
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
16 ;;
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
17 ;; You should have received a copy of the GNU General Public License
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
18 ;; along with this program; if not, write to the Free Software
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
19 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
20 ;; MA 02110-1301 USA.
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
21 ;;
113c9a66eaf1 Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents: 1351
diff changeset
22 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
23 ;;
1277
980a1f19a258 More copyright and version requirement updates.
Matti Hamalainen <ccr@tnsp.org>
parents: 1206
diff changeset
24 ;; 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
25 ;;
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
26 /loaded GgrTF::ProtTracker
1035
c10f8a59a2e3 Use module depencies for checking required parent modules.
Matti Hamalainen <ccr@tnsp.org>
parents: 1021
diff changeset
27 /test prdefmodule("ProtTracker", "PSSMangle")
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
28
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
30 ;; Bindings
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
32 ;@command /effects
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
33 ;@desc Toggle support for using output of 'show effects' command in
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
34 ;@desc party prots tracker. Enabling this will disable tracking
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
35 ;@desc of prot up/down messages reported by party members and makes
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
36 ;@desc the tracker to use 'show effects' output only. This also means
1099
7321b2e8bb0f Update documentation.
Matti Hamalainen <ccr@tnsp.org>
parents: 1097
diff changeset
37 ;@desc that the shown times in this mode are "time remaining", not
7321b2e8bb0f Update documentation.
Matti Hamalainen <ccr@tnsp.org>
parents: 1097
diff changeset
38 ;@desc "time elapsed". Requires /gsave and restart of TF to work.
1165
18ab016d4373 Add note about opt_effects.
Matti Hamalainen <ccr@tnsp.org>
parents: 1124
diff changeset
39 ;@desc (If you are not using the GgrTF statesaving system, you can
18ab016d4373 Add note about opt_effects.
Matti Hamalainen <ccr@tnsp.org>
parents: 1124
diff changeset
40 ;@desc /set opt_effects=on in your .tfrc before loading this module.)
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
41
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
42 /prdeftoggle -p -n"effects" -d"Enable 'show effects' support in ptracker"
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
43
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
44 /prdefgbind -s"pprots" -c"/pprots"
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
45
942
6aa6971e0df1 Misc. cleanups; Use prgetval(); Added some prots to track, such as iron will, eskin, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 928
diff changeset
46
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
47 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1109
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
48 ;; Utility functions
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
49 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1109
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
50
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
51 /def -i gpprot_getn_do =\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
52 /while ({#})\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
53 /let _tz=^($[prgetval(strcat("pprot_",{1},"_A"))])$$%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
54 /if (regmatch(_tz,_pprot_fs)) /return {1}%;/endif%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
55 /shift%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
56 /done%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
57 /return ""
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
58
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
59 /def -i gpprot_getn =\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
60 /set _pprot_fs=$[tolower({*})]%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
61 /gpprot_getn_do %{lst_pprots}
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
62
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
63 /def -i gpprot_gete_do =\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
64 /while ({#})\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
65 /let _tz=$[tolower(prgetval(strcat("prot_",{1},"_l")))]%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
66 /if (_tz=~_pprot_fs) /return {1}%;/endif%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
67 /shift%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
68 /done%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
69 /return ""
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
70
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
71 /def -i gpprot_gete =\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
72 /set _pprot_fs=$[tolower({*})]%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
73 /gpprot_gete_do %{lst_pprots}
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
74
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
75 /def -i gpprot_parse_time =\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
76 /let _time=%{1}%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
77 /if (regmatch("^([0-9]+)h and ([0-9]+)min",_time))\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
78 /return {P1}*60*60 + {P2}*60%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
79 /elseif (regmatch("^([0-9]+)min and ([0-9]+)s",_time))\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
80 /return {P1}*60 + {P2}%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
81 /elseif (regmatch("^([0-9]+)min",_time))\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
82 /return {P1}*60%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
83 /elseif (regmatch("^([0-9]+)s",_time))\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
84 /return {P1}%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
85 /else /return -1%;/endif
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
86
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
87 /def -i gpprot_get_time =\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
88 /let _jtime=%{1}%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
89 /let _jtimeh=$[_jtime/3600]%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
90 /let _jtimeq=$[mod(_jtime,3600)]%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
91 /let _jtimem=$[_jtimeq/60]%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
92 /let _jtimes=$[mod(_jtimeq,60)]%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
93 /if (_jtimeh > 0)\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
94 /let _jstr=%{_jtimeh}:%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
95 /else \
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
96 /let _jstr=%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
97 /endif%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
98 /if (_jtimes < 10)\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
99 /let _jtimespre=0%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
100 /else \
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
101 /let _jtimespre=%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
102 /endif%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
103 /let _jstr=%{_jstr}$[_jtimeq/60]:%{_jtimespre}$[mod(_jtimeq,60)]%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
104 /return _jstr%;\
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
105
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
106
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
107 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
108 ;; Support code
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
109 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
110
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
111 ;; The reason we have several triggers with complex patterns here is
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
112 ;; because of TF's apparent bug(s) in the regexp handling and TF4's
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
113 ;; somewhat inferior support for regexp options.
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
114
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
115 /def -i gpprot_defines =\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
116 /if (opt_effects!~"on")\
1097
40a317a6fa18 Bugfixed some regexps.
Matti Hamalainen <ccr@tnsp.org>
parents: 1095
diff changeset
117 /def -i -p9999 -F -mregexp -t"^([A-Z][a-z]+) .(party|report).: +[(<>]? *([A-Za-z _-]+) *[>)]? (on|\\+on\\+|\\(on\\)|\\[On\\]|\\[ON\\]|up|active|activat|ON|UP|ACTIVE|ACTIVAT|On|Up|Active|Activat|Renewed|refresh)" gpprot_on1 =\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
118 /test gpprot_on({P1},{P3})%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
119 \
1097
40a317a6fa18 Bugfixed some regexps.
Matti Hamalainen <ccr@tnsp.org>
parents: 1095
diff changeset
120 /def -i -p9999 -F -mregexp -t"^([A-Z][a-z]+) .(party|report).: +[(<>]? *([A-Za-z _-]+) *[>)]? (off|-off-|OFF|Off|\\(off\\)|\\[Off\\]|\\[OFF\\]|DOWN|Down|down|Expires|Expired|expires|expired|gone|Gone|was destroyed)" gpprot_off1 =\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
121 /test gpprot_off({P1},{P3})%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
122 \
928
9ea2ea09bca5 Make some more macros invisible.
Matti Hamalainen <ccr@tnsp.org>
parents: 882
diff changeset
123 /def -i -p9999 -F -mregexp -t"^([A-Z][a-z]+) .(party|report).: - ([A-Za-z _-]+) (UP|up|Up)" gpprot_on2 =\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
124 /test gpprot_on({P1},{P3})%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
125 \
928
9ea2ea09bca5 Make some more macros invisible.
Matti Hamalainen <ccr@tnsp.org>
parents: 882
diff changeset
126 /def -i -p9999 -F -mregexp -t"^([A-Z][a-z]+) .(party|report).: - ([A-Za-z _-]+) (DOWN|down|Down)" gpprot_off2 =\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
127 /test gpprot_off({P1},{P3})%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
128 \
1097
40a317a6fa18 Bugfixed some regexps.
Matti Hamalainen <ccr@tnsp.org>
parents: 1095
diff changeset
129 /def -i -p9999 -F -mregexp -t"^([A-Z][a-z]+) .(party|report).: \\[ ([A-Za-z _-]+) (UP|up|Up|active)" gpprot_on3 =\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
130 /test gpprot_on({P1},{P3})%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
131 \
1097
40a317a6fa18 Bugfixed some regexps.
Matti Hamalainen <ccr@tnsp.org>
parents: 1095
diff changeset
132 /def -i -p9999 -F -mregexp -t"^([A-Z][a-z]+) .(party|report).: \\[ ([A-Za-z _-]+) (DOWN|down|Down)" gpprot_off3 =\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
133 /test gpprot_off({P1},{P3})%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
134 /else \
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
135 /undef gpprot_on1%;/undef gpprot_off1%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
136 /undef gpprot_on2%;/undef gpprot_off2%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
137 /undef gpprot_on3%;/undef gpprot_off3%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
138 /endif
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
139
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
140 /def -i gpprot_on =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
141 /let _pname=$[gpprot_getn({2})]%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
142 /if (_pname!~"")\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
143 /test prlist_insert("lst_members",{1})%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
144 /set pprot_%{1}_%{_pname}=1%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
145 /set pprot_%{1}_%{_pname}_t=$[time()]%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
146 /endif
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
147
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
148 /def -i gpprot_off =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
149 /let _pname=$[gpprot_getn({2})]%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
150 /if (_pname!~"")\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
151 /set pprot_%{1}_%{_pname}=0%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
152 /set pprot_%{1}_%{_pname}_t=0%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
153 /endif
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
154
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
155
1109
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
156 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
157 ;; Prot definitions
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
158 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
159 /set lst_pprots=
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
160 /set lst_members=
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
161
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
162 /def -i prdefpartyprot =\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
163 /if (!getopts("i:A:m#","")) /gerror Invalid prot tracker definition!%;/break%;/endif%;\
1109
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
164 /if (opt_i=~"") /gerror Prot tracker definition missing identifier (-i)%;/break%;/endif%;\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
165 /let _short=$[prgetval(strcat("prot_",opt_i,"_n"))]%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
166 /if (_short=~"") /gerror Prot tracker definition '%{opt_i}' has no matching prot system definition.%;/break%;/endif%;\
1111
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
167 /set lst_pprots=%{lst_pprots} %{opt_i}%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
168 /set pprot_%{opt_i}_A=$[tolower(opt_A)]%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
169 /if (opt_m > 0)\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
170 /set pprot_%{opt_i}_m=%{opt_m}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
171 /else \
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
172 /set pprot_%{opt_i}_m=-1%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
173 /endif
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
174
1111
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
175 ; test prlist_insert("lst_pprots", opt_i)%;\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
176
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
177
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
178 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1109
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
179 ;; Main functions for tracking
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
180 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
181 /def -i gpprots_clear_member =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
182 /let _zplr=%{1}%;/shift%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
183 /while ({#})\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
184 /eval /unset pprot_%{_zplr}_%{1}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
185 /eval /unset pprot_%{_zplr}_%{1}_t%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
186 /shift%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
187 /done
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
188
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
189 /def -i gpprots_clear =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
190 /while ({#})\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
191 /gpprots_clear_member %{1} %{lst_pprots}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
192 /shift%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
193 /done
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
194
1065
98dd57c1fc5e Move some documentation from manual to embedded tfdoc in the scripts.
Matti Hamalainen <ccr@tnsp.org>
parents: 1035
diff changeset
195 ;@command /cpprots
98dd57c1fc5e Move some documentation from manual to embedded tfdoc in the scripts.
Matti Hamalainen <ccr@tnsp.org>
parents: 1035
diff changeset
196 ;@desc Clears ALL the currently tracked prots and all other related
98dd57c1fc5e Move some documentation from manual to embedded tfdoc in the scripts.
Matti Hamalainen <ccr@tnsp.org>
parents: 1035
diff changeset
197 ;@desc data. Using this may be useful if some prots erraneously "linger".
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
198 /def -i cpprots =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
199 /msq @{BCgreen}NOTICE!@{n} @{BCwhite}Clearing all tracked prots!@{n}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
200 /gpprots_clear %{lst_members}
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
201
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
202 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
203
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
204 /def -i gpprots_update_member =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
205 /let _zplr=%{1}%;/shift%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
206 /while ({#})\
942
6aa6971e0df1 Misc. cleanups; Use prgetval(); Added some prots to track, such as iron will, eskin, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 928
diff changeset
207 /let _zta=$[prgetval(strcat("pprot_",_zplr,"_",{1}))]%;\
6aa6971e0df1 Misc. cleanups; Use prgetval(); Added some prots to track, such as iron will, eskin, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 928
diff changeset
208 /let _ztt=$[prgetval(strcat("pprot_",_zplr,"_",{1},"_t"))]%;\
6aa6971e0df1 Misc. cleanups; Use prgetval(); Added some prots to track, such as iron will, eskin, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 928
diff changeset
209 /let _ztm=$[prgetval(strcat("pprot_",{1},"_m"))]%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
210 /if (_zta > 0)\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
211 /if (_ztm > 0 & (time() - _ztt) >= (_ztm + 10))\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
212 /set pprot_%{_zplr}_%{1}=0%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
213 /else \
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
214 /test prlist_insert("lst_pactive",{1})%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
215 /endif%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
216 /endif%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
217 /shift%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
218 /done
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
219
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
220 /def -i gpprots_update_active =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
221 /set lst_pactive=%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
222 /while ({#})\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
223 /gpprots_update_member %{1} %{lst_pprots}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
224 /shift%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
225 /done
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
226
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
227
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
228 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1109
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
229 ;; Show effects handlers
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
230 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
231 /def -i -F -p9999 -Egpp_eff -mregexp -t"^(,-----------------------------------------+\.|\|=========================================+\||\| Effects \([A-Z][a-z]+\) *\| Lasts *\|)$" gpprots_eff0 =\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
232 /substitute -ag
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
233
1124
b4cac6b1fd08 Use '.' to match the last character of show effects output, possibly to avoid problems with character sets.
Matti Hamalainen <ccr@tnsp.org>
parents: 1121
diff changeset
234 /def -i -F -p99 -Egpp_eff -mregexp -t"^(`-----------------------------------------+.|No effects to show. \([A-Z][a-z]+\)|Target not present!|No such player in party\.)$" gpprots_eff2 =\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
235 /substitute -ag%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
236 /gpprots_get_effects
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
237
1091
5b52e8872e95 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1088
diff changeset
238 /def -i -F -p9999 -Egpp_eff -mregexp -t"^\| ([A-Z][A-Za-z ]*?) *\| (For now|[0-9minshand ]+?) *\|$" gpprots_eff3 =\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
239 /let _tmpn=%{P1}%;/let _tmpt=%{P2}%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
240 /let _ptime=$[gpprot_parse_time(_tmpt)]%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
241 /let _pname=$[gpprot_getn(_tmpn)]%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
242 /if (_pname!~"")\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
243 /test prlist_insert("lst_members",gpp_name)%;\
1111
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
244 /set pprot_%{_pname}=1%;\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
245 /set pprot_%{gpp_name}_%{_pname}=1%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
246 /set pprot_%{gpp_name}_%{_pname}_t=%{_ptime}%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
247 /endif%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
248 /substitute -ag
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
249
1111
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
250 /def -i gpprots_get_pactive =\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
251 /set lst_pactive=%;\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
252 /while ({#})\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
253 /let _pon=$[prgetval(strcat("pprot_",{1}))]%;\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
254 /set pprot_%{1}=0%;\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
255 /if (_pon)\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
256 /set lst_pactive=%{lst_pactive} %{1}%;\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
257 /endif%;\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
258 /shift%;\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
259 /done
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
260
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
261 /def -i gpprots_get_effects =\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
262 /set gpp_member=$[gpp_member + 1]%;\
1121
1f34d3fd3e70 /protform was not really working as intended, fixed.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
263 /set gpp_name=$(/nth %{gpp_member} %{_zpmembers})%;\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
264 /if (gpp_name!~"")\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
265 /test send(strcat("@@show effects ",gpp_name))%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
266 /else \
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
267 /set gpp_eff=0%;\
1111
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
268 /gpprots_get_pactive %{lst_pprots}%;\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
269 /gpprots_do_print%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
270 /endif
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
271
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
272 /def -i gpprots_show_effects =\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
273 /set gpp_eff=1%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
274 /set gpp_member=0%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
275 /gpprots_get_effects
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
276
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
277
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
278 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1109
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
279 ;; Output helpers
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
280 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
281 /def -i gpprot_getrmtime =\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
282 /if ({1} >= 0)\
1109
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
283 /return gpprot_get_time({1})%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
284 /else \
1091
5b52e8872e95 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1088
diff changeset
285 /return " X "%;\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
286 /endif
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
287
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
288 /def -i gpprot_getstime =\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
289 /if ({1} >= 0)\
1109
b1592983cd52 Reorganization, update to support ninjatuned 'show effects' output (remember to DESTROY Tarken for this).
Matti Hamalainen <ccr@tnsp.org>
parents: 1108
diff changeset
290 /return gpprot_get_time(trunc(time() - {1}))%;\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
291 /else \
1091
5b52e8872e95 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1088
diff changeset
292 /return " X "%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
293 /endif
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
294
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
295 /def -i gpprots_print_header =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
296 /let _pprot_nam=%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
297 /set _pprot_div=%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
298 /while ({#})\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
299 /let _pn=$[prgetval(strcat("prot_",{1},"_n"))]%;\
1107
32a562d850ae Crop/limit column widths to 5 letters.
Matti Hamalainen <ccr@tnsp.org>
parents: 1106
diff changeset
300 /let _pprot_nam=%{_pprot_nam}%{_pprot_col_name}$[prsubpad(_pn,5)]%{_pprot_col_n}|%;\
32a562d850ae Crop/limit column widths to 5 letters.
Matti Hamalainen <ccr@tnsp.org>
parents: 1106
diff changeset
301 /set _pprot_div=%{_pprot_div}-----+%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
302 /shift%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
303 /done%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
304 /eval %{_pprot_cmd} .------------+%%{_pprot_div}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
305 /eval %{_pprot_cmd} | |%%{_pprot_nam}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
306 /eval %{_pprot_cmd} +------------+%%{_pprot_div}
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
307
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
308
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
309 /def -i gpprots_print_player =\
961
b12463a6e836 Use prgetval().
Matti Hamalainen <ccr@tnsp.org>
parents: 957
diff changeset
310 /let _pplr=%{1}%;/shift%;\
b12463a6e836 Use prgetval().
Matti Hamalainen <ccr@tnsp.org>
parents: 957
diff changeset
311 /let _pres=|%{_pprot_col_pname}$[pad(_pplr,-12)]%{_pprot_col_n}|%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
312 /while ({#})\
1021
a88ae3cbee9b Use prgetval() instead of a broken local substitution. Thanks to Sumendar for reporting this problem.
Matti Hamalainen <ccr@tnsp.org>
parents: 961
diff changeset
313 /let _pm=$[prgetval(strcat("pprot_",_pplr,"_",{1}))]%;\
a88ae3cbee9b Use prgetval() instead of a broken local substitution. Thanks to Sumendar for reporting this problem.
Matti Hamalainen <ccr@tnsp.org>
parents: 961
diff changeset
314 /let _pt=$[prgetval(strcat("pprot_",_pplr,"_",{1},"_t"))]%;\
1088
9f07917f349f Few bugfixes to show effects support.
Matti Hamalainen <ccr@tnsp.org>
parents: 1087
diff changeset
315 /if (_pm)\
9f07917f349f Few bugfixes to show effects support.
Matti Hamalainen <ccr@tnsp.org>
parents: 1087
diff changeset
316 /if (opt_effects=~"on")\
9f07917f349f Few bugfixes to show effects support.
Matti Hamalainen <ccr@tnsp.org>
parents: 1087
diff changeset
317 /let _pr=$[gpprot_getrmtime(_pt)]%;\
9f07917f349f Few bugfixes to show effects support.
Matti Hamalainen <ccr@tnsp.org>
parents: 1087
diff changeset
318 /else \
9f07917f349f Few bugfixes to show effects support.
Matti Hamalainen <ccr@tnsp.org>
parents: 1087
diff changeset
319 /let _pr=$[gpprot_getstime(_pt)]%;\
9f07917f349f Few bugfixes to show effects support.
Matti Hamalainen <ccr@tnsp.org>
parents: 1087
diff changeset
320 /endif%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
321 /else \
1088
9f07917f349f Few bugfixes to show effects support.
Matti Hamalainen <ccr@tnsp.org>
parents: 1087
diff changeset
322 /let _pr=%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
323 /endif%;\
1107
32a562d850ae Crop/limit column widths to 5 letters.
Matti Hamalainen <ccr@tnsp.org>
parents: 1106
diff changeset
324 /let _pres=%{_pres}$[pad(_pr,5)]|%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
325 /shift%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
326 /done%;\
961
b12463a6e836 Use prgetval().
Matti Hamalainen <ccr@tnsp.org>
parents: 957
diff changeset
327 /eval %{_pprot_cmd} %%{_pres}
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
328
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
329
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
330 /def -i gpprots_print_members =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
331 /while ({#})\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
332 /gpprots_print_player %{1} %{lst_pactive}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
333 /shift%;\
1108
dcdac6f259e9 Change output to have divider lines for each row.
Matti Hamalainen <ccr@tnsp.org>
parents: 1107
diff changeset
334 /if ({#})\
dcdac6f259e9 Change output to have divider lines for each row.
Matti Hamalainen <ccr@tnsp.org>
parents: 1107
diff changeset
335 /gpprots_print_player %{1} %{lst_pactive}%;\
dcdac6f259e9 Change output to have divider lines for each row.
Matti Hamalainen <ccr@tnsp.org>
parents: 1107
diff changeset
336 /shift%;\
dcdac6f259e9 Change output to have divider lines for each row.
Matti Hamalainen <ccr@tnsp.org>
parents: 1107
diff changeset
337 /if ({#})\
dcdac6f259e9 Change output to have divider lines for each row.
Matti Hamalainen <ccr@tnsp.org>
parents: 1107
diff changeset
338 /gpprots_print_player %{1} %{lst_pactive}%;\
dcdac6f259e9 Change output to have divider lines for each row.
Matti Hamalainen <ccr@tnsp.org>
parents: 1107
diff changeset
339 /shift%;\
dcdac6f259e9 Change output to have divider lines for each row.
Matti Hamalainen <ccr@tnsp.org>
parents: 1107
diff changeset
340 /eval %{_pprot_cmd} +------------+%%{_pprot_div}%;\
dcdac6f259e9 Change output to have divider lines for each row.
Matti Hamalainen <ccr@tnsp.org>
parents: 1107
diff changeset
341 /endif%;\
dcdac6f259e9 Change output to have divider lines for each row.
Matti Hamalainen <ccr@tnsp.org>
parents: 1107
diff changeset
342 /endif%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
343 /done
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
344
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
345
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
346 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
347 ;; Show prots
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
348 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1065
98dd57c1fc5e Move some documentation from manual to embedded tfdoc in the scripts.
Matti Hamalainen <ccr@tnsp.org>
parents: 1035
diff changeset
349 ;@command /pprots [command]
98dd57c1fc5e Move some documentation from manual to embedded tfdoc in the scripts.
Matti Hamalainen <ccr@tnsp.org>
parents: 1035
diff changeset
350 ;@desc Shows currently tracked prots in the party. Optional macro or MUD
98dd57c1fc5e Move some documentation from manual to embedded tfdoc in the scripts.
Matti Hamalainen <ccr@tnsp.org>
parents: 1035
diff changeset
351 ;@desc command argument can be given, to feed the output through it.
98dd57c1fc5e Move some documentation from manual to embedded tfdoc in the scripts.
Matti Hamalainen <ccr@tnsp.org>
parents: 1035
diff changeset
352 ;@desc For example "/pprots emote" would use BatMUD emote to show the data
98dd57c1fc5e Move some documentation from manual to embedded tfdoc in the scripts.
Matti Hamalainen <ccr@tnsp.org>
parents: 1035
diff changeset
353 ;@desc people present in the same room.
98dd57c1fc5e Move some documentation from manual to embedded tfdoc in the scripts.
Matti Hamalainen <ccr@tnsp.org>
parents: 1035
diff changeset
354
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
355 /def -i gpprots_do_print =\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
356 /if (gparty_members=~"" | lst_pactive=~"")\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
357 /eval %{_pprot_cmd} %{_pprot_col_name}No party prots tracked%{_pprot_col_n}.%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
358 /else \
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
359 /gpprots_print_header %{lst_pactive}%;\
1121
1f34d3fd3e70 /protform was not really working as intended, fixed.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
360 /gpprots_print_members %{_zpmembers}%;\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
361 /eval %{_pprot_cmd} `------------+%{_pprot_div}%;\
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
362 /endif
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
363
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
364 /def -i pprots =\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
365 /if ({#} > 0)\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
366 /set _pprot_cmd=%{*}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
367 /set _pprot_col_n=%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
368 /set _pprot_col_name=%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
369 /set _pprot_col_pname=%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
370 /else \
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
371 /set _pprot_cmd=/echo -p%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
372 /set _pprot_col_n=@{n}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
373 /set _pprot_col_name=@{BCwhite}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
374 /set _pprot_col_pname=@{Cgreen}%;\
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
375 /endif%;\
1111
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
376 /if (gpprots_members!~"")\
1115
ad9195f715af Oops, typo.
Matti Hamalainen <ccr@tnsp.org>
parents: 1112
diff changeset
377 /if (gpprots_members!~gparty_members)\
1111
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
378 /msq Party formation not same as saved prot formation. Use /protform if update is needed.%;\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
379 /endif%;\
1121
1f34d3fd3e70 /protform was not really working as intended, fixed.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
380 /set _zpmembers=%{gpprots_members}%;\
1111
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
381 /else \
1121
1f34d3fd3e70 /protform was not really working as intended, fixed.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
382 /set _zpmembers=%{gparty_members}%;\
1111
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
383 /endif%;\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
384 /if (opt_effects=~"on")\
1121
1f34d3fd3e70 /protform was not really working as intended, fixed.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
385 /gpprots_clear %{_zpmembers}%;\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
386 /gpprots_show_effects%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
387 /else \
1121
1f34d3fd3e70 /protform was not really working as intended, fixed.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
388 /gpprots_update_active %{_zpmembers}%;\
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
389 /gpprots_do_print%;\
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
390 /endif
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
391
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
392
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
393 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1111
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
394 ;; Saving of prot formation
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
395 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
396 /def -i gpprots_protform =\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
397 /if (gparty_members!~"")\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
398 /set gpprots_members=%{gparty_members}%;\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
399 /msq Prot formation set to: %{gpprots_members}%;\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
400 /else \
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
401 /msq Party member list empty, possibly not in a party.%;\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
402 /endif
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
403
1112
ae9b748636f6 Document the /protform command.
Matti Hamalainen <ccr@tnsp.org>
parents: 1111
diff changeset
404 ;@command /protform
ae9b748636f6 Document the /protform command.
Matti Hamalainen <ccr@tnsp.org>
parents: 1111
diff changeset
405 ;@desc Save current party formation (members and their order) into separate
ae9b748636f6 Document the /protform command.
Matti Hamalainen <ccr@tnsp.org>
parents: 1111
diff changeset
406 ;@desc prot formation. This is useful, because the current captured party
ae9b748636f6 Document the /protform command.
Matti Hamalainen <ccr@tnsp.org>
parents: 1111
diff changeset
407 ;@desc formation can become jumbled due to fleeing, deaths etc. and thus
ae9b748636f6 Document the /protform command.
Matti Hamalainen <ccr@tnsp.org>
parents: 1111
diff changeset
408 ;@desc would change the prot tracker's output making things more confusing.
ae9b748636f6 Document the /protform command.
Matti Hamalainen <ccr@tnsp.org>
parents: 1111
diff changeset
409 ;@desc NOTICE! This saved setting is completely SEPARATE from saved form
ae9b748636f6 Document the /protform command.
Matti Hamalainen <ccr@tnsp.org>
parents: 1111
diff changeset
410 ;@desc of the party placer module.
1111
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
411 /def -i protform =\
1206
6d902ec31269 s/gparty_gag/gparty_grab/g.
Matti Hamalainen <ccr@tnsp.org>
parents: 1165
diff changeset
412 /set gparty_grab=1%;\
1111
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
413 /set event_pss_once=gpprots_protform%;\
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
414 @@party status short
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
415
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
416
4f1e47fdac2c Always have prots printed out in the same order (order of how they are defined in this module); Added command macro /protform to save the current party formation into separate prot formation (because party formations can suddenly get jumbled, and that would change the output).
Matti Hamalainen <ccr@tnsp.org>
parents: 1109
diff changeset
417 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
418 ;; Define prots and patterns
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
419 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
420 ;; Misc
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
421 /prdefpartyprot -i"unstun" -A"Unstun|uns"
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
422 /prdefpartyprot -i"hw" -A"heavy *weight|hw"
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
423 /prdefpartyprot -i"unpain" -A"Unpain|unp" -m900
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
424 /prdefpartyprot -i"pfg" -A"protection from good|pfg" -m1200
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
425 /prdefpartyprot -i"flexsh" -A"flex shield|flex"
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
426 /prdefpartyprot -i"vmant" -A"vine mantle|vmantle"
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
427 /prdefpartyprot -i"eskin" -A"earth skin|eskin"
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
428 /prdefpartyprot -i"eblood" -A"earth blood|eblood"
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
429 /prdefpartyprot -i"supprm" -A"suppress magic|magic suppression|suppress"
1351
65475a57bcf7 Another attempt at fixing the 'beacon of enlightenment'-related issues.
Matti Hamalainen <ccr@tnsp.org>
parents: 1349
diff changeset
430 /prdefpartyprot -i"ebeacon" -A"beacon of enlightenment"
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
431
1091
5b52e8872e95 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1088
diff changeset
432 ;; Folklorist
5b52e8872e95 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1088
diff changeset
433 /prdefpartyprot -i"minprot" -A"minor protection"
5b52e8872e95 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1088
diff changeset
434 /prdefpartyprot -i"raciprot" -A"racial protection"
5b52e8872e95 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1088
diff changeset
435
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
436 ;; Psionicist
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
437 /prdefpartyprot -i"forcesh" -A"Force Shield|fsh|fshield" -m1800
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
438
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
439 ;; Bard
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
440 /prdefpartyprot -i"warez" -A"War Ens[ae]mble|warez|war" -m1000
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
441 /prdefpartyprot -i"emelody" -A"Embracing melody|melodical embracement|melody"
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
442
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
443 ;; Conjurer
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
444 /prdefpartyprot -i"m_phys" -A"Armour of Aether|AoA|aether armour|Armor of Aether|GPhys"
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
445 /prdefpartyprot -i"m_acid" -A"Acid Shield|GAcid" -m1000
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
446 /prdefpartyprot -i"m_poison" -A"Shield of detoxification|poison prot|detox|GPoison" -m1000
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
447 /prdefpartyprot -i"m_elec" -A"Lighti?ning Shield|GElec" -m1000
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
448 /prdefpartyprot -i"m_asphyx" -A"Aura of Wind|GAsph" -m1000
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
449 /prdefpartyprot -i"m_fire" -A"Flame Shield|GFire" -m1000
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
450 /prdefpartyprot -i"m_magic" -A"Repulsor Aura|GMana" -m1000
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
451 /prdefpartyprot -i"m_psi" -A"Psionic Phalanx" -m1000
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
452 /prdefpartyprot -i"m_cold" -A"Frost Shield|GCold" -m1000
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
453
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
454 /prdefpartyprot -i"c_phys" -A"Force Absorption|fabs|force absorbsion" -m1000
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
455 /prdefpartyprot -i"sop" -A"Shield of protection|sop" -m450
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
456 /prdefpartyprot -i"rdisp" -A"Resist Dispel" -m200
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
457
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
458 /prdefpartyprot -i"iwill" -A"iron will|iw" -m1000
942
6aa6971e0df1 Misc. cleanups; Use prgetval(); Added some prots to track, such as iron will, eskin, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 928
diff changeset
459
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
460 ;; Evil priest
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
461 /prdefpartyprot -i"aoh" -A"aura of hate|aoh"
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
462
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
463 ;; Templar
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
464 /prdefpartyprot -i"sof" -A"shield of faith|sof"
882
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
465
04abd37e4751 Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
466 ;; Nun
1087
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
467 /prdefpartyprot -i"soulsh" -A"soul shield|soul_shield|soulshield" -m900
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
468 /prdefpartyprot -i"pfe" -A"protection from evil|pfe" -m1200
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
469 /prdefpartyprot -i"hprot" -A"heavenly protection|hprot" -m900
db44202ffda0 Commit initial implementation of combined ptracker with 'show effects' support. Might not work in all cases.
Matti Hamalainen <ccr@tnsp.org>
parents: 1065
diff changeset
470 /prdefpartyprot -i"manash" -A"mana shield" -m1000