1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
var %z = 1
var %total = $numtok(%chanperf,44)
var %addr = $address($nick,2)
set -u15 %nick $nick
set -u15 %whoisnick $2
:start
while (%z <= %total) {
if (%addr $istok($readini(admin.ini,$gettok(%chanperf,%z,44),masters))) {
set -u15 %masterchan %masterchan $gettok(%chanperf,%z,32)
}
if (%addr $istok($readini(admin.ini,$gettok(%chanperf,%z,44),users))) {
set -u15 %userschan %userschan $gettok(%chanperf,%z,32)
}
inc %z
}
}
goto start
.timer 1 5 whoisinfos |