Basic — File Browser
Basicv09272000 / Basicv09272000 / SYS / popups.ini
popups.ini — 73.17 KB — Download this file
[mpopup]
n0=&Basic:about
n1=-
n2=&Servers
n3=.&Specify...:{
n4= set %.server $inputbox(Server name or address to connect to..?"Connect)
n5= if (%.server) server $ifmatch
n6=}
n7=.-
n8=.$_pn(0,$i(servers,1)):server $i(servers,1)
n9=.$_pn(1,$i(servers,2)):server $i(servers,2)
n10=.$_pn(2,$i(servers,3)):server $i(servers,3)
n11=.$_pn(3,$i(servers,4)):server $i(servers,4)
n12=.$_pn(4,$i(servers,5)):server $i(servers,5)
n13=.$_pn(5,$i(servers,6)):server $i(servers,6)
n14=.$_pn(6,$i(servers,7)):server $i(servers,7)
n15=.$_pn(7,$i(servers,8)):server $i(servers,8)
n16=.$_pn(8,$i(servers,9)):server $i(servers,9)
n17=.$_pn(9,$i(servers,10)):server $i(servers,10)
n18=.$i(servers,11):server $i(servers,11)
n19=.$i(servers,12):server $i(servers,12)
n20=.$i(servers,13):server $i(servers,13)
n21=.$i(servers,14):server $i(servers,14)
n22=.$i(servers,15):server $i(servers,15)
n23=.$i(servers,16):server $i(servers,16)
n24=.$i(servers,17):server $i(servers,17)
n25=.$i(servers,18):server $i(servers,18)
n26=.$i(servers,19):server $i(servers,19)
n27=.$i(servers,20):server $i(servers,20)
n28=.$i(servers,21):server $i(servers,21)
n29=.$i(servers,22):server $i(servers,22)
n30=.$i(servers,23):server $i(servers,23)
n31=.$i(servers,24):server $i(servers,24)
n32=.$i(servers,25):server $i(servers,25)
n33=.$i(servers,26):server $i(servers,26)
n34=.$i(servers,27):server $i(servers,27)
n35=.$i(servers,28):server $i(servers,28)
n36=.$i(servers,29):server $i(servers,29)
n37=.$i(servers,30):server $i(servers,30)
n38=.-
n39=.S&ort by name:{
n40= var %x = 1
n41= window -lsh @ServerSortListWindow
n42= while ($i(servers,%x)) {
n43= aline @ServerSortListWindow $ifmatch
n44= inc %x
n45= }
n46= var %x = 1
n47= while ($line(@ServerSortListWindow,%x)) {
n48= _set servers %x $ifmatch
n49= inc %x
n50= }
n51= close -@ @ServerSortListWindow
n52=}
n53=.&Add
n54=..&Specify...:if ($inputbox(Enter a servername to add"Add a server)) addserver $ifmatch
n55=..$iif(($server),&Add [ $server ] ...) :addserver $server
n56=..&From servers.ini...:dialog -m spop spop
n57=.&Remove
n58=..$_pn(0,$i(servers,1)):unserv $i(servers,1)
n59=..$_pn(1,$i(servers,2)):unserv $i(servers,2)
n60=..$_pn(2,$i(servers,3)):unserv $i(servers,3)
n61=..$_pn(3,$i(servers,4)):unserv $i(servers,4)
n62=..$_pn(4,$i(servers,5)):unserv $i(servers,5)
n63=..$_pn(5,$i(servers,6)):unserv $i(servers,6)
n64=..$_pn(6,$i(servers,7)):unserv $i(servers,7)
n65=..$_pn(7,$i(servers,8)):unserv $i(servers,8)
n66=..$_pn(8,$i(servers,9)):unserv $i(servers,9)
n67=..$_pn(9,$i(servers,10)):unserv $i(servers,10)
n68=..$i(servers,11):unserv $i(servers,11)
n69=..$i(servers,12):unserv $i(servers,12)
n70=..$i(servers,13):unserv $i(servers,13)
n71=..$i(servers,14):unserv $i(servers,14)
n72=..$i(servers,15):unserv $i(servers,15)
n73=..$i(servers,16):unserv $i(servers,16)
n74=..$i(servers,17):unserv $i(servers,17)
n75=..$i(servers,18):unserv $i(servers,18)
n76=..$i(servers,19):unserv $i(servers,19)
n77=..$i(servers,20):unserv $i(servers,20)
n78=..$i(servers,21):unserv $i(servers,21)
n79=..$i(servers,22):unserv $i(servers,22)
n80=..$i(servers,23):unserv $i(servers,23)
n81=..$i(servers,24):unserv $i(servers,24)
n82=..$i(servers,25):unserv $i(servers,25)
n83=..$i(servers,26):unserv $i(servers,26)
n84=..$i(servers,27):unserv $i(servers,27)
n85=..$i(servers,28):unserv $i(servers,28)
n86=..$i(servers,29):unserv $i(servers,29)
n87=..$i(servers,30):unserv $i(servers,30)
n88=.-
n89=.&Clear list:{
n90= if ($_cnfrm(Are you sure you want to clear current server list?)) {
n91= _unset servers
n92= iecho Custom servers list has been cleared.
n93= }
n94=}
n95=&Channels
n96=.&Specify...:{
n97= if ($server) {
n98= if ($inputbox(Enter channelname to join"Join)) {
n99= var %c = $ifmatch
n100= var %t = Enter password for %c $+ "Channel password
n101= j %c $inputbox(%t)
n102= }
n103= }
n104= else s.err You must be connected to a server before you can join any channels...
n105=}
n106=.-
n107=.$_pn(0,$show.a(%MenuChanName.0)):if ($server) j %MenuChanName.0 $_ChanToMenu(0) | else s.err You must be connected to a server before you can join any channels...
n108=.$_pn(1,$show.a(%MenuChanName.1)):if ($server) j %MenuChanName.1 $_ChanToMenu(1) | else s.err You must be connected to a server before you can join any channels...
n109=.$_pn(2,$show.a(%MenuChanName.2)):if ($server) j %MenuChanName.2 $_ChanToMenu(2) | else s.err You must be connected to a server before you can join any channels...
n110=.$_pn(3,$show.a(%MenuChanName.3)):if ($server) j %MenuChanName.3 $_ChanToMenu(3) | else s.err You must be connected to a server before you can join any channels...
n111=.$_pn(4,$show.a(%MenuChanName.4)):if ($server) j %MenuChanName.4 $_ChanToMenu(4) | else s.err You must be connected to a server before you can join any channels...
n112=.$_pn(5,$show.a(%MenuChanName.5)):if ($server) j %MenuChanName.5 $_ChanToMenu(5) | else s.err You must be connected to a server before you can join any channels...
n113=.$_pn(6,$show.a(%MenuChanName.6)):if ($server) j %MenuChanName.6 $_ChanToMenu(6) | else s.err You must be connected to a server before you can join any channels...
n114=.$_pn(7,$show.a(%MenuChanName.7)):if ($server) j %MenuChanName.7 $_ChanToMenu(7) | else s.err You must be connected to a server before you can join any channels...
n115=.$_pn(8,$show.a(%MenuChanName.8)):if ($server) j %MenuChanName.8 $_ChanToMenu(8) | else s.err You must be connected to a server before you can join any channels...
n116=.$_pn(9,$show.a(%MenuChanName.9)):if ($server) j %MenuChanName.9 $_ChanToMenu(9) | else s.err You must be connected to a server before you can join any channels...
n117=.-
n118=.&Join all:{
n119= if ($server == $null) { s.err You must be connected to a server before you can join any channels... | halt }
n120= var %i = 0, %c
n121= while (%MenuChanName. [ $+ [ %i ] ]) {
n122= var %t = $ifmatch
n123= if ($_ChanToMenu(%i)) join %t $ifmatch
n124= else var %c = $addtok(%c,%t,44)
n125= inc %i
n126= }
n127= if (%c) join %c
n128=}
n129=.$iif(%MenuChanName.1,Sort by name):{
n130= var %list, %chan, %temp, %i = 0
n131= while (%MenuChanName. [ $+ [ %i ] ] ) {
n132= %chan = $ifmatch
n133= %list = %list %chan
n134= inc %i
n135= }
n136= %list = $sorttok(%list,32)
n137= var %i = 1, %n = 0
n138= while ($gettok(%list,%i,32)) {
n139= set % $+ MenuChanName. $+ %n $ifmatch
n140= inc %i
n141= inc %n
n142= }
n143=}
n144=.$iif(%MenuChanName.9 == $null,&Add a channel...):{
n145= :a
n146= %NewChannel = $inputbox(Enter channelname to add"Add channel)
n147= if (%NewChannel == $null) { unset %NewChannel | return }
n148= if ($left(%NewChannel,1) !isin &#) %NewChannel = $chr(35) $+ %NewChannel
n149= _ChanToMenu + %NewChannel $inputbox(Enter password if any"Password)
n150= unset %NewChannel
n151= if ((%MenuChanName.9 == $null) && ($_cnfrm(Add another channel?))) goto a
n152=}
n153=.&Edit autojoin...:lists
n154=.&Clear current list:if ($_cnfrm(Clear channels list?)) unset %MenuChanName.* %MenuChanPass.*
n155=.&Remove
n156=..$_pn(0,$show.a(%MenuChanName.0)):_ChanToMenu - 0
n157=..$_pn(1,$show.a(%MenuChanName.1)):_ChanToMenu - 1
n158=..$_pn(2,$show.a(%MenuChanName.2)):_ChanToMenu - 2
n159=..$_pn(3,$show.a(%MenuChanName.3)):_ChanToMenu - 3
n160=..$_pn(4,$show.a(%MenuChanName.4)):_ChanToMenu - 4
n161=..$_pn(5,$show.a(%MenuChanName.5)):_ChanToMenu - 5
n162=..$_pn(6,$show.a(%MenuChanName.6)):_ChanToMenu - 6
n163=..$_pn(7,$show.a(%MenuChanName.7)):_ChanToMenu - 7
n164=..$_pn(8,$show.a(%MenuChanName.8)):_ChanToMenu - 8
n165=..$_pn(9,$show.a(%MenuChanName.9)):_ChanToMenu - 9
n166=&Recent
n167=.&Servers
n168=..$_pn(1,$_recs(1)) $iif($_rport(1),$chr(9)) $_rport(1):server $_recs(1) $_rport(1)
n169=..$_pn(2,$_recs(2)) $iif($_rport(2),$chr(9)) $_rport(2):server $_recs(2) $_rport(2)
n170=..$_pn(3,$_recs(3)) $iif($_rport(3),$chr(9)) $_rport(3):server $_recs(3) $_rport(3)
n171=..$_pn(4,$_recs(4)) $iif($_rport(4),$chr(9)) $_rport(4):server $_recs(4) $_rport(4)
n172=..$_pn(5,$_recs(5)) $iif($_rport(5),$chr(9)) $_rport(5):server $_recs(5) $_rport(5)
n173=..$_pn(6,$_recs(6)) $iif($_rport(6),$chr(9)) $_rport(6):server $_recs(6) $_rport(6)
n174=..$_pn(7,$_recs(7)) $iif($_rport(7),$chr(9)) $_rport(7):server $_recs(7) $_rport(7)
n175=..$_pn(8,$_recs(8)) $iif($_rport(8),$chr(9)) $_rport(8):server $_recs(8) $_rport(8)
n176=..$_pn(9,$_recs(9)) $iif($_rport(9),$chr(9)) $_rport(9):server $_recs(9) $_rport(9)
n177=..-
n178=..&Clear list:if ($_cnfrm(Clear recent servers list?)) { _unset recent servers | _unset recent_ports }
n179=.&Channels
n180=..$_pn(1,$show.a($_recc(1))) $iif($i(recent, [ chankey. $+ [ $_recc(1) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(1) ] ] ):join $_recc(1) $i(recent, [ chankey. $+ [ $_recc(1) ] ] )
n181=..$_pn(2,$show.a($_recc(2))) $iif($i(recent, [ chankey. $+ [ $_recc(2) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(2) ] ] ):join $_recc(2) $i(recent, [ chankey. $+ [ $_recc(2) ] ] )
n182=..$_pn(3,$show.a($_recc(3))) $iif($i(recent, [ chankey. $+ [ $_recc(3) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(3) ] ] ):join $_recc(3) $i(recent, [ chankey. $+ [ $_recc(3) ] ] )
n183=..$_pn(4,$show.a($_recc(4))) $iif($i(recent, [ chankey. $+ [ $_recc(4) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(4) ] ] ):join $_recc(4) $i(recent, [ chankey. $+ [ $_recc(4) ] ] )
n184=..$_pn(5,$show.a($_recc(5))) $iif($i(recent, [ chankey. $+ [ $_recc(5) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(5) ] ] ):join $_recc(5) $i(recent, [ chankey. $+ [ $_recc(5) ] ] )
n185=..$_pn(6,$show.a($_recc(6))) $iif($i(recent, [ chankey. $+ [ $_recc(6) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(6) ] ] ):join $_recc(6) $i(recent, [ chankey. $+ [ $_recc(6) ] ] )
n186=..$_pn(7,$show.a($_recc(7))) $iif($i(recent, [ chankey. $+ [ $_recc(7) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(7) ] ] ):join $_recc(7) $i(recent, [ chankey. $+ [ $_recc(7) ] ] )
n187=..$_pn(8,$show.a($_recc(8))) $iif($i(recent, [ chankey. $+ [ $_recc(8) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(8) ] ] ):join $_recc(8) $i(recent, [ chankey. $+ [ $_recc(8) ] ] )
n188=..$_pn(9,$show.a($_recc(9))) $iif($i(recent, [ chankey. $+ [ $_recc(9) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(9) ] ] ):join $_recc(9) $i(recent, [ chankey. $+ [ $_recc(9) ] ] )
n189=..-
n190=..&Join all:{
n191= if ($server == $null) { s.err You must be connected to a server before you can join any channels... | halt }
n192= var %all = $i(recent,channels), %i = 1
n193= while ($_recc(%i)) {
n194= join $ifmatch $i(recent,$bind(chankey.,$ifmatch))
n195= inc %i
n196= }
n197=}
n198=..&Clear current list:{
n199= if ($_cnfrm(Clear recent channels list?)) {
n200= var %i = 1
n201= while ($_recc(%i)) {
n202= var %c = chankey. $+ $ifmatch
n203= if ($i(recent,%c)) _unset recent %c
n204= inc %i
n205= }
n206= _unset recent channels
n207= }
n208=}
n209=.&Nicks
n210=..$_pn(1,$gettok(%RecentNicks,1,32)):nick $gettok(%RecentNicks,1,32)
n211=..$_pn(2,$gettok(%RecentNicks,2,32)):nick $gettok(%RecentNicks,2,32)
n212=..$_pn(3,$gettok(%RecentNicks,3,32)):nick $gettok(%RecentNicks,3,32)
n213=..$_pn(4,$gettok(%RecentNicks,4,32)):nick $gettok(%RecentNicks,4,32)
n214=..$_pn(5,$gettok(%RecentNicks,5,32)):nick $gettok(%RecentNicks,5,32)
n215=..$_pn(6,$gettok(%RecentNicks,6,32)):nick $gettok(%RecentNicks,6,32)
n216=..$_pn(7,$gettok(%RecentNicks,7,32)):nick $gettok(%RecentNicks,7,32)
n217=..$_pn(8,$gettok(%RecentNicks,8,32)):nick $gettok(%RecentNicks,8,32)
n218=..$_pn(9,$gettok(%RecentNicks,9,32)):nick $gettok(%RecentNicks,9,32)
n219=..-
n220=..$iif(%RecentNicks,&Clear list):if ($_cnfrm(Are you sure you want to clear recent nicks list?)) unset %RecentNicks
n221=;EOF
[lpopup]
n0=$iif($query($snick) == $null,Q&uery):query $1
n1=-
n2=&Info
n3=.Whoi&s:.disable #getidle | whois $1
n4=.W&hois++:.disable #getidle | whois $1 $1
n5=.&Ucentral:uwho $1 $1
n6=.&Idle time:getidle $1
n7=.-
n8=.&DNS:dns $1
n9=$pop.check(&Control)
n10=.&Kick
n11=..&Normal:{
n12= var %k = 1
n13= while ($snick(#,%k)) {
n14= var %p = $ifmatch
n15= kick # %p $_kickmsg(%p,#)
n16= inc %k
n17= }
n18=}
n19=..&Kickban:{
n20= var %b = 1
n21= while ($snick(#,%b)) {
n22= var %l = $ifmatch
n23= .raw KICK # %l : $+ $_kickmsg(%l,#) $+ $lf $+ MODE # -o+bb %l $address(%l,3) $address(%l,2)
n24= inc %b
n25= }
n26=}
n27=..&Give reason...:{
n28= set %.reason $inputbox(Reason for kick"Kick)
n29= var %x = 1
n30= while ($snick(#,%x)) {
n31= kick # $ifmatch %.reason
n32= inc %x
n33= }
n34=}
n35=..&Multiple kick:multi $1-
n36=.&Ban
n37=..Ba&nkick:{
n38= var %bk, %x = 1
n39= while ($snick(#,%x)) {
n40= %bk = $ifmatch
n41= .raw MODE # +b $address(%bk,3) $+ $lf $+ KICK # %bk : $+ $_kickmsg(%bk,#)
n42= inc %x
n43= }
n44=}
n45=..&Screwban:{
n46= var %s = 1
n47= while ($snick(#,%s)) {
n48= sb $ifmatch
n49= inc %s
n50= }
n51=}
n52=..&Normal:{
n53= var %s = 1
n54= while ($snick(#,%s)) {
n55= ban -u40 $ifmatch 2
n56= inc %s
n57= }
n58=}
n59=..Select &type
n60=...*!user@host.domain:ban # $1 0
n61=...*!*user@host.domain:ban # $1 1
n62=...*!*@host.domain:ban # $1 2
n63=...*!*user@*.domain:ban # $1 3
n64=...*!*@*.domain:ban # $1 4
n65=...nick!user@host.domain:ban # $1 5
n66=...nick!*user@host.domain:ban # $1 6
n67=...nick!*@host.domain:ban # $1 7
n68=...nick!*user@*.domain:ban # $1 8
n69=...nick!*@*.domain:ban # $1 9
n70=..-
n71=..&Tempban
n72=...30 secs:ban -u30 $$1 2
n73=...60 secs:ban -u60 $$1 2
n74=...30 mins:ban -u1800 $$1 2
n75=...-
n76=...&Specify...:{
n77= set %.sbt $inputbox(How many seconds to ban?"Timed ban)
n78= if (%.sbt) ban $bind(-u,%.sbt) $1 2
n79=}
n80=.&Filters
n81=..&Kick:fkn $1 3
n82=..Kick&ban:fkb $address($1,3) | fkb $address($1,2)
n83=..&Nick:fkn $1
n84=.&Voice
n85=..&Give voice:v $1-
n86=..D&evoice:dv $1-
n87=..Voi&ce-devoice:mode # +v-v $1 $1
n88=..&Four voice:mode # +vvvv $1 $1 $1 $1
n89=..Four devo&ice:mode # -vvvv $1 $1 $1 $1
n90=..&Leet voice:.raw mode # +v $1 $+ $lf $+ mode # +vv $1 $1 $+ $lf $+ mode # +vvv $1 $1 $1 $+ $lf $+ mode # +vvvv $1 $1 $1 $1 $+ $lf $+ mode # +vvv $1 $1 $1 $+ $lf $+ mode # +vv $1 $1 $+ $lf $+ mode # +v $1
n91=.&Op
n92=..Give &ops:op $1-
n93=..&Deop:dop $1-
n94=..O&p-deop:mode # +o-o $1 $1
n95=..&Four op:mode # +oooo $1 $1 $1 $1
n96=..Fou&r deop:mode # -oooo $1 $1 $1 $1
n97=..&Leet op:.raw mode # +o $1 $+ $lf $+ mode # +oo $1 $1 $+ $lf $+ mode # +ooo $1 $1 $1 $+ $lf $+ mode # +oooo $1 $1 $1 $1 $+ $lf $+ mode # +ooo $1 $1 $1 $+ $lf $+ mode # +oo $1 $1 $+ $lf $+ mode # +o $1
n98=-
n99=C&TCP
n100=.&Ping:var %i = 1 | while ($gettok($1-,%i,32)) { ctcp $ifmatch ping | inc %i }
n101=.&Version:var %i = 1 | while ($gettok($1-,%i,32)) { ctcp $ifmatch version | inc %i }
n102=.&Finger:var %i = 1 | while ($gettok($1-,%i,32)) { ctcp $ifmatch finger | inc %i }
n103=.&Time:var %i = 1 | while ($gettok($1-,%i,32)) { ctcp $ifmatch time | inc %i }
n104=.&Userinfo:var %i = 1 | while ($gettok($1-,%i,32)) { ctcp $ifmatch userinfo | inc %i }
n105=.&Clientinfo:var %i = 1 | while ($gettok($1-,%i,32)) { ctcp $ifmatch clientinfo | inc %i }
n106=.P&age:var %i = 1 | while ($gettok($1-,%i,32)) { ctcp $ifmatch page | inc %i }
n107=.&Other...:{
n108= set %.c2send $inputbox(Enter CTCP request to send."Send CTCP)
n109= if (%.c2send) { var %i = 1 | while ($gettok($1-,%i,32)) { ctcp $ifmatch %.c2send | inc %i } }
n110=}
n111=.-
n112=.&XDCC
n113=..Request &list:var %i = 1 | while ($gettok($1-,%i,32)) { ctcp $ifmatch xdcc list | inc %i }
n114=..Request &help:var %i = 1 | while ($gettok($1-,%i,32)) { ctcp $ifmatch xdcc help | inc %i }
n115=..Get &file...:{
n116= set %.xnum $InputBox(Enter pack number to get (example, #1 or 1)"XDCC Get)
n117= if (%.xnum) {
n118= var %i = 1
n119= while ($gettok($1-,%i,32)) {
n120= %temp.xnick = $ifmatch
n121= ctcp %temp.xnick xdcc send %.xnum
n122= .adcc %temp.xnick
n123= inc %i
n124= }
n125= }
n126=}
n127=.U&serlist CTCP
n128=..&Op...:if ($inputbox(Enter your password"CTCP Op)) ctcp $1 OP # $ifmatch
n129=..&Voice...:if ($inputbox(Enter your password"CTCP Voice)) ctcp $1 VOICE # $ifmatch
n130=..&Invite...:{
n131= unset %.invite_channels
n132= set %.invite_channels $inputbox(Enter channels you want to be invited to"CTCP Invite)
n133= if (%.invite_channels) set %.invite_password $inputbox(Enter your password"CTCP Invite)
n134= if ((%.invite_channels) && (%.invite_password)) ctcp $1 INVITE %.invite_channels %.invite_password
n135=}
n136=..I&dent...:if ($inputbox(Enter your password"CTCP Ident)) ctcp $1 IDENT $ifmatch
n137=..&Set Pass...:if ($inputbox(Enter preferred password"CTCP Pass)) ctcp $1 PASS $ifmatch
n138=..&Change Pass...:{
n139= unset %.passold
n140= set %.passold $inputbox(Enter your old password"Change Pass)
n141= if (%.passold) set %.passnew $inputbox(Enter your new password"Change Pass)
n142= if ((%.passold) && (%.passnew)) ctcp $1 PASS %.passold %.passnew
n143=}
n144=..&Help...:ctcp $1 HELP
n145=&DCC
n146=.&Send
n147=..Se&lect...:dcc send $1
n148=..-
n149=..$_pn(1,$_recf(1)):dcc send $1 $_recf(1)
n150=..$_pn(2,$_recf(2)):dcc send $1 $_recf(2)
n151=..$_pn(3,$_recf(3)):dcc send $1 $_recf(3)
n152=..$_pn(4,$_recf(4)):dcc send $1 $_recf(4)
n153=..$_pn(5,$_recf(5)):dcc send $1 $_recf(5)
n154=..$_pn(6,$_recf(6)):dcc send $1 $_recf(6)
n155=..$_pn(7,$_recf(7)):dcc send $1 $_recf(7)
n156=..$_pn(8,$_recf(8)):dcc send $1 $_recf(8)
n157=..$_pn(9,$_recf(9)):dcc send $1 $_recf(9)
n158=..-
n159=..&Clear list:if ($_cnfrm(Clear list of recently sent files?)) _unset recent sentfiles
n160=..Remove &obsolete:{
n161= var %.flist = $i(recent,sentfiles), %rf = 1
n162= while ($gettok($i(recent,sentfiles),%rf,32)) {
n163= var %.tmpsf = $ifmatch
n164= if ($_isfile(%.tmpsf) == $null) var %.flist = $remtok(%.flist,%.tmpsf,1,32)
n165= inc %rf
n166= }
n167= if (%.flist) _set recent sentfiles %.flist
n168= else _unset recent sentfiles
n169=}
n170=.&mSend
n171=..&Normal...:msend $1
n172=..&Delayed...:msend -d $1
n173=.&Chat:dcc chat $1
n174=.-
n175=.&Allow:adcc $1
n176=-
n177=&Notify
n178=.$iif($snick(#,1) !isnotify, &Add [ $$snick(#,1) ] to list):notify $1
n179=.$iif($snick(#,1) isnotify, &Remove [ $$snick(#,1) ] from list):notify -r $1
n180=.-
n181=.&View notify list:notify -s
n182=User&list
n183=.$iif($level($_ulist($_sadd)) != 40,Add to &userlist)
n184=..$snicks(#,1) $+ !*@*:_pauser $1 $1 $+ !*@*
n185=..$mask($_sadd,2):_pauser $1 $mask($_sadd,2)
n186=..$mask($_sadd,3):_pauser $1 $mask($_sadd,3)
n187=..$mask($_sadd,4):_pauser $1 $mask($_sadd,4)
n188=..$mask($_sadd,10):_pauser $1 $mask($_sadd,10)
n189=..$mask($_sadd,11):_pauser $1 $mask($_sadd,11)
n190=..$mask($_sadd,12):_pauser $1 $mask($_sadd,12)
n191=..-
n192=..Manual entry...:if ($inputbox(Enter address to be added to the userlist for [ $1 ] "Manual entry)) _pauser $1 $ifmatch
n193=.$iif($level($_ulist($address($snicks(#,1),5))) != 5,Add to &shitlist)
n194=..$snicks(#,1) $+ !*@*:userlist +b $1 $+ !*@*
n195=..$mask($_sadd,2):userlist +b $mask($_sadd,2)
n196=..$mask($_sadd,3):userlist +b $mask($_sadd,3)
n197=..$mask($_sadd,4):userlist +b $mask($_sadd,4)
n198=..$mask($_sadd,10):userlist +b $mask($_sadd,10)
n199=..$mask($_sadd,11):userlist +b $mask($_sadd,11)
n200=..$mask($_sadd,12):userlist +b $mask($_sadd,12)
n201=..-
n202=..Manual entry...:{
n203= unset %.lame_mirc
n204= set %.lame_mirc $inputbox(Enter address to be shitlisted"Shitlist)
n205= if (%.lame_mirc) userlist +b %.lame_mirc
n206=}
n207=.$iif($_readini(botlist.ini,$snicks(#,1),channels) == $null,Add as &eggdrop bot)
n208=..$snicks(#,1) $+ !*@*:addbot² $1 $1 $+ !*@*
n209=..$mask($_sadd,2):addbot² $1 $mask($_sadd,2)
n210=..$mask($_sadd,3):addbot² $1 $mask($_sadd,3)
n211=..$mask($_sadd,4):addbot² $1 $mask($_sadd,4)
n212=..$mask($_sadd,10):addbot² $1 $mask($_sadd,10)
n213=..$mask($_sadd,11):addbot² $1 $mask($_sadd,11)
n214=..$mask($_sadd,12):addbot² $1 $mask($_sadd,12)
n215=..-
n216=..Manual entry...:{
n217= unset %_tmpbotmask
n218= set %_tmpbotmask $inputbox(Enter hostmask to use"Eggdrop)
n219= if (%_tmpbotmask) addbot² $1 %_tmpbotmask
n220=}
n221=.Add to &botlist
n222=..$snicks(#,1) $+ !*@*:addbot³ $1 $1 $+ !*@*
n223=..$mask($_sadd,2):addbot³ $1 $mask($_sadd,2)
n224=..$mask($_sadd,3):addbot³ $1 $mask($_sadd,3)
n225=..$mask($_sadd,4):addbot³ $1 $mask($_sadd,4)
n226=..$mask($_sadd,10):addbot³ $1 $mask($_sadd,10)
n227=..$mask($_sadd,11):addbot³ $1 $mask($_sadd,11)
n228=..$mask($_sadd,12):addbot³ $1 $mask($_sadd,12)
n229=..-
n230=..Manual entry...:{
n231= unset %_tmpbotmask
n232= set %_tmpbotmask $inputbox(Enter hostmask to use"Botlist)
n233= if (%_tmpbotmask) addbot³ $1 %_tmpbotmask
n234=}
n235=.-
n236=.$iif($level($_ulist($address($snicks(#,1),5))) == 40,R&emove from userlist):.ruser $_ulist($address($1,5))
n237=.$iif($level($_ulist($address($snicks(#,1),5))) == 5,Re&move from shitlist):.ruser $banned($address($1,5))
n238=.$iif($_readini(botlist.ini,$snicks(#,1),channels),Remove from eggdrop bot&list):unbot $1 $_readini(botlist.ini,$1,channels)
n239=-
n240=&Ignore
n241=.&Temporary
n242=..&Everything:.ignore -u $+ $i(ctcps,ignore_time) $1 $i(ctcps,ignore_type) | close -cfgms $1 | iecho Ignoring everything from ( $+ $address($1,$i(ctcps,ignore_type)) $+ )
n243=..C&TCP's:.ignore -tu $+ $i(ctcps,ignore_time) $1 $i(ctcps,ignore_type) | close -cfgms $1 | iecho Ignoring all CTCPs ( $+ $address($1,$i(ctcps,ignore_type)) $+ )
n244=..&Notices:.ignore -nu $+ $i(ctcps,ignore_time) $1 $i(ctcps,ignore_type) | close -cfgms $1 | iecho Ignoring notices ( $+ $address($1,$i(ctcps,ignore_type)) $+ )
n245=..&Invites:.ignore -iu $+ $i(ctcps,ignore_time) $1 $i(ctcps,ignore_type) | close -cfgms $1 | iecho Ignoring invites from ( $+ $address($1,$i(ctcps,ignore_type)) $+ )
n246=..&Messages:.ignore -pu $+ $i(ctcps,ignore_time) $1 $i(ctcps,ignore_type) | close -cfgms $1 | iecho Ignoring messages from ( $+ $address($1,$i(ctcps,ignore_type)) $+ )
n247=..&Channel:.ignore -cu $+ $i(ctcps,ignore_time) $1 $i(ctcps,ignore_type) | close -cfgms $1 | iecho Ignoring channel text from ( $+ $address($1,$i(ctcps,ignore_type)) $+ )
n248=.&Permanent
n249=..&Everything:.ignore $1 $i(ctcps,ignore_type) | close -cfgms $1 | iecho Ignoring everything from ( $+ $iif($address($1,$i(ctcps,ignore_type)),$address($1,$i(ctcps,ignore_type)),$1) $+ ) [PERMANENT]
n250=..C&TCP's:.ignore -t $1 $i(ctcps,ignore_type) | close -cfgms $1 | iecho Ignoring CTCPs from ( $+ $iif($address($1,$i(ctcps,ignore_type)),$address($1,$i(ctcps,ignore_type)),$1) $+ ) [PERMANENT]
n251=..&Notices:.ignore -n $1 $i(ctcps,ignore_type) | close -cfgms $1 | iecho Ignoring Notices from ( $+ $iif($address($1,$i(ctcps,ignore_type)),$address($1,$i(ctcps,ignore_type)),$1) $+ ) [PERMANENT]
n252=..&Invites:.ignore -i $1 $i(ctcps,ignore_type) | close -cfgms $1 | iecho Ignoring Invites from ( $+ $iif($address($1,$i(ctcps,ignore_type)),$address($1,$i(ctcps,ignore_type)),$1) $+ ) [PERMANENT]
n253=..&Messages:.ignore -p $1 $i(ctcps,ignore_type) | close -cfgms $1 | iecho Ignoring Messages from ( $+ $iif($address($1,$i(ctcps,ignore_type)),$address($1,$i(ctcps,ignore_type)),$1) $+ ) [PERMANENT]
n254=..&Channel:.ignore -c $1 $i(ctcps,ignore_type) | close -cfgms $1 | iecho Ignoring Channel text from ( $+ $iif($address($1,$i(ctcps,ignore_type)),$address($1,$i(ctcps,ignore_type)),$1) $+ ) [PERMANENT]
n255=.-
n256=.&Clear list:if ($_cnfrm(Remove all permanent ignored addresses?)) { unig | iecho Ignore list is now cleared }
n257=;EOF
[cpopup]
n0=&Setup...:chanset
n1=-
n2=&Join
n3=.&Specify...:if ($inputbox(Enter channelname to join and password. Example: #zoinks zoinkschankey"Join channel)) j $ifmatch
n4=.-
n5=.$_pn(0,$show.a(%MenuChanName.0)):j %MenuChanName.0 $_ChanToMenu(0)
n6=.$_pn(1,$show.a(%MenuChanName.1)):j %MenuChanName.1 $_ChanToMenu(1)
n7=.$_pn(2,$show.a(%MenuChanName.2)):j %MenuChanName.2 $_ChanToMenu(2)
n8=.$_pn(3,$show.a(%MenuChanName.3)):j %MenuChanName.3 $_ChanToMenu(3)
n9=.$_pn(4,$show.a(%MenuChanName.4)):j %MenuChanName.4 $_ChanToMenu(4)
n10=.$_pn(5,$show.a(%MenuChanName.5)):j %MenuChanName.5 $_ChanToMenu(5)
n11=.$_pn(6,$show.a(%MenuChanName.6)):j %MenuChanName.6 $_ChanToMenu(6)
n12=.$_pn(7,$show.a(%MenuChanName.7)):j %MenuChanName.7 $_ChanToMenu(7)
n13=.$_pn(8,$show.a(%MenuChanName.8)):j %MenuChanName.8 $_ChanToMenu(8)
n14=.$_pn(9,$show.a(%MenuChanName.9)):j %MenuChanName.9 $_ChanToMenu(9)
n15=.-
n16=.&Join all:{
n17= var %i = 0, %c
n18= while ($__var(MenuChanName.,%i)) {
n19= var %t = $ifmatch
n20= if ($_ChanToMenu(%i)) join %t $ifmatch
n21= else var %c = $addtok(%c,%t,44)
n22= inc %i
n23= }
n24= if (%c) join %c
n25=}
n26=.$iif(%MenuChanName.1,Sort by name):{
n27= var %list, %chan, %temp, %i = 0
n28= while (%MenuChanName. [ $+ [ %i ] ] ) {
n29= %chan = $ifmatch
n30= %list = %list %chan
n31= inc %i
n32= }
n33= %list = $sorttok(%list,32)
n34= var %i = 1, %n = 0
n35= while ($gettok(%list,%i,32)) {
n36= set % $+ MenuChanName. $+ %n $ifmatch
n37= inc %i
n38= inc %n
n39= }
n40=}
n41=.&Add a channel...:{
n42= %NewChannel = $inputbox(Enter channelname to add"Add channel)
n43= if (%NewChannel) {
n44= if ($left(%NewChannel,1) !isin &#) %NewChannel = $chr(35) $+ %NewChannel
n45= _ChanToMenu + %NewChannel $inputbox(Enter password if any"Add channel)
n46= }
n47= unset %NewChannel
n48=}
n49=.Add # to list...:{
n50= if ($chan(#).key) {
n51= %key1 = $ifmatch
n52= %key2 = ( $+ %key1 $+ )
n53= if ($_cnfrm(Use current key [ %key2 ] as default channel key?) == $false) %key1 = $inputbox(Enter password to use, cancel for none"Password)
n54= }
n55= else %key1 = $inputbox(Enter password to use, cancel for none"Password)
n56= _ChanToMenu + # %key1
n57= unset %key?
n58=}
n59=.&Clear current list:if ($_cnfrm(Clear channels list?)) unset %MenuChanName.* %MenuChanPass.*
n60=.Re&move
n61=..$_pn(0,$show.a(%MenuChanName.0)):_ChanToMenu - 0
n62=..$_pn(1,$show.a(%MenuChanName.1)):_ChanToMenu - 1
n63=..$_pn(2,$show.a(%MenuChanName.2)):_ChanToMenu - 2
n64=..$_pn(3,$show.a(%MenuChanName.3)):_ChanToMenu - 3
n65=..$_pn(4,$show.a(%MenuChanName.4)):_ChanToMenu - 4
n66=..$_pn(5,$show.a(%MenuChanName.5)):_ChanToMenu - 5
n67=..$_pn(6,$show.a(%MenuChanName.6)):_ChanToMenu - 6
n68=..$_pn(7,$show.a(%MenuChanName.7)):_ChanToMenu - 7
n69=..$_pn(8,$show.a(%MenuChanName.8)):_ChanToMenu - 8
n70=..$_pn(9,$show.a(%MenuChanName.9)):_ChanToMenu - 9
n71=&Part
n72=.&Leave
n73=..$_pn(1,$chan(1)):part $chan(1)
n74=..$_pn(2,$chan(2)):part $chan(2)
n75=..$_pn(3,$chan(3)):part $chan(3)
n76=..$_pn(4,$chan(4)):part $chan(4)
n77=..$_pn(5,$chan(5)):part $chan(5)
n78=..$_pn(6,$chan(6)):part $chan(6)
n79=..$_pn(7,$chan(7)):part $chan(7)
n80=..$_pn(8,$chan(8)):part $chan(8)
n81=..$_pn(9,$chan(9)):part $chan(9)
n82=..$_pn(0,$chan(10)):part $chan(10)
n83=..-
n84=..Lea&ve all:partall
n85=.&Cycle
n86=..$_pn(1,$chan(1)):cycle $chan(1)
n87=..$_pn(2,$chan(2)):cycle $chan(2)
n88=..$_pn(3,$chan(3)):cycle $chan(3)
n89=..$_pn(4,$chan(4)):cycle $chan(4)
n90=..$_pn(5,$chan(5)):cycle $chan(5)
n91=..$_pn(6,$chan(6)):cycle $chan(6)
n92=..$_pn(7,$chan(7)):cycle $chan(7)
n93=..$_pn(8,$chan(8)):cycle $chan(8)
n94=..$_pn(9,$chan(9)):cycle $chan(9)
n95=..$_pn(0,$chan(10)):cycle $chan(10)
n96=..-
n97=..C&ycle all:cycall
n98=.&Rejoin
n99=..$_pn(1,$chan(1)):rejoin $chan(1)
n100=..$_pn(2,$chan(2)):rejoin $chan(2)
n101=..$_pn(3,$chan(3)):rejoin $chan(3)
n102=..$_pn(4,$chan(4)):rejoin $chan(4)
n103=..$_pn(5,$chan(5)):rejoin $chan(5)
n104=..$_pn(6,$chan(6)):rejoin $chan(6)
n105=..$_pn(7,$chan(7)):rejoin $chan(7)
n106=..$_pn(8,$chan(8)):rejoin $chan(8)
n107=..$_pn(9,$chan(9)):rejoin $chan(9)
n108=..$_pn(0,$chan(10)):rejoin $chan(10)
n109=..-
n110=..Re&join all:{
n111= var %i = 1
n112= while ($chan(%i)) {
n113= rejoin $ifmatch
n114= inc %i
n115= }
n116=}
n117=-
n118=$pop.check(M&ode)
n119=.$iif(#,#,&Current)
n120=..&Specify...:set %.tmpmodes Enter modes (eg. +tn)"Set mode | if ($inputbox(%.tmpmodes)) mode # $ifmatch
n121=..-
n122=..Control &Topic $chr(9) $_chkmode(t,#):mode # $iif(t isin $chan(#).mode,-t,+t)
n123=..&Invite Only $chr(9) $_chkmode(i,#):mode # $iif(i isin $chan(#).mode,-i,+i)
n124=..&Limit Users $chr(9) $_chkmode(l,#)
n125=...&Change Limit:if ($inputbox(Specify limit number"Channel limit)) mode # +l $ifmatch
n126=...-
n127=...&Disable:mode # -l
n128=..&Moderate $chr(9) $_chkmode(m,#):mode # $iif(m isin $chan(#).mode,-m,+m)
n129=..&No Ext. Msg's $chr(9) $_chkmode(n,#):mode # $iif(n isin $chan(#).mode,-n,+n)
n130=..&Private $chr(9) $_chkmode(p,#):mode # $iif(p isin $chan(#).mode,-p,+p)
n131=..&Secret $chr(9) $_chkmode(s,#):mode # $iif(s isin $chan(#).mode,-s,+s)
n132=..Set &Key $chr(9) $_chkmode(k,#):{
n133= if (k isin $chan(#).mode) mode # -k $chan(#).key
n134= else if ($inputbox(Enter channel key or password to use"Channel key)) mode # +k $ifmatch
n135=}
n136=.-
n137=.&Global
n138=..&Specify...:var %.a = Enter modes (eg. +tn)"Global modes | if ($inputbox(%.a)) amode $ifmatch
n139=..-
n140=..Control &Topic
n141=...&On:amode +t
n142=...-
n143=...O&ff:amode -t
n144=..&Invite Only
n145=...&On:amode +i
n146=...-
n147=...O&ff:amode -i
n148=..&Limit Users
n149=...&On:if ($inputbox(Specify limit number)) amode +l $ifmatch
n150=...-
n151=...O&ff:amode -l
n152=..&Moderated
n153=...&On:amode +m
n154=...-
n155=...O&ff:amode -m
n156=..&No Ext. Msg's
n157=...&On:amode +n
n158=...-
n159=...O&ff:amode -n
n160=..&Private
n161=...&On:amode +p
n162=...-
n163=...O&ff:amode -p
n164=..&Secret
n165=...&On:g +s
n166=...-
n167=...O&ff:g -s
n168=..Set &Key
n169=...&On:if ($inputbox(Enter channel key to use)) amode +k $ifmatch
n170=...-
n171=...O&ff:{
n172= unset %all_chan
n173= var %c = 1
n174= while ($chan(%c)) {
n175= if ($me isop $chan(%c)) && ($_chkmode(k,$chan(%c)) == *) set %all_chan %all_chan $+ MODE $chan(%c) -k $chan($chan(%c)).key $+ $lf
n176= inc %c
n177= }
n178= if (%all_chan) .raw %all_chan
n179= unset %all_chan
n180=}
n181=C&TCP
n182=.&Ping:ping #
n183=.&Finger:ctcp # finger
n184=.&Version:ver
n185=.&Time:ctcp # time
n186=.&Userinfo:ctcp # userinfo
n187=.&Clientinfo:ctcp # clientinfo
n188=.-
n189=.&Other...:if ($inputbox(Enter a CTCP request to send to [ # ] "Send CTCP)) ctcp # $ifmatch
n190=&Sound
n191=.&Local
n192=..&MP3/MP2...:splay $$dir="Select file to play" [ [ $mp3dir ] $+ *.mp? ]
n193=..&Wav/Mid...:splay $$dir="Select file to play" $wavedir*.wav;*.mid
n194=.&Channel
n195=..&MP3/MP2...:sound $$dir="Select file to play to channel" [ [ $mp3dir ] $+ *.mp? ]
n196=..&Wav/Mid...:sound $$dir="Select file to play to channel" $wavedir*.wav;*.mid
n197=.-
n198=.&MPX
n199=..&Queue...:mpx -q
n200=..&Play now...:mpx
n201=-
n202=&Away
n203=.&Setup...:_set main lastset 3 | setup
n204=.-
n205=.$iif($away == $false,&Away)
n206=..&Silent:%silent_away = TRUE | away $inputbox(Enter reason, leave empty for default"Set away)
n207=..&Verbose:away $inputbox(Enter reason, leave empty for default"Set away)
n208=..&Default:away $inputbox(Enter reason, leave empty for default"Set away)
n209=.$iif($away,&Back)
n210=..&Silent:unset %silent_away | back
n211=..&Verbose:%silent_away = TRUE | back
n212=..&Default:back
n213=.$iif($_isfile($logdiraway.log),&Read away messages...):readlog
n214=-
n215=S&cans
n216=.&Who List:echo # $pre Retrieving WHO info for # | who #
n217=.&Names:sc
n218=.&IRC Ops:ircop
n219=.&Shitlist:checkbans
n220=.$iif($me isop #,&Version filter...):if ($inputbox(Kick all non-ops who have the following in their version reply..."Version kick)) vk # $ifmatch
n221=.$iif($me !isop #,&Banlist):
n222=..&Echo:banstat
n223=..&Window:{
n224= if (($__var(ibl.,#) == on) || ($chan(#).banlist == $false)) { iecho Internal banlist for # is being updated.. please wait. | halt }
n225= window -klb -t25,60 @Ban Stats $winpos(@Ban Stats,164 119 464 284) @Ban Stats $winfont(@Ban Stats)
n226= aline @Ban Stats Banmask $chr(9) Banned by $chr(9) Banned since
n227= aline @Ban Stats $x
n228= var %i = 1
n229= while ($banlist(#,%i)) {
n230= aline @Ban Stats $ifmatch $chr(9) $banlist(#,%i).by $chr(9) $_useless²($asctime($banlist(#,%i).date))
n231= inc %i
n232= }
n233= titlebar @Ban Stats for #
n234= window -b @Ban Stats
n235=}
n236=.$pop.check(&Banlist)
n237=..&View banlist
n238=...&Echo:banstat
n239=...&Window:{
n240= if (($__var(ibl.,#) == on) || ($ibl(#).list == $false)) { iecho Internal banlist for # is being updated.. please wait. | halt }
n241= window -klb -t25,60 @Ban Stats $winpos(@Ban Stats,164 119 464 284) @Ban Stats $winfont(@Ban Stats)
n242= aline @Ban Stats Banmask $chr(9) Banned by $chr(9) Banned since
n243= aline @Ban Stats $x
n244= var %i = 1
n245= while ($banlist(#,%i)) {
n246= aline @Ban Stats $ifmatch $chr(9) $banlist(#,%i).by $chr(9) $_useless²($asctime($banlist(#,%i).date))
n247= inc %i
n248= }
n249= titlebar @Ban Stats for #
n250= window -b @Ban Stats
n251=}
n252=..&Unban
n253=...$str(.,3) &your bans.:mbans #
n254=...$str(.,3) &all bans.:cbans #
n255=.&Match hosts
n256=..&Local
n257=...&Window...:var %n = Enter search string (eg. *.com)"Find users... | if ($inputbox(%n)) match $ifmatch
n258=...&Echo...:var %n = Enter search string (eg. *.com)"Find users... | if ($inputbox(%n)) match -e $ifmatch
n259=..&Public...:var %n = Enter search string (eg. *.com)"Find users... | if ($inputbox(%n)) match -s $ifmatch
n260=.&Clones
n261=..&Echo
n262=...$_pdisp(2):cc.echo
n263=...$_pdisp(3):cc.echo 3
n264=...$_pdisp(4):cc.echo 4
n265=...$_pdisp(10):cc.echo 10
n266=...$_pdisp(11):cc.echo 11
n267=...$_pdisp(12):cc.echo 12
n268=...-
n269=...&Specify mask type...:if ($inputbox(Enter a mask type - allowed numbers from 0 to 19"Clone scan)) cc.echo $ifmatch
n270=..&Window
n271=...$_pdisp(2):cc.win
n272=...$_pdisp(3):cc.win 3
n273=...$_pdisp(4):cc.win 4
n274=...$_pdisp(10):cc.win 10
n275=...$_pdisp(11):cc.win 11
n276=...$_pdisp(12):cc.win 12
n277=...-
n278=...&Specify mask type...:if ($inputbox(Enter a mask type - allowed numbers from 0 to 19"Clone scan)) cc.win $ifmatch
n279=..-
n280=..$iif($me isop #,&Scan and kick)
n281=...$_pdisp(2):clonekick
n282=...$_pdisp(3):clonekick 3
n283=...$_pdisp(4):clonekick 4
n284=...$_pdisp(10):clonekick 10
n285=...$_pdisp(11):clonekick 11
n286=...$_pdisp(12):clonekick 12
n287=...-
n288=...&Specify mask type...:if ($inputbox(Enter a mask type - allowed numbers from 0 to 19"Clone scan and kick)) clonekick $ifmatch
n289=$pop.check(&Mass)
n290=.&Voice:mv
n291=.D&evoice:mdv
n292=.&Op:mop
n293=.&Deop:mdop
n294=.-
n295=.Kick&ban
n296=..&Everyone:mkb -a
n297=..-
n298=..Non-op&s:mkb -o
n299=..&Non-voiced:mkb -v
n300=..&Voiced:mkb +v
n301=..&Operators:mkb +o
n302=.&Kick
n303=..&Everyone:mk
n304=..-
n305=..Non-op&s:mlk
n306=..&Non-voiced:mknv
n307=..&Voiced:mkv
n308=..&Operators:mok
n309=;EOF
[qpopup]
n0=$iif(($query($active) == $null) && ($server),&Query):query $1
n1=-
n2=$iif(($active != Status Window) && ($active !ischan),&Close):{
n3= if ($active == Message Window) dqwindow hide
n4= elseif ($isnotifywin) notify -h
n5= elseif ($active == $query($active)) {
n6= closemsg $1
n7= unset %showcomchan. [ $+ [ $1 ] ]
n8= }
n9= elseif (=* iswm $active) close -c $1
n10=}
n11=$iif(($query($active)) || (=* iswm $active),&Logs)
n12=.&View related logs...:{
n13= set %.NickLog * $+ $replace($1,|,_,^,_,`,_,\,_) $+ *
n14= dialog -m logf logf
n15=}
n16=.&Delete current log:{
n17= if ($nopath($query($1).logfile)) var %log = $ifmatch
n18= else var %log = $replace($1,|,_,^,_,`,_,\,_) $+ _ $+ $date(yyyymmdd) $+ .log
n19= if ($active == Message Window) dqwindow hide
n20= elseif ($isnotifywin) notify -h
n21= elseif ($active == $query($active)) closemsg $1
n22= elseif (=* iswm $active) close -c $1
n23= .timer 1 1 if ( $!_isfile( [ $logdir $+ [ %log ] ] ) ) .remove $!ifmatch
n24=}
n25=.Delete and &Ignore:{
n26= if ($nopath($query($1).logfile)) var %log = $ifmatch
n27= else var %log = $replace($1,|,_,^,_,`,_,\,_) $+ _ $+ $date(yyyymmdd) $+ .log
n28= if ($active == Message Window) dqwindow hide
n29= elseif ($isnotifywin) notify -h
n30= elseif ($active == $query($active)) {
n31= closemsg $1
n32= if ($server) .timer 1 0 ignore -pu60 $1 3
n33= }
n34= elseif (=* iswm $active) {
n35= close -c $1
n36= if ($server) .timer 1 0 ignore -pu60 $1 3
n37= }
n38= .timer 1 1 if ( $!_isfile( [ $logdir $+ [ %log ] ] ) ) .remove $!ifmatch
n39=}
n40=-
n41=Inf&o
n42=.&Whois:whois $iif($isnotifywin,$snotify,$1)
n43=.W&hois++:if ($isnotifywin) whois $snotify $snotify | else whois $1 $1
n44=.&Ucentral:if ($isnotifywin) uwho $snotify | uwho $1 $1
n45=.&Idle time:getidle $iif($isnotifywin,$snotify,$1)
n46=.-
n47=.&DNS:dns $iif($isnotifywin,$snotify,$1)
n48=-
n49=C&TCP
n50=.&Ping:ctcp $iif($isnotifywin,$snotify,$1) ping
n51=.&Version:ctcp $iif($isnotifywin,$snotify,$1) version
n52=.&Finger:ctcp $iif($isnotifywin,$snotify,$1) finger
n53=.&Time:ctcp $iif($isnotifywin,$snotify,$1) time
n54=.&Userinfo:ctcp $iif($isnotifywin,$snotify,$1) userinfo
n55=.&Clientinfo:ctcp $iif($isnotifywin,$snotify,$1) clientinfo
n56=.P&age:ctcp $iif($isnotifywin,$snotify,$1) page
n57=.&Other...:{
n58= var %n = $iif($isnotifywin,$snotify,$1)
n59= if ($inputbox(Enter CTCP request to send"Send CTCP)) ctcp %n $ifmatch
n60=}
n61=.-
n62=.&XDCC
n63=..Request &list:ctcp $iif($isnotifywin,$snotify,$1) xdcc list
n64=..Request &help:ctcp $iif($isnotifywin,$snotify,$1) xdcc help
n65=..Get &file...:{
n66= var %n = $iif($isnotifywin,$snotify,$1)
n67= set %.xdccfiletoget Enter pack number to get (example, #1 or 1)"XDCC Get
n68= if ($inputbox(%.xdccfiletoget)) ctcp %n xdcc send $ifmatch
n69= .adcc %n
n70=}
n71=.U&serlist CTCP
n72=..&Op...:{
n73= set %.bchan $inputbox(Enter channel"Userlist CTCP)
n74= set %.bpass $inputbox(Enter your password"Userlist CTCP)
n75= if ((%.bchan == $null) || (%.bpass == $null)) halt
n76= ctcp $1 OP %.bchan %.bpass
n77=}
n78=..&Voice...:{
n79= set %.bchan $inputbox(Enter channel"Userlist CTCP)
n80= set %.bpass $inputbox(Enter your password"Userlist CTCP)
n81= if ((%.bchan == $null) || (%.bpass == $null)) halt
n82= ctcp $1 VOICE %.bchan %.bpass
n83=}
n84=..&Invite...:{
n85= set %.invite_channels $inputbox(Enter channels you want to be invited to"Userlist CTCP)
n86= set %.invite_password $inputbox(Enter your password"Userlist CTCP)
n87= if ((%.invite_channels == $null) || (%.invite_password == $null)) halt
n88= ctcp $1 INVITE %.invite_channels %.invite_password
n89=}
n90=..I&dent...:if ($inputbox(Enter your password"CTCP Ident)) ctcp $1 IDENT $ifmatch
n91=..&Set Pass...:if ($inputbox(Enter your preferred password"Set Password)) ctcp $1 PASS $ifmatch
n92=..&Change Pass...:{
n93= set %.passold $inputbox(Enter your old password"Change Password)
n94= set %.passnew $inputbox(Enter your new password"Change Password)
n95= if ((%.passold) && (%.passnew)) ctcp $1 PASS %.passold %.passnew
n96=}
n97=..&Help...:ctcp $1 HELP
n98=&DCC
n99=.&Chat:chat $iif($isnotifywin,$snotify,$1)
n100=.Send to &IP
n101=..&mSend
n102=...&Normal...:msend -i $iif($isnotifywin,$snotify,$1)
n103=...&Delayed...:msend -di $iif($isnotifywin,$snotify,$1)
n104=..Se&lect...:send2ip $iif($isnotifywin,$snotify,$1) $$dir="Select a file to send" *.*
n105=..-
n106=..$_pn(1,$_recf(1)):send2ip $iif($isnotifywin,$snotify,$1) $_recf(1)
n107=..$_pn(2,$_recf(2)):send2ip $iif($isnotifywin,$snotify,$1) $_recf(2)
n108=..$_pn(3,$_recf(3)):send2ip $iif($isnotifywin,$snotify,$1) $_recf(3)
n109=..$_pn(4,$_recf(4)):send2ip $iif($isnotifywin,$snotify,$1) $_recf(4)
n110=..$_pn(5,$_recf(5)):send2ip $iif($isnotifywin,$snotify,$1) $_recf(5)
n111=..$_pn(6,$_recf(6)):send2ip $iif($isnotifywin,$snotify,$1) $_recf(6)
n112=..$_pn(7,$_recf(7)):send2ip $iif($isnotifywin,$snotify,$1) $_recf(7)
n113=..$_pn(8,$_recf(8)):send2ip $iif($isnotifywin,$snotify,$1) $_recf(8)
n114=..$_pn(9,$_recf(9)):send2ip $iif($isnotifywin,$snotify,$1) $_recf(9)
n115=..-
n116=..&Clear list:if ($_cnfrm(Clear list of recently sent files?)) _unset recent sentfiles
n117=..Remove &obsolete:{
n118= var %.flist = $i(recent,sentfiles), %rf = 1
n119= while ($gettok(%.oldlist,%rf,32)) {
n120= var %.tmpsf = $ifmatch
n121= if ($_isfile(%.tmpsf) == $null) var %.flist = $remtok(%.flist,%.tmpsf,1,32)
n122= inc %rf
n123= }
n124= if (%.flist) _set recent files %.flist
n125=}
n126=.&Send
n127=..&mSend
n128=...&Normal...:msend $iif($isnotifywin,$snotify,$1)
n129=...&Delayed...:msend -d $iif($isnotifywin,$snotify,$1)
n130=..Se&lect...:dcc send $iif($isnotifywin,$snotify,$1)
n131=..-
n132=..$_pn(1,$_recf(1)):dcc send $iif($isnotifywin,$snotify,$1) $_recf(1)
n133=..$_pn(2,$_recf(2)):dcc send $iif($isnotifywin,$snotify,$1) $_recf(2)
n134=..$_pn(3,$_recf(3)):dcc send $iif($isnotifywin,$snotify,$1) $_recf(3)
n135=..$_pn(4,$_recf(4)):dcc send $iif($isnotifywin,$snotify,$1) $_recf(4)
n136=..$_pn(5,$_recf(5)):dcc send $iif($isnotifywin,$snotify,$1) $_recf(5)
n137=..$_pn(6,$_recf(6)):dcc send $iif($isnotifywin,$snotify,$1) $_recf(6)
n138=..$_pn(7,$_recf(7)):dcc send $iif($isnotifywin,$snotify,$1) $_recf(7)
n139=..$_pn(8,$_recf(8)):dcc send $iif($isnotifywin,$snotify,$1) $_recf(8)
n140=..$_pn(9,$_recf(9)):dcc send $iif($isnotifywin,$snotify,$1) $_recf(9)
n141=..-
n142=..&Clear list:if ($_cnfrm(Clear list of recently sent files?)) _unset recent sentfiles
n143=..Remove &obsolete:{
n144= var %.flist = $i(recent,sentfiles), %rf = 1
n145= while ($gettok(%.oldlist,%rf,32)) {
n146= var %.tmpsf = $ifmatch
n147= if ($_isfile(%.tmpsf) == $null) var %.flist = $remtok(%.flist,%.tmpsf,1,32)
n148= inc %rf
n149= }
n150= if (%.flist) _set recent files %.flist
n151=}
n152=.-
n153=.&Allow:adcc $iif($isnotifywin,$snotify,$1) | iecho $iif($isnotifywin,$snotify,$1) is now allowed to DCC you within 5 minutes.
n154=-
n155=&Sound
n156=.&Local
n157=..&MP3/MP2...:splay $$dir="Select file to play" [ [ $i(apps,mp3path) ] $+ ] *.mp?
n158=..&Wav/Mid...:splay $$dir="Select file to play" $wavedir*.wav;*.mid
n159=.&Send
n160=..&MP3/MP2...:sound $$dir="Select file to play to [ $iif($isnotifywin,$snotify,$1) ] " [ [ $i(apps,mp3path) ] $+ ] *.mp?
n161=..&Wav/Mid...:sound $$dir="Select file to play to [ $iif($isnotifywin,$snotify,$1) ] " $wavedir*.wav;*.mid
n162=.-
n163=.&MPx...:mpx
n164=-
n165=$iif($active != Notify List,&Notify)
n166=.$iif($remove($active,=) !isnotify,&Add [ $remove($active,=) ] to list):{
n167= if ($isnotifywin) {
n168= var %m = Enter nick and note (optional) to add"Add to Notify List
n169= if ($inputbox(%m)) notify $ifmatch
n170= }
n171= else notify $iif($isnotifywin,$snotify,$1)
n172=}
n173=.$iif($remove($active,=) isnotify,&Remove [ $remove($active,=) ] from list):notify -r $iif($isnotifywin,$snotify,$1)
n174=.-
n175=.&View list:notify -s
n176=&Userlist
n177=.$iif($_pmask($active,2) == $null,Add to &userlist...):if ($inputbox(Enter hostmask to use)) userlist +f $ifmatch
n178=.$iif($_pmask($active,2),Add to &userlist)
n179=..$_pmask($active,2):userlist +f $_pmask($1,2)
n180=..$_pmask($active,3):userlist +f $_pmask($1,3)
n181=..$_pmask($active,4):userlist +f $_pmask($1,4)
n182=..$_pmask($active,10):userlist +f $_pmask($1,10)
n183=..$_pmask($active,11):userlist +f $_pmask($1,11)
n184=..$_pmask($active,12):userlist +f $_pmask($1,12)
n185=..-
n186=..&Manual entry...:if ($inputbox(Enter hostmask to use)) userlist +f $ifmatch
n187=.$iif($_pmask($active,2) == $null,Add to &shitlist...):if ($inputbox(Enter hostmask to use)) userlist +b $ifmatch
n188=.$iif($_pmask($active,2),Add to &shitlist)
n189=..$_pmask($active,2):userlist +b $_pmask($1,2)
n190=..$_pmask($active,3):userlist +b $_pmask($1,3)
n191=..$_pmask($active,4):userlist +b $_pmask($1,4)
n192=..$_pmask($active,10):userlist +b $_pmask($1,10)
n193=..$_pmask($active,11):userlist +b $_pmask($1,11)
n194=..$_pmask($active,12):userlist +b $_pmask($1,12)
n195=..-
n196=..&Manual entry...:if ($inputbox(Enter hostmask to use)) userlist +b $ifmatch
n197=.Add as eggdrop &bot...:{
n198= unset %.abotchan %.abotpass
n199= if ($inputbox(Enter channel)) {
n200= set %.abotchan $ifmatch
n201= if ($inputbox(Enter password)) {
n202= set %.abotpass $ifmatch
n203= addbot $iif($isnotifywin,$snotify,$1) %.abotchan %.abotpass
n204= }
n205= }
n206=}
n207=-
n208=&Ignore
n209=.&Temporary
n210=..&Everything:qignore -cpntiu $iif($isnotifywin,$snotify,$1)
n211=..C&TCP's:qignore -tu $iif($isnotifywin,$snotify,$1)
n212=..&Notices:qignore -nu $iif($isnotifywin,$snotify,$1)
n213=..&Invites:qignore -iu $iif($isnotifywin,$snotify,$1)
n214=..&Messages:qignore -pu $iif($isnotifywin,$snotify,$1)
n215=..&Channel:qignore -cu $iif($isnotifywin,$snotify,$1)
n216=.&Permanent
n217=..&Everything:pignore -pnti $iif($isnotifywin,$snotify,$1)
n218=..C&TCP's:pignore -t $iif($isnotifywin,$snotify,$1)
n219=..&Notices:pignore -n $iif($isnotifywin,$snotify,$1)
n220=..&Invites:pignore -i $iif($isnotifywin,$snotify,$1)
n221=..&Messages:pignore -m $iif($isnotifywin,$snotify,$1)
n222=..&Channel:pignore -c $iif($isnotifywin,$snotify,$1)
n223=.-
n224=.&Clear list:{
n225= if ($_cnfrm(Remove all permanent ignored addresses?)) {
n226= unig
n227= iecho Ignore list is now cleared
n228= }
n229=}
n230=;EOF
[bpopup]
n0=&Menu
n1=&Options...:setup
n2=C&hannel...:chanset
n3=-
n4=&Display
n5=.&Setup...:disp
n6=.-
n7=.Clea&r windows
n8=..&On:_set display clearwin on
n9=..O&ff:_set display clearwin off
n10=.-
n11=.&Theme
n12=..1. $_th(1):theme $_th(1)
n13=..2. $_th(2):theme $_th(2)
n14=..3. $_th(3):theme $_th(3)
n15=..4. $_th(4):theme $_th(4)
n16=..5. $_th(5):theme $_th(5)
n17=..-
n18=..&More themes...:display
n19=..$iif($format(file),&Unload current theme):untheme
n20=.&Font
n21=..&IBMPC:display -h IBMPC
n22=..&GwdTE_437:display -h GwdTE_437
n23=..&Terminal:display -h Terminal
n24=..&Courier New:display -l Courier New
n25=..&Fixedsys:display -l Fixedsys
n26=.&Color scheme
n27=..&Black background
n28=...1. Default:clear_windows | _pscolor default
n29=...2. Purple:clear_windows | _pscolor purple3
n30=...3. Orange:clear_windows | _pscolor orange
n31=...4. Gray 1:clear_windows | _pscolor gray1
n32=...5. Gray 2:clear_windows | _pscolor gray2
n33=...6. Red:clear_windows | _pscolor red
n34=...7. Green:clear_windows | _pscolor green
n35=..&White background
n36=...1. Purple 1:clear_windows | _pscolor purple1
n37=...2. Purple 2:clear_windows | _pscolor purple2
n38=...3. Black:clear_windows | _pscolor black
n39=...4. Teal:clear_windows | _pscolor teal
n40=.-
n41=.Action &prefix
n42=..ð nick action:%action.prefix = ð
n43=..! nick action:%action.prefix = !
n44=..* nick action:%action.prefix = *
n45=..> nick action:%action.prefix = >
n46=..-
n47=..&Specify...:if ($inputbox(Enter a character to prefix actions"Action Prefix)) %action.prefix = $ifmatch
n48=.-
n49=.&Nick alignment
n50=..&Right:%nickalign = right
n51=..&Left:%nickalign = left
n52=.A&lign brackets
n53=..&On:%bracket.nickalign = ON
n54=..O&ff:%bracket.nickalign = OFF
n55=.Nick &brackets
n56=..$chr(91) nickname $chr(93):%bracket.right = $chr(91) | %bracket.left = $chr(93)
n57=..( nickname ):%bracket.right = $chr(40) | %bracket.left = $chr(41)
n58=..$chr(58) nickname $chr(58):%bracket.right = : | %bracket.left = :
n59=..< nickname >:%bracket.right = < | %bracket.left = >
n60=..-
n61=..&Specify...:{
n62= %bracket.left = $inputbox(Enter left bracket character)
n63= if (%bracket.left) {
n64= %bracket.right = $inputbox(Enter right bracket character)
n65= if (%bracket.right == $null) %bracket.right = >
n66= }
n67=}
n68=.Prefi&x modes
n69=..&On:%prefix.modes = ON
n70=..O&ff:%prefix.modes = OFF
n71=.-
n72=.W&ho display
n73=..&Echo:_set display who echo
n74=..&Window:_set display who win
n75=.Who &style
n76=..&Lines:_set display whostyle simple
n77=..&Boxes:_set display whostyle other
n78=.&Whois display
n79=..&Boxed:%showdisplay.whois = box
n80=..&Open:%showdisplay.whois = open
n81=.-
n82=.Clone &scan
n83=..&Echo:_set display clonescan echo
n84=..&Window:_set display clonescan win
n85=.Netsplit &detect
n86=..&On:%netsplit = ON
n87=..O&ff:%netsplit = OFF
n88=.-
n89=.Names &align
n90=..&Left:%showdisplay.names = left
n91=..&Right:%showdisplay.names = right
n92=..&Alt Left:%showdisplay.names = alternate-left
n93=..Al&t Right:%showdisplay.names = alternate-right
n94=&Lists
n95=.&General...:lists
n96=.&Ignores...:ignores
n97=.&Userlist...:userlist
n98=$iif($server,C&TCP)
n99=.&Request
n100=..&Ops...:{
n101= if ($server == $null) halt
n102= unset %basic.nick %basic.chan %basic.pass
n103= set %basic.temp #channel1,#channel2
n104= set %basic.nick $inputbox(Request ops from whom?"CTCP Op)
n105= if (%basic.nick) {
n106= var %txt = Request ops from what channel (Use * for all channels or [ %basic.temp ] for multiple channels)?
n107= set %basic.chan $inputbox(%txt)
n108= if (%basic.chan) {
n109= set %basic.pass $inputbox(What is your password?)
n110= if (%basic.pass) {
n111= .ctcp %basic.nick OP %basic.chan %basic.pass
n112= iecho Requesting ops from %basic.nick in channels: %basic.chan
n113= }
n114= }
n115= }
n116=}
n117=..&Voice...:{
n118= if ($server == $null) halt
n119= unset %basic.nick %basic.chan %basic.pass
n120= set %basic.temp #channel1,#channel2
n121= if ($inputbox(Request voice from whom?)) {
n122= set %basic.nick $ifmatch
n123= var %txt = Request voice from what channel (Use * for all channels or [ %basic.temp ] for multiple channels)?
n124= if ($inputbox(%txt)) {
n125= set %basic.chan $ifmatch
n126= if ($inputbox(What is your password?)) {
n127= set %basic.pass $ifmatch
n128= .ctcp %basic.nick VOICE %basic.chan %basic.pass
n129= iecho Requesting voice from %basic.nick in channels: %basic.chan
n130= }
n131= }
n132= }
n133=}
n134=..&Unban...:{
n135= if ($server == $null) halt
n136= unset %basic.nick %basic.chan %basic.pass
n137= set %basic.temp #channel1,#channel2
n138= if ($inputbox(Request to be unbanned from whom?)) {
n139= set %basic.nick $ifmatch
n140= var %txt = Request to be unbanned from what channel (Use * for all channels or [ %basic.temp ] for multiple channels)?
n141= if ($inputbox(%txt)) {
n142= set %basic.chan $ifmatch
n143= if ($inputbox(What is your password?)) {
n144= set %basic.pass $ifmatch
n145= .ctcp %basic.nick UNBAN %basic.chan %basic.pass
n146= iecho Requesting to be unbanned from %basic.nick in channels: %basic.chan
n147= }
n148= }
n149= }
n150=}
n151=..&Invite...:{
n152= if ($server == $null) halt
n153= unset %basic.nick %basic.chan %basic.pass
n154= set %basic.temp #channel1,#channel2
n155= if ($inputbox(Request to be unbanned from whom?)) {
n156= set %basic.nick $ifmatch
n157= var %txt = Request to be unbanned from what channel (Use * for all channels or [ %basic.temp ] for multiple channels)?
n158= if ($inputbox(%txt)) {
n159= set %basic.chan $ifmatch
n160= if ($inputbox(What is your password)) {
n161= set %basic.pass $ifmatch
n162= .ctcp %basic.nick INVITE %basic.chan %basic.pass
n163= iecho Requesting to be unbanned from %basic.nick in channels: %basic.chan
n164= }
n165= }
n166= }
n167=}
n168=..I&dent...:{
n169= if ($server == $null) halt
n170= unset %basic.nick %basic.pass
n171= if ($inputbox(Request to be identified from whom?)) {
n172= set %basic.nick $ifmatch
n173= if ($inputbox(What is your password)) {
n174= set %basic.pass $ifmatch
n175= .ctcp %basic.nick IDENT %basic.pass
n176= iecho Requesting to be identified from %basic.nick
n177= }
n178= }
n179=}
n180=..&Pass...:{
n181= if ($server == $null) halt
n182= unset %basic.nick %basic.chan %basic.pass
n183= if ($inputbox(Request from whom?)) {
n184= set %basic.nick $ifmatch
n185= if ($inputbox(What is your old password)) {
n186= set %basic.pass $ifmatch
n187= if ($inputbox(What is your new password?)) {
n188= set %basic.newpass $ifmatch
n189= .ctcp %basic.nick PASS %basic.pass %basic.newpass
n190= iecho Requesting to change password from %basic.nick
n191= }
n192= }
n193= }
n194=}
n195=..&Set Pass...:{
n196= if ($server == $null) halt
n197= unset %basic.nick %basic.chan %basic.pass
n198= if ($inputbox(Request from whom?)) {
n199= set %basic.nick $ifmatch
n200= if ($inputbox(What is your password)) {
n201= set %basic.pass $ifmatch
n202= .ctcp %basic.nick PASS %basic.pass
n203= iecho Requesting to set password from %basic.nick
n204= }
n205= }
n206=}
n207=.-
n208=.&Help
n209=..&Ops...:{
n210= if ($server == $null) halt
n211= if ($inputbox(Enter nick of person to request CTCP Ops Help)) ctcp $ifmatch HELP OP
n212=}
n213=..&Voice...:{
n214= if ($server == $null) halt
n215= if ($inputbox(Enter nick of person to request CTCP Voice Help)) ctcp $ifmatch HELP VOICE
n216=}
n217=..&Unban...:{
n218= if ($server == $null) halt
n219= if ($inputbox(Enter nick of person to request CTCP Unban Help)) ctcp $ifmatch HELP UNBAN
n220=}
n221=..&Invite...:{
n222= if ($server == $null) halt
n223= if ($inputbox(Enter nick of person to request CTCP Invite Help)) ctcp $ifmatch HELP INVITE
n224=}
n225=..I&dent...:{
n226= if ($server == $null) halt
n227= if ($inputbox(Enter nick of person to request CTCP Ident Help)) ctcp $ifmatch HELP IDENT
n228=}
n229=..&Pass...:{
n230= if ($server == $null) halt
n231= if ($inputbox(Enter nick of person to request CTCP Pass Help)) ctcp $ifmatch HELP PASS
n232=}
n233=D&CC
n234=.&History...:dcc history
n235=.&Status
n236=..&Echo:dccecho
n237=..&Window:{
n238= if ($dccs == 0) s.err There are no active DCC sessions.
n239= else {
n240= %TempDCCStats = $true
n241= dcc stats
n242= unset %TempDCCStats
n243= }
n244=}
n245=..-
n246=..Always e&cho:_set display dcc echo
n247=..Always w&indow:_set display dcc win
n248=.&Hide windows
n249=..&Chats:_hchat -h
n250=..&Sends:_hsend -h
n251=..&Gets:_hget -h
n252=..&All types:_hget -h | _hsend -h
n253=..-
n254=..&Unhide:_hchat -w | _hget -w | _hsend -w
n255=.&Pump DCC
n256=..&On:pdcc on
n257=..&Off:pdcc off
n258=.&Fast send
n259=..&On:fsend on
n260=..O&ff:fsend off
n261=.Packetsi&ze
n262=..4096:dcc packetsize 4096
n263=..1024:dcc packetsize 1024
n264=..512:dcc packetsize 512
n265=.&Maximum speed
n266=..300cps:dcc maxcps 300
n267=..500cps:dcc maxcps 500
n268=..700cps:dcc maxcps 700
n269=..1024cps:dcc maxcps 1024
n270=..2048cps:dcc maxcps 2048
n271=..-
n272=..&Specify...:if ($inputbox(Enter value in characters per second"Maximum CPS)) dcc maxcps $ifmatch
n273=..&Disable:dcc maxcps off
n274=-
n275=&Recent
n276=&Recent
n277=.&Servers
n278=..$_pn(1,$_recs(1)) $iif($_rport(1),$chr(9)) $_rport(1):server $_recs(1) $_rport(1)
n279=..$_pn(2,$_recs(2)) $iif($_rport(2),$chr(9)) $_rport(2):server $_recs(2) $_rport(2)
n280=..$_pn(3,$_recs(3)) $iif($_rport(3),$chr(9)) $_rport(3):server $_recs(3) $_rport(3)
n281=..$_pn(4,$_recs(4)) $iif($_rport(4),$chr(9)) $_rport(4):server $_recs(4) $_rport(4)
n282=..$_pn(5,$_recs(5)) $iif($_rport(5),$chr(9)) $_rport(5):server $_recs(5) $_rport(5)
n283=..$_pn(6,$_recs(6)) $iif($_rport(6),$chr(9)) $_rport(6):server $_recs(6) $_rport(6)
n284=..$_pn(7,$_recs(7)) $iif($_rport(7),$chr(9)) $_rport(7):server $_recs(7) $_rport(7)
n285=..$_pn(8,$_recs(8)) $iif($_rport(8),$chr(9)) $_rport(8):server $_recs(8) $_rport(8)
n286=..$_pn(9,$_recs(9)) $iif($_rport(9),$chr(9)) $_rport(9):server $_recs(9) $_rport(9)
n287=..-
n288=..&Clear list:if ($_cnfrm(Clear recent servers list?)) { _unset recent servers | _unset recent_ports }
n289=.&Channels
n290=..$_pn(1,$show.a($_recc(1))) $iif($i(recent, [ chankey. $+ [ $_recc(1) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(1) ] ] ):join $_recc(1) $i(recent, [ chankey. $+ [ $_recc(1) ] ] )
n291=..$_pn(2,$show.a($_recc(2))) $iif($i(recent, [ chankey. $+ [ $_recc(2) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(2) ] ] ):join $_recc(2) $i(recent, [ chankey. $+ [ $_recc(2) ] ] )
n292=..$_pn(3,$show.a($_recc(3))) $iif($i(recent, [ chankey. $+ [ $_recc(3) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(3) ] ] ):join $_recc(3) $i(recent, [ chankey. $+ [ $_recc(3) ] ] )
n293=..$_pn(4,$show.a($_recc(4))) $iif($i(recent, [ chankey. $+ [ $_recc(4) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(4) ] ] ):join $_recc(4) $i(recent, [ chankey. $+ [ $_recc(4) ] ] )
n294=..$_pn(5,$show.a($_recc(5))) $iif($i(recent, [ chankey. $+ [ $_recc(5) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(5) ] ] ):join $_recc(5) $i(recent, [ chankey. $+ [ $_recc(5) ] ] )
n295=..$_pn(6,$show.a($_recc(6))) $iif($i(recent, [ chankey. $+ [ $_recc(6) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(6) ] ] ):join $_recc(6) $i(recent, [ chankey. $+ [ $_recc(6) ] ] )
n296=..$_pn(7,$show.a($_recc(7))) $iif($i(recent, [ chankey. $+ [ $_recc(7) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(7) ] ] ):join $_recc(7) $i(recent, [ chankey. $+ [ $_recc(7) ] ] )
n297=..$_pn(8,$show.a($_recc(8))) $iif($i(recent, [ chankey. $+ [ $_recc(8) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(8) ] ] ):join $_recc(8) $i(recent, [ chankey. $+ [ $_recc(8) ] ] )
n298=..$_pn(9,$show.a($_recc(9))) $iif($i(recent, [ chankey. $+ [ $_recc(9) ] ] ),$chr(9)) $i(recent, [ chankey. $+ [ $_recc(9) ] ] ):join $_recc(9) $i(recent, [ chankey. $+ [ $_recc(9) ] ] )
n299=..-
n300=..Join &all:{
n301= if ($server == $null) { s.err You are not connected to a server. | halt }
n302= var %all = $i(recent,channels), %i = 1
n303= while ($_recc(%i)) {
n304= join $ifmatch $i(recent, [ chankey. $+ [ $ifmatch ] ] )
n305= inc %i
n306= }
n307=}
n308=..&Clear current list:{
n309= if ($_cnfrm(Clear recent channels list?)) {
n310= var %i = 1
n311= while ($_recc(%i)) {
n312= var %c = chankey. $+ $ifmatch
n313= if ($i(recent,%c)) _unset recent %c
n314= inc %i
n315= }
n316= _unset recent channels
n317= }
n318=}
n319=.&Nicks
n320=..$_pn(1,$gettok(%RecentNicks,1,32)):nick $gettok(%RecentNicks,1,32)
n321=..$_pn(2,$gettok(%RecentNicks,2,32)):nick $gettok(%RecentNicks,2,32)
n322=..$_pn(3,$gettok(%RecentNicks,3,32)):nick $gettok(%RecentNicks,3,32)
n323=..$_pn(4,$gettok(%RecentNicks,4,32)):nick $gettok(%RecentNicks,4,32)
n324=..$_pn(5,$gettok(%RecentNicks,5,32)):nick $gettok(%RecentNicks,5,32)
n325=..$_pn(6,$gettok(%RecentNicks,6,32)):nick $gettok(%RecentNicks,6,32)
n326=..$_pn(7,$gettok(%RecentNicks,7,32)):nick $gettok(%RecentNicks,7,32)
n327=..$_pn(8,$gettok(%RecentNicks,8,32)):nick $gettok(%RecentNicks,8,32)
n328=..$_pn(9,$gettok(%RecentNicks,9,32)):nick $gettok(%RecentNicks,9,32)
n329=..-
n330=..$iif(%RecentNicks,&Clear list):if ($_cnfrm(Are you sure you want to clear recent nicks list?)) unset %RecentNicks
n331=.&Received files
n332=..$_pn(1,$_recrf(1)):_run $_recrf(1)
n333=..$_pn(2,$_recrf(2)):_run $_recrf(2)
n334=..$_pn(3,$_recrf(3)):_run $_recrf(3)
n335=..$_pn(4,$_recrf(4)):_run $_recrf(4)
n336=..$_pn(5,$_recrf(5)):_run $_recrf(5)
n337=..$_pn(6,$_recrf(6)):_run $_recrf(6)
n338=..$_pn(7,$_recrf(7)):_run $_recrf(7)
n339=..$_pn(8,$_recrf(8)):_run $_recrf(8)
n340=..$_pn(9,$_recrf(9)):_run $_recrf(9)
n341=..-
n342=..&Clear list:if ($_cnfrm(Are you sure you want to clear received files list?)) _unset recent rcvdfiles
n343=..Remove &obsolete:{
n344= var %x = 1, %files
n345= while ($gettok($i(recent,rcvdfiles),%x,32)) {
n346= if ($_isfile($ifmatch)) var %files = %files $ifmatch
n347= inc %x
n348= }
n349= if (%files) _set recent rcvdfiles $ifmatch
n350= else _unset recent rcvdfiles
n351=}
n352=.&Failed sends
n353=..$_sfail(%DCC_Send_Fail_1):dcc send %DCC_Send_Fail_1
n354=..$_sfail(%DCC_Send_Fail_2):dcc send %DCC_Send_Fail_2
n355=..$_sfail(%DCC_Send_Fail_3):dcc send %DCC_Send_Fail_3
n356=..$_sfail(%DCC_Send_Fail_4):dcc send %DCC_Send_Fail_4
n357=..$_sfail(%DCC_Send_Fail_5):dcc send %DCC_Send_Fail_5
n358=..$_sfail(%DCC_Send_Fail_6):dcc send %DCC_Send_Fail_6
n359=..$_sfail(%DCC_Send_Fail_7):dcc send %DCC_Send_Fail_7
n360=..$_sfail(%DCC_Send_Fail_8):dcc send %DCC_Send_Fail_8
n361=..$_sfail(%DCC_Send_Fail_9):dcc send %DCC_Send_Fail_9
n362=..-
n363=..&Clear list:if ($_cnfrm(Are you sure you want to clear failed DCC sends list?)) unset %DCC_Send_Fail_*
n364=&Explore
n365=.Specify &path...:explorer $$sdir="Select a Directory to Open"
n366=.-
n367=.$gettok($i(menu_folder,n0),1,59):explorer $gettok($i(menu_folder,n0),2,59)
n368=.$gettok($i(menu_folder,n1),1,59):explorer $gettok($i(menu_folder,n1),2,59)
n369=.$gettok($i(menu_folder,n2),1,59):explorer $gettok($i(menu_folder,n2),2,59)
n370=.$gettok($i(menu_folder,n3),1,59):explorer $gettok($i(menu_folder,n3),2,59)
n371=.$gettok($i(menu_folder,n4),1,59):explorer $gettok($i(menu_folder,n4),2,59)
n372=.$gettok($i(menu_folder,n5),1,59):explorer $gettok($i(menu_folder,n5),2,59)
n373=.$gettok($i(menu_folder,n6),1,59):explorer $gettok($i(menu_folder,n6),2,59)
n374=.$gettok($i(menu_folder,n7),1,59):explorer $gettok($i(menu_folder,n7),2,59)
n375=.$gettok($i(menu_folder,n8),1,59):explorer $gettok($i(menu_folder,n8),2,59)
n376=.$gettok($i(menu_folder,n9),1,59):explorer $gettok($i(menu_folder,n9),2,59)
n377=.-
n378=.&Sort by name:{
n379= var %w = @ $+ $ticks
n380= window -hsl %w
n381= var %x = 0
n382= while ($i(menu_folder,$bind(n,%x))) {
n383= var %tmp = $ifmatch
n384= aline %w $gettok(%tmp,1,59) ÿ %tmp
n385= inc %x
n386= }
n387= var %x = 1
n388= while ($line(%w,%x)) {
n389= _set menu_folder $bind(n,$sub(%x,1)) $gettok($line(%w,%x),2-,255)
n390= inc %x
n391= }
n392= close -@ %w
n393=}
n394=.&Add a folder...:{
n395= :top
n396= var %f = 0
n397= :loop
n398= if (%f > 9) { iecho Menubar folder slots are full. Unable to add more. | halt }
n399= if ($i(menu_folder,$bind(n,%f))) { inc %f | goto loop }
n400= var %tmp.dir = $$sdir="Select a directory to ADD"
n401= var %tmp.name = $inputbox(Enter a description to show in the popup menu or leave blank to use [ [ %tmp.dir ] $+ ] "Add folder description)
n402= if (%tmp.name == $null) var %tmp.name = %tmp.dir
n403= _set menu_folder $bind(n,%f) %tmp.name $+ ; $+ %tmp.dir
n404= if ((%f <= 9) && ($_cnfrm(Add another folder?))) goto top
n405=}
n406=.&Remove
n407=..$gettok($i(menu_folder,n0),1,59):_unset menu_folder n0
n408=..$gettok($i(menu_folder,n1),1,59):_unset menu_folder n1
n409=..$gettok($i(menu_folder,n2),1,59):_unset menu_folder n2
n410=..$gettok($i(menu_folder,n3),1,59):_unset menu_folder n3
n411=..$gettok($i(menu_folder,n4),1,59):_unset menu_folder n4
n412=..$gettok($i(menu_folder,n5),1,59):_unset menu_folder n5
n413=..$gettok($i(menu_folder,n6),1,59):_unset menu_folder n6
n414=..$gettok($i(menu_folder,n7),1,59):_unset menu_folder n7
n415=..$gettok($i(menu_folder,n8),1,59):_unset menu_folder n8
n416=..$gettok($i(menu_folder,n9),1,59):_unset menu_folder n9
n417=..-
n418=..&Remove Obsolete:{
n419= var %n = 0
n420= while (%n <= 9) {
n421= var %v = [ n $+ [ %n ] ]
n422= if ($_isdir($gettok($i(menu_folder,%v),1,59)) == $null) _unset menu_folder %v
n423= inc %n
n424= }
n425=}
n426=..Remove &All:{
n427= var %n = 0
n428= :n
n429= if (%n > 9) { s.err Folders list is empty | halt }
n430= if ($i(menu_folder,$bind(n,%n)) == $null) { inc %n | goto n }
n431= if ($_cnfrm(Are you sure you want to clear the folders' list?) == $false) halt
n432= _unset menu_folder
n433= iecho Folders list has been cleared.
n434=}
n435=.-
n436=.&Find file or folder...:find
n437=La&unch
n438=.&Programs
n439=..&Specify...:run $$dir="Select a program to open or execute" \*.exe;*.bat
n440=..-
n441=..&Character map:charmap
n442=..&Default browser:run $readini $mircini files browser
n443=..D&OS Prompt:run command.com
n444=..$iif($_isfile($i(apps,picviewer)),&Image Viewer):run $i(apps,picviewer)
n445=..&Notepad:notepad
n446=;..$iif($_isfile($i(apps,mp3player)),&Sound Player):run $i(apps,mp3player)
n447=..&Windows Explorer:run explorer.exe
n448=..-
n449=..$gettok($i(external_programs,n0),2,59):run $gettok($i(external_programs,n0),1,59)
n450=..$gettok($i(external_programs,n1),2,59):run $gettok($i(external_programs,n1),1,59)
n451=..$gettok($i(external_programs,n2),2,59):run $gettok($i(external_programs,n2),1,59)
n452=..$gettok($i(external_programs,n3),2,59):run $gettok($i(external_programs,n3),1,59)
n453=..$gettok($i(external_programs,n4),2,59):run $gettok($i(external_programs,n4),1,59)
n454=..$gettok($i(external_programs,n5),2,59):run $gettok($i(external_programs,n5),1,59)
n455=..$gettok($i(external_programs,n6),2,59):run $gettok($i(external_programs,n6),1,59)
n456=..$gettok($i(external_programs,n7),2,59):run $gettok($i(external_programs,n7),1,59)
n457=..$gettok($i(external_programs,n8),2,59):run $gettok($i(external_programs,n8),1,59)
n458=..$gettok($i(external_programs,n9),2,59):run $gettok($i(external_programs,n9),1,59)
n459=..-
n460=..Sort by &name:{
n461= var %w = @ $+ $ticks
n462= window -hsl %w
n463= var %p = 0
n464= while ($i(external_programs,$bind(n,%p))) {
n465= var %tmp = $ifmatch
n466= aline %w $gettok(%tmp,2,59) ÿ %tmp
n467= inc %p
n468= }
n469= var %p = 1
n470= while ($line(%w,%p)) {
n471= _set external_programs $bind(n,$sub(%p,1)) $gettok($line(%w,%p),2-,255)
n472= inc %p
n473= }
n474= close -@ %w
n475=}
n476=..Add a &file...:addexe
n477=..&Remove
n478=...$gettok($i(external_programs,n0),2,59):remexe n0
n479=...$gettok($i(external_programs,n1),2,59):remexe n1
n480=...$gettok($i(external_programs,n2),2,59):remexe n2
n481=...$gettok($i(external_programs,n3),2,59):remexe n3
n482=...$gettok($i(external_programs,n4),2,59):remexe n4
n483=...$gettok($i(external_programs,n5),2,59):remexe n5
n484=...$gettok($i(external_programs,n6),2,59):remexe n6
n485=...$gettok($i(external_programs,n7),2,59):remexe n7
n486=...$gettok($i(external_programs,n8),2,59):remexe n8
n487=...$gettok($i(external_programs,n9),2,59):remexe n9
n488=...-
n489=...Remove &Obsolete:{
n490= var %n = 0
n491= while (%n <= 9) {
n492= var %ini.num = [ n $+ [ %n ] ]
n493= var %obsolete = $i(external_programs,%ini.num)
n494= if ($_isfile($gettok(%obsolete,1,59)) == $null) _unset external_programs %ini.num
n495= inc %n
n496= }
n497=}
n498=...Remove &All Items:{
n499= var %n = 0
n500= :n2
n501= if (%n > 9) { iecho Program List is empty | return }
n502= if ($i(external_programs,$bind(n,%n)) == $null) { inc %n | goto n2 }
n503= if ($_cnfrm(Remove all programs in menu?) == $false) return
n504= _unset external_programs
n505= iecho Menubar program items cleared.
n506=}
n507=.&URL
n508=..&Specify address...:if ($inputbox(Enter address - for example: http://www.geocities.com/basic_mirc/"Launch URL)) run $ifmatch
n509=..-
n510=..$gettok($_readini(urls.ini,favorites,0),2-,44):run $gettok($_readini(urls.ini,favorites,0),1,44)
n511=..$gettok($_readini(urls.ini,favorites,1),2-,44):run $gettok($_readini(urls.ini,favorites,1),1,44)
n512=..$gettok($_readini(urls.ini,favorites,2),2-,44):run $gettok($_readini(urls.ini,favorites,2),1,44)
n513=..$gettok($_readini(urls.ini,favorites,3),2-,44):run $gettok($_readini(urls.ini,favorites,3),1,44)
n514=..$gettok($_readini(urls.ini,favorites,4),2-,44):run $gettok($_readini(urls.ini,favorites,4),1,44)
n515=..$gettok($_readini(urls.ini,favorites,5),2-,44):run $gettok($_readini(urls.ini,favorites,5),1,44)
n516=..$gettok($_readini(urls.ini,favorites,6),2-,44):run $gettok($_readini(urls.ini,favorites,6),1,44)
n517=..$gettok($_readini(urls.ini,favorites,7),2-,44):run $gettok($_readini(urls.ini,favorites,7),1,44)
n518=..$gettok($_readini(urls.ini,favorites,8),2-,44):run $gettok($_readini(urls.ini,favorites,8),1,44)
n519=..$gettok($_readini(urls.ini,favorites,9),2-,44):run $gettok($_readini(urls.ini,favorites,9),1,44)
n520=..-
n521=..Sort by &name:{
n522= var %x = 0, %w = @ $+ $ticks
n523= window -hsl %w
n524= while ($_readini(urls.ini,favorites,%x)) {
n525= var %tmp = $ifmatch
n526= aline %w $gettok(%tmp,2-,44) $chr(9) %tmp
n527= inc %x
n528= }
n529= var %x = 1
n530= while ($line(%w,%x)) {
n531= var %tmp = $ifmatch
n532= writeini sys\urls.ini favorites $sub(%x,1) $gettok(%tmp,2-,9)
n533= inc %x
n534= }
n535= close -@ %w
n536=}
n537=..Add &URL...:{
n538= :top
n539= var %i = -1
n540= :loop
n541= inc %i
n542= if (%i > 9) { iecho Slots full. Unable to add more URLs. | return }
n543= if ($_readini(urls.ini,favorites,%i)) goto loop
n544= %tmpURL = $inputbox(Enter URL to add"Add URL)
n545= if (%tmpURL == $null) halt
n546= %tmpdsc = Enter Description, or CANCEL to use [ %tmpURL ] (do not use a comma for the name)"Add URL Description
n547= %tmpdsc = $inputbox(%tmpdsc)
n548= if (%tmpdsc == $null) %tmpdsc = %tmpURL
n549= writeini sys\urls.ini favorites %i %tmpURL $+ , $+ %tmpdsc
n550= if ($_cnfrm(Add another?)) goto top
n551=}
n552=..&Open URL List...:url
n553=..&Remove
n554=...$gettok($_readini(urls.ini,favorites,0),2,44):remini sys\urls.ini favorites 0
n555=...$gettok($_readini(urls.ini,favorites,1),2,44):remini sys\urls.ini favorites 1
n556=...$gettok($_readini(urls.ini,favorites,2),2,44):remini sys\urls.ini favorites 2
n557=...$gettok($_readini(urls.ini,favorites,3),2,44):remini sys\urls.ini favorites 3
n558=...$gettok($_readini(urls.ini,favorites,4),2,44):remini sys\urls.ini favorites 4
n559=...$gettok($_readini(urls.ini,favorites,5),2,44):remini sys\urls.ini favorites 5
n560=...$gettok($_readini(urls.ini,favorites,6),2,44):remini sys\urls.ini favorites 6
n561=...$gettok($_readini(urls.ini,favorites,7),2,44):remini sys\urls.ini favorites 7
n562=...$gettok($_readini(urls.ini,favorites,8),2,44):remini sys\urls.ini favorites 8
n563=...$gettok($_readini(urls.ini,favorites,9),2,44):remini sys\urls.ini favorites 9
n564=...-
n565=...&Remove all addresses:if ($_cnfrm(Are you sure you want to delete ALL URLs?)) remini sys\urls.ini favorites
n566=.&Startup
n567=..%StartUp.1:run %StartUp.1
n568=..%StartUp.2:run %StartUp.2
n569=..%StartUp.3:run %StartUp.3
n570=..%StartUp.4:run %StartUp.4
n571=..%StartUp.5:run %StartUp.5
n572=..%StartUp.6:run %StartUp.6
n573=..%StartUp.7:run %StartUp.7
n574=..%StartUp.8:run %StartUp.8
n575=..%StartUp.9:run %StartUp.9
n576=..%StartUp.10:run %StartUp.10
n577=..-
n578=..&Edit list...:{
n579= if ($script(dialog) == $null) .load -rs sys\dialog.ini
n580= dialog -m sl sl
n581=}
n582=&Media
n583=.&View image...:{
n584= if ($_isdir(%MRUD_Images)) var %TempDir = $remove($ifmatch,") $+ *.jpg;*.gif;*.bmp;*.tif
n585= else var %TempDir = \*.jpg;*.gif;*.bmp;*.tif
n586= var %TempFile = $$dir="Select a file to view" %TempDir
n587= if ($_isfile(%TempFile)) {
n588= %MRUD_Images = $nofile(%TempFile)
n589= if ($istok(%RecentImageFile,%TempFile,124) == $false) %RecentImageFile = $instok(%RecentImageFile,%TempFile,1,124)
n590= var %N = $numtok(%RecentImageFile,124)
n591= if (%N > 9) %RecentImageFile = $deltok(%RecentImageFile,%N,124)
n592= view %TempFile
n593= }
n594=}
n595=.Play &sound...:{
n596= var %TempFile = $$dir="Select a file to play" [ [ $i(apps,lastdir) ] $+ *.wav;*.mid;*.mp? ]
n597= if ($_isfile(%TempFile)) {
n598= if ($istok(%RecentSoundFile,%TempFile,124) == $false) %RecentSoundFile = $instok(%RecentSoundFile,%TempFile,1,124)
n599= var %N = $numtok(%RecentSoundFile,124)
n600= if (%N > 9) %RecentSoundFile = $deltok(%RecentSoundFile,%N,124)
n601= splay %TempFile
n602= }
n603=}
n604=;.$iif((($os >= 95) && ($bits == 32) && ($_isfile($windir(\sndvol32.exe)))),&Volume control...):run $windir(\sndvol32.exe)
n605=.&Volume control...:volume
n606=.-
n607=.$iif($gettok(%RecentImageFile,1,124),&Images)
n608=..$gettok(%RecentImageFile,1,124):view $gettok(%RecentImageFile,1,124)
n609=..$gettok(%RecentImageFile,2,124):view $gettok(%RecentImageFile,2,124)
n610=..$gettok(%RecentImageFile,3,124):view $gettok(%RecentImageFile,3,124)
n611=..$gettok(%RecentImageFile,4,124):view $gettok(%RecentImageFile,4,124)
n612=..$gettok(%RecentImageFile,5,124):view $gettok(%RecentImageFile,5,124)
n613=..$gettok(%RecentImageFile,6,124):view $gettok(%RecentImageFile,6,124)
n614=..$gettok(%RecentImageFile,7,124):view $gettok(%RecentImageFile,7,124)
n615=..$gettok(%RecentImageFile,8,124):view $gettok(%RecentImageFile,8,124)
n616=..$gettok(%RecentImageFile,9,124):view $gettok(%RecentImageFile,9,124)
n617=..-
n618=..C&lear cache:if ($_cnfrm(Are you sure you want to clear this list?)) unset %RecentImageFile
n619=..Remove &obsolete:{
n620= var %s = 1
n621= while ($gettok(%RecentImageFile,%s,124)) {
n622= var %t = $ifmatch
n623= if ($_isfile(%t) == $null) %RecentImageFile = $remtok(%RecentImageFile,%t,124)
n624= inc %s
n625= }
n626=}
n627=.$iif($gettok(%RecentSoundFile,1,124),So&unds)
n628=..$gettok(%RecentSoundFile,1,124):splay $gettok(%RecentSoundFile,1,124)
n629=..$gettok(%RecentSoundFile,2,124):splay $gettok(%RecentSoundFile,2,124)
n630=..$gettok(%RecentSoundFile,3,124):splay $gettok(%RecentSoundFile,3,124)
n631=..$gettok(%RecentSoundFile,4,124):splay $gettok(%RecentSoundFile,4,124)
n632=..$gettok(%RecentSoundFile,5,124):splay $gettok(%RecentSoundFile,5,124)
n633=..$gettok(%RecentSoundFile,6,124):splay $gettok(%RecentSoundFile,6,124)
n634=..$gettok(%RecentSoundFile,7,124):splay $gettok(%RecentSoundFile,7,124)
n635=..$gettok(%RecentSoundFile,8,124):splay $gettok(%RecentSoundFile,8,124)
n636=..$gettok(%RecentSoundFile,9,124):splay $gettok(%RecentSoundFile,9,124)
n637=..-
n638=..&Clear cache:if ($_cnfrm(Are you sure you want to clear this list?)) unset %RecentSoundFile
n639=..Remove &obsolete:{
n640= var %s = 1
n641= while ($gettok(%RecentSoundFile,%s,124)) {
n642= var %t = $ifmatch
n643= if ($_isfile(%t) == $null) %RecentSoundFile = $remtok(%RecentSoundFile,%t,124)
n644= inc %s
n645= }
n646=}
n647=;EOF