SMF Script 8 — File Browser
SMFScript8v8.13 / SMFScript8v8.13 / system / info.mrc
info.mrc — 16.64 KB — Download this file
ctcp *:*: if ($qts.wav($def.wav(ctcps))) splay $qts.wav($def.wav(ctcps)) | if ($1 = version) { .ctcpreply $nick VERSION the $SMF from http://dgsoft.cjb.net | if ($sets(ctcp) != Default) { showctcp * $+ $colour(background) $+ , $+ $colour(ctcp) $+ $+ $chan $+ $iif($chan,$chr(124)) $+ VERSION $+ $colour(ctcp) $+ , $+ $colour(background) request sent by $nick | haltdef } } | if ($1 = ping) { if (%pingrep.on) .notice $nick %pingrep | if ($sets(ctcp) != Default) { showctcp * $+ $colour(background) $+ , $+ $colour(ctcp) $+ $+ $chan $+ $iif($chan,$chr(124)) $+ PING $+ $colour(ctcp) $+ , $+ $colour(background) request sent by $nick } } | if ($1 = time) { if ($sets(ctcp) != Default) { .ctcpreply $nick TIME $fulldate | showctcp * $+ $colour(background) $+ , $+ $colour(ctcp) $+ $+ $chan $+ $iif($chan,$chr(124)) $+ TIME $+ $colour(ctcp) $+ , $+ $colour(background) request sent by $nick | haltdef } }
raw 329:*: if ($chan($2).ial != $true) && ($nick($2,0) < 500) { inc %ial.get | who $2 } | if ($me ison $2) echo $colour(join) $2 *** $nick($2,0) Users, $opnick($2,0) Ops and $vnick($2,0) Voiced | .timer 1 2 ojscmio $2
alias showsnot { if ($window(@server) = $null) window -kaen @Server 0 0 638 360 | aline -ph $colour($1) @server $2- }
on ^*:snotice:*:{
if ($sets(snotice)) goto end
if (%sn.haltoo) { unset %sn.haltoo | set %sn.halt - | return }
if (%sn.halt) { unset %sn.halt | return }
if ($2 = Global) && ($4 = from) && ($chr(46) !isin $5) { if ($inwave != $true) .splay $qts.wav($def.wav(notice)) | showglob $remove($5,:) $6- | haltdef }
if ($2 = LocOps) && ($4 = from) && ($chr(46) !isin $5) { if ($inwave != $true) .splay $qts.wav($def.wav(notice)) | showloc $remove($5,:) $6- | haltdef }
if ($2 = ChatOps) && ($4 = from) && ($chr(46) !isin $5) { if ($inwave != $true) .splay $qts.wav($def.wav(notice)) | showchat $remove($5,:) $6- | haltdef }
if ($2 = Notice) && ($5 = KILL) && ($10 = Nickserv) && ($13 = $chr(40) $+ SVSNICK) { if (%sn.nickcol) showsnot quit *** Nick collision on $gettok($8,1,33) ( $+ $LEFT($gettok($8,2-,33),-1) $+ ) | halt }
if ($2 = notice) && ($5 = KILL) {
if ($chr(46) isin $10) { if (%sn.servkill) showsnot kick *** $gettok($8,1,33) was killed by $10 (Server Kill $13- $+ ) | haltdef }
if ($chr(46) !isin $10) {
write sn.txt $1-
if ($13 = $chr(40) $+ Recover) && ($14 = command ) && ($15 = used) { if (%sn.ghost) showsnot quit *** $gettok($8,1,33) was recovered by $remove($17,$chr(41)) | haltdef }
if ($13 = $chr(40) $+ Ghost) && ($14 = command ) && ($15 = used) { if (%sn.ghost) showsnot quit *** $gettok($8,1,33) was ghosted by $remove($17,$chr(41)) | haltdef }
if (NickServ Enforcement isin $1-) { if (%sn.nsenforce) showsnot kick *** $gettok($8,1,33) was killed by $10 $13- | haltdef }
if ($13 != $chr(40) $+ Recover) && ($13 != $chr(40) $+ Ghost) && (NickServ Enforcement !isin $1-) { if (%sn.kill) showsnot kick *** $remove($gettok($8,1,33),$chr(46)) was killed by $10 $13- | haltdef }
}
}
if ($2 = Global) && (Serv isin $5) && ($chr(46) !isin $5) { showglobserv $remove($5,:) $6- | haltdef }
if ($2 = Notice) && ($4 = kill) && ($5 = line) { if (%sn.kline) showsnot kick *** $4- | haltdef }
if ($2 = Notice) && ($5 = adding) && ($6 = GLINE) { if (%sn.kline) showsnot kick *** $4 has G:Lined $remove($8,$chr(44)) - expiring on $asctime($remove($11,:)) ( $+ $12- $+ ) | haltdef }
if ($2 = Notice) && ($5 = added) && ($8 = k:line) { if (%sn.kline) showsnot kick *** $4 has K:Lined $10 ( $+ $11- $+ ) | set %sn.haltoo - | haltdef }
if ($2 = Notice) && ($4 = G-line) && ($5 = active) { if (%sn.kline) showsnot kick *** $4- | haltdef }
if ($2 = Notice) && ($5 = resetting) && ($6 = expiration) && ($9 = GLINE) { if (%sn.kline) showsnot mode *** $4- | haltdef }
if ($2 = Notice) && ($5 = removed) && ($7 = k:line) { if (%sn.kline) showsnot mode *** $4 has removed K:line for $8 | haltdef }
if ($2 = Notice) && ($4 = connect) && ($5 = failure:) { if (%sn.confail) showsnot quit *** Connect failure from $6 ( $+ $7- $+ ) | haltdef }
if ($2 = global) && ($5 = collision) { if (%sn.nickcol) showsnot quit *** Nick collision on $7 $8 $10 $gettok($11,1,91) $+ ) | haltdef }
if ($2 = Notice) && ($4 = IP#) { if (%sn.dns) showsnot quit *** DNS $5 $6 / $gettok($8,1,91) | haltdef }
if ($2 = Global) && ($6 = No) && ($7 = response) { if (%sn.split) showsnot quit *** Split occured between $remove($5,:) and $gettok($9,1,91) | haltdef }
if ($2 = notice) && ($4 = No) && ($5 = response) { if (%sn.split) showsnot quit *** Split occured between $nick and $gettok($7,1,91) | haltdef }
if ($2 = notice) && ($4 = Connection) && ($7 = activated.) { if (%sn.split) showsnot join *** $nick has sucessfully connected to $gettok($6,1,91) | haltdef }
if ($2 = notice) && ($4 = write) && ($5 = error) { if (%sn.split) showsnot quit *** Split occured between $nick and $gettok($7,1,91) ( $+ $4 $5 $+ ) | haltdef }
if ($2 = notice) && ($4 = Failed) && ($6 = connecting) { if (%sn.split) showsnot info *** Connection attempt from $nick to $gettok($8,1,91) on port $gettok($remove($8,]),2,91) failed. ( $+ $remove($9,:) $+ ) | haltdef }
if ($2 = notice) && ($4 = lost) && ($5 = connection) { if (%sn.split) showsnot quit *** Split occured between $nick and $gettok($7,1,91) ( $+ $gettok($7,2,58) $+ ) | haltdef }
if ($2 = global) && ($6 = link) && ($9 = established.) { if (%sn.split) showsnot join *** $remove($5,:) has successfully connected to $gettok($8,1,91) | haltdef }
if ($2 = Global) && ($10 = Server) && ($12 = already) && ($13 = exists) { if (%sn.split) showsnot info *** error connecting to $gettok($8,1,91) from $5 (Server already exists) | haltdef }
if ($2 = Global) && ($10 = Closing) && ($11 = Link:) { if (%sn.split) showsnot quit *** Split occured between $remove($5,:) and $gettok($8,1,91) 13- | haltdef }
if ($2 = Global) && ($6 = server) && ($8 = closed) && ($10 = connection) { if (%sn.split) showsnot quit *** Split occured between $remove($5,:) and $gettok($7,1,91) (initiated by $gettok($7,1,91) $+ ) | haltdef }
if ($2 = Couldn't) && ($3 = connect) { if (%sn.split) showsnot info *** error connecting to $left($5,-1) from $nick | haltdef }
if ($2 = Connecting) { if (%sn.split) showsnot quit *** $nick is connecting to $gettok($4,1,91) ( $+ $left($4,2,91),-2) $+ ) | haltdef }
if ($2 = LocOps) && ($4 = link) && ($7 = established.) { if (%sn.split) showsnot join *** $nick has successfully connected to $gettok($6,1,91) | haltdef }
if ($2 = LocOps) && ($8 = Server) && ($10 = already) && ($11 = exists) { if (%sn.split) showsnot info *** error connecting to $9 from $gettok($6,1,91) (Server already exists) | haltdef }
if ($2 = Notice) && ($7 = network) && ($8 = split $+ $chr(44)) && ($13 = channel) && ($14 = operator) { if (%sn.split) showsnot info *** $4- | haltdef }
if ($2 = LocOps) && ($8 = Closing) && ($10 = Exists $+ $chr(41)) { if (%sn.split) showsnot quit *** Split occured between $remove($10,[,]) and $gettok($6,1,91) (Server already exists) | haltdef }
if ($2 = Notice) && ($6 = already) && ($7 = present) { if (%sn.split) showsnot info *** $5 is already connected to $nick | haltdef }
if ($2 = notice) && ($4 = Link) && ($10 = exists) { if (%sn.split) showsnot quit *** Split occured between $nick and $8 (Server already exists) | haltdef }
if ($2 = notice) && ($4 = Server) && ($6 = closed) && ($8 = connection) { if (%sn.split) showsnot quit *** Split occured between $nick and $gettok($5,1,91) (initiated by $gettok($5,1,91) $+ ) | haltdef }
if ($2 = Notice) && ($6 = SIGHUP,) { if (%sn.rehash) showsnot info *** $nick is being rehashed | haltdef }
if ($2 = Notice) && ($6 = rehashing) && ($8 = config) { if (%sn.rehash) showsnot info *** $nick is being rehashed (command issued by $4 $+ ) | haltdef }
if ($2 = Notice) && ($8 = operator) && (O isin $9) { if (%sn.oper) showsnot mode *** $4 ( $+ $gettok($5,2,$asc(!)) is now an IRC Operator | haltdef }
if ($2 = Notice) && ($4 = Client) && ($5 = connecting) { if (%sn.j-p) showsnot join *** $9- has joined $network via port $remove($8,:) | haltdef }
if ($2 = Notice) && ($4 = Client) && ($5 = exiting:) { if (%sn.j-p) showsnot part *** $6 $7 has left $network ( $+ $remove($8-,[,]) $+ ) | haltdef }
if ($2 = Global) && ($7 = used) && ($8 = SAMODE) { if (%sn.samode) showsnot mode *** $6 sets samode: $remove($9-,$chr(40),$chr(41)) | haltdef }
if ($1 = Temp) && ($2 = K:Line) haltdef
if ($2 = Notice) && ($4 = Maximum) && ($5 = connections:) { if (%sn.usrmax) showsnot info2 *** $nick has reached the maximum connection limit ( $+ $6 $+ ) | haltdef }
if ($2 = Notice) && ($4 = Bogus) && ($5 = server) { if (%sn.badserv) showsnot info *** erroneous raw command used by $10 $7 | haltdef }
if ($2 = Global) && ($7 = added) && ($8 = jupe) { if (%sn.jupe) showsnot mode *** $6- | haltdef }
if ($2 = Global) && ($7 = removed) && ($8 = jupe) { if (%sn.jupe) showsnot mode *** $6- | haltdef }
:end
}
alias showglobserv if ($sets(notice) = Active) echo $colour(highlight) -a < $+ $1- | if ($sets(notice) = Special) { if ($window(@ $+ $1) = $null) window -kaen @ $+ $1 0 0 638 360 173 | aline -ph $colour(highlight) @ $+ $1 < $+ $1- | editbox @ $+ $1 / $+ $1 } | if ($sets(notice) = $null) echo $colour(notice) -s - $+ $1-
alias ping if ($chr(35) isin $1) { set %ctcp.ping.chan $calc($nick($1,0) - 1) | set %ctcp.ping.chan.name $1 } | .ctcp $1 ping
alias ver .ctcp $1 version
alias time .ctcp $1 time
raw 474:*:echo $colour(info) -a *** ERROR: You are banned from $2 | beep | haltdef
raw 465:*: echo $colour(info) -a *** ERROR: You are K:Lined from this server: $10- | beep | haltdef
raw 481:*:nooper
alias nooper echo $colour(info) -a *** ERROR: You do not have the correct oper privileges | halt
alias showhois if ($sets(whois) = Active) echo -a $1- | if ($sets(whois) = Special) { if ($window(@whois) = $null) window -kaen @Whois 116 50 436 272 | aline -ph @whois $1- | editbox @Whois /whois }
alias showhowas if ($sets(whois) = Active) echo -a $1- | if ($sets(whois) = Special) { if ($window(@Whowas) = $null) window -kaen @Whowas 120 86 436 173 | aline -ph @Whowas $1- | editbox @Whowas /whowas }
raw 311:*: if ($sets(whois) != Default) { showhois $+ $colour(nick) $+ -=Whois info on $2 $+ =- | if ($cntry($gettok($4,$gettok($4,0,46),46))) showhois $+ $colour(highlight) $+ Location $chr(160) $chr(160) : $+ $colour(whois) $+ $cntry($gettok($4,$gettok($4,0,46),46)) | showhois $+ $colour(highlight) $+ Host $chr(160) $chr(160) $chr(160) $chr(160) : $+ $colour(whois) $+ $3 $+ @ $+ $4 | showhois $+ $colour(highlight) $+ Personal Info: $+ $colour(whois) $+ $6- | set %who.out whois | haltdef }
raw 312:*: if ($sets(whois) != Default) { if (%who.out = whois) { showhois $+ $colour(highlight) $+ On Server $chr(160) $chr(160) $+ : $+ $colour(whois) $+ $3 | if ($4) showhois $+ $colour(highlight) $+ Server Info $chr(160) $+ : $+ $colour(whois) $+ $4- } | if (%who.out = whowas) { showhowas $+ $colour(highlight) $+ On Server $chr(160) $chr(160) $+ : $+ $colour(whois) $+ $3 | if ($4) showhowas $+ $colour(highlight) $+ Signed On $chr(160) $chr(160) $+ : $+ $colour(whois) $+ $4- | showhowas End of /WHOWAS list } | unset %who.out | haltdef }
raw 301:*: if ($sets(whois) != Default) { if ($window(@whois)) showhois $+ $colour(highlight) $+ Away Info $chr(160) $chr(160) $+ : $+ $colour(whois) $+ $3- | haltdef }
raw 317:*: if ($sets(whois) != Default) { showhois $+ $colour(highlight) $+ Idle Time $chr(160) $chr(160) $+ : $+ $colour(whois) $+ $duration($3) | haltdef }
raw 319:*: if ($sets(whois) != Default) { showhois $+ $colour(highlight) $+ Channel(s) $chr(160) : $+ $colour(whois) $+ $3- | haltdef }
raw 313:*: if ($sets(whois) != Default) { showhois $+ $colour(whois) $+ IRCop | if ($8) showhois $+ $colour(whois) $+ Services Root | haltdef }
raw 310:*: if ($sets(whois) != Default) { showhois $+ $colour(whois) $+ HelpOp | haltdef }
raw 307:*: if ($sets(whois) != Default) { showhois $+ $colour(whois) $+ Registered | haltdef }
raw 401:*: set %who.out -
raw 318:*: if ($sets(whois) != Default) { if (%who.out = $null) showhois End of /WHOIS list | unset %who.out | haltdef }
alias showho if ($sets(whois) = Active) echo -a $1- | if ($sets(whois) = Special) { if ($window(@who) = $null) window -kaen @Who 116 0 436 360 | aline -ph @who $1- | editbox @Who /who }
raw 352:*: if (%cscan.halt) halt | if (%operscan) { if ($2 = %operscan.chan) did -a operscan 5 $6 | else did -a operscan 4 $6 | halt } | if (%ial.get) halt | if ($sets(whois) != Default) { showho $+ $colour(nick) $+ -=Who info on $6 $+ =- | if ($cntry($gettok($4,$gettok($4,0,46),46))) showho $+ $colour(highlight) $+ Location $chr(160) $chr(160) : $+ $colour(whois) $+ $cntry($gettok($4,$gettok($4,0,46),46)) | showho $+ $colour(highlight) $+ Host $chr(160) $chr(160) $chr(160) $chr(160) : $+ $colour(whois) $+ $3 $+ @ $+ $4 | showho $+ $colour(highlight) $+ Personal Info: $+ $colour(whois) $+ $9- | showho $+ $colour(highlight) $+ On Server $chr(160) $chr(160) $+ : $+ $colour(whois) $+ $5 | if ($2 != *) showho $+ $colour(highlight) $+ On Channel : $+ $colour(whois) $+ $2 | showho End of /WHO list | haltdef }
raw 314:*: if ($sets(whois) != Default) { showhowas $+ $colour(nick) $+ -=Whowas info on $2 $+ =- | if ($cntry($gettok($4,$gettok($4,0,46),46))) showhowas $+ $colour(highlight) $+ Location $chr(160) $chr(160) : $+ $colour(whois) $+ $cntry($gettok($4,$gettok($4,0,46),46)) | showhowas $+ $colour(highlight) $+ Host $chr(160) $chr(160) $chr(160) $chr(160) : $+ $colour(whois) $+ $3 $+ @ $+ $4 | showhowas $+ $colour(highlight) $+ Personal Info: $+ $colour(whois) $+ $6- | set %who.out whowas | haltdef }
raw 369:*: if ($sets(whois) != Default) haltdef
raw 315:*: if (%cscan.halt) { unset %cscan.halt | echo 3 -a * got IAL, starting scan... | cscan %cscan.chan | return } | if (%operscan) { unset %operscan* | did -e operscan 3 | halt } | if (%ial.get) { dec %ial.get | if (%ial.get = 0) unset %ial.get | halt } | if ($sets(whois) != Default) haltdef
alias showdns if ($sets(dns) = Active) echo -a $1- | if ($sets(dns) = Special) { if ($window(@DNS) = $null) window -kaen @DNS 128 100 436 128 | aline -ph @DNS $1- | editbox @DNS /dns }
on *:DNS: set %address $address | set %raddress $raddress | if (%address = $null) set %address $+ $colour(info) $+ NONE RESOLVED | if (%raddress = $null) set %raddress $+ $colour(info) $+ NONE RESOLVED | if ($sets(dns) != Default) { showdns $+ $colour(nick) $+ -=DNS results for $nick $+ =- | showdns $+ $colour(highlight) $+ Address : $+ $colour(whois) $+ %address | showdns $+ $colour(highlight) $+ Resolved : $+ $colour(whois) $+ %raddress | showdns End of /DNS } | unset %address %raddress
alias showctcp if (%ctcp.ping.chan.total < %ctcp.ping.chan) && ($window(@Channel-ping)) { titlebar @Channel-ping av. ping reply for %ctcp.ping.chan.name $+ : $round($calc(%ctcp.ping.chan.time / %ctcp.ping.chan.total),2) $+ secs. waiting for $calc(%ctcp.ping.chan - %ctcp.ping.chan.total) more replies... | aline -ph $colour(ctcp) @Channel-ping $1- | return } | if (%ctcp.ping.chan.total) && (%ctcp.ping.chan) && (%ctcp.ping.chan.total = %ctcp.ping.chan) { titlebar @Channel-ping av. ping reply for %ctcp.ping.chan.name $+ : $round($calc(%ctcp.ping.chan.time / %ctcp.ping.chan.total),2) $+ secs | aline -ph $colour(ctcp) @Channel-ping $1- | unset %ctcp.ping.ch* | return } | if ($sets(ctcp) = Active) echo $colour(ctcp) -a $1- | if ($sets(ctcp) = Special) { if ($window(@CTCP) = $null) window -ken @CTCP 86 0 483 360 | aline -ph $colour(ctcp) @CTCP $1- | editbox @CTCP /ctcp }
on *:close:@Channel-ping:unset %ctcp.ping.ch*
on *:ctcpreply:*:{
if ($1 = ping) { if ($duration($2) = 0secs) goto end | set %ping $calc($ctime - $2) | if (%ctcp.ping.chan) { if ($window(@Channel-ping) = $null) window -kn @Channel-ping 86 0 638 360 | inc %ctcp.ping.chan.total | set %ctcp.ping.chan.time $calc(%ctcp.ping.chan.time + %ping) } | if ($sets(ctcp) != Default) { showctcp * $+ $colour(background) $+ , $+ $colour(ctcp) $+ PING $+ $colour(ctcp) $+ , $+ $colour(background) reply from $nick - $duration(%ping) | haltdef } | unset %ping }
if ($1 = time) { if ($sets(ctcp) != Default) { showctcp * $+ $colour(background) $+ , $+ $colour(ctcp) $+ TIME $+ $colour(ctcp) $+ , $+ $colour(background) reply from $nick - $2- | haltdef } } | if ($1 = version) { if ($sets(ctcp) != Default) { showctcp * $+ $colour(background) $+ , $+ $colour(ctcp) $+ VERSION $+ $colour(ctcp) $+ , $+ $colour(background) reply from $nick - $2- | haltdef } } | if ($1 = finger) { if ($sets(ctcp) != Default) { showctcp * $+ $colour(background) $+ , $+ $colour(ctcp) $+ FINGER $+ $colour(ctcp) $+ , $+ $colour(background) reply from $nick - $2- | haltdef } } | :end
}