Mercurial > hg > batmud > ggrtf
annotate gm-rais.tf @ 1655:356c3c26aee6
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 |
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::Raise - Support for rais/ress/body/reinc spells |
1655
356c3c26aee6
Get rid of ISO-8859-1 in copyrights.
Matti Hamalainen <ccr@tnsp.org>
parents:
1586
diff
changeset
|
3 ;; (C) Copyright 2006-2015 Matti Hamalainen (Ggr) |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
4 ;; |
1454
113c9a66eaf1
Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents:
1321
diff
changeset
|
5 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
113c9a66eaf1
Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents:
1321
diff
changeset
|
6 ;; |
113c9a66eaf1
Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents:
1321
diff
changeset
|
7 ;; 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:
1321
diff
changeset
|
8 ;; 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:
1321
diff
changeset
|
9 ;; 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:
1321
diff
changeset
|
10 ;; |
113c9a66eaf1
Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents:
1321
diff
changeset
|
11 ;; 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:
1321
diff
changeset
|
12 ;; 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:
1321
diff
changeset
|
13 ;; 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:
1321
diff
changeset
|
14 ;; file "COPYING.txt" for more details. |
113c9a66eaf1
Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents:
1321
diff
changeset
|
15 ;; |
113c9a66eaf1
Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents:
1321
diff
changeset
|
16 ;; 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:
1321
diff
changeset
|
17 ;; 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:
1321
diff
changeset
|
18 ;; 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:
1321
diff
changeset
|
19 ;; MA 02110-1301 USA. |
113c9a66eaf1
Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents:
1321
diff
changeset
|
20 ;; |
113c9a66eaf1
Add a better/more proper GPL license header in files.
Matti Hamalainen <ccr@tnsp.org>
parents:
1321
diff
changeset
|
21 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
22 ;; |
1276
51c340df904a
Update copyrights, version requirements.
Matti Hamalainen <ccr@tnsp.org>
parents:
1221
diff
changeset
|
23 ;; 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
|
24 ;; |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
25 /loaded GgrTF::Raise |
1035
c10f8a59a2e3
Use module depencies for checking required parent modules.
Matti Hamalainen <ccr@tnsp.org>
parents:
882
diff
changeset
|
26 /test prdefmodule("Raise", "Magical") |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
27 |
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 ;; Bindings etc |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
30 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1310
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
31 ;@command /acptbell <off|once|persist> |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
32 ;@desc Bell when someone has accepted raise/ress/reinc/etc from you. |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
33 ;@desc "Once" means to bell only once, "persist" keeps on belling until all |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
34 ;@desc current accepts have been dealt with, or the list is cleared. |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
35 /prdefsetting -n"acptbell" -d"Bell when someone accepts rais/reinc/etc." -s"off once persist" |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
36 |
1320
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
37 |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
38 ;@command /acptpurge <minutes> |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
39 ;@desc Threshold time in minutes for /acpurge, older accepts than this |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
40 ;@desc will be purged from the list. |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
41 /prdefvalue -n"acptpurge" -d"Purge threshold in minutes for /acpurge" |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
42 /set set_acptpurge=30 |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
43 |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
44 |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
45 /prdefgbind -s"cclear" -c"/acclear" |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
46 /prdefgbind -s"acc" -c"/aclist" |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
47 /prdefgbind -s"clast" -c"/accast" |
1320
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
48 /prdefgbind -s"cpurge" -c"/acpurge" |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
49 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
50 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
51 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
52 ;; Helper functions and initialization |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
53 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1321
f0772cb67e61
The reminder didn't work, some variable names were mistyped. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents:
1320
diff
changeset
|
54 ;/set lst_accepted= |
1320
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
55 /test prlist_insert("event_login", "acpurge") |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
56 /test prlist_insert("event_quit_login", "acpurge") |
1309
6f2b46da0934
Added event hooks for ress/rais module for accepted / removed events.
Matti Hamalainen <ccr@tnsp.org>
parents:
1287
diff
changeset
|
57 |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
58 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
59 /def -i gacpt_list_add =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
60 /gacpt_list_rm_do $[prconvto({1})] %{lst_accepted}%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
61 /msq @{BCyellow}%{1}@{n} accepted @{BCgreen}%{2}@{n}!%;\ |
1309
6f2b46da0934
Added event hooks for ress/rais module for accepted / removed events.
Matti Hamalainen <ccr@tnsp.org>
parents:
1287
diff
changeset
|
62 /set lst_accepted=$[prconvto({1})] $[prconvto({2})] $[time()] %{lst_accepted}%;\ |
1310
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
63 /gacpt_remind |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
64 |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
65 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
66 /def -i gacpt_list_rm_do =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
67 /let _atmp=%{1}%;/shift%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
68 /set lst_accepted=%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
69 /while ({#})\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
70 /if ({1}!~_atmp)\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
71 /set lst_accepted=%{1} %{2} %{3} %{lst_accepted}%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
72 /endif%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
73 /shift%;/shift%;/shift%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
74 /done |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
75 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
76 /def -i gacpt_list_rm =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
77 /msq Removing @{BCyellow}%{1}@{n} from list ...%;\ |
1310
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
78 /gacpt_list_rm_do $[prconvto({1})] %{lst_accepted} |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
79 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
80 |
1320
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
81 /def -i gacpt_list_purge_do =\ |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
82 /let _atime=$[time() - (set_acptpurge * 60)]%;\ |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
83 /set lst_accepted=%;\ |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
84 /while ({#})\ |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
85 /if ({3} >= _atime)\ |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
86 /set lst_accepted=%{1} %{2} %{3} %{lst_accepted}%;\ |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
87 /endif%;\ |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
88 /shift%;/shift%;/shift%;\ |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
89 /done |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
90 |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
91 |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
92 /def -i gacpt_list_get =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
93 /let _atmp=$[tolower({1})]%;/shift%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
94 /set acc_name=%;/set acc_method=%;/set acc_time=%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
95 /while ({#})\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
96 /if ({1}=~_atmp)\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
97 /set acc_name=$[prconvfrom({1})]%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
98 /set acc_method=$[prconvpm({2})]%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
99 /set acc_time=%{3}%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
100 /break%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
101 /endif%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
102 /shift%;/shift%;/shift%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
103 /done |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
104 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
105 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
106 /def -i gacpt_list_getfirst =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
107 /if ({#})\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
108 /set acc_name=$[prconvfrom({1})]%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
109 /set acc_method=$[prconvpm({2})]%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
110 /set acc_time=%{3}%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
111 /else \ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
112 /set acc_name=%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
113 /set acc_method=%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
114 /set acc_time=%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
115 /endif |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
116 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
117 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
118 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
119 ;; Implement actual commands |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
120 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1320
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
121 /def -i acpurge =\ |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
122 /msq Purging accepts older than @{BCwhite}%{set_acptpurge} minutes@{n} from list ...%;\ |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
123 /gacpt_list_purge_do %{lst_accepted} |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
124 |
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
125 |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
126 /def -i acclear =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
127 /msq Clearing accepted list ...%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
128 /set lst_accepted= |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
129 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
130 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
131 /def -i gacpt_list_print =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
132 /while ({#})\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
133 /msw | @{BCyellow}$[prsubipad(prconvfrom({1}),15)]@{n} | @{BCgreen}$[prsubpad(prconvpm({2}),20)]@{n} | $[prsubpad(prgetstime({3}),10)] |%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
134 /shift%;/shift%;/shift%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
135 /done |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
136 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
137 /def -i aclist =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
138 /if (lst_accepted!~"")\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
139 /msw ,-----------------.%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
140 /msw | Latest accepted |%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
141 /msw +-----------------+-----------------------------------.%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
142 /gacpt_list_print %{lst_accepted}%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
143 /msw `-----------------------------------------------------'%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
144 /else \ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
145 /msq Nobody has accepted from you!%;\ |
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 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
149 /def -i accast =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
150 /if (lst_accepted!~"")\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
151 /if ({#} > 0)\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
152 /gacpt_list_get %{1} %{lst_accepted}%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
153 /else \ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
154 /gacpt_list_getfirst %{lst_accepted}%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
155 /endif%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
156 /if (acc_name!~"")\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
157 /msq Casting @{BCgreen}%{acc_method}@{n} at @{BCyellow}%{acc_name}@{n}.%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
158 @tell %{acc_name} Casting %{acc_method} ...%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
159 @cast %{acc_method} at %{acc_name}%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
160 /else \ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
161 /msq Internal error! (lst_accepted not empty, but could not get name for last anyway)%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
162 /endif%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
163 /else \ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
164 /msq Nobody has accepted from you!%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
165 /endif |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
166 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
167 |
1221
5e77a1092b5e
Add support for reanimation + cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
168 ;; Succesful resurrection, raise dead and new body |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
169 /def -i -F -p9999 -mregexp -t"^You resurrect ([A-Z][a-z]+)\.$" gacpt_succ1 =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
170 /test gacpt_list_rm({P1}) |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
171 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
172 /def -i -F -p9999 -mregexp -t"^You raise ([A-Z][a-z]+) from the dead\.$" gacpt_succ2 =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
173 /test gacpt_list_rm({P1}) |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
174 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
175 /def -i -F -p9999 -mregexp -t"^You create a new body for ([A-Z][a-z]+)\.$" gacpt_succ3 =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
176 /test gacpt_list_rm({P1}) |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
177 |
1221
5e77a1092b5e
Add support for reanimation + cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
178 |
5e77a1092b5e
Add support for reanimation + cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
179 ;; Reincarnation |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
180 /def -i -F -p9999 -mregexp -t"^You trace misty green runes on a water lily flower " gacpt_succA =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
181 /set gacpt_st=1 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
182 |
1320
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
183 /def -i -F -p9999 -Egacpt_st -mregexp -t"^Your druidstaff is surrounded by a sudden cloudburst, and you glory" gacpt_succB =\ |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
184 /set gacpt_st=0%;/test gacpt_list_rm(cast_info_t) |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
185 |
1126
e910db591a41
Possibly fix problems with reincarnations in raise helper.
Matti Hamalainen <ccr@tnsp.org>
parents:
1050
diff
changeset
|
186 ;/def -i -F -p9999 -mregexp -Eacpt_st -t"^With a green shimmering flash, the water lily flower disappears\." gacpt_succB =\ |
e910db591a41
Possibly fix problems with reincarnations in raise helper.
Matti Hamalainen <ccr@tnsp.org>
parents:
1050
diff
changeset
|
187 ; /set gacpt_st=0%;/test gacpt_list_rm(cast_info_t) |
e910db591a41
Possibly fix problems with reincarnations in raise helper.
Matti Hamalainen <ccr@tnsp.org>
parents:
1050
diff
changeset
|
188 |
1221
5e77a1092b5e
Add support for reanimation + cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
189 |
5e77a1092b5e
Add support for reanimation + cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
190 ;; Reanimation |
1320
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
191 /def -i -F -p9999 -Egacpt_st -mregexp -t"^Bright blue rays of power shoot from your fingers to the corpse as you scream the words of reanimation. The corpse shakes violently and then opens its eyes just before it pops out of existance." gacpt_succE =\ |
1221
5e77a1092b5e
Add support for reanimation + cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
192 /set gacpt_st=0%;/test gacpt_list_rm(cast_info_t) |
5e77a1092b5e
Add support for reanimation + cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
193 |
5e77a1092b5e
Add support for reanimation + cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
194 |
5e77a1092b5e
Add support for reanimation + cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
195 ;; Accepts and cancels |
882
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
196 /def -i -F -p9999 -ag -mregexp -t"^([A-Z][a-z]+) accepts (raise dead|resurrect|new body|reincarnation|reanimation) from you\.$" gacpt_you =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
197 /test gacpt_list_add({P1},{P2}) |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
198 |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
199 /def -i -F -p9999 -ag -mregexp -t"^([A-Z][a-z]+) accepted from someone else\.$" gacpt_off =\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
200 /msq @{BCgreen}%{P1}@{n} @{BCwhite}accepted from someone else!@{n}%;\ |
04abd37e4751
Rename additional modules from ggrtf-*.tf to gm-*.tf.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
201 /test gacpt_list_rm({P1}) |
1221
5e77a1092b5e
Add support for reanimation + cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
202 |
1310
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
203 |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
204 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
205 ;; Reminder bell functionality |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
206 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
207 /def -i gacpt_dobell =\ |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
208 /set acpt_counter=$[acpt_counter + 1]%;\ |
1321
f0772cb67e61
The reminder didn't work, some variable names were mistyped. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents:
1320
diff
changeset
|
209 /if (lst_accepted!~"" & acpt_counter < 15)\ |
f0772cb67e61
The reminder didn't work, some variable names were mistyped. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents:
1320
diff
changeset
|
210 /if (mod(acpt_counter, 2) == 1)\ |
f0772cb67e61
The reminder didn't work, some variable names were mistyped. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents:
1320
diff
changeset
|
211 /msq @{b}@{BCwhite}You have pending raises/resses/reincs/etc!@{n}%;\ |
f0772cb67e61
The reminder didn't work, some variable names were mistyped. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents:
1320
diff
changeset
|
212 /else \ |
f0772cb67e61
The reminder didn't work, some variable names were mistyped. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents:
1320
diff
changeset
|
213 /echo -p @{b}%;\ |
f0772cb67e61
The reminder didn't work, some variable names were mistyped. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents:
1320
diff
changeset
|
214 /endif%;\ |
1310
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
215 /else \ |
1311
85ea9dff9538
Add a message to the bell reminder.
Matti Hamalainen <ccr@tnsp.org>
parents:
1310
diff
changeset
|
216 /kill %{acpt_pid}%;\ |
1312 | 217 /set acpt_pid=-1%;\ |
1310
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
218 /endif |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
219 |
1320
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
220 |
1310
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
221 /def -i gacpt_remind =\ |
1321
f0772cb67e61
The reminder didn't work, some variable names were mistyped. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents:
1320
diff
changeset
|
222 /if (set_acptbell=~"once")\ |
1310
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
223 /gacpt_dobell%;\ |
1321
f0772cb67e61
The reminder didn't work, some variable names were mistyped. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents:
1320
diff
changeset
|
224 /elseif (set_acptbell=~"persist")\ |
1310
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
225 /set acpt_counter=0%;\ |
1320
48f8d3fea113
Add /acpurge command for purging old accepts, and /acptpurge setting for setting the threshold in minutes. Also hook automatic purging when doing a relogin.
Matti Hamalainen <ccr@tnsp.org>
parents:
1312
diff
changeset
|
226 /gacpt_dobell%;\ |
1310
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
227 /if (acpt_pid > 0)\ |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
228 /else \ |
1321
f0772cb67e61
The reminder didn't work, some variable names were mistyped. Fixed.
Matti Hamalainen <ccr@tnsp.org>
parents:
1320
diff
changeset
|
229 /set acpt_pid=$(/grepeat -30 i /gacpt_dobell)%;\ |
1310
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
230 /endif%;\ |
365229e92169
Actually, replace the hooks with a different kind of reminder bell functionality.
Matti Hamalainen <ccr@tnsp.org>
parents:
1309
diff
changeset
|
231 /endif |