RawServ — File Browser
RawServv0.5 / RawServv0.5 / BOT.MRC
BOT.MRC — 15.19 KB — Download this file
;.............turns THeShad0w!lfi743@fw4-12.ppp.iadfw.net into *!*lfi743@*.ppp.iadfw.net - set %bottestaddy $gettok($1,2,33) | set %botident *!* $+ $remove($gettok(%bottestaddy,1,64),~) $+ @*. | set %bottestaddy $gettok(%bottestaddy,2-,46) | set %bottestaddy %botident $+ %bottestaddy
alias aconn { set %msme = $+ $nick | msg = $+ $nick NICK %botnick | toserver USER %botUSERID %botUSERID %botUSERID %version %averme | .creq ask | halt }
alias toserver msg %msme $1-
alias becho { echo 1 @channelbot $1- }
alias /botstats {
/echo 12 @ChannelBot +---------------Channel Bot's Status --------------+
/echo 10 @ChannelBot Nick: 2 %botnick
/echo 10 @ChannelBot Signon time: 2 $day $adate $time
/echo 10 @ChannelBot Server: 2 %botserver ( $+ %botport $+ )
/echo 10 @ChannelBot Host: 2 $host
/echo 10 @ChannelBot Channels 2 %botchan
/echo 12 @ChannelBot +---------------------End------------------------+
}
on me:1:CHATOPEN:/aconn
on me:1:CHATCLOSE:/becho 2*** Disconnected from $hc(%botserver)
on 1:input: {
if ( $count($active, @ChannelBot )) {
if ( $pos($1, /) == 1) {
$read -s $+ $mid($1, 2, $len($1) ) $mircdirbota.mrc
if ( $read -ns $+ $mid($1, 2, $len($1) ) $mircdirbota.mrc != $null) { halt }
else { toserver $remove($1, /) $2- | /halt }
}
}
}
on me:1:CHAT:* {
set %nick $remove( $gettok($1,1,33), $chr(58) )
set %bottestaddy $gettok($1,2,33) | set %botident *!* $+ $remove($gettok(%bottestaddy,1,64),~) $+ @*. | set %bottestaddy $gettok(%bottestaddy,2-,46) | set %bottestaddy %botident $+ %bottestaddy
set %baddy $gettok($1,2,33)
if ($1 == PING) {
toserver PONG $2
}
if ($2 == 332) { becho TOPIC4: 2 $+ $remove($5,:) $hc($6-) }
if ($2 == 333) { becho TOPIC INFO4: The topic on $hc($4) was set by $5 at $asctime($6) }
if ($2 == 376) { .unset %botchan | set %botnick $3 | msg %msme mode %botnick +i | /botstats | /unset %botchan | halt }
if ($2 == 353) { becho NAMES1 $hc($6-) }
if ($2 == PART) {
if (%nick != %botnick) { becho 3 *** %nick ( $+ %baddy $+ ) has left $3 | halt }
else { becho 2I Have Now Left $3 | .set %botchan $remove(%botchan,$remove($3,:)) | /halt }
}
if ($2 == JOIN) {
if (%botnick == $me) { msg %msme mode $remove($3,:) +o $me | becho 3*** %nick ( $+ %baddy $+ ) has joined $remove($3, $chr(58)) | halt }
if (%botnick != %nick) {
if ($remove($3,:) isin $readini -n botusers.txt %nick chans) {
if ($readini botusers.txt %nick addy == %bottestaddy) {
if ($readini botusers.txt %nick level == 90) { toserver mode $remove($3,:) +o %nick }
if ($readini botusers.txt %nick level == 80) { toserver mode $remove($3,:) +v %nick }
if ($readini botusers.txt %nick level == 60) { toserver mode $remove($3,:) +b $readini botusers.txt %nick addy | toserver kick $remove($3,:) %nick :Banned }
}
}
if ($readini -n botusers.txt %nick chans == all) {
if ($readini botusers.txt %nick addy == %bottestaddy) {
if ($readini botusers.txt %nick level == 90) { toserver mode $remove($3,:) +o %nick }
if ($readini botusers.txt %nick level == 80) { toserver mode $remove($3,:) +v %nick }
if ($readini botusers.txt %nick level == 60) { toserver mode $remove($3,:) +b $readini botusers.txt %nick addy | toserver kick $remove($3,:) %nick :Banned }
}
}
else becho 3*** %nick ( $+ %baddy $+ ) has joined $remove($3, $chr(58))
halt
}
if (%botnick == %nick) { becho 2I Am Now Operating on $3 | .set %botchan %botchan $remove($3,:) }
}
if ($2 == MODE) { becho 3 *** %nick set mode: $4 $5 }
if ($3 == MODE) { becho 3 *** %nick set mode $4- on $3 | halt }
if ($2 == 221) { becho 3*** Modes for $3 $+ : $4 }
if ($2 == 324) { becho 3*** Modes for $4 $+ : $5 }
if ($2 == 482) { becho 2I Dont have operater status since $hc($atime) }
if ($2 == 474) { becho ( $+ $hc($atime) $+ ) - 2***I was BANNED from $hc($4) $+ ! | /halt }
if ($2 == QUIT) { becho 2*** %nick quit IRC ( $+ $hc(%baddy) $+ ) - ( $+ $remove($3,:) $4- $+ ) | halt }
if ($2 == KICK) {
if ($4 == %botnick) { msg %msme join $3 | becho ( $+ $hc($atime) $+ ) - 2***I was KICKED from $hc($3) 2by $hc(%nick) ( $+ $hc(%baddy) $+ ) | /halt }
becho 2 *** $hc($4) 2was kicked by $hc(%nick) ( $+ $hc(%baddy) $+ ) | halt
}
if ($2 == NICK) {
becho 3*** %nick is now known as $remove($3, :)
}
if ($2 == 311) {
if (%addbot == on) {
if (%op == on) {
set %bottempaddy $4 $+ ! $+ $5 $+ @ $+ $6
set %botident *!* $+ $remove($gettok(%bottempaddy,1,64),~) $+ @*.
set %bottempaddy $gettok(%bottempaddy,2-,46)
set %bottempaddy %botident $+ %bottempaddy
set %4 $4 $+ !
set %bottempaddy $remove(%bottempaddy,%4)
writeini botusers.txt $4 level 90
writeini botusers.txt $4 addy %bottempaddy
if (%addchans) { writeini botusers.txt $4 chans %addchans | unset %addchans }
toserver notice $4 : $+ You have been added to my memory on level 90 -Auto Oped
toserver notice $4 : $+ Commands: voice, login, pass, op, whois, kick, ban --- In order for these to work, set a pass: /ctcp %botnick pass <yourpass>
unset %op
unset %addbot
halt
}
if (%voice == on) {
set %bottempaddy $4 $+ ! $+ $5 $+ @ $+ $6
set %botident *!* $+ $remove($gettok(%bottempaddy,1,64),~) $+ @*.
set %bottempaddy $gettok(%bottempaddy,2-,46)
set %bottempaddy %botident $+ %bottempaddy
set %4 $4 $+ !
set %bottempaddy $remove(%bottempaddy,%4)
writeini botusers.txt $4 level 80
writeini botusers.txt $4 addy %bottempaddy
if (%addchans) { writeini botusers.txt $4 chans %addchans | unset %addchans }
toserver notice $4 : $+ You have been added to my memory on level 80 -Auto Voiced
toserver notice $4 : $+ Commands: voice, login, pass --- In order for these to work, set a pass: /ctcp %botnick pass <yourpass>
unset %voice
unset %addbot
}
if (%banned == on) {
set %bottempaddy $4 $+ ! $+ $5 $+ @ $+ $6
set %botident *!* $+ $remove($gettok(%bottempaddy,1,64),~) $+ @*.
set %bottempaddy $gettok(%bottempaddy,2-,46)
set %bottempaddy %botident $+ %bottempaddy
set %4 $4 $+ !
set %bottempaddy $remove(%bottempaddy,%4)
writeini botusers.txt $4 level 60
writeini botusers.txt $4 addy %bottempaddy
if (%addchans) { writeini botusers.txt $4 chans %addchans | unset %addchans }
unset %banned
unset %addbot
halt
}
}
if (%rembot == on) {
remini botusers.txt $4 level
remini botusers.txt $4 addy
remini botusers.txt $4 chans
remini botusers.txt $4 pass
remini botusers.txt $4
unset %rembot
}
if (%botban == on) {
set %bottempaddy $4 $+ ! $+ $5 $+ @ $+ $6
set %botident *!* $+ $remove($gettok(%bottempaddy,1,64),~) $+ @*.
set %bottempaddy $gettok(%bottempaddy,2-,46)
set %bottempaddy %botident $+ %bottempaddy
set %4 $4 $+ !
set %bottempaddy $remove(%bottempaddy,%4)
toserver mode %banchan +b %bottempaddy
toserver kick %banchan $4
Becho $hc($4) Requested a $hc(BAN) + $hc(KICK) on $hc(%banchan) $+ .
unset %botban
}
if (%unban == on) {
set %bottempaddy $4 $+ ! $+ $5 $+ @ $+ $6
set %botident *!* $+ $remove($gettok(%bottempaddy,1,64),~) $+ @*.
set %bottempaddy $gettok(%bottempaddy,2-,46)
set %bottempaddy %botident $+ %bottempaddy
set %4 $4 $+ !
set %bottempaddy $remove(%bottempaddy,%4)
toserver mode %unbanchan -b %bottempaddy
becho $hc(%nick) 2Requested an Unban on $hc(%unbanchan) 2at $hc($atime)
unset %unban
}
}
elseif (%botnick isin $remove($4,:)) {
if (%nick == $me) {
if ($5 == op) {
if ($6 != %nick) { msg %msme mode $remove($3,:) +oooooooo $6- }
if ($6 == me) { msg %msme mode $remove($3,:) +o %nick }
}
if ($5 == cycle) { if ($6 == $null) { Set %cchan $remove($3,:) | msg %msme part %cchan | msg %msme join %cchan } | if ($6) { set %cchan $6 | msg %msme part %cchan | .timer 1 3 msg %msme join %cchan } | }
if ($5 == join) { msg %msme join $6 }
if ($5 == deop) {
if ($6 != %nick) { msg %msme mode $remove($3,:) -oooooooo $6- }
if ($6 == me) { msg %msme mode $remove($3,:) -o %nick }
}
if ($5 == say) { msg %msme privmsg $remove($3,:) : $+ $6- | halt }
if ($5 == kick) { msg %msme kick $remove($3,:) $6 }
if ($5 == ban) { set %botban on | .set %banchan $remove($3,:) | msg %msme whois $6 }
if ($5 == part) { if ($6 == $null) { msg %msme part $remove($3,:) } | elseif (# isin $6) { msg %msme part $6 } | }
if ($5 == voice) { if ($6 == me) { msg %msme mode $remove($3,:) +v %nick } | else { msg %msme mode $remove($3,:) +vvvvvvvvv $6- } }
if ($5 == devoice) { if ($6 == me) { msg %msme mode $remove($3,:) -v %nick } | else { msg %msme mode $remove($3,:) -vvvvvvvvv $6- } }
if ($5 == die) { toserver quit :Raw C-Bot %version %averme | .unload -rs bot.mrc | .unload -rs script.mrc }
if ($5 == mode) {
if (+l isin $6) && ($7 != $null) {
if ($8) { msg %msme mode $8 $6 $7 }
if ($8 == $null) { msg %msme mode $remove($3,:) $6 $7 }
}
if (+k isin $6) && ($7 != $null) {
if ($8) { msg %msme mode $8 $6 $7 }
if ($8 == $null) { msg %msme mode $remove($3,:) $6 $7 }
}
if ($6) && ($7 == $null) { msg %msme mode $remove($3,:) $+ $6- }
if ($6) && (# isin $7) { msg %msme mode $7 $+ $6- }
}
if ($5 == topic) {
if ($6 == $null) { msg %msme topic $remove($3,:) }
else { msg %msme topic $remove($3,:) : $+ $6- }
}
if ($5 == add) {
if ($6 == +o) {
.set %addbot on | .set %op on | msg %msme whois $7
writeini botusers.txt $7 chans $8
}
if ($6 == +v) {
.set %addbot on | .set %voice on | msg %msme whois $7
writeini botusers.txt $7 chans $8
}
if ($6 == +b) {
.set %addbot on | .set %banned on | msg %msme whois $7
writeini botusers.txt $7 chans $8
}
}
if ($5 == rem) { set %rembot on | msg %msme whois $6 }
halt
}
if ($readini botusers.txt %nick addy == %bottestaddy) {
if ($remove($3,:) isin $readini -n botusers.txt %nick chans) && ($5 == op) {
if ($readini botusers.txt %nick level == 90) {
if ($6 == me) {
msg %msme mode $remove($3,:) +o %nick
halt
}
elseif ($readini botusers.txt $6 level == 60) { msg %msme kick $remove($3,:) $6 :Banned | halt }
else { msg %msme mode $remove($3,:) +ooooooooo $6- }
}
}
}
if ($readini botusers.txt %nick chans == all) && ($5 == op) {
if ($readini botusers.txt %nick level == 90) {
if ($6 == me) {
msg %msme mode $remove($3,:) +o %nick
halt
}
elseif ($readini botusers.txt $6 level == 60) { msg %msme kick $remove($3,:) $6 :Banned | halt }
else { msg %msme mode $remove($3,:) +ooooooooo $6- }
}
}
if ($5 == voice) && ($readini botusers.txt %nick addy == %bottestaddy) {
if ($remove($3,:) isin $readini -n botusers.txt %nick chans) && ($readini botusers.txt %nick level == 80) {
if ($6 == me) {
msg %msme mode $remove($3,:) +v %nick
halt
}
elseif ($readini botusers.txt $6 level == 60) { msg %msme kick $remove($3,:) $6 :Banned | halt }
else { msg %msme mode $remove($3,:) +vvvvvvvvvvvv $6- }
}
}
if ($readini botusers.txt %nick chans == all) && ($5 == voice) {
if ($readini botusers.txt %nick level == 90) {
if ($6 == me) {
msg %msme mode $remove($3,:) +v %nick
halt
}
elseif ($readini botusers.txt $6 level == 60) { msg %msme kick $remove($3,:) $6 :Banned | halt }
else { msg %msme mode $remove($3,:) +vvvvvvvvv $6- }
}
}
if ($readini botusers.txt %nick chans == all) && ($5 == voice) {
if ($readini botusers.txt %nick level == 80) {
if ($6 == me) {
msg %msme mode $remove($3,:) +v %nick
halt
}
elseif ($readini botusers.txt $6 level == 60) { msg %msme kick $remove($3,:) $6 :Banned | halt }
else { msg %msme mode $remove($3,:) +vvvvvvvvv $6- }
}
}
if ($remove($3,:) isin $readini -n botusers.txt %nick chans) && ($5 == voice) {
if ($readini botusers.txt %nick level == 90) {
if ($6 == me) {
msg %msme mode $remove($3,:) +v %nick
halt
}
elseif ($readini botusers.txt $6 level == 60) { msg %msme kick $remove($3,:) $6 :Banned | halt }
else { msg %msme mode $remove($3,:) +vvvvvvvvv $6- }
}
}
if ($readini botusers.txt %nick chans == all) && ($5 == kick) {
if ($readini botusers.txt %nick level == 90) {
if ($6 == %botnick) { msg %msme kick $remove($3,:) %nick :I Dont Kick or Ban myself | halt }
else { msg %msme kick $remove($3,:) $6 | Becho $hc(%nick) Requested a $+ $hc(KICK) $+ on $hc($remove($3,:)) $+ . }
}
}
if ($remove($3,:) isin $readini -n botusers.txt %nick chans) && ($5 == kick) {
if ($readini botusers.txt %nick level == 90) {
if ($6 == %botnick) { msg %msme kick $remove($3,:) %nick :I Dont Kick or Ban myself | halt }
else { msg %msme kick $remove($3,:) $6 | Becho $hc(%nick) Requested a $+ $hc(KICK) $+ on $hc($remove($3,:)) $+ . }
}
}
if ($readini botusers.txt %nick chans == all) && ($5 == ban) {
if ($readini botusers.txt %nick level == 90) {
if ($6 == %botnick) { msg %msme kick $remove($3,:) %nick :I Dont Kick or Ban myself | halt }
else { .set %botban on | .set %banchan $remove($3,:) | whois $6 }
}
}
if ($remove($3,:) isin $readini -n botusers.txt %nick chans) && ($5 == ban) {
if ($readini botusers.txt %nick level == 90) {
if ($6 == %botnick) { msg %msme kick $remove($3,:) %nick :I Dont Kick or Ban myself | halt }
else { .set %botban on | .set %banchan $remove($3,:) | whois $6 }
}
}
if ($readini botusers.txt %nick chans == all) && ($5 == unban) {
if ($readini botusers.txt %nick level == 90) {
.set %botban on | .set %unbanchan $remove($3,:) | whois $6
}
}
if ($remove($3,:) isin $readini -n botusers.txt %nick chans) && ($5 == unban) {
if ($readini botusers.txt %nick level == 90) {
.set %botban on | .set %unbanchan $remove($3,:) | whois $6
}
}
if ($5 == die) { toserver kick $remove($3,:) %nick :I Die For My Master Only }
}
}