on *:text:!Adminstatus:#: {
.var %i = 1
while (%i <= $ini(admin.ini,online,0)) {
.var %admins = $addtok(%admins,$ini(admin.ini,online,%i) ( $+ $auth($ini(admin.ini,online,%i)) $+ ),32)
.inc %i
}
msg $chan Admins online: %admins
}
alias auth {
if (*.users.quakenet.org iswm $address($1,2)) {
return $gettok($remove($address($1,2),*!*@),1,46)
}
}
Hvis du er ude efter noget mere advangeret så prøv det her $Auth() script:
alias AuthDir {
return " $+ $gettok($mircdir,1- $+ $calc($numtok($mircdir,92) - 1),92) $+ \Authing.ini"
}
alias auth {
if ($readini($AuthDir,$1,auth)) {
return $readini($AuthDir,$1,Auth)
}
elseif (*.users.quakenet.org iswm $address($1,2)) {
writeini -n $AuthDir $replace($1,$chr(91),'91',$chr(93),'93') Auth $gettok($remove($address($1,2),*!*@),1,46)
return $gettok($remove($address($1,2),*!*@),1,46)
}
else {
.timer 1 $rand(3,100) .who $1 n%na
return $false
}
}
alias authNick {
set %AuthNICK $ini($AuthDir,0)
while (%AuthNICK) {
if ($readini($AuthDir,$ini($AuthDir,%AuthNICK),auth) == $1) && ($ini($AuthDir,%AuthNICK) ison %MainChan) {
return $replace($ini($AuthDir,%AuthNICK),'91',$chr(91),'93',$chr(93))
halt
}
dec %AuthNICK
}
return 0
}
on *:join:%MainChan: {
if ($nick == $me) { who $chan n%na }
if (%STOPAUTH == 1) { halt }
set %auth $auth($nick)
if (%auth) { halt }
if (*.users.quakenet.org iswm $address($nick,2)) {
writeini -n $AuthDir $replace($nick,$chr(91),'91',$chr(93),'93') Auth $gettok($remove($address($nick,2),*!*@),1,46)
}
inc -u1 %AntiAuthFlood 1
if (%AntiAuthFlood < 3) {
.who $nick n%na
}
else {
.timer 1 $calc( %AntiAuthFlood + %AntiAuthFlood + %AntiAuthFlood + 5) .who $nick n%na
}
}
raw 354:*:{
writeini -n $AuthDir $replace($2,$chr(91),'91',$chr(93),'93') Auth $3
}
on *:nick: {
if (!$auth($nick)) { halt }
/writeini -n $AuthDir $replace($newnick,$chr(91),'91',$chr(93),'93') Auth $auth($nick)
/remini -n $AuthDir $replace($nick,$chr(91),'91',$chr(93),'93')
%check = $rand(1,2)
.who $newnick n%na
}
on *:PART:%MainChan: {
if (!$auth($nick)) { halt }
/remini -n $AuthDir $replace($nick,$chr(91),'91',$chr(93),'93')
}
on *:QUIT: {
if (!$auth($nick)) { halt }
/remini -n $AuthDir $replace($nick,$chr(91),'91',$chr(93),'93')
}
on *:KICK:%MainChan: {
if (!$auth($nick)) { halt }
/remini -n $AuthDir $replace($nick,$chr(91),'91',$chr(93),'93')
}
on *:DISCONNECT: {
if (!$auth($nick)) { halt }
if ($nick == $me) { write -c $AuthDir | halt }
/remini -n $AuthDir $replace($nick,$chr(91),'91',$chr(93),'93')
}
$Auth(NICK) = Auth
$autnick(AUTH) = Nick