Mercurial > hg > batmud > ggrtf
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 |
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 | 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 | 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 | 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 =\ |
23 /set salve_name=%{P1}%;\ | |
24 /msq Applying '%{salve_name}' salve ... | |
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 | 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 | 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 | 35 /if (qval!~"")\ |
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 | 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 | 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 | 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 | 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 | 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 | 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 | 80 @report stats |
98 | 81 |
82 /def -i sstat =\ | |
531 | 83 /if (salve_st=~"on")\ |
98 | 84 /msq Salve measurement in progress. Duration: $[prgetstime(salve_t)]%;\ |
85 /else \ | |
86 /msq No salve measurement in progress.%;\ | |
87 /endif | |
88 |