ircN for mIRC — File Browser
ircNformIRCv6.0 / ircNformIRCv6.0 / ircn / SYSTEM / Raw3.mrc
Raw3.mrc — 18.14 KB — Download this file
raw 317:* {
if (%rawcode.317 == off) { unset %rawcode.317 | halt }
if (%dontecho) halt
if (%whois == on) {
if ($form(whois)) {
whecho $readini %formats whois idle
if ($form(whois,idle2)) whecho $readini %formats whois idle2
}
else whecho 15: $+ %c2 $+ 14i14DLE $+ %c3 $+ 15/ $duration($3-)
halt
}
elseif (%cwhois == on) {
if ($form(cw)) {
%raw $readini %formats cw idle
if ($form(cw,idle2)) %raw $readini %formats cw idle2
}
else %raw $chr(124) iDLE / $duration($3-)
halt
}
}
raw 318:* {
if (%rawcode.318 == off) { unset %rawcode.318 | halt }
if (%dontecho) { unset %dontecho | halt }
if (%whois == on) {
if ($form(whois)) {
whecho $readini %formats whois bottom
if ($form(whois,bottom2)) whecho $readini %formats whois bottom2
if ($form(whois,bottom3)) whecho $readini %formats whois bottom3
}
else whecho $pc(`15+---14--15--14- -15-) $+ $hc(14--15--14- --- ---) $+ $sc(14-- -- - -- - -)
unset %whois
halt
}
elseif (%cwhois == on) {
if ($form(cw)) {
%raw $readini %formats cw bottom
if ($form(cw,bottom2)) %raw $readini %formats cw bottom2
if ($form(cw,bottom3)) %raw $readini %formats cw bottom3
}
else %raw ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
unset %cwhois %raw
halt
}
elseif (%nwhois == on) { unset %nwhois %raw | halt }
}
raw 319:* {
if (%rawcode.319 == off) { unset %rawcode.319 | halt }
if (%dontecho) halt
if (%whois == on) {
if ($form(whois)) {
whecho $readini %formats whois chan
if ($form(whois,chan2)) whecho $readini %formats whois chan2
}
else whecho 15| $+ %c2 $+ 14cHAN $+ %c3 $+ 15/ $3-
halt
}
elseif (%cwhois == on) {
if ($form(cw)) {
%raw $readini %formats cw chan
if ($form(cw,chan2)) %raw $readini %formats cw chan2
}
else %raw $chr(124) 14cHAN 15/ $3-
halt
}
}
raw 324:* {
if (%rawcode.324 == off) { unset %rawcode.324 | halt }
if ((%jstats == off) && (%joinch == on) && (%jointtl == on) && ($me ison $2)) {
if ($2 == %idlechan) mode $2 +mnstil 1
if ($3- == +) set %cmde none
else set %cmde $3-
if ($form(joinecho,totals)) $readini %formats joinecho totals
else echo %c $2 %h $chr(91) $+ o: $hc($opnick($2,0)) $+ $chr(93) $+ $chr(91) $+ v: $hc($vnick($2,0)) $+ $chr(93) $+ $chr(91) $+ n: $hc($nvnick($2,0)) $+ $chr(93) $+ $chr(91) $+ t: $hc($nick($2,0)) $+ $chr(93) $+ $chr(91) $+ m: $hc(%cmde) $+ $chr(93)
unset %cmde %jointime
}
if (($readini -n $td(autoplay.txt) $2 action) && (%auto == on)) {
if ($readini $td(autoplay.txt) $2 botname isop $2) {
echo $2
$readini $td(autoplay.txt) $2 action
}
}
if ((%ial == on) && ($nick($2,0) <= %maxial) && ($nick($2,0) > 1)) {
if (%uial) {
.timer 1 7 set %uial on
.timer 1 7 .quote who $2
}
else {
set %uial on
.quote who $2
}
}
}
alias issa return $server \mode: $usermode \version: $version
raw 332:* {
if (%rawcode.332 == off) { unset %rawcode.332 | halt }
if ((%jstats == off) && (%joinch == on) && (%joinsyn == on) && (%jointime)) {
if ($form(joinecho,synched)) $readini %formats joinecho synched
else echo %c $2 %h Join synched in $hc($rrpt($sub($ticks,%jointime))) seconds.
}
if ((%jstats == off) && (%joinch == on) && (%jointpc == on)) {
if ($form(joinecho,topic1)) { set %i 0 | :start1 | inc %i | set %j topic $+ %i | if ($form(joinecho,%j)) { $readini %formats joinecho %j | goto start1 } | unset %wrap.* | halt }
echo %c $2 . $+ $str(-,55) $+ .
echo %c $2 $chr(124) $sc(topic) $+ > > $fix(46,$wrap(1,46,$strip($3-))) $chr(124)
set %wrap.topic %wrap.pos
unset %i3
if (%wrap.topic < $len($strip($3-))) {
:start
inc %i3
if (%i3 >= 10) halt
echo %c $2 $chr(124) $+ $str( ,4) $+ $fix(51,$wrap($pls(%wrap.topic,1),50,$strip($3-))) $+ $chr(124)
set %wrap.topic $pls(%wrap.topic,%wrap.pos)
if (%wrap.topic < $len($strip($3-))) goto start
set %echo.top on
}
if ((%joinnms != on) && (%jointst != on)) echo %c $2 ' $+ $str(-,55) $+ '
unset %wrap.* %i3
halt
}
}
raw 333:* {
if (%rawcode.333 == off) { unset %rawcode.333 | halt }
if ((%jstats == off) && (%joinch == on) && (%jointst == on)) {
if ($form(joinecho,setby1)) { set %i 0 | :start1 | inc %i | set %j setby $+ %i | if ($form(joinecho,%j)) { $readini %formats joinecho %j | goto start1 } | unset %jointime | halt }
if (%jointpc != on) echo %c $2 . $+ $str(-,55) $+ .
echo %c $2 $chr(124) $sc(setBy) $+ > > $fix(10,$hc($3)) $fix(35,$asc-time($4)) $chr(124)
if ((%joinnms != on) || (%jointime == $null)) echo %c $2 ' $+ $str(-,55) $+ '
unset %jointime
halt
}
}
raw 341:* { halt }
raw 352:* {
if (%rawcode.352 == off) { unset %rawcode.352 | halt }
if (%cstats == on) {
if (* isin $7) inc %niops
if (G isin $7) inc %naway
set %cladd $4
if (%cladd isin %add) inc %ncls
set %add %add %cladd
inc %cnum
inc %chops $8
set %hop1 $div(%chops,%cnum)
%hop2 = %chops % %cnum
set %hop3 $mpy(%hop2,100)
set %hop4 $div(%hop3,%cnum)
if ($len(%hop4) == 1) set %hop4 %hop4 $+ 0
halt
}
elseif (%spoofchk) {
if ($6 == %spoofchk) {
set %spoofchk.host $remove($3,$chr(126)) $+ $chr(64) $+ $4
set %spoofchk.nick $6
unset %spoofchk
.quote stats L %spoofchk.nick
halt
}
}
elseif (%lircops == on) {
if (* isin $7) {
inc %cn
if (%cn == 1) {
write -c $tp(ircop.txt)
write $tp(ircop.txt) exit:/set $chr(37) $+ icloc $chr(36) $+ swlc(@IrcOps) $chr(124) window -c @IrcOps
write $tp(ircop.txt) -
window -a @IrcOps %icloc $tp(ircop.txt) FixedSys 9
aline @IrcOps . $+ $str(-,45) $+ .
aline @IrcOps $chr(124) IRC Operators on $fix(27,$hc($2)) $+ $chr(124)
aline @IrcOps $chr(124) $+ $str(-,45) $+ $chr(124)
aline @IrcOps $chr(124) Nick Server $str( ,18) $chr(124)
}
aline @IrcOps $chr(124) $lfix(2,%cn) $+ . $fix(10,$hc($6)) $fix(28,$5) $chr(124)
write $tp(ircop.txt) $6
write $tp(ircop.txt) .who:/who $6
write $tp(ircop.txt) .ping:/ctcp $6 ping
write $tp(ircop.txt) .whois:/whois $6
write $tp(ircop.txt) .finger:/finger $6
write $tp(ircop.txt) .version:/ctcp $6 version
}
halt
}
elseif (%listclones == on) {
if ($readini $tp(temp.txt) $4 nick) {
set %tmpadd $readini $tp(temp.txt) $4 nick
%tmpadd = %tmpadd $+ , $+ $6
writeini $tp(temp.txt) $4 nick %tmpadd
set %tmpadd $readini $tp(temp.txt) $4 server
%tmpadd = %tmpadd $+ , $+ $5
writeini $tp(temp.txt) $4 server %tmpadd
set %tmpadd $readini $tp(temp.txt) $4 ident
%tmpadd = %tmpadd $+ , $+ $3
writeini $tp(temp.txt) $4 ident %tmpadd
if ($readini $tp(temp.txt) clones host) {
if ($4 !isin $readini $tp(temp.txt) clones host) {
set %tmpadd $readini $tp(temp.txt) clones host
%tmpadd = %tmpadd $+ , $+ $4
writeini $tp(temp.txt) clones host %tmpadd
}
else halt
}
else writeini $tp(temp.txt) clones host $4
halt
}
else {
writeini $tp(temp.txt) $4 nick $6
writeini $tp(temp.txt) $4 server $5
writeini $tp(temp.txt) $4 ident $3
halt
}
}
elseif (%whochan == on) {
if ($form(who)) {
iiecho $readini %formats who line1
if ($form(who,line2)) iiecho $readini %formats who line2
if ($form(who,line3)) iiecho $readini %formats who line3
if ($form(who,line4)) iiecho $readini %formats who line4
}
else {
iiecho $chr(124) $fix(13,$hc($6)) ( $+ $3 $+ $chr(64) $+ $4 $+ )
iiecho $chr(124) $str(-,9) is $sc($ca($7)) on $hc($5) ( $+ $sc($8) hops)
}
halt
}
elseif (%nickfind) {
if (%nickfind isin $4) {
if ($window(@DNS)) {
echo %c @DNS
if ($form(echos,founduser)) echo %c @DNS %h $readini %formats echos founduser
else echo %c @DNS %h Found user $hc($6) is on host $sc($4) $+ $inbrk($ac(%nfip)) $+ .
}
else {
if ($form(echos,founduser)) iecho $readini %formats echos founduser
else iecho Found user $hc($6) is on host $sc($4) $+ $inbrk($ac(%nfip)) $+ .
}
set %nickfound yes
}
halt
}
elseif (%uial == on) halt
}
raw 353:* {
if (%rawcode.353 == off) { unset %rawcode.353 | halt }
if ((%botgetops == on) && ($2 isin $botchans) && ($me ison $2)) .timer 1 1 get.bot.ops $2
if ((%colnick == on) && ($remove($4-,@) == $me)) cline -r %cn11 $3 1
if ((%jstats == off) && (%joinch == on) && (%joinnms == on)) {
if ($form(joinecho,names1)) { set %i 0 | :start1 | inc %i | set %j names $+ %i | if ($form(joinecho,%j)) { $readini %formats joinecho %j | goto start1 } | halt }
set %nameschannel $2
nline $4-
halt
}
if (%jstats == on) {
inc %jstat.num
set %jstat.num2 $pls(1,$count($4-,$chr(32)))
if ($form(names,n1)) { set %i 0 | :start1 | inc %i | set %j n $+ %i | if ($form(names,%j)) { $readini %formats names %j | goto start1 } | halt }
if (%jstat.num == 1) {
iiecho . $+ $str(-,55) $+ .
iiecho $chr(124) Names [ $+ $hc($3) $+ : $+ %c3 $+ $fix(2,%jstat.num2) $+ ] $fix($sub(41,$len($3)), ) $chr(124)
}
else {
iiecho . $+ $str(-,55) $+ .
iiecho $chr(124) Next [ $+ $hc($3) $+ : $+ %c3 $+ $fix(2,%jstat.num2) $+ ] $fix($sub(42,$len($3)), ) $chr(124)
}
set %echo.top on
nline $4-
halt
}
}
raw 364:* {
if (%rawcode.364 == off) { unset %rawcode.364 | halt }
if (%linksr == on) { write $tp(temp.txt) $parm2 | halt }
if (%linkl == on) { write $td(servers.txt) $parm2 | halt }
}
on 1:start { set %geloc a }
raw 365:* {
if (%rawcode.365 == off) { unset %rawcode.365 | halt }
if (%linksr == on) {
set %ntmp 0
set %i 0
:start
inc %i
if (%i > $lines($td(servers.txt))) goto end
set %stmp $read -l $+ %i $td(servers.txt)
set %stmp2 $read -s $+ %stmp $tp(temp.txt)
if (%stmp2 == $null) {
inc %ntmp
if (%ntmp == 1) {
window -ae @Link Looker %lloc /server $tp(ll.txt) FixedSys 9
write -c $tp(ll.txt)
write $tp(ll.txt) exit:/set $chr(37) $+ lloc $chr(36) $+ swlc(@Link Looker) $chr(124) window -c @Link Looker
write $tp(ll.txt) -
aline @Link Looker . $+ $str(-,45) $+ .
aline @Link Looker $chr(124) Split servers from $fix(24,$hc($server)) $chr(124)
aline @Link Looker $chr(124) $+ $str(-,45) $+ $chr(124)
}
aline @Link Looker $chr(124) $str( ,5) $lfix(2,%ntmp) $+ . $fix(33,$sc(%stmp)) $chr(124)
write $tp(ll.txt) $replace(%stmp,*,irc)
write $tp(ll.txt) .join:/server $replace(%stmp,*,irc)
write $tp(ll.txt) .scan:/portscan $replace(%stmp,*,irc)
goto start
}
goto start
:end
titlebar @Link Looker - %ntmp split servers
if (%ntmp == 0) iecho No split servers were found.
else aline @Link Looker ' $+ $str(-,45) $+ '
unset %linksr %stmp* %ntmp
halt
}
if (%linkl == on) {
iecho List of servers has been made. ( $+ $hc($lines($td(servers.txt))) servers)
unset %linkl
halt
}
}
raw 366:* {
if (%rawcode.366 == off) { unset %rawcode.366 | halt }
if (%jstats == on) {
if (%colnick == on) colnick %nameschannel
unset %jstat.num* %nameschannel
set %jstats off
halt
}
if ((%jstats == off) && (%joinch == on) && (%joinnms == on)) halt
}
raw 367:* {
if (%rawcode.367 == off) { unset %rawcode.367 | halt }
if (%unban == on) {
if ($3 iswm %ubadd) mode $2 -b $3
halt
}
elseif (%clearbans == on) {
inc %b
%bans = %bans $3
if (%b == 4) {
mode $2 -bbbb %bans
unset %bans
set %b 0
}
halt
}
elseif (%unban.1 == on) {
if (%u.mask iswm $3) {
inc %b
set %bans %bans $3
}
if (%b == 4) {
mode $2 -bbbb %bans
unset %bans
set %b 0
}
halt
}
elseif (%tban == on) {
if ($sub($ctime,$5) >= %tban.t) {
inc %b
set %bans %bans $3
}
if (%b == 4) {
mode $2 -bbbb %bans
unset %bans
set %b 0
}
halt
}
elseif (%showbans == on) {
inc %bansno
write $tp(temp.txt) $3
if (%bansno == 1) {
echo %c $2 . $+ $str(-,15) Bans on ( $+ $hc($2) $+ ) $str(-,15)
echo %c $2 $chr(124) Nick Banmask
}
if ($len($token(1,33,$4)) > 9) {
echo %c $2 $chr(124) %bansno $+ . $hc($token(1,33,$4))
echo %c $2 $chr(124) $str( ,8) '--> $sc($3)
halt
}
else {
echo %c $2 $chr(124) %bansno $+ . $fix(10,$hc($token(1,33,$4))) $sc($3)
halt
}
}
}
raw 368:* {
if (%rawcode.368 == off) { unset %rawcode.368 | halt }
if (%unban == on) {
unset %unban
.quote notice %ubnick :All bans on you from $+ $2 $+ have been removed.
if (%ubnick !ison $2) .quote invite %ubnick $2
halt
}
elseif (%showbans == on) {
if (%bansno == 0) echo %c $2 %h No Bans were found on $hc($2) $+ .
elseif (($me isop $2) && (%bansno > 0)) {
echo %c $2 ` $+ $str(-,$pls(42,$len($2)))
echo %c $2 %h To remove a ban type $hc(/rban <ban #>) $+ .
}
else echo %c $2 ` $+ $str(-,$pls($len($2),42))
unset %showbans %bansno
halt
}
elseif ((%clearbans == on) || (%unban.1 == on) || (%tban == on)) {
if (%b > 0) mode $2 - $+ $str(b,%b) %bans
unset %b %bans %clearbans %unban.1 %tban*
halt
}
}
raw 369:* {
if (%rawcode.369 == off) { unset %rawcode.369 | halt }
if (%whowas == on) {
unset %whowas
halt
}
halt
}
raw 375:* { halt }
raw 376:* { halt }
raw 391:* {
if (%slagtmp == on) {
set %pt $round($div($sub($ticks,%slag),1000),2)
if (%pt <= 0) {
if ($form(ctcpreplies,ping0)) iecho $readini %formats ctcpreplies ping0
else iecho $hc(PING) $sc(reply) from $+ $hc($nick) $+ : 0 sec
}
elseif ($form(ctcpreplies,ping)) iecho $readini %formats ctcpreplies ping
else iecho $hc(PING) $sc(reply) from $+ $hc($nick) $+ : $iduration(%pt)
unset %slag %pt %slagtmp
halt
}
}
raw 401:* {
if (%rawcode.401 == off) { unset %rawcode.401 | halt }
if ($2 == %dccnick) {
set %dccrelay off
set %kchan %dccrinfo
iecho DCC relay unable to process send.
iecho To accept any queued sends press $hc(F12) $+ .
unset %dccnick %dccrinfo
halt
}
elseif ($2 == %idlechan) {
unidle
halt
}
elseif (%whois == on) {
if ($form(whois)) iecho $readini %formats whois error
else iecho 15(16 $+ $2 $+ 15) 14 is not on IRC.
unset %whois
set %nwhois on
halt
}
elseif (%cwhois == on) {
if ($form(cw)) iecho $readini %formats cw error
else iecho 15(16 $+ $2 $+ 15) 14 is not on IRC.
unset %cwhois
halt
}
else {
if ($2 != %lastnick) {
if ($form(errors,noton)) iecho $readini %formats errors noton
else iecho 15(16 $+ $2 $+ 15) 14 is not on IRC.
}
aunset
set %lastnick $2
halt
}
}
raw 402:* {
if (%rawcode.402 == off) { unset %rawcode.402 | halt }
if (%portscan == on) {
iecho No server by that name was found.
halt
}
}
raw 404:* {
if (%rawcode.404 == off) { unset %rawcode.404 | halt }
if ($2 != %lastchan) {
if ($form(errors,nochan)) iecho $readini %formats errors nochan
else iecho 15c14annot send to channel (15 $+ $2 $+ 14)
}
set %lastchan $2
halt
}
raw 405:* {
if (%rawcode.405 == off) { unset %rawcode.405 | halt }
if ($form(errors,toomanychans)) iecho $readini %formats errors toomanychans
else iecho Server says you are on too many channels.
halt
}
raw 406:* {
if (%rawcode.406 == off) { unset %rawcode.406 | halt }
if (%whowas == on) {
if ($form(whowas)) iecho $readini %formats whowas error
else iecho Could not locate $hc(WHOWAS) information for $hc($2) $+ .
unset %whowas
halt
}
}
raw 421:* {
if (%rawcode.421 == off) { unset %rawcode.421 | halt }
if ($readini -n help.ini errormsgs $2) iecho $hc($2) [ $readini help.ini errormsgs $2 ]
elseif ($ascode(123,255,$2) < 30) {
if ($form(errors,badcmd)) iecho $readini %formats errors badcmd
else iecho 0/ $+ $2 15is not a known command ya stupid mormon. put yewr sock hat on.
}
halt
}
raw 432:* { if ($form(errors,badnick)) iecho $readini %formats errors badnick | else iecho Erroneous nickname, please try again. | halt }
raw 433:* { if ($form(errors,nickinuse)) iecho $readini %formats errors nickinuse | else iecho Nickname $hc($2) is already in use. | whois $2 | halt }
raw 436:* { if ($form(errors,collision)) iecho $readini %formats errors collision | else iecho Nickname Collision!! | nick $me $+ $rand(a,z) | halt }
raw 465:* { iecho Trying new server, possible Kline. | server EFNET }
raw 471:* { if ($form(joinerrors,full)) iecho $readini %formats joinerrors full | else iecho Cannot join channel $hc($2) (Its full) | halt }
raw 473:* { if ($form(joinerrors,invite)) iecho $readini %formats joinerrors invite | else iecho 14cannot join channel **15 $2 14(inVITE only..) | halt }
raw 474:* { if ($form(joinerrors,banned)) iecho $readini %formats joinerrors banned | else iecho 14cannot join channel **15 $2 14(banned..) | halt }
raw 475:* { if ($form(joinerrors,key)) iecho $readini %formats joinerrors key | else iecho cannot join channel **15 $2 14(requires the correct kEY..) | halt }
raw 481:* {
if (%rawcode.481 == off) { unset %rawcode.481 | halt }
if (%spoofchk.nick) {
iecho Could not check %spoofchk.nick for a spoofed address.
unset %spoofchk*
halt
}
}
raw 482:* {
if (%rawcode.482 == off) { unset %rawcode.482 | halt }
if (%spoofchk) {
iecho Could not check %spoofchk.nick for a spoofed address.
unset %spoofchk*
halt
}
else {
if ($2 != %lastchan1) iecho You are not a channel operator ( $+ $hc($2) $+ )
set %lastchan1 $2
halt
}
}