RawServ — File Browser
RawServv0.5 / RawServv0.5 / EVENTS.MRC
EVENTS.MRC — 24.72 KB — Download this file
on 1:JOIN:# {
.set %showtopic on
if ($ulevel == 1) { halt }
if ($me isop $chan) {
if ($ulevel == 90) {
if ($me !isop $chan) goto next
if ((%autoop == on) && ($atop($nick,$chan) == 1)) { mode $chan +o $nick }
elseif ((%autoop == off) && ($atop($nick,$chan) == 1)) { .alias f2 Mode $chan +o $nick | Recho $hc($nick) Has Just Joined $hc($chan) (UserList Op) | Recho Press $hc(F2) to op $hc($nick) [Level 90 Op] }
}
:next
if (%seen == on) && ($usr($nick)) { writeini names.txt $usr($nick) seen $ctime }
if (%info == on) && ($nick != $me) { msg $chan %lb $+ $nick $+ %rb $read -ns $+ $address($nick,3) info.txt }
}
if ($ulevel == 70) {
if ((%autov == on) && ($vtop($nick,$chan) == 1)) { mode $chan +v $nick }
elseif ((%autov == off) && ($vtop($nick,$chan) == 1)) { .alias f3 mode $chan +v $nick | Recho $hc($nick) Has Just Joined $chan($chan) (UserList Voice) | Recho Press $hc(F3) to Voice $hc($nick) [Level 70 Voice] }
if (%info == on) && ($nick != $me) { msg $chan %lb $+ $nick $+ %rb $read -ns $+ $address($nick,3) info.txt }
if (%seen == on) && ($usr($nick)) { writeini names.txt $usr($nick) seen $ctime }
}
if (($ulevel == 60) && ($sd($nick,$chan) == 1)) {
mode $chan +b $maddress($address($nick,0))
kick $chan $nick $readini names.txt $maddress($address($nick,0)) reason
}
if ($nick == $me) {
if ($readini -n hold.txt $chan Topic == $null) { .timer 1 4 halt }
else {
.timer 1 4 if ($me isop $chan) { .Topic $chan $readini -n hold.txt $chan Topic }
.timer 1 4 if ($me isop $chan) { recho Restoring Locked Topic on $hc($chan) to $readini -n hold.txt $chan topic }
}
if ($readini hold.txt $chan mode == $null) { halt }
else {
.timer 1 4 if ($me isop $chan) { mode $chan $remove -lmntlkisp }
.timer 1 4 if ($me isop $chan) { recho Restoring Locked Mode on $hc($chan) To 10 $readini hold.txt $chan mode }
.timer 1 4 if ($me isop $chan) { .timer 1 2 mode $chan $readini hold.txt $chan mode }
}
}
}
if ($nick == $me) {
if ($readini -n hold.txt $chan topic == $null) { .timer 1 5 halt }
else { topic $chan $readini -n hold.txt $chan topic }
if ($readini hold.txt $chan mode == $null) { Halt }
else { mode $chan $readini hold.txt $chan mode }
}
#nc on
on 1:input: {
if ((($right(1,$1) == :) || ($right(1,$1) == %activater)) && ($active ischan) && (%nc == on)) {
%nc.comp = $right(1,$1)
%nc.curnick = 0 | %nc.nle = $len($1) - 1
:loop
inc %nc.curnick
if (%nc.curnick > $nick(0,$active)) { say $1- | halt }
%nc.curreal = $nick(%nc.curnick,$active)
if ($left(%nc.nle,$1) isin $left(%nc.nle,%nc.curreal)) { say %left $+ %nc.curreal $+ %right $2- | unset %nc.* | halt }
goto loop
}
elseif ($1 == /whois) { .set %whois on }
elseif ($1 == /dns) { .enable #dns | .set %dns.temp.name $2 }
}
#nc end
on 1:START: {
inc %startup
if (%startup == 1) { run readme.wri | goto startrun }
if (%startup >= 2) { goto startrun }
:startrun
titlebar %help.ver By TheShad0w
.set %Raw.ServerO Off
if ($scr(server.mrc) == 1) .unload -rs server.mrc
if ($scr(spy.mrc) == 1) .unload -rs spy.mrc
if ($scr(bot.mrc) == 1) .unload -rs bot.mrc
if ($scr(script.mrc) == 1) .unload -rs script.mrc
unset %raw.server
unset %raw.server2
unset %rawservero
unset %spy
unset %bot
maildis
.set %dccoffline Yes
.set %comsndr Off
.disable #proccessing #writemail
.creq ask
set %away off
startup
}
on 1:DISCONNECT: {
recho Disconnected!
titlebar Last disconnect on $day $replace($date,/,-) at $atime($time) [ %help.ver by TheShad0w ]
window -c %wrsmail
window -c %rsmail
window -c @spy
window -c @Status Window
window -c @# $+
window -c %msglogw
.unset %away | .disable #aamsgs | .disable #msglog | .disable #pager
}
#proccessing off
on 1:DNS: {
maildis
if ($raddress == $null) { recho Unable to resolve $iaddress $naddress $+ | halt }
if (%spy == on) && (%bot == on) { recho !ERROR! You cant run two raw connections at once! | halt }
if (%spy == On) && (rawservero == on) { recho !ERROR! You cant run two raw connections at once! | halt }
if (%spy == On) { .unset %spy | .disable #email #lemail #sendmail | rawspy }
if (%rawservero == on) && (%bot == on) { recho !ERROR! You cant run two raw connections at once! | halt }
if (%rawserverO == on) && (%spy == on) { recho !ERROR! Dont run two raw connections at once | .disable #email #lemail #sendmail | halt }
if (%rawservero == on) { rawserv | halt | halt }
if (%bot == on) && (%rawservero == on) { recho !ERROR! Dont run two raw connections at once | .disable #email #lemail #sendmail | halt }
if (%bot == on) && (%spy == on) { recho !ERROR! Dont run two raw connections at once | .disable #email #lemail #sendmail | halt }
if (%bot == on) && (%rawservero == on) { recho !ERROR! Dont run two raw connections at once | .disable #email #lemail #sendmail | halt }
if (%bot == on) { .unset %bot | rawbot }
}
#proccessing end
#getmailip off
on 1:DNS: {
if (%pposp == smtp) { .set %smailip $iaddress }
elseif (%pposp == pop) { .set %mailip $iaddress }
}
#getmailip end
#remail off
on me:1:CHAT:* {
if (($3 isnum) && ($5 == not)) { recho 10 Message $3 does not exist! | if (%emnxt1 == On) { %emnxt = %emfnd | set %emnxt1 Off } | if (%emdec1 == On) { %emdec = %emfnd | set %emdec1 Off } }
if (($3 isnum) && ($6 == deleted.)) { recho 2 Message $3 has Been Deleted }
if ($1 == $null) { recho 10 %embrk | halt }
if ($1 == .) { .disable #remail | .enable #email | recho 2 %EOMTRT1 $+ %csemrd $+ . %EOMTRT2 %emfrom %RPNEM | clear Chat with %me | set %emrnum 1 | set %emrnum2 1 | halt }
if ((Content- isin $1- && filename isin $1-) || (X-Attachments isin $1-) || (_NextPart_ isin $1-)) { recho 13 A file attachment was detected. Halting... | .disable #remail | halt }
if ($1 == From:) { if (< isin $2 || @ isin $2) set %reply $remove($remove($2,<),>) | else set %reply $remove($token(2,60,$1-),>) | set %emfrom $remove($2-,") | recho 2 From: %emfrom $+ | halt }
if ($1 == To:) { recho 2 To: $2- $+ | set %emrnum 2 | halt } | if ($1 == Subject:) { %subj = Re: $remove($2-,Re:) | recho 2 Subj: $2- $+ | set %emrnum2 3 | halt } | if ($1 == Date:) { recho 2 Date: $2-6 $+ | halt } | if ($1 == cc:) { recho 2 CC: $2- $+ | halt }
if (($1 == Status:) || ($1 == Sender:) || ($1 == Precedence:) || ($1 == Reply-To:) || ($1 == Priority:) || ($1 == In-Reply-To:) || ($1 == Message-ID:) || ($1 == MIME-Version:) || ($1 == Content-Type:) || ($1 == References:) || ($1 == Content-Transfer-Encoding:) || ($1 == X-MSMail-Priority:) || ($1 == X-Priority:)) { set %emrnum 2 | halt }
elseif ($1 == -ERR) { recho 2 ERROR: $2- $+ }
else { if ((%emrnum == 2) && (%emrnum2 == 3)) { recho 2 $1- } | else { halt } }
}
#remail end
#lemail off
on me:1:CHAT:* { .set %spy off | .set %raw.servero off | .set %bot off | if ($1 == .) { recho 2 END of list! Type /read <email#> to read mail, or /del <email#> to delete mail. | clear Chat with %me | .disable #lemail } | elseif ($1 isnum) { recho 2 $1 - $2- } }
#lemail end
#email off
on me:1:CHATOPEN: { .set %spy off | .set %rawservero off | .set %bot off | set %dccoffline No | set %dccemme = $+ $me | .creq ask | .timer821 off | recho 10 %emlipw | set %emrnum 1 | msg %dccemme USER %username | msg = $+ %me PASS %userpass | set %emnxt 1 | clear Chat with %me }
on me:1:CHAT:* {
if (($3 isnum) && ($5 == not)) { recho 13 Message $3 does not exist! } | if (($3 isnum) && ($6 == deleted.)) { recho 2 Message $3 has %BNDEL }
if (($5 == already) && ($7 == deleted.)) { recho 2 Message $3 has already %BNDEL } | if (($3 == has) && ($4 isnum) && ($4 != 0)) { clear Chat with %me | recho 2 You have $hc($4) 2 Message(s)! 10 %tlmtlm }
if (($4 == 0) && (0 isin $6)) { clear Chat with %me | recho 10 %NNMFCC | .timer 1 3 quitmail | .timer 1 6 window -c %rsmail } | if ($1 == .) { recho 10 END | clear Chat with %me | .disable #email | halt }
elseif ($1 == -ERR) { recho 13 ERROR: $2- $+ }
}
#email end
#sendmail off
on me 1:CHATOPEN: { .set %dccoffline No | set %dccemme = $+ $me | .creq ask | .timer821 off | recho 10 %wrsmail %EMLIPW | msg = $+ %me HELO $ip }
on me:1:CHAT:* {
if ((550 == $1) && (unknown isin $1-)) { recho 2 %wrsmail " $+ %rcpt $+ " Unknown User } | if (220 == $1 && SMTP isin $1-) msg %dccemme mail from: %email | if (250 == $1 && Sender isin $1-) msg %dccemme rcpt to: %rcpt | if (250 == $1 && Recipient isin $1-) msg %dccemme data
if (354 == $1) {
msg %dccemme X-Mailer: %emx-mailer | msg %dccemme To: %rcpt | msg %dccemme From: " $+ %myn $+ " < $+ %email $+ > | msg %dccemme Subject: %subj | if (%comsndr == On) { msg %dccemme %emcoms | .timer 1 1 msg %dccemme  | .timer 1 2 msg %dccemme %emsig | .timer 1 3 msg %dccemme . | set %comsndr Off | halt }
if (%semailnow == Yes) { set %semailnow No | recho 10 Sending message to server... | .timer 1 10 semail2 | .play %dccemme $mircdiremail.txt 0 }
}
if ((250 == $1) && ($3 == accepted)) { recho 10 Sucessfully sent " $+ %subj $+ " to %rcpt $+ | recho 10 Closing Connection... ....Shutting Down | .timer 1 5 quitmail | .disable #writemail | .enable #nc }
elseif ($1 == -ERR) { recho 13 ERROR: $2- $+ }
elseif ($1 == 421) { Recho 13 ERROR SMTP TimeOut | close -c $me | close -c $me }
}
#sendmail end
#writemail off
on 1:input: {
if ( $count($active,%wrsmail)) {
if ($1 == /send) { set %semailnow Yes | .creq auto | set %comsndr Off | close -c $me | .disable #lemail | .disable #remail | .disable #email | .enable #sendmail | raw -q privmsg $me :DCC CHAT CHAT $longip(%smailip) 25 | .timer 1 30 .enable #nc | halt }
else write email.txt $1- | echo $+ $+ $1- | halt
}
}
#writemail end
#aamsgs off
on 1:TEXT:*:?: {
if (%msglog == On) {
echo 2 %msglogw $chr(91) $+ At $atime $day $adate $+ $chr(93) < $+ $nick $+ $chr(124) $+ $address $+ > $1- | inc %mlmsgnum | notice $nick I'm away right now, but your message was logged.
}
}
#aamsgs end
#msglog off
on 1:TEXT:*:? {
if (%msglog == On) {
echo 2 %msglogw $chr(91) $+ At $atime $day $adate $+ $chr(93) < $+ $nick $+ $chr(124) $+ $address $+ > $1- | inc %mlmsgnum | notice $nick I'm away right now, but your message was logged.
}
.timer 1 25 closemsg $nick
}
on 1:TEXT:$me:#:notice $nick I'm away right now. If you want to leave a message, /msg me. Example: /msg $me Just wanted to talk. ..or you can page me by typeing /ctcp $me page <your msg> | .ignore -cu15 $nick 3
#msglog end
on 1:TEXT:*:*:{
if (%txtfld == on) {
if (%textu. [ $+ [ $site ] ] == $null) {
set %textu. [ $+ [ $site ] ] 1
.timer 1 5 /unset %textu. [ $+ [ $site ] ]
}
else {
inc %textu. [ $+ [ $site ] ]
if (%textu. [ $+ [ $site ] ] == %maxtxt) {
if ($chan == $null) { unset %textu. [ $+ [ $site ] ] | .ignore -u35 $nick 3 | recho Ignoring $hc($nick) [ $hc($wildsite) ] for 2 Msg Flood | halt }
if (%textalertfirst == on) { recho Text Flood Detected pres f5 to kick press f6 to ban f7 to unban $hc($nick) [ $hc($wildsite) ] | .alias f5 kick $chan $nick %version TextFlood | .alias f6 mode $chan +b $wildsite | .alias f7 mode $chan -b $wildsite | halt }
unset %textu. [ $+ [ $site ] ]
elseif ($ulevel == 80) && (%textkickfriends == on) { goto friendkick }
elseif ($ulevel == 90) && (%textkickfriends == on) { goto friendkick }
elseif ($ulevel == 80) && (%textkickfriends == off) { halt }
elseif ($ulevel == 90) && (%textkickfriends == off) { halt }
elseif ($ulevel == 1) { goto norm }
if ($nick isop $active) && (%textkickops == on) { goto opskick }
if ($nick isop $active) && (%textkickops == off) { Halt }
:norm
recho Kicking $nick from $chan for Text Flood
if (%bantext == on) { raw -q mode $chan +b $wildsite }
kick $chan $nick %version Text Flood
.timer 1 45 /raw -q mode $chan -b $wildsite
:friendkick
if (%bantext == on) { raw -q mode $chan +b $wildsite }
else recho Kicking op/bot from $chan TextFlood [ friend kick on ] | kick $chan $nick %version Text Flood
:opskick
if (%bantext == on) { raw -q mode $chan +b $wildsite }
else recho kicking chanop from $chan TextFlood [ops kick on ] | kick $chan $nick %version Text Flood
}
}
}
}
on 1:ACTION:*:*:{
if (%txtfld == on) {
if (%textu. [ $+ [ $site ] ] == $null) {
set %textu. [ $+ [ $site ] ] 1
.timer 1 5 /unset %textu. [ $+ [ $site ] ]
}
else {
inc %textu. [ $+ [ $site ] ]
if (%textu. [ $+ [ $site ] ] == %maxtxt) {
if ($chan == $null) { unset %textu. [ $+ [ $site ] ] | .ignore -u35 $nick 3 | recho Ignoring $hc($nick) [ $hc($wildsite) ] for 2 Msg Flood | halt }
if (%textalertfirst == on) { recho Text Flood Detected pres f5 to kick press f6 to ban f7 to unban $hc($nick) [ $hc($wildsite) ] | .alias f5 kick $chan $nick %version TextFlood | .alias f6 mode $chan +b $wildsite | .alias f7 mode $chan -b $wildsite | halt }
unset %textu. [ $+ [ $site ] ]
elseif ($ulevel == 80) && (%textkickfriends == on) { goto friendkick }
elseif ($ulevel == 90) && (%textkickfriends == on) { goto friendkick }
elseif ($ulevel == 80) && (%textkickfriends == off) { halt }
elseif ($ulevel == 90) && (%textkickfriends == off) { halt }
elseif ($ulevel == 1) { goto norm }
if ($nick isop $active) && (%textkickops == on) { goto opskick }
if ($nick isop $active) && (%textkickops == off) { Halt }
:norm
recho Kicking $nick from $chan for Text Flood
if (%bantext == on) { raw -q mode $chan +b $wildsite }
kick $chan $nick %version Text Flood
.timer 1 45 /raw -q mode $chan -b $wildsite
:friendkick
if (%bantext == on) { raw -q mode $chan +b $wildsite }
else recho Kicking op/bot from $chan TextFlood [ friend kick on ] | kick $chan $nick %version Text Flood
:opskick
if (%bantext == on) { raw -q mode $chan +b $wildsite }
else recho kickingy $hc($nick) [ $hc($wildsite) ] chanop from $chan TextFlood [ops kick on ] | kick $chan $nick %version Text Flood
}
}
}
}
on @1:DEOP:# {
if (%massdeop == on) {
if ($nick == $me) { halt }
if (%deopu. [ $+ [ $site ] ] == $null) {
set %deopu. [ $+ [ $site ] ] 1
.timer 1 6 /unset %deopu. [ $+ [ $site ] ]
}
else {
inc %deopu. [ $+ [ $site ] ]
if (%deopu. [ $+ [ $site ] ] == %maxdeop) {
if (%mdoalertfirst == on) { recho Deop Flood Detected pres f5 to kick press f6 to ban f7 to unban $hc($nick) [ $hc($wildsite) ] | .alias f5 kick $chan $nick %version Notice Flood | .alias f6 mode $chan +b $wildsite | .alias f7 mode $chan -b $wildsite | halt }
elseif ($ulevel == 80) && (%mdokickfriends == on) { goto friendkick }
elseif ($ulevel == 90) && (%mdokickfriends == on) { goto friendkick }
elseif ($ulevel == 80) && (%mdokickfriends == off) { halt }
elseif ($ulevel == 90) && (%mdokickfriends == off) { halt }
elseif ($ulevel == 1) { goto norm }
:norm
recho Kicking $nick for Mass Deop
if (%mdoban == on) raw -q mode $chan +b $wildsite | .timer 1 45 .raw -q mode $chan -b $wildsite
kick $chan $nick %version Mass Deop
:friendkick
if (%mdoban == on) .raw -q mode $chan +b $wildsite | .timer 1 45 .raw -q mode $chan -b $wildsite
kick $nick $chan %version Mass Deop
recho kicking $hc($nick) [ $hc($wildsite) ] Mass Deop [ friend kick on ]
}
}
}
}
on @1:KICK:#: {
if (%kickfld == on) {
if ($nick == $me) { halt }
if (%kicku. [ $+ [ $site ] ] == $null) {
set %kicku. [ $+ [ $site ] ] 1
.timer 1 6 /unset %kicku. [ $+ [ $site ] ]
}
else {
inc %kicku. [ $+ [ $site ] ]
if (%kicku. [ $+ [ $site ] ] == %maxkick) {
if (%mkalertfirst == on) { recho Notice Flood Detected pres f5 to kick press f6 to ban f7 to unban $hc($nick) [ $hc($wildsite) ] | .alias f5 kick $chan $nick %version Notice Flood | .alias f6 mode $chan +b $wildsite | .alias f7 mode $chan -b $wildsite | halt }
elseif ($ulevel == 80) && (%mkkickfriends == on) { goto friendkick }
elseif ($ulevel == 90) && (%mkkickfriends == on) { goto friendkick }
elseif ($ulevel == 80) && (%mkkickfriends == off) { halt }
elseif ($ulevel == 90) && (%mkkickfriends == off) { halt }
elseif ($ulevel == 1) { goto norm }
:norm
recho Kicking $nick for Mass Kick pro
if (%mkban == on) raw -q mode $chan +b $wildsite | .timer 1 45 .raw -q mode $chan -b $wildsite
kick $chan $nick %version Mass Kick Protection
:friendkick
if (%mkban == on) .raw -q mode $chan +b $wildsite | .timer 1 45 .raw -q mode $chan -b $wildsite
kick $nick $chan %version Mass Kick
recho kicking $hc($nick) [ $hc($wildsite) ] Mass Kick pro [ friend kick on ]
}
}
}
}
on 1:NOTICE:*:* {
if (%notfld == on) {
if ($nick == $me) { halt }
if (%noticeu. [ $+ [ $site ] ] == $null) {
set %noticeu. [ $+ [ $site ] ] 1
.timer 1 6 /unset %noticeu. [ $+ [ $site ] ]
}
else {
inc %noticeu. [ $+ [ $site ] ]
if (%noticeu. [ $+ [ $site ] ] == %maxnot) {
if ($chan == $null) { unset %noticeu. [ $+ [ $site ] ] | .ignore -u35 $nick 3 | recho Ignoring $nick for Notice Flood | halt }
unset %noticeu. [ $+ [ $site ] ]
elseif ($ulevel == 80) && (%nkickfriends == on) { goto friendkick }
elseif ($ulevel == 90) && (%nkickfriends == on) { goto friendkick }
elseif ($ulevel == 80) && (%nkickfriends == off) { halt }
elseif ($ulevel == 90) && (%nkickfriends == off) { halt }
elseif ($ulevel == 1) { goto norm }
if ($nick isop $active) && (%nkickops == on) { goto opskick }
if ($nick isop $active) && (%nkickops == off) { Halt }
:norm
recho Kicking $nick from $chan for Text Flood
if (%bantext == on) { raw -q mode $chan +b $wildsite }
kick $chan $nick %version Notice Flood
.timer 1 45 /raw -q mode $chan -b $wildsite
:friendkick
if (%nban == on) { raw -q mode $chan +b $wildsite }
else recho Kicking op/bot from $chan NoticeFlood [ friend kick on ] | kick $chan $nick %version Notice Flood
:opskick
if (%nban == on) { raw -q mode $chan +b $wildsite }
else recho kicking $hc($nick) [ $hc($wildsite) ] chanop from $chan Notice Flood [ops kick on ] | kick $chan $nick %version Notice Flood
}
}
}
}
on @1:BAN:*: {
.alias f11 mode $chan -b $banmask
recho To remove ban ( $+ $hc($banmask) $+ ) on $hc($chan) press $hc(F11) $+ .
if ($nick != $me) && ($banmask iswm $address($me,5)) { mode $chan -ob $nick $banmask | kick $chan $nick %version Personal Ban Protection | Halt }
if (%banfld == On) {
if ([ %banu. [ $+ [ $site ] ] ] == $null) {
set %banu. [ $+ [ $site ] ] 1
.timer 1 6 .unset %banu. [ $+ [ $site ] ]
}
if ([ %banu. [ $+ [ $site ] ] ] == %maxban) {
if (%banalertfirst == on) { recho Notice Flood Detected press f5 to kick press f6 to ban f7 to unban $hc($nick) [ $hc($wildsite) ] | .alias f5 kick $chan $nick %version Notice Flood | .alias f6 mode $chan +b $wildsite | .alias f7 mode $chan -b $wildsite | halt }
elseif ($ulevel == 80) && (%bankickfriends == on) { goto friendkick }
elseif ($ulevel == 90) && (%bankickfriends == on) { goto friendkick }
elseif ($ulevel == 80) && (%bankickfriends == off) { halt }
elseif ($ulevel == 90) && (%bankickfriends == off) { halt }
elseif ($ulevel == 1) { goto norm }
:norm
recho Kicking $hc($nick) for Mass Ban
if (%banban == on) raw -q mode $chan +b $wildsite | .timer 1 45 .raw -q mode $chan -b $wildsite
kick $chan $nick %version Mass ban Protection
:friendkick
if (%banban == on) .raw -q mode $chan +b $wildsite | .timer 1 45 .raw -q mode $chan -b $wildsite
kick $nick $chan %version Mass Ban protection
recho kicking $hc($nick) [ $hc($wildsite) ] Mass ban protection [ friend kick on ]
}
}
}
on @1:UNBAN:* {
.alias f11
.alias f11 mode $chan +b $banmask
recho To redo ban ( $+ $hc($banmask) $+ ) on $hc($chan) press $hc(F11) $+ .
}
on 1:INVITE {
Recho $hc($nick) invited you to $hc($chan)
if (%ctcps == 3) { .ignore -tu60 $wildsite | unset %ctcps | .set %myflnick $me | .timer 1 20 /nick %myflnick | /nick $me $+ - | /recho ctcp flood detected from $nick [ [ $+ [ $address ] $+ ] ] | .alias f11 .nick %myflnick | recho To change back to origional nick press f11 | halt }
inc %ctcps
.timer5 1 20 /unset %ctcps
}
#snotice on
on 1:SNOTICE:*net break*: { Secho NetSplit Detected: $6 <--/ /--> $1-10 | halt }
on 1:SNOTICE:*closing link*: { Secho NetSplit Detected: $server <--/ /--> $remove($7,$chr(44)) | halt }
on 1:SNOTICE:*closed the connection*: { Secho NetSplit Detected: $server <--/ /--> $1-10 | halt }
on 1:SNOTICE:*net junction*: { Secho Net Junction: $6 <---> $8 | halt }
on 1:SNOTICE:*Connection to*: { Secho Net Junction: $server <---> $6 | halt }
on 1:SNOTICE:*Nick collision on*: { Secho Nick Collision: $7 | halt }
on 1:SNOTICE:*Nick change collision*: { Secho Nick Collision: From $8-10 | halt }
on 1:SNOTICE:*older nick overruled*: { Secho Nick Collision: $remove($8,.) | halt }
on 1:SNOTICE:*Nick collision*: { Secho Nick Collision: $remove($8,.) | halt }
on 1:SNOTICE:*Received KILL message for*: {
if (($10 == NickServ) || ($10 == services.dal.net)) { halt }
else {
Secho $remove($8,.) was killed by $10 $+ $13 $14- | halt
}
}
on 1:SNOTICE:*killed*: {
Secho $3 was killed by $1 $+ $2 $4- | halt
}
on 1:SNOTICE:*is now oper*: {
Secho IRCop Detected: $4-9 $+
halt
}
on 1:SNOTICE:*Client connecting*: {
Secho *** Client connecting: $6-7
halt
}
on 1:SNOTICE:*Client exiting*: {
Secho *** Client exiting: $6-
halt
}
on 1:SNOTICE:*GLINE*: {
Secho GLINE From: $4 For: $remove($8,$chr(44)) Until: $asctime($15) $+
halt
}
on 1:SNOTICE:*IP# Mismatch*:halt
on 1:SNOTICE:*Maximum connections*:Secho $4- $+ | halt
on 1:SNOTICE:*Highest connection count*:echo 4 -s $1- $+ | halt
on 1:SNOTICE:*Lost user field*:halt
on 1:SNOTICE:*connect failure*:halt
on 1:SNOTICE:*link with*:halt
on 1:SNOTICE:*Too many connections*:halt
on 1:SNOTICE:*Unauthorized connection*:halt
on 1:SNOTICE:*All connections in use*:halt
on 1:SNOTICE:*Can't allocate fd for auth on*:halt
on 1:SNOTICE:*Notice --*: {
if (HACK isin $4) { halt }
Secho Server Notice: $4-
halt
}
on 1:SNOTICE:*: {
Secho Server Notice: $1-
halt
}
#Snotice end
#wallops on
on 1:WALLOPS:* {
if ($1 == HACK:) { halt }
else { SWOecho 2 $+ $nick $+ : $1-
halt
}
}
#wallops end
on @1:TOPIC:* {
if ($nick != $me) {
if ($readini -n hold.txt $chan topic == $null) { halt }
else { .set %showtopic off
.Topic $chan $readini hold.txt $chan Topic
.notice $nick Topic Lock Activated < $+ %version %averme $+ >
}
}
}
on @1:MODE:* {
if ($nick != $me) {
if ($readini hold.txt $chan Mode == $null) { halt }
else { .mode $chan -psntlkmi
.mode $chan $readini hold.txt $chan Mode
.notice $nick Mode Lock Activated < $+ %version %averme $+ >
}
}
}
on 1:OP:* {
if ($opnick == $me) {
if ($readini -n hold.txt $chan Topic == $null) { .timer 1 4 halt }
else {
.timer 1 2 Topic $chan $readini -n hold.txt $chan Topic
recho Resetting Locked Topic on $hc($chan) to 10 $readini -n hold.txt $chan topic
}
if ($readini hold.txt $chan mode == $null) { halt }
else {
.timer 1 2 mode $chan $remove -lmntlkisp
recho Resetting Locked Mode on $hc($chan) To 10 $readini hold.txt $chan mode
.timer 1 3 mode $chan $readini hold.txt $chan mode
}
}
}
#dns off
on 1:DNS: {
if ($raddress == $null) { recho Unable to resolve $iaddress $hc($naddress) }
else echo 1 -a ___________________________________ | if ($nick == $null) { Recho DNS lookup on $hc($address) } | else Recho DNS lookup on $hc($nick) | if ($nick == $null) { Recho User Address: $hc($address) } | else Recho User address: $hc($address($nick,1)) | recho User IP: $hc($iaddress) | Recho User Long IP: $hc($longip($iaddress))
.disable #dns
}
#dns end
#notify on
on 1:NOTIFY { .raw userhost $nick | halt | halt }
on 1:UNOTIFY { recho 2NOTIFY $+ :1 Nick: $hc($nick) Has Left IRC. | halt }
#notify end