annotate salve.tf @ 1686:db1a3e72c1d1 default tip

Update to match in-game changes ('help item conditions').
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 18 May 2024 21:25:57 +0300
parents 356c3c26aee6
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1 ;; Salve testing helper triggers
1655
356c3c26aee6 Get rid of ISO-8859-1 in copyrights.
Matti Hamalainen <ccr@tnsp.org>
parents: 1266
diff changeset
2 ;; (C) Copyright 2005-2006 Matti Hamalainen (Ggr)
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
3 ;;
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
4 ;; This file (triggerset) is Free Software distributed under
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
5 ;; GNU General Public License version 2.
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
6 ;;
487
47f9d33e300f v0.6.0-pre9
Matti Hamalainen <ccr@tnsp.org>
parents: 352
diff changeset
7 ;; NOTICE! This file requires GgrTF (version 0.6.0 or later) to be loaded.
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
8 ;;
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
9 ;; This file is not direct part of GgrTF, it's a optional module which
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
10 ;; provides simple triggers for measuring stat-effects of salves made
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
11 ;; by channellers and alchemists. The measuring mechanism only takes
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
12 ;; into account stats (str,dex,con,int,wis,cha,siz) at the moment.
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
13 ;;
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
14 /set salve_st=off
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
15 /set salve_st2=off
99
Matti Hamalainen <ccr@tnsp.org>
parents: 98
diff changeset
16 /set salve_m=off
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
17
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
18 /def -i -mregexp -ag -t"^You stop what you were doing and begin to apply clay dish of ([a-z]+) salve to yourself\.$" salve_getn =\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
19 /set salve_name=%{P1}%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
20 /msq Applying '%{salve_name}' salve ...
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
21
98
Matti Hamalainen <ccr@tnsp.org>
parents: 97
diff changeset
22 /def -i -mregexp -ag -t"^You stop what you were doing and begin to apply clay dish of ([a-z]+) salve labeled as .+ to yourself\.$" salve_getn2 =\
Matti Hamalainen <ccr@tnsp.org>
parents: 97
diff changeset
23 /set salve_name=%{P1}%;\
Matti Hamalainen <ccr@tnsp.org>
parents: 97
diff changeset
24 /msq Applying '%{salve_name}' salve ...
Matti Hamalainen <ccr@tnsp.org>
parents: 97
diff changeset
25
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
26 /def -i salve_add =\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
27 /let qval=$[{2}-{3}]%;\
531
c99fd968f65f Variable cleanups
Matti Hamalainen <ccr@tnsp.org>
parents: 487
diff changeset
28 /if (qval > 0)\
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
29 /let qval=+%{qval} %{1}%;\
531
c99fd968f65f Variable cleanups
Matti Hamalainen <ccr@tnsp.org>
parents: 487
diff changeset
30 /elseif (qval < 0)\
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
31 /let qval=%{qval} %{1}%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
32 /else \
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
33 /let qval=%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
34 /endif%;\
531
c99fd968f65f Variable cleanups
Matti Hamalainen <ccr@tnsp.org>
parents: 487
diff changeset
35 /if (qval!~"")\
c99fd968f65f Variable cleanups
Matti Hamalainen <ccr@tnsp.org>
parents: 487
diff changeset
36 /if (salve_res!~"")\
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
37 /set salve_res=%{qval}:%{salve_res}%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
38 /else \
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
39 /set salve_res=%{qval}%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
40 /endif%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
41 /endif
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
42
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
43 /def -i -mregexp -ag -t"^You say 'Str: [A-Z][a-z]+ \(([0-9]+)[\+\-]*\), Dex: [A-Z][a-z]+ \(([0-9]+)[\+\-]*\), Con: [A-Z][a-z]+ \(([0-9]+)[\+\-]*\), Int: [A-Z][a-z]+ \(([0-9]+)[\+\-]*\), Wis: [A-Z][a-z]+ \(([0-9]+)[\+\-]*\), Cha: [A-Z][a-z]+ \(([0-9]+)[\+\-]*\), Siz: [A-Z][a-z]+ \(([0-9]+)[\+\-]*\)\.'$" salve_stats =\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
44 /msq STR:%{P1}|DEX:%{P2}|CON:%{P3}|INT:%{P4}|WIS:%{P5}|CHA:%{P6}|SIZ:%{P7}%;\
531
c99fd968f65f Variable cleanups
Matti Hamalainen <ccr@tnsp.org>
parents: 487
diff changeset
45 /if (salve_st=~"on" & salve_m=~"off")\
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
46 /msq Saving salve effects ...%;\
99
Matti Hamalainen <ccr@tnsp.org>
parents: 98
diff changeset
47 /set salve_m=on%;\
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
48 /set salve_str=%{P1}%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
49 /set salve_dex=%{P2}%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
50 /set salve_con=%{P3}%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
51 /set salve_int=%{P4}%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
52 /set salve_wis=%{P5}%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
53 /set salve_cha=%{P6}%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
54 /set salve_siz=%{P7}%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
55 /else \
531
c99fd968f65f Variable cleanups
Matti Hamalainen <ccr@tnsp.org>
parents: 487
diff changeset
56 /if (salve_st2=~"on")\
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
57 /set salve_st2=off%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
58 /set salve_res=%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
59 /test salve_add("str",salve_str,{P1})%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
60 /test salve_add("dex",salve_dex,{P2})%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
61 /test salve_add("con",salve_con,{P3})%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
62 /test salve_add("int",salve_int,{P4})%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
63 /test salve_add("wis",salve_wis,{P5})%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
64 /test salve_add("cha",salve_cha,{P6})%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
65 /test salve_add("siz",salve_siz,{P7})%;\
102
Matti Hamalainen <ccr@tnsp.org>
parents: 99
diff changeset
66 /echo $[pad(salve_name,-15)] | $[pad(salve_res,-30)] | $[prgetstime(salve_t)] | -%;\
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
67 /endif%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
68 /endif
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
69
1266
7910e501e680 Use /gdef instead of /def where appropriate.
Matti Hamalainen <ccr@tnsp.org>
parents: 977
diff changeset
70 /gdef -i -aBCmagenta -msimple -t"You finish applying the salve." salve_begin =\
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
71 /set salve_st=on%;\
99
Matti Hamalainen <ccr@tnsp.org>
parents: 98
diff changeset
72 /set salve_m=off%;\
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
73 /set salve_t=$[time()]%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
74 /msq Salve timer started, waiting effects ...%;\
977
f4d257bc6514 s/r stats/report stats/
Matti Hamalainen <ccr@tnsp.org>
parents: 531
diff changeset
75 /repeat -10 1 @report stats
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
76
1266
7910e501e680 Use /gdef instead of /def where appropriate.
Matti Hamalainen <ccr@tnsp.org>
parents: 977
diff changeset
77 /gdef -i -aBCmagenta -msimple -t"You feel your body returning to normal." salve_end =\
97
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
78 /set salve_st=off%;/set salve_st2=on%;\
3a00289dba32 Added an helper script for salve research.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
79 /msq Salve duration: $[prgetstime(salve_t)]%;\
977
f4d257bc6514 s/r stats/report stats/
Matti Hamalainen <ccr@tnsp.org>
parents: 531
diff changeset
80 @report stats
98
Matti Hamalainen <ccr@tnsp.org>
parents: 97
diff changeset
81
Matti Hamalainen <ccr@tnsp.org>
parents: 97
diff changeset
82 /def -i sstat =\
531
c99fd968f65f Variable cleanups
Matti Hamalainen <ccr@tnsp.org>
parents: 487
diff changeset
83 /if (salve_st=~"on")\
98
Matti Hamalainen <ccr@tnsp.org>
parents: 97
diff changeset
84 /msq Salve measurement in progress. Duration: $[prgetstime(salve_t)]%;\
Matti Hamalainen <ccr@tnsp.org>
parents: 97
diff changeset
85 /else \
Matti Hamalainen <ccr@tnsp.org>
parents: 97
diff changeset
86 /msq No salve measurement in progress.%;\
Matti Hamalainen <ccr@tnsp.org>
parents: 97
diff changeset
87 /endif
Matti Hamalainen <ccr@tnsp.org>
parents: 97
diff changeset
88