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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
alias hechot {
@ hlines = 1
xecho -window help $cbold$c0\$ccl Help: $cbold$c7$[8]* $cbold$c0\ $ccl
}
alias hecho {
eval xecho -window help $cbold$c0\$ccl $*
@ hlines++
if ((hlines % winsize()) == 0) { tepause }
}
alias hechob {
xecho -window help $cbold$c0\ $ccl
^assign -hlines
}
alias hformat {
^local output
@ output = sar(g/[/$c3\[/$*)
@ output = sar(g/]/]$cnorm\/$output)
@ output = sar(g/</$cbold$c1\</$output)
@ output = sar(g/>/>$cnorm\/$output)
@ function_return = output
}
alias gethelp {
^local hfile
^local opts
^local tmp
@ hfile = open($twiddle($(tebase.src)/help/$0) R)
while (!eof($hfile)&&tmp!=[$1]) {
@ tmp = read($hfile)
}
@ opts = read($hfile)
@ close($hfile)
@ function_return = opts
}
alias usage {
teecho Usage: $cbold\/$0$cnorm $hformat($gethelp($1 /$0))
}
alias phfile {
clear
^local hfile,h_cmd,h_args,h_desc,h_tmp,h_cnt
hechot $0
@ hfile = open($twiddle($(tebase.src)/help/$0) R)
while (!eof($hfile)) {
@ h_cmd = read($hfile)
if (h_cmd) {
@ h_args = hformat($read($hfile))
hecho $cbold$h_cmd$cnorm ${h_args!=0?h_args:[]}
@ h_desc = []
while (h_desc != [-] && !eof($hfile)) {
@ h_desc = hformat($read($hfile))
if (h_desc !=[-]) { hecho $[5] $h_desc }
}}}
hechob
@ close($hfile)
tepause
}
alias tehelp {
^local w1lev
@ w1lev = winlevel(1)
^window 1 level all
^window new
^window hide_others
^window name help
^window help level none
title_update Third Eye - Help
^local tcm 0
while (tcm != chr(10)) {
clear
hechot ThirdEye
hecho $tever\, 1996-2000 keebler $cbold$c0\<$c7\keebler@sandwich.net$c0\>$ccl
hecho Main distro point: $cbold$c7\http://knuckle.sandwich.net/te.html$ccl
hecho Also available in the debian main tree: apt-get install epic4-script-thirdeye
hecho
hecho $cbold$c7\C$ccl\hannel
hecho $cbold$c7\K$ccl\eybinds
hecho $cbold$c7\X$ccl\-Window
hecho $cbold$c7\D$ccl\CC
hecho $cbold$c7\U$ccl\ser lists
hecho $cbold$c7\B$ccl\ot lists
hecho B$cbold$c7\N$ccl\C server commands
hecho $cbold$c7\R$ccl\elays
hecho $cbold$c7\M$ccl\iscellaneous commands
hecho $cbold$c7\W$ccl\indow commands
hecho $cbold$c7\S$ccl\hell commands
hecho $cbold$c7\Q$ccl\uiet channel commands
hecho Channel Ke$cbold$c7\y$ccl\s
hecho
hecho $cbold$c7\/config$ccl to configure
hecho Key: $cbold$c0\[$c1\Required$c0\] [$cnorm$c3\Optional$cbold$c0\]$ccl
hechob
@ tcm = [$'Third Eye Help: ']
switch ([$tcm]) {
([C]) { phfile Channel }
([K]) { phfile KeyBinds }
([X]) { phfile X }
([D]) { phfile DCC }
([U]) { phfile Users }
([B]) { phfile Bots }
([R]) { phfile Relays }
([M]) { phfile Misc }
([W]) { phfile Window }
([S]) { phfile Unix }
([Y]) { phfile Keys }
([N]) { phfile BNC }
([Q]) { phfile QC }
}}
^window kill
if (!hidwin) {
^window show_all
}
^window 1 level $w1lev
updatexstuff
}
|
