Mercurial > hg > batmud > ggrtf

annotate gm-rais.tf @ 1686:db1a3e72c1d1 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
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
c72afef9251f Oops, fix a bug / typo.
Matti Hamalainen <ccr@tnsp.org>
parents: 1311
diff changeset
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