[script]
n0=alias waitcapt {
n1=  if (%captdelay == 0) return
n2=  set %wait5 $right($time,1)
n3=  set %waitdec %captdelay
n4=  :waitlloop5
n5=  if (%waitdec == 0) return
n6=  if (%wait5 == $right($time,1)) goto waitlloop5
n7=  set %wait5 $right($time,1)
n8=  dec %waitdec
n9=  goto waitlloop5
n10=  :waitldone5
n11=  unset %wait5
n12=  unset %waitdec
n13=  return
n14=}
n15=alias getcaptfiles {
n16=  if $exists(captfiles.txt) {
n17=    /did -r Capture 61 
n18=    set %gcaptl $lines(captfiles.txt)
n19=    set %gcaptn 0
n20=    :getcaptloop
n21=    inc %gcaptn
n22=    if (%gcaptn <= %gcaptl) {
n23=      /did -a Capture 61 $read -l $+ %gcaptn captfiles.txt
n24=      goto getcaptloop
n25=    }
n26=    did -u Capture 62
n27=    did -e Capture 61,63,64
n28=  }
n29=  else { did -c Capture 62 | did -b Capture 61,63,64 }
n30=}
n31=alias savecaptfiles {
n32=  if (($did(Capture,62).state == 1) || ($did(Capture,61).lines == 0)) {
n33=    if $exists(captfiles.txt) { /remove captfiles.txt }
n34=  }
n35=  else {
n36=    if $exists(captfiles.txt) { /remove captfiles.txt }
n37=    set %gcaptl $did(Capture,61).lines
n38=    set %gcaptn 0
n39=    :getcaptloop
n40=    inc %gcaptn
n41=    if (%gcaptn <= %gcaptl) {
n42=      /write captfiles.txt $did(Capture,61,%gcaptn).text
n43=      goto getcaptloop
n44=    }
n45=  }
n46=}
n47=on 1:dialog:Capture:init:0:{
n48=  set %captready 0
n49=  /did -ra $dname 33 %captretry
n50=  /did -ra $dname 35 %captdelay
n51=  if (%captclear == 1) { /did -c $dname 62 | did -b $dname 61,63,64 } | else { did -e $dname 61,63,64 }
n52=  getcaptfiles
n53=  ;if (($r.set(Fserve,CaptFiles) == All) || ($r.set(Fserve,CaptFiles) == $null)) { did -c $dname 62 | did -b $dname 61,63,64 } | else { dla $dname 61 $r.set(Fserve,CaptFiles) }
n54=  if ((%capttrig == $null) || (%capttrig == ?) || (%captpath == $null) || (%captpath == ?) || (%captgo == 1)) { /did -b $dname 496 } | else { /did -e $dname 496 }
n55=  if (%captgo == 0) { /did -b $dname 497 } | else { did -e $dname 497 | did -b $dname 61,63,64,498,499 }
n56=  ;if (%captdelay == 1) { /did -c $dname 20 } | else { did -u $dname 20 }
n57=  set %captready 1
n58=}
n59=on 1:dialog:Capture:sclick:10:{
n60=  set %captready 1
n61=}
n62=on 1:dialog:Capture:sclick:11:{
n63=  set %captready 1
n64=}
n65=on 1:dialog:Capture:edit:10:{
n66=  if (%captready == 0) halt
n67=  if (($did(10) == $null) || ($did(10) == ?) || ($did(11) == $null) || ($did(11) == ?) || (%captgo == 1)) { /did -b Capture 496 } | else { /did -e Capture 496 }
n68=}
n69=on 1:dialog:Capture:edit:11:{
n70=  if (%captready == 0) halt
n71=  if (($did(10) == $null) || ($did(10) == ?) || ($did(11) == $null) || ($did(11) == ?) || (%captgo == 1)) { /did -b Capture 496 } | else { /did -e Capture 496 }
n72=}
n73=on 1:dialog:Capture:sclick:498:{
n74=  set %captready 1
n75=  set %capttimer $did(31)
n76=  set %captdelay $did(35)
n77=  set %captchan $did(13)
n78=  set %capttrig $did(10)
n79=  set %captpath $did(11)
n80=  set %captclear $did(62).state
n81=  ;set %captdelay $did(20).state
n82=  set %captdone 0
n83=  savecaptfiles
n84=  ;if (($did(Capture,62).state == 1) || ($did(Capture,61).lines == 0)) { w.set Fserve CaptFiles All } | else { dls $dname 61 w.set Fserve CaptFiles }
n85=  /dialog -x Capture
n86=}
n87=on 1:dialog:Capture:sclick:496:{
n88=  set %captready 1
n89=  set %capttimer $did(31)
n90=  set %captdelay $did(35)
n91=  set %captchan $did(13)
n92=  set %capttrig $did(10)
n93=  set %captpath $did(11)
n94=  set %captclear $did(62).state
n95=  ;set %captdelay $did(20).state
n96=  set %captdone 0
n97=  set %captgo 1
n98=  savecaptfiles
n99=  ;if ($did($dname,62).state == 1) || ($did($dname,61).lines == 0) { w.set Fserve CaptFiles All } | else { dls $dname 61 w.set Fserve CaptFiles }
n100=  /dialog -x Capture
n101=  set %captpull 0
n102=  /timercapture 0 %capttimer doautocapture
n103=  set %captretry 0
n104=  if ($left(%capttrig,5) == /ctcp) {
n105=    set %capti $len(%capttrig)
n106=    %capti = %capti - 6
n107=    set %capts $right(%capttrig,%capti)
n108=    %capti = $pos(%capts,$chr(32),1)
n109=    dec %capti
n110=    set %captnick $left(%capts,%capti)
n111=    inc %capti
n112=    %capti = $len(%capts) - %capti
n113=    %capts = $right(%capts,%capti)
n114=    /ctcp %captnick %capts
n115=    return
n116=  }
n117=  /editbox %captchan %capttrig $+ $chr(13) $+ $chr(10)
n118=}
n119=on 1:dialog:Capture:sclick:497:{
n120=  set %captready 1
n121=  set %capttimer $did(31)
n122=  set %captdelay $did(35)
n123=  set %captchan $did(13)
n124=  set %capttrig $did(10)
n125=  set %captpath $did(11)
n126=  set %captclear $did(62).state
n127=  ;set %captdelay $did(20).state
n128=  set %captdone 0
n129=  set %captgo 0
n130=  ;/did -e $dname 496,498,499
n131=  ;/did -b $dname 497
n132=  savecaptfiles
n133=  ;if (($did($dname,62).state == 1) || ($did($dname,61).lines == 0)) { w.set Fserve CaptFiles All } | else { dls $dname 61 w.set Fserve CaptFiles }
n134=  /timercapture off
n135=  /dialog -x Capture
n136=}
n137=on 1:dialog:Capture:sclick:62:{
n138=  set %captready 1
n139=  if ($did($dname,62).state == 1) { did -b $dname 61,63,64 } | else { did -e $dname 61,63,64 }
n140=}
n141=on 1:dialog:Capture:sclick:63:{
n142=  set %captready 1
n143=  if ($did($dname,61).sel == $null) && ($did($dname,61).text != $null) { did -a $dname 61 $did($dname,61).text | did -c $dname 61 $did($dname,61).lines }
n144=}
n145=on 1:dialog:Capture:sclick:64:{
n146=  set %captready 1
n147=  if ($did($dname,61).sel isnum) { did -d $dname 61 $did($dname,61).sel }
n148=}
n149=Dialog Capture {
n150=  title "Auto Capture Settings"
n151=  size -1 -1 310 354
n152=  text "Channel:", 3, 5 10 270 13
n153=  edit %captchan, 13, 5 26 100 22,autohs
n154=  text "Timer:", 30, 108 10 100 13
n155=  edit %capttimer, 31, 108 26 47 22,right
n156=  text "Retry:", 32, 158 10 270 13
n157=  edit %captretry, 33, 158 26 47 22,right
n158=  text "Delay:", 34, 208 10 270 13
n159=  edit %captdelay, 35, 208 26 37 22,right
n160=  text "Trigger:", 1, 5 50 270 13
n161=  edit %capttrig, 10, 5 66 240 22,autohs
n162=  text "Full Path to Directory:", 2, 5 90 270 13
n163=  edit %captpath, 11, 5 106 240 22,autohs
n164=  button "OK", 498, 250 26 50 22
n165=  button "Cancel", 499, 250 53 50 22, cancel
n166=  button "Start", 496, 250 80 50 22
n167=  button "Stop", 497, 250 107 50 22
n168=  box "Capture Files:", 60, 5 135 300 214
n169=  combo 61, 10 155 235 180
n170=  check "Reset File List and Get Again", 62, 10 328 180 15
n171=  ;check "Enable delay between commands", 20, 10 348 180 15
n172=  button "Add", 63, 250 155 50 22
n173=  button "Rem", 64, 250 180 50 22
n174=}
n175=on 1:LOAD: {
n176=  set %captpath ?
n177=  set %capttrig ?
n178=  set %captchan ?
n179=  set %capttimer 300
n180=  set %captgo 0
n181=  set %captretry 0
n182=  set %captdelay 3
n183=  set %captclear 0
n184=}
n185=on 1:START: {
n186=  if (%captpath == $null) { set %captpath ? }
n187=  if (%capttrig == $null) { set %capttrig ? }
n188=  if (%captchan == $null) { set %captchan ? }
n189=  if (%capttimer == $null) { set %capttimer 300 }
n190=  if (%captretry == $null) { set %captretry 0 }
n191=  if (%captdelay == $null) { set %captdelay 3 }
n192=  set %captgo 0
n193=  set %captclear 0
n194=  set %captready 0
n195=}
n196=on 1:CHAT:*:{
n197=  if ((%captpath != ?) && (%captpath != $null) && (%capttrig != ?) && (%capttrig != $null) && (%captgo == 1)) {
n198=    set %captls $1-
n199=    ; Doing Dir
n200=    :CaptChat
n201=    if (%autolstep = 1) {
n202=      ; Is End of List?
n203=      if ($pos(%captls,End of list,1) > 0) {
n204=        if (%autoldebug == 1) { /echo -a %autolgrn $+ Is End of List %captpath }
n205=        if ((%captstep == 3) || (%captstep == 4)) {
n206=          if (%autoldebug == 1) { /echo -a %autolgrn $+ Step %captstep }
n207=          %captstep = 4
n208=          set %captlist 1
n209=          set %captldn 1
n210=          :CaptGet
n211=          %captls = $did(Capture,61,%captlist).text
n212=          if (($left(%captls,1) != $chr(95)) && ($left(%captls,1) != F)) {
n213=            if ($left(%captls,1) != G) {
n214=              set %captldn 0
n215=            }
n216=            inc %captlist
n217=            if (%captlist <= $did(Capture,61).lines) goto CaptGet
n218=            if (%captldn == 1) {
n219=              /timercapture off
n220=              set %captdone %captldn
n221=              set %captgo 0
n222=              /did -b Capture 497
n223=              /did -e Capture 61,63,64,498,499,496
n224=            }
n225=            set %captpull 0
n226=            /close -c
n227=            return
n228=          }
n229=          if (($left(%captls,1) == $chr(95)) || ($left(%captls,1) == F)) {
n230=            set %capti $len(%captls)
n231=            %capti = %capti - 2
n232=            %captls = $right(%captls,%capti)
n233=            waitcapt
n234=            /editbox -a get %captls $+ $chr(10) $+ $chr(13)
n235=            return
n236=          }
n237=        }
n238=        if (%autoldebug == 1) { /echo -a %autolgrn $+ %captpath }
n239=        /echo 2 -a %capttpath
n240=        if ($right(%capttpath,1) == $chr(92)) {
n241=          set %capti $len(%capttpath)
n242=          dec %capti
n243=          %capttpath = $left(%capttpath,%capti)
n244=        }
n245=        set %capti $len(%capttpath)
n246=        inc %capti
n247=        if ($pos(%capttpath,$chr(92),0) > 0) {
n248=          set %capti $pos(%capttpath,$chr(92),1)
n249=        }
n250=        if (%capti == 1) {
n251=          %capti = $len(%capttpath)
n252=          dec %capti
n253=          %capttpath = $right(%capttpath,%capti)
n254=          set %capti $pos(%capttpath,$chr(92),1)
n255=        }
n256=        dec %capti
n257=        if ((%capti <= 0) && ($len(%capttpath) > 0)) {
n258=          %capti = $len(%capttpath)
n259=        }
n260=        if ((%capttpath != $null) && (%capti > 0)) {
n261=          set %captls $left(%capttpath,%capti)
n262=          %autolcurp = %autolcurp $+ $chr(124) $+ %captls
n263=          /editbox -a cd %captls $+ $chr(10) $+ $chr(13)
n264=          if (%capti == $len(%capttpath)) {
n265=            set %capttpath $null
n266=            set %captstep 2
n267=            return
n268=          }
n269=          inc %capti
n270=          %capti = $len(%capttpath) - %capti
n271=          set %capttpath $right(%capttpath,%capti)
n272=        }
n273=      }
n274=      ; Is In SubDir?
n275=      if ($right($1-,1) == $chr(93)) {
n276=        set %captls $right($1-,2)
n277=        ; Is NOT SubDir Heading
n278=        if (($left(%captls,1) != $chr(42)) && ($mid($1-,2,1) == $chr(92))) {
n279=          if (%autoldebug == 1) { /echo -a %autolgrn $+ Is In SubDIR }
n280=          waitcapt
n281=          /editbox -a dir $+ $chr(10) $+ $chr(13)
n282=          return
n283=        }
n284=      }
n285=      set %captls $right($1-,2)
n286=      ; Is File?
n287=      if (($left(%captls,1) isnum) && ($right(%captls,1) == b)) {
n288=        if (%autoldebug == 1) { /echo -a %autolgrn $+ Is File }
n289=        if (%captstep == 2) {
n290=          if (%captclear == 0) {
n291=            %captstep = 4
n292=            if (%captdopen == 0) {
n293=              /dialog -m Capture Capture
n294=              /did -e Capture 61,63,64
n295=            }
n296=          }
n297=          if (%captclear == 1) {
n298=            set %captclear 0
n299=            %captstep = 3
n300=            if (%captdopen == 0) {
n301=              /dialog -m Capture Capture
n302=              /did -u Capture 62
n303=              /did -r Capture 61
n304=              /did -e Capture 61,63,64
n305=            }
n306=          }
n307=          %captdopen = 1
n308=        }
n309=        set %captls $1-
n310=        set %capti $pos(%captls,$chr(32),0)
n311=        %capti = $pos(%captls,$chr(32),%capti)
n312=        if (%capti > 1) {
n313=          dec %capti
n314=          %captls = $left(%captls,%capti)
n315=        }
n316=        if (%captstep == 3) {
n317=          /did -a Capture 61 _= $+ %captls
n318=        }
n319=      }
n320=      set %captss $1-
n321=      if (%autoldebug == 1) { /echo -a %autolred $+ %captss }
n322=      %captss = $strip(%captss)
n323=      if (%autoldebug == 1) { /echo -a %autolred $+ %captss }
n324=      ; Is Sorry?
n325=      if ($pos(%captss,Sorry,1) > 0) {
n326=        set %captpull 1
n327=        /close -c
n328=        /echo %captchan %autolred $+ Sorry, Queue Full
n329=        return
n330=      }
n331=      ; Is Sending?
n332=      %captss = $left(%captss,4)
n333=      if (%autoldebug == 1) { /echo -a %autolred $+ %captss }
n334=      if ((%captss == Send) || (%captss == Queu)) {
n335=        if (%autoldebug == 1) { /echo -a %autolred $+ Send / Queue }
n336=        %captls = $did(Capture,61,%captlist).text
n337=        set %capti $len(%captls)
n338=        dec %capti
n339=        if (%captss == Queu) {
n340=          /echo %captchan %autolgrn $+ Queuing up
n341=          /echo @queues %autolgrn $+ $nick - $1-
n342=          %captls = Q $+ $right(%captls,%capti)
n343=        }
n344=        if (%captss == Send) {
n345=          /echo %captchan %autolgrn $+ Sending
n346=          /echo @queues %autolgrn $+ $nick - $1-
n347=          %captls = S $+ $right(%captls,%capti)
n348=        }
n349=        /did -o Capture 61 %captlist %captls
n350=        %captls = End of list
n351=        goto CaptChat
n352=      }
n353=    }
n354=    return
n355=  }
n356=}
n357=Dialog captwarn {
n358=  title "Auto Capture"
n359=  size -1 -1 250 110
n360=  text "Warning:", 1, 5 5 245 25, center
n361=  text "Do not close this menu or switch screens while capture in progress. Auto Capture will completely automate the get process.", 2, 5 20 245 50
n362=  button "Ok", 499, 90 75 80 25, cancel
n363=}
n364=menu nicklist {
n365=  -
n366=  Capture Settings { set %captready 0 | /dialog -m Capture Capture }
n367=}
n368=on *:dialog:GoneMsg:*:*:{
n369=  if ($devent == init) {
n370=  }
n371=  if ($devent == sclick) {
n372=    if ($did == 497) {
n373=      %gonechannel = $did(11)
n374=      %gonemessage = $did(12)
n375=      if ((%gonechannel != $null) && (%gonemessage != $null)) { if ($me !ison %gonechannel) { /join %gonechannel } | else { /timertopic 1 4 /topic %gonechannel $ctime %gonemessage } }
n376=      /dialog -x GoneMsg
n377=    }
n378=    if ($did == 499) {
n379=      %gonechannel = $did(11)
n380=      %gonemessage = $did(12)
n381=      if ((%gonechannel != $null) && (%gonemessage != $null)) { if ($me !ison %gonechannel) { /join %gonechannel } | else { /timertopic 1 4 /topic %gonechannel $ctime %gonemessage } }
n382=      /dialog -m ClosemIRC ClosemIRC
n383=      /dialog -x GoneMsg
n384=    }
n385=  }
n386=}
n387=Dialog GoneMsg {
n388=  title "Gone Message"
n389=  size -1 -1 220 90
n390=  text "Channel:", 1, 5 8 50 18
n391=  edit %gonechannel, 11, 55 5 160 22, autohs
n392=  text "Message:", 2, 5 33 50 18
n393=  edit %gonemessage, 12, 55 30 160 22, autohs
n394=  button "Ok", 497, 5 60 60 25
n395=  button "Cancel", 498, 70 60 60 25, cancel
n396=  button "Exit Rat-Polaris", 499, 135 60 80 25
n397=}
n398=on 1:dialog:ClosemIRC:sclick:498: {
n399=  /timerquit 1 10 /quit [ $ratquit ] %gonemessage
n400=  /timerquit 1 13 /exit
n401=}
n402=Dialog ClosemIRC {
n403=  title "Warning: You are about to Exit mIRC!"
n404=  size -1 -1 270 70
n405=  text "Are you sure you want to Exit mIRC?", 1,5 5 265 25,center
n406=  button "Yes", 498, 50 35 80 25, ok
n407=  button "No", 499, 140 35 80 25, cancel
n408=}
n409=on *:dialog:QuitMsg:*:*:{
n410=  if ($devent == init) {
n411=    if ($r.set(Quit.Msg,Online) == On) { did -c $dname 2 }
n412=    if ($r.set(Quit.Msg,Webpage) == On) { did -c $dname 3 }
n413=    if ($r.set(Quit.Msg,Version) == On) { did -c $dname 4 }
n414=  }
n415=  if ($devent == sclick) {
n416=    if ($did == 111) { .timer 1 0 did -ra $dname 11 $!shortfn( $chr(91) $!$hfile="Choose Random Quit Message Text File" *.txt $chr(93) ) }
n417=    if ($did == 497) {
n418=      %quitmessage = $did(11)
n419=      if ($did($dname,2).state == 1) { w.set Quit.Msg Online On } | else { w.set Quit.Msg Online Off }
n420=      if ($did($dname,3).state == 1) { w.set Quit.Msg Webpage On } | else { w.set Quit.Msg Webpage Off }
n421=      if ($did($dname,4).state == 1) { w.set Quit.Msg Version On } | else { w.set Quit.Msg Version Off }
n422=      set -u %~quitmsg $chr(91) $chr(36) $+ ratquit $chr(93)
n423=      w.mirc text quit %~quitmsg
n424=      /dialog -x QuitMsg
n425=    }
n426=    if ($did == 499) {
n427=      %quitmessage = $did(11)
n428=      if ($did($dname,2).state == 1) { w.set Quit.Msg Online On } | else { w.set Quit.Msg Online Off }
n429=      if ($did($dname,3).state == 1) { w.set Quit.Msg Webpage On } | else { w.set Quit.Msg Webpage Off }
n430=      if ($did($dname,4).state == 1) { w.set Quit.Msg Version On } | else { w.set Quit.Msg Version Off }
n431=      set -u %~quitmsg $chr(91) $chr(36) $+ ratquit $chr(93)
n432=      w.mirc text quit %~quitmsg
n433=      /dialog -m ClosemIRC ClosemIRC
n434=      /dialog -x QuitMsg
n435=    }
n436=  }
n437=}
n438=Dialog QuitMsg {
n439=  title "Quit Message"
n440=  size -1 -1 240 80
n441=  text "Message:", 1, 5 8 50 18
n442=  edit %quitmessage, 11, 55 5 160 22, autohs
n443=  button "...", 111, 215 6 20 20
n444=  check "Time Online", 2, 5 30 90 15
n445=  check "Webpage", 3, 95 30 90 15
n446=  check "Version", 4, 175 30 90 15
n447=  ;check "Time Online", 2, 5 30 130 15
n448=  ;check "Webpage", 3, 5 45 130 15
n449=  ;check "Version", 4, 5 60 130 15
n450=  button "Ok", 497, 5 50 70 25
n451=  button "Cancel", 498, 80 50 70 25, cancel
n452=  button "Exit Rat-Polaris", 499, 155 50 80 25
n453=}
n454=on *:dialog:queuelist:*:*:{
n455=  if ($devent == init) {
n456=    did -c $dname 2
n457=    if ($exists(queuelist.txt) = $true) {
n458=      set %qlistn $lines(queuelist.txt)
n459=      set %qlistl 0
n460=      :readqlist
n461=      inc %qlistl
n462=      if (%qlistl <= %qlistn) {
n463=        set %qlists $read -l $+ %qlistl queuelist.txt
n464=        if (%qlists != null) { did -a $dname 2 %qlists }
n465=        goto readqlist
n466=      }
n467=    }
n468=  }
n469=  if ($devent == sclick) {
n470=    if ($did == 5) && ($did($dname,2).sel == $null) && ($did($dname,2).text != $null) { did -a $dname 2 $did($dname,2).text | did -c $dname 2 $did($dname,2).lines }
n471=    if ($did == 6) && ($did($dname,2).sel isnum) { did -d $dname 2 $did($dname,2).sel  }
n472=    if ($did == 497) {
n473=      /write -c queuelist.txt
n474=      /dialog -x $dname
n475=    }
n476=    if ($did == 498) {
n477=      set %qlistn $did($dname,2).lines
n478=      if (%qlistn = 0) {
n479=        /write -c queuelist.txt
n480=      }
n481=      else {
n482=        set %qlistl 0
n483=        :writeqlist
n484=        inc %qlistl
n485=        if (%qlistl <= %qlistn) {
n486=          if (%qlistl = 1) { /write -c queuelist.txt $did($dname,2,%qlistl).text }
n487=          else { /write queuelist.txt $did($dname,2,%qlistl).text }
n488=          goto writeqlist
n489=        }
n490=      }
n491=      /dialog -x $dname
n492=    }
n493=  }
n494=}
n495=Dialog queuelist {
n496=  title "Queue List"
n497=  size -1 -1 590 220
n498=  box "Queues:", 1, 5 5 580 210
n499=  combo 2, 15 23 515 195
n500=  button "Add", 5, 535 23 45 22
n501=  button "Rem", 6, 535 48 45 22
n502=  button "Clear", 497, 535 102 45 22
n503=  button "Save", 498, 535 157 45 22
n504=  button "Cancel", 499, 535 182 45 22, cancel
n505=}
n506=
n507=on *:dialog:dislist:*:*:{
n508=  if ($devent == init) {
n509=    dla $dname 2 $r.set(Channels,NoTrigger)
n510=  }
n511=  if ($devent == sclick) {
n512=    if ($did == 5) && ($did($dname,2).sel == $null) && ($did($dname,2).text != $null) { did -a $dname 2 $did($dname,2).text | did -c $dname 2 $did($dname,2).lines }
n513=    if ($did == 6) && ($did($dname,2).sel isnum) { did -d $dname 2 $did($dname,2).sel  }
n514=    if ($did == 499) { dls $dname 2 w.set Channels NoTrigger } 
n515=  }
n516=}
n517=Dialog dislist {
n518=  title "Disable !Triggers"
n519=  size -1 -1 190 220
n520=  box "Channels:", 1, 5 5 180 210
n521=  combo 2, 15 23 115 195
n522=  button "Add", 5, 135 23 45 22
n523=  button "Rem", 6, 135 48 45 22
n524=  button "Done", 499, 135 182 45 22, ok
n525=}
n526=
n527=menu channel {
n528=  -
n529=  Queue List { /dialog -m queuelist queuelist }
n530=  Disable !Triggers { /dialog -m dislist dislist }
n531=  Channel Watch
n532=  .Set Main Channel { set %watchmain $chan | aecho Watch Main Channel = %watchmain }
n533=  .Add Channel { if ($findtok(%watchlist,$chan,0,32) == 0) { set %watchlist %watchlist $chan } | aecho Watch Channel List = %watchlist }
n534=  .Delete Channel { if ($findtok(%watchlist,$chan,0,32) > 0) { set %watchlist $remtok(%watchlist,$chan,1,32) } | aecho Watch Channel List = %watchlist }
n535=  .Set Text Color { set %watchcolor $?="Enter Watch Color" | aecho Watch Color = %watchcolor }
n536=  .Watch Channel Info { aecho Watch Main Channel = %watchmain | aecho Watch Channel List = %watchlist | aecho Watch Color = %watchcolor }
n537=}
