1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
;;; /watch
; Watch for people to connect to a mud.
; Requires that the mud have a WHO command that lists one player per line,
; and OUTPUTPREFIX and OUTPUTSUFFIX commands.
;
; Usage:
; /watch <player> Tells you when <player> logs on to the mud.
; /watch Tells you who you are still watching for.
; /unwatch <player> Stops looking for <player>.
; /unwatch -a Stops looking for everyone.
;
; This version polls for all names with a single WHO, unlike previous
; versions which did a separate WHO for each name being watched.
;
; Written by David Moore ("OliverJones").
/loaded __TFLIB__/watch.tf
/require pcmd.tf
;;; Global variables:
;/set watch_pid
;/set watch_list
;/set watch_glob
/def -i watch = \
/let _who=$[tolower(%1)]%;\
/if (_who =~ "") \
/echo \% You are watching for: %{_watch_list}%;\
/break%;\
/endif%;\
/if (_who =/ _watch_glob) \
/echo \% You are already watching for that person!%;\
/break%;\
/endif%;\
/if (_watch_pid =~ "") \
/repeat -60 1 /_watch%;\
/set _watch_pid=%?%;\
/endif%;\
/set _watch_list=%{_who}|%{_watch_list}%;\
/set _watch_list=$(/replace || | %{_watch_list})%;\
/set _watch_glob={%{_watch_list}}
/def -i unwatch =\
/let _who=$[tolower(%1)]%;\
/if (_who =~ "") \
/echo \% Use /unwatch <name> or /unwatch -a for all.%;\
/break%;\
/endif%;\
/if ((_who !~ "-a") & (_who !/ _watch_glob)) \
/echo \% You already weren't watching for that person!%;\
/break%;\
/endif%;\
/if (_who =~ "-a") \
/set _watch_list=|%;\
/else \
/set _watch_list=$(/replace %{_who}| | %{_watch_list})%;\
/set _watch_list=$(/replace || | %{_watch_list})%;\
/endif%;\
/set _watch_glob={%{_watch_list}}%;\
/if ((_watch_list =~ "|") & (_watch_pid !~ "")) \
/kill %{_watch_pid}%;\
/unset _watch_pid%;\
/endif
/def -i _watch =\
/unset _watch_pid%;\
/def -i -p100 -1 -aGg -msimple -t"%{outputprefix}" _watch_start =\
/def -i -p100 -aGg -mglob -t"*" _watch_ignore =%%;\
/def -i -p101 -aGg -mglob -t"%{_watch_glob}*" _watch_match =\
/echo # %%%1 has connected.%%%;\
/unwatch %%%1%%;\
/def -i -p101 -1 -aGg -msimple -t"%{outputsuffix}" _watch_end =\
/undef _watch_ignore%%%;\
/undef _watch_match%%%;\
/if (_watch_list !~ "|") \
/repeat -60 1 /_watch%%%;\
/set _watch_pid=%%%?%%%;\
/endif%;\
/pcmd WHO
|
