ircN for mIRC — File Browser
ircNformIRCv6.0 / ircNformIRCv6.0 / ircn / SYSTEM / Raw2.mrc
Raw2.mrc — 20.9 KB — Download this file
raw 311:* {
if (%rawcode.311 == off) { unset %rawcode.311 | halt }
if (%whois == on) {
if ($form(whois)) {
whecho $readini %formats whois top
if ($form(whois,top2)) whecho $readini %formats whois top2
if ($form(whois,top3)) whecho $readini %formats whois top3
whecho $readini %formats whois address
if ($form(whois,address2)) whecho $readini %formats whois address2
whecho $readini %formats whois name
if ($form(whois,name2)) whecho $readini %formats whois name2
}
else {
whecho $pc(15.+14-15- ( 16s15m15urf14.16u n15i nfo ) --14-15-----14---) $+ $hc(14--15---14- - - -) $+ $sc(14----- - - -)
whecho 15| 15 $+ $sc($2) 14( $+ $3 $+ $+ %opsign $+ $+ $4 $+ )
whecho 15: $+ %c2 $+ 14n14AME $+ %c3 $+ 15/ $6-
}
halt
}
elseif (%cwhois == on) {
if ($form(cw)) {
%raw $readini %formats cw top
if ($form(cw,top2)) %raw $readini %formats cw top2
if ($form(cw,top3)) %raw $readini %formats cw top3
%raw $readini %formats cw address
if ($form(cw,address2)) %raw $readini %formats cw address2
%raw $readini %formats cw name
if ($form(cw,name2)) %raw $readini %formats cw name2
}
else {
%raw +----------(14smurf\uninfo)14---- --- -- - -
%raw $chr(124) $+ $2 $+ ( $+ $3 $+ 15@ $+ $4 $+ )
%raw $chr(124) 14nAME 15/ $6-
}
halt
}
elseif (%unshit == on) {
unset %unshit
set %unshitadd *! $+ $3 $+ @ $+ $4
remini $sys(ircndata.ini) $maddress(%unshitadd)
if ($form(userlist,unshit)) iecho $readini %formats userlist unshit
else iecho $hc($2) has been removed from hate list.
.ruser 20 $maddress(%unshitadd)
if (%colnick == on) colupdt2 $2 %cn1
set %dontecho on
halt
}
elseif (%shitter == on) {
unset %shitter
set %tmpadd $2 $+ ! $+ $3 $+ @ $+ $4
addban $mask(%tmpadd,3)
set %dontecho on
if (%colnick == on) colupdt2 $2 %cn2
halt
}
elseif (%ident == on) {
unset %ident
if ($readini $sys(ircndata.ini) $2 password == $null) .quote notice $2 :You have no password set.
else ident $2
set %dontecho on
if ((%colnick == on) && ($comchan($2,1))) {
set %i 0
:startident
inc %i
if colupdt $comchan($2,%i) $2
if (%i < $comchan($2,0)) goto startident
}
halt
}
elseif (%addv == on) {
unset %addv
set %tmpadd $2 $+ ! $+ $3 $+ @ $+ $4
writeini $sys(ircndata.ini) $rb($2) hostmask $mask(%tmpadd,3)
writeini $sys(ircndata.ini) Users $mask(%tmpadd,3) $rb($2)
if (%addvchans == all) writeini $sys(ircndata.ini) $rb($2) flags global voice
else {
writeini $sys(ircndata.ini) $rb($2) flags voice
writeini $sys(ircndata.ini) $rb($2) voicechannel %addvchans
}
if (%addvchans == all) .quote notice $2 :You have been added to my user list on all channels.
else .quote notice $2 :You have been added to my user list for channels matching $+ $replace(%addvchans,$chr(44),$chr(44) $+ $chr(32)) $+ .
.quote notice $2 :[voice,invite,ident,info,help]
.quote notice $2 :Please set a password, type '/CTCP $me PASS <password>'.
if (%addvchans == all) {
adduser $mask(%tmpadd,1) 45 $2
if (%colnick == on) colupdt2 $2 %cn5
if ($form(userlist,addgv)) iecho $readini %formats userlist addgv
else iecho Added $hc($2) to user list.
}
else {
adduser $mask(%tmpadd,1) 40 $2
if (%colnick == on) colupdt2 $2 %cn4
if ($form(userlist,addv)) iecho $readini %formats userlist addv
else iecho Added $hc($2) to user list.
}
unset %addvchans
set %dontecho on
halt
}
elseif ((%addprot == on) && (%addop != on) && (%addb != on)) {
unset %addprot
set %tmpadd $2 $+ ! $+ $3 $+ @ $+ $4
if ($usr($rb($2)) != $null) {
writeini $sys(ircndata.ini) $rb($2) hostmask $mask(%tmpadd,3)
writeini $sys(ircndata.ini) Users $mask(%tmpadd,3) $rb($2)
}
if ($findtok($flags($usr($rb($2))),op,32)) writeini $sys(ircndata.ini) $usr($rb($2)) flags protected op
elseif ($findtok($flags($usr($rb($2))),bot,32)) writeini $sys(ircndata.ini) $usr($rb($2)) flags protected bot
else writeini $sys(ircndata.ini) $rb($2) flags protected
writeini $sys(ircndata.ini) $rb($2) protchannel %protchan
if ((%protchan == all) && ($findtok($flags($usr($rb($2))),bot,32) == $null)) .quote notice :You are now being protected in all channels.
elseif ($findtok($flags($usr($rb($2))),bot,32) == $null) .quote notice $2 : You are now being protected in channels matching $+ $replace(%protchan,$chr(44),$chr(44) $+ $chr(32)) $+
adduser $mask(%tmpadd,3) 50 $2
if ($form(userlist,addprot)) iecho $readini %formats userlist addprot
else iecho Added $hc($2) to the protect list.
if ((%colnick == on) && ($comchan($2,1))) {
set %i 0
:startprot
inc %i
colupdt $comchan($2,%i) $2
if (%i < $comchan($2,0)) goto startprot
}
unset %protchan
set %dontecho on
halt
}
elseif (%addb == on) {
unset %addb
set %tmpadd $2 $+ ! $+ $3 $+ @ $+ $4
writeini $sys(ircndata.ini) $rb($2) hostmask $mask(%tmpadd,3)
writeini $sys(ircndata.ini) Users $mask(%tmpadd,3) $rb($2)
if (%addprot == on) writeini $sys(ircndata.ini) $rb($2) flags protected bot
else writeini $sys(ircndata.ini) $rb($2) flags bot
writeini $sys(ircndata.ini) $rb($2) opchannel %opchannel
if (%addprot == on) writeini $sys(ircndata.ini) $rb($2) protchannel %protchan
if (%botpass) {
writeini $sys(ircndata.ini) $rb($2) password %botpass
writeini $sys(ircndata.ini) $rb($2) getopschans %botgetopchans
set %i 0
:startab
inc %i
set %currentchan $gettok(%botgetopchans,%i,44)
if ($rb($2) !isin $chnbot(%currentchan)) writeini $sys(ircndata.ini) botgetopschans %currentchan $chnbot(%currentchan) $rb($2)
if (%currentchan !isin $botchans) writeini $sys(ircndata.ini) botgetopschans chans $botchans %currentchan
if ($sub(%i,1) < $count(%botgetopchans,$chr(44))) goto startab
}
if (%addprot == on) {
adduser $mask(%tmpadd,1) 90 $2
if (%colnick == on) colupdt2 $2 %cn10
if ($form(userlist,addprotbot)) iecho $readini %formats userlist addprotbot
else iecho Added $hc($2) to user and protect lists.
}
else {
adduser $mask(%tmpadd,1) 80 $2
if (%colnick == on) colupdt2 $2 %cn9
if ($form(userlist,addbot)) iecho $readini %formats userlist addbot
else iecho Added $hc($2) to user list.
}
aunset
set %dontecho on
halt
}
elseif (%remprot == on) {
unset %remprot
set %tmpadd $2 $+ ! $+ $3 $+ @ $+ $4
set %popnck $readini $sys(ircndata.ini) Users $mask(%tmpadd,3)
if ((%popnck) && ($level($mask(%tmpadd,3)) == 50)) remini $sys(ircndata.ini) %popnck
if ($flags($rb($2))) writeini $sys(ircndata.ini) $rb($2) flags $remtok($flags($rb($2)),protected,32)
if ($protchans($rb($1))) remini $sys(ircndata.ini) protchannel
if (($level($mask(%tmpadd,1)) == 50) && ($readini $sys(ircndata.ini) Users $mask(%tmpadd,3))) remini $sys(ircndata.ini) Users $mask(%tmpadd,3)
if ($level($mask(%tmpadd,1)) == 70) { .ruser 70 $maddress(%tmpadd) | adduser $mask(%tmpadd,1) 60 $2 }
elseif ($level($mask(%tmpadd,1)) == 90) { .ruser 90 $maddress(%tmpadd) | adduser $mask(%tmpadd,1) 80 $2 }
else .ruser 50 $maddress(%tmpadd)
if (%colnick == on) colupdt2 $2 %cn1
if ($form(userlist,unprot)) iecho $readini %formats userlist unprot
else iecho Removed $hc($2) from the protected list.
unset %popnck %pwnick
set %dontecho on
halt
}
elseif (%remop == on) {
unset %remop
set %tmpadd $2 $+ ! $+ $3 $+ @ $+ $4
set %popnck $readini $sys(ircndata.ini) Users $mask(%tmpadd,3)
set %pwnck $readini $sys(ircndata.ini) %popnck password
if (%pwnck) remini $sys(ircndata.ini) passwords %pwnck
if (%popnck) remini $sys(ircndata.ini) %popnck
if ($readini $sys(ircndata.ini) $rb($2) flags) remini $sys(ircndata.ini) $rb($2)
if ($readini $sys(ircndata.ini) Users $mask(%tmpadd,3)) remini $sys(ircndata.ini) Users $mask(%tmpadd,3)
if ($level($mask(%tmpadd,1)) == 60) .ruser 60 $maddress(%tmpadd)
elseif ($level($mask(%tmpadd,1)) == 70) .ruser 70 $maddress(%tmpadd)
if (%colnick == on) colupdt2 $2 %cn1
if ($form(userlist,remop)) iecho $readini %formats userlist remop
else iecho Removed $hc($2) from the user list.
aunset
set %dontecho on
halt
}
elseif (%remv == on) {
unset %remv
set %tmpadd $2 $+ ! $+ $3 $+ @ $+ $4
set %popnck $readini $sys(ircndata.ini) Users $mask(%tmpadd,3)
set %pwnck $readini $sys(ircndata.ini) %popnck password
if (%pwnck) remini $sys(ircndata.ini) passwords %pwnck
if (%popnck) remini $sys(ircndata.ini) %popnck
if ($flags($rb($2))) remini $sys(ircndata.ini) $rb($2)
if ($readini $sys(ircndata.ini) Users $mask(%tmpadd,3)) remini $sys(ircndata.ini) Users $mask(%tmpadd,3)
if ($level($mask(%tmpadd,1)) == 40) .ruser 40 $maddress(%tmpadd)
elseif ($level($mask(%tmpadd,1)) == 45) .ruser 45 $maddress(%tmpadd)
if (%colnick == on) colupdt2 $2 %cn1
if ($form(userlist,remv)) iecho $readini %formats userlist remv
else iecho Removed $hc($2) from the user list.
unset %popnck %pwnick
set %dontecho on
halt
}
elseif (%rembot == on) {
unset %rembot
set %tmpadd $2 $+ ! $+ $3 $+ @ $+ $4
set %botgetopchans $botgetopschans($usr($rb($2)))
set %i 0
:startrb
inc %i
set %currentchan $gettok(%botgetopchans,%i,44)
if (%currentchan) {
if ($chnbot(%currentchan) == $usr($rb($2))) {
if ($remove($botchans,%currentchan) != $null) writeini $sys(ircndata.ini) botgetopschans chans $remove($botchans,%currentchan)
else remini $sys(ircndata.ini) botgetopschans
}
if ($remtok($chnbot(%currentchan),$rb($2),32) != $null) writeini $sys(ircndata.ini) botgetopschans %currentchan $remtok($chnbot(%currentchan),$rb($2),32)
else remini $sys(ircndata.ini) botgetopschans %currentchan
if ($sub(%i,1) < $count(%botgetopchans,$chr(44))) goto startrb
}
set %popnck $readini $sys(ircndata.ini) Users $mask(%tmpadd,3)
if (%popnck) remini $sys(ircndata.ini) %popnck
if ($flags($rb($2))) remini $sys(ircndata.ini) $rb($2)
if ($readini $sys(ircndata.ini) Users $mask(%tmpadd,3)) remini $sys(ircndata.ini) Users $mask(%tmpadd,3)
if ($level($mask(%tmpadd,1)) == 80) .ruser 80 $maddress(%tmpadd)
elseif ($level($mask(%tmpadd,1)) == 90) .ruser 90 $maddress(%tmpadd)
unset %currentchan
if (%colnick == on) colupdt2 $2 %cn1
if ($form(userlist,rembot)) iecho $readini %formats userlist rembot
else iecho Removed $hc($2) from the user list.
aunset
set %dontecho on
halt
}
elseif (%addop == on) {
unset %addop
set %tmpadd $2 $+ ! $+ $3 $+ @ $+ $4
writeini $sys(ircndata.ini) $rb($2) hostmask $mask(%tmpadd,3)
writeini $sys(ircndata.ini) Users $mask(%tmpadd,3) $rb($2)
if (%addprot) writeini $sys(ircndata.ini) $rb($2) flags protected op
else writeini $sys(ircndata.ini) $rb($2) flags op
writeini $sys(ircndata.ini) $rb($2) opchannel %opchannel
if (%addprot) {
writeini $sys(ircndata.ini) $rb($2) protchannel %protchan
if (%opchannel == all) .quote notice $2 :You have been added to my user list and my protect on all channels.
else .quote notice $2 :You have been added to my user and protect list for channels matching $+ $replace(%opchannel,$chr(44),$chr(44) $+ $chr(32)) $+ .
}
else {
if (%opchannel == all) .quote notice $2 :You have been added to my user list on all channels.
else .quote notice $2 :You have been added to my user list for channels matching $+ $replace(%opchannel,$chr(44),$chr(44) $+ $chr(32)) $+ .
}
.quote notice $2 :[op,invite,ident,voice\invite friends,unban,info,help]
.quote notice $2 :Please set a password, type '/CTCP $me PASS <password>'.
if (%addprot) {
adduser $mask(%tmpadd,1) 70 $2
if (%colnick == on) colupdt2 $2 %cn8
if ($form(userlist,addprotop)) iecho $readini %formats userlist addprotop
else iecho Added $hc($2) to user and protect lists.
}
else {
adduser $mask(%tmpadd,1) 60 $2
if (%colnick == on) colupdt2 $2 %cn7
if ($form(userlist,addop)) iecho $readini %formats userlist addop
else iecho Added $hc($2) to user list.
}
aunset
set %dontecho on
halt
}
}
raw 314:* {
if (%rawcode.314 == off) { unset %rawcode.314 | halt }
if (%whowas == on) {
if ($form(whowas)) {
iiecho $readini %formats whowas top
if ($form(whowas,top2)) iiecho $readini %formats whowas top2
if ($form(whowas,top3)) iiecho $readini %formats whowas top3
iiecho $readini %formats whowas address
if ($form(whowas,address2)) iiecho $readini %formats whowas address2
iiecho $readini %formats whowas name
if ($form(whowas,name2)) iiecho $readini %formats whowas name2
}
else {
iiecho $pc( 15+-----14---15--14-) $+ $hc(1414-15-- -- --14- --) $+ $sc(1414-- --- -- --- - -)
iiecho 14| $+ $sc($2) $+ ( $+ $3 $+ $+ %opsign $+ $+ $4 $+ )
iiecho 14| $+ %c2 $+ 14nAME $+ %c3 $+ 15/ $6-
}
halt
}
}
alias iras return \host: $host \port: $port \server: $issa
raw 315:* {
if (%rawcode.315 == off) { unset %rawcode.315 | halt }
if (%cstats == on) {
set %cthops %hop1 $+ . $+ %hop4
echo %c $2
echo %c $2 . $+ $str(-,45) $+ .
echo %c $2 $chr(124) $center(43,Channel Stats for [ $2 ] ) $chr(124)
echo %c $2 $chr(124) $+ $str(-,45) $+ $chr(124)
echo %c $2 $chr(124) ops[ $+ $center(4,$hc($opnick($2,0))) $+ ] voice[ $+ $center(4,$hc($vnick($2,0))) $+ ] none[ $+ $center(4,$hc($nvnick($2,0))) $+ ] $str( ,6) $chr(124)
echo %c $2 $chr(124) aWAY[ $+ $center(4,$hc(%naway)) $+ ] ircop[ $+ $center(4,$hc(%niops)) $+ ] clones[ $+ $center(4,$hc(%ncls)) $+ ] $str( ,6) $chr(124)
echo %c $2 $chr(124) hops[ $+ $center(4,$hc($int(%cthops))) $+ ] from [ $+ $center(24,$sc($server)) $+ ] $chr(124)
echo %c $2 $chr(124) users[ $+ $center(4,$hc($nick($2,0))) $+ ] $str( ,31) $chr(124)
echo %c $2 ' $+ $str(-,45) $+ '
echo %c $2
unset %cstats %hop* %cthops %niops %naway %ncls %cladd %add* %cnum %chops
halt
}
elseif (%listclones == on) {
if ($readini $tp(temp.txt) clones host == $null) {
if ($form(errors,noclones)) iecho $readini %formats errors noclones
else iecho No clones were found on $hc($2) $+ . ( $+ $sc($nick($2,0)) users)
unset %listclones
halt
}
else {
window -a @Clones %cloc $tp(clone.pop) FixedSys 9
titlebar @Clones on %listcloneson
write -c $tp(clone.pop)
write $tp(clone.pop) exit $chr(123) set $chr(37) $+ cloc $chr(36) $+ swlc(@Clones) $chr(124) window -c @Clones $chr(125)
write $tp(clone.pop) -
aline @Clones . $+ $str(-,50) $+ .
aline @Clones $chr(124) Clone Information on $fix(27,$hc(%listcloneson)) $chr(124)
aline @Clones $chr(124) $+ $str(-,50) $+ $chr(124)
aline @Clones $chr(124)  Nick        Ident           Server $str( ,15) $+ $chr(124)
aline @Clones $chr(124) $+ $str(-,50) $+ $chr(124)
set %tmp0 $readini $tp(temp.txt) clones host
set %tmp01 $pls(1,$count(%tmp0,$chr(44)))
set %i 0
:start
inc %i
if (%i > %tmp01) {
unset %tmp* %listclones
aline @Clones ' $+ $str(-,50) $+ '
halt
}
set %tmp2 $token(%i,44,%tmp0)
set %tmp3 $readini $tp(temp.txt) %tmp2 nick
set %tmp4 $readini $tp(temp.txt) %tmp2 server
set %tmp5 $pls(1,$count(%tmp3,$chr(44)))
set %tmp6 $readini $tp(temp.txt) %tmp2 ident
aline @Clones $chr(124) Host: $fix(42,$hc(%tmp2)) $chr(124)
aline @Clones $chr(124) $+ $str(Â ,50) $+ $chr(124)
write $tp(clone.pop) %tmp2
set %j 0
:start2
inc %j
if (%j > %tmp5) {
if ($pls(%i,1) <= %tmp01) aline @Clones $chr(124) $+ $str(-,50) $+ $chr(124)
goto start
}
aline @Clones $chr(124) $fix(11,$clop($token(%j,44,%tmp3),$2)) $fix(10,$hc($token(%j,44,%tmp6))) $fix(25,$sc($token(%j,44,%tmp4))) $chr(124)
write $tp(clone.pop) . $+ $token(%j,44,%tmp3)
write $tp(clone.pop) ..who $chr(123) who $token(%j,44,%tmp3) $chr(125)
write $tp(clone.pop) ..ping $chr(123) ctcp $token(%j,44,%tmp3) ping $chr(125)
write $tp(clone.pop) ..whois $chr(123) whois $token(%j,44,%tmp3) $chr(125)
write $tp(clone.pop) ..finger $chr(123) finger $token(%j,44,%tmp3) $chr(125)
write $tp(clone.pop) ..version $chr(123) ctcp $token(%j,44,%tmp3) version $chr(125)
if ($me isop $2) {
write $tp(clone.pop) ..-
write $tp(clone.pop) ..control
write $tp(clone.pop) ...kb $chr(123) ban $2 $token(%j,44,%tmp3) 2 $chr(124) .quote kick $2 $token(%j,44,%tmp3) :clone from *!*@ $+ %tmp2 $chr(125)
write $tp(clone.pop) ...ban $chr(123) ban $2 $token(%j,44,%tmp3) 2 $chr(125)
write $tp(clone.pop) ...kick $chr(123) .quote kick $2 $token(%j,44,%tmp3) :clone from *!*@ $+ %tmp2 $chr(125)
write $tp(clone.pop) ...-
write $tp(clone.pop) ...warn $chr(123) .quote notice $token(%j,44,%tmp3) :Your host (*!*@ $+ %tmp2 $+ ) has been matched with another user on $+ $2 $+ . Please limit yourself to one user on this channel or face a possible kick/ban. $chr(125)
}
if (o isin $usermode) {
write $tp(clone.pop) ..ircop
write $tp(clone.pop) ...kill
write $tp(clone.pop) ....msg kill $chr(123) kill $token(%j,44,%tmp3) $str($chr(36),2) $+ ?="enter kill message:" $chr(125)
write $tp(clone.pop) ....clone kill $chr(123) kill $token(%j,44,%tmp3) clones $chr(125)
write $tp(clone.pop) ...kline
write $tp(clone.pop) ....kline *!*@*.domain $chr(123) kline $chr(36) $+ mask(*! $+ $gettok(%tmp6,%j,44) $+ @ $+ %tmp2 $+ $chr(44) $+ 4) $chr(125)
write $tp(clone.pop) ....kline *!*@host.domain $chr(123) kline *!*@ $+ %tmp2 $chr(125)
write $tp(clone.pop) ....kline *!ident@host.domain $chr(123) kline *! $+ $gettok(%tmp6,%j,44) $+ @ $+ %tmp2 $chr(125)
write $tp(clone.pop) ....kline *!ident@*.domain $chr(123) kline $chr(36) $+ mask(*! $+ $gettok(%tmp6,%j,44) $+ @ $+ %tmp2 $+ $chr(44) $+ 3) $chr(125)
}
goto start2
}
}
elseif (%nickfind) {
if (%nickfound == $null) {
if ($window(@DNS)) {
if ($form(errors,nonicks)) echo %c @DNS %h $readini %formats errors nonicks
else echo %c @DNS %h No users from $hc(%nickfind) $+ $inbrk($ac(%nfip)) on $2 $+ .
echo @DNS Â
}
else {
if ($form(errors,nonicks)) iecho $readini %formats errors nonicks
else iecho No users from $hc(%nickfind) $+ $inbrk($ac(%nfip)) on $2 $+ .
}
}
unset %nickfind %nickfound %nfchan %nfip
halt
}
elseif (%lircops == on) {
unset %lircops
if (%cn) aline @IrcOps ' $+ $str(-,45) $+ '
else {
if ($form(errors,no-opers)) iecho $readini %formats errors no-opers
else iecho No ircops were found on $hc($2) $+ . ( $+ $sc($nick($2,0)) users)
}
unset %cn
halt
}
elseif (%spoofchk) {
if (%spoofchk.nick) unset %spoofchk
else {
iecho Could not check %spoofchk.nick for a spoofed address.
unset %spoofchk*
}
halt
}
elseif (%spoofchk.nick) { halt }
elseif (%whochan == on) {
if ($form(who)) iiecho $readini %formats who end
else iiecho `end of $hc($2) /WHO LIST. $str(29,-)
unset %whochan
halt
}
else {
if ((%botgetops == on) && (%uial == on) && ($2 isin %joinedchans) && ($2 isin $botchans) && ($me ison $2)) {
.timer 1 4 get.bot.ops $2
set %joinedchans $remove(%joinedchans,$2)
if ($remove(%joinedchans,$chr(32)) == $null) unset %joinedchans
}
if ((%colnick == on) && ($me ison $2)) .timer 1 1 colnick $2
if (%uial == on) { unset %uial | halt }
}
}
391:* {
echo -a %pipe $+ 13[10 $left(3,$parm3) $left(3,$parm4) $+ 12 $parm5 $+ 10 $rtime lag12(10 $+ %lagtime $+ 12) 13] $+ %pipe
halt
}
324:* { iecho 12 -a [13m06odes12: $+ $replace($parm2,$chr(35),13#06) $+ 12]06 $replace($parm3,+,13+06) | halt }
353:* {
echo 12 -a [13n06ames12: $+ $replace($parm3,$chr(35),13#06) $+ 12] $+ %pipec $replace($parm4*,@,@)
echo 12 -s [13n06ames12: $+ $replace($parm3,$chr(35),13#06) $+ 12] $+ %pipec $replace($parm4*,@,@)
set %channeln $parm3
set %channel.names $add($parm4*,%channel.names)
set %channel.ops $add($count($parm4*,@),%channel.ops)
set %total $add(%total,$add($count($parm4*,$chr(32)),1))
set %channel.nops $add(%channel.nops,$sub($add($count($parm4*,$chr(32)),1),$count($parm4*,@,)))
%counter = 4
:loop
halt