HUSK: /set %MainChan #DIN_CHANNEL (PÅ BEGGE BOTS)
Dine mIRC mapper opbygges på følgene måde:
../BOT/mIRC1/mIRC.exe
../BOT/mIRC2/mIRC.exe
BOT1 vil gemme alle auths i ../BOT/ hvor i begge dine bots (eller flere) kan hente en persons auth.
Scriptet kan også bruges udelukkende fra Bot1 (../BOT/mIRC1/mIRC.exe)
$auth(NICK)
$autnick(AUTH)
BOT1: (den der vil logge auths kan også bruges som den "eneste" bot)
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')
}
Bot2: (Den som OGSÅ kan hente $auth og $authnick)
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
}