menu channel {
-
Invite List: invitelist $active
-
}
alias invitelist {
if (!$1) { echo Correct command:12 /invitelist #channel | halt }
var %file invite-list-Gforce.txt, %lines $lines(%file)
var %i 1, %n 0, %limit 5, %sec 0, %delay 10
while (%i <= %lines) {
var %str $read(%file,nt,%i)
if (!$ifind($1,%str)) { %masks = %masks %str | inc %n }
if (%n == %limit) || (%i == %lines && %masks) {
$+(.timer,INVITE,%i,$r(a,z)) 1 %sec mode $1 $+(+,$str(I,%limit)) %masks
unset %n %masks | inc %sec %delay
}
inc %i
}
unset %n %sec %masks
}
alias -l ifind { var %q 1 | while (%q <= $iil($1,0)) { if ($2 iswm $iil($1,%q)) return 1 | inc %q } }