[script]
n0=on ^*:notice:*:#:{
n1=  ;/echo 3 -a ^notice# $nick $1-
n2=  if ($istok($remove($level($mask($fulladdress,3)),$chr(61)),40,44) == $true) { if ($me isop $chan) { mode $chan -o+bb $nick $wildsite $mask($fulladdress,3) | kick $chan $nick $isset($r.shit($mask($fulladdress,3)),No Reason Specified) (Shitlisted) | aecho $nick $bracket($address) is going to be removed from $c(2) $+ $chan $+ $c(1) $+ . $bracket(Shitlisted) } }
n3=  if ($1 != $null) {
n4=    set %~reply $nick
n5=    ;/echo 3 -a OpChat
n6=    if ($r.set(OpFunctions,OpNoticeWin) == On) && ($pos($1-,ping reply,0) == 0) && ($pos($1-,duration:,0) == 0) && ($pos($ts,chanserv,0) == 0) {
n7=      set %opmsgchan $nick
n8=      /var %~opmsgchan = $strip($1)
n9=      ;/echo 12 -a %opmsgchan , %~opmsgchan
n10=      if ($pos(%~opmsgchan,$chr(64),0) > 0) && ($pos(%~opmsgchan,$chr(35),0) > 0) {
n11=        %~opmsgchan = $remove(%~opmsgchan,$chr(64),$chr(58),$chr(40),$chr(41))
n12=        if (%~opmsgchan != $null) && ($me ison %~opmsgchan) { %opmsgchan = %~opmsgchan }
n13=      }
n14=      elseif ($pos($1,Ops,0) > 0) && ($pos($3,$chr(35),0) > 0) {
n15=        /var %~opmsgchan = $strip($3)
n16=        %~opmsgchan = $gettok(%~opmsgchan,1,40)
n17=        %~opmsgchan = $remove(%~opmsgchan,$chr(64),$chr(58),$chr(40),$chr(41))
n18=        if (%~opmsgchan != $null) && ($me ison %~opmsgchan) { %opmsgchan = %~opmsgchan }
n19=      }
n20=      if ($pos($1-,flood detect,0) == 0) {
n21=        set %opmsgname @OpChat $+ - $+ %opmsgchan
n22=        if ($window(%opmsgname).state == $null) { /window -ae %opmsgname }
n23=        echo $colour(notice) %opmsgname $chr(91) $+ [ $time(HH:nn) ] $+ $chr(93) - $+ $nick $+ $chr(40) $+ $chr(64) $+ %~opmsgchan $+ $chr(41) $+ - $visible($1-)
n24=        halt
n25=        haltdef
n26=      }
n27=    }
n28=    if ($chan != $active) && (($active == Status Window) || ($me ison $active) || ($query($active) != $null)) { echo $colour(notice) -a $ts - $+ $nick $+ ( $+ $target $+ )- $visible($1-) }
n29=    echo $colour(notice) $chan $ts - $+ $nick $+ ( $+ $target $+ )- $visible($1-)
n30=  }
n31=  ;/echo 12 -a ^notice# $nick $1-
n32=  haltdef
n33=}
n34=on ^*:notice:*:?:{
n35=  ;/echo 12 -a ^notice? $nick $1-
n36=  if ($nick == ChanServ) && ($r.set(OpFunctions,OpAKickDlg) == On) {
n37=    if ($pos($1-,access for,0) > 0) && ($pos($1-,changed from,0) > 0) {
n38=      set %~oliststat $strip($1-)
n39=      if ($10 == sop) { /timeroplist 1 3 /chanserv aop %~olistchan list }
n40=      else { /timeroplist 1 3 /chanserv sop %~olistchan list }
n41=      secho $1-
n42=      halt
n43=    }
n44=    elseif ($pos($1-,removed from,0) > 0) && ($pos($1-,akick list,0) > 0) {
n45=      set %~oliststat $strip($1-)
n46=      /timerklist 1 3 /chanserv akick %~olistchan list
n47=      secho $1-
n48=      halt
n49=    }
n50=    elseif ($pos($1-,added to,0) > 0) && ($pos($1-,akick list,0) > 0) {
n51=      set %~oliststat $strip($1-)
n52=      /timerklist 1 3 /chanserv akick %~olistchan list
n53=      secho $1-
n54=      halt
n55=    }
n56=    elseif ($pos($1-,removed from,0) > 0) && ($pos($1-,op list,0) > 0) {
n57=      set %~oliststat $strip($1-)
n58=      if ($8 == sop) { /timeroplist 1 3 /chanserv sop %~olistchan list }
n59=      else { /timeroplist 1 3 /chanserv aop %~olistchan list }
n60=      secho $1-
n61=      halt
n62=    }
n63=    elseif ($pos($1-,added to,0) > 0) && ($pos($1-,op list,0) > 0) {
n64=      set %~oliststat $strip($1-)
n65=      if ($8 == sop) { /timeroplist 1 3 /chanserv sop %~olistchan list }
n66=      else { /timeroplist 1 3 /chanserv aop %~olistchan list }
n67=      secho $1-
n68=      halt
n69=    }
n70=    elseif ($pos($1-,akick list for,0) > 0) {
n71=      unset %~olistname*
n72=      set %~olistchan $strip($4)
n73=      set %~olisttitle AKick $2 $3 %~olistchan
n74=      secho $1-
n75=      halt
n76=    }
n77=    elseif ($pos($1-,op list for,0) > 0) {
n78=      unset %~olistname*
n79=      set %~olistchan $strip($4)
n80=      if ($1 == aop) { set %~olisttitle AOP $2 $3 %~olistchan | set %~olistbtn ->SOP }
n81=      else { set %~olisttitle SOP $2 $3 %~olistchan | set %~olistbtn ->AOP }
n82=      secho $1-
n83=      halt
n84=    }
n85=    elseif ($1 isnum) {
n86=      set %~olistnum $1
n87=      set %~olistname $+ [ %~olistnum ] $3-
n88=      secho $1-
n89=      halt
n90=    }
n91=    elseif ($pos($1-,end of list,0) > 0) {
n92=      if ($pos(%~olisttitle,akick,0) > 0) {
n93=        if (%~oliststat != $null) && (%~oliststat != "") {
n94=          if ($pos(%~oliststat,added to,0) > 0) { %~olisttitle = %~olisttitle - $gettok(%~oliststat,1,32) added }
n95=          elseif ($pos(%~oliststat,removed from,0) > 0) { %~olisttitle = %~olisttitle - $gettok(%~oliststat,1,32) removed }
n96=        }
n97=        /dialog -m viewklist viewklist
n98=      }
n99=      else {
n100=        if (%~oliststat != $null) && (%~oliststat != "") {
n101=          %~oliststat = $replace(%~oliststat,aop,AOP)
n102=          %~oliststat = $replace(%~oliststat,sop,SOP)
n103=          if ($pos(%~oliststat,added to,0) > 0) { %~olisttitle = %~olisttitle - $gettok(%~oliststat,1,32) added to $gettok(%~oliststat,8-9,32) }
n104=          elseif ($pos(%~oliststat,removed from,0) > 0) { %~olisttitle = %~olisttitle - $gettok(%~oliststat,1,32) removed from $gettok(%~oliststat,8-9,32) }
n105=          elseif ($pos(%~oliststat,changed from,0) > 0) { %~olisttitle = %~olisttitle - $gettok(%~oliststat,3,32) $gettok(%~oliststat,6-,32) }
n106=        }
n107=        /dialog -m viewolist viewolist
n108=      }
n109=      secho $1-
n110=      halt
n111=    }
n112=  }
n113=  if ($nick == MemoServ) && ($r.set(OpFunctions,MemoDlg) == On) {
n114=    if ($pos($1-,new memo,0) > 0) {
n115=      set -u30 %~readmemos 1
n116=      set %~memonum $gettok($1-,3,32)
n117=      .timerlistmemo 1 3 .memoserv LIST
n118=      aecho $1- | halt
n119=    }
n120=    elseif ($pos($1-,memo list for,0) > 0) { unset %~memofrom* }
n121=    elseif ($gettok($1-,1,32) == purged) && ($gettok($1-,3,32) == memos) { if ($gettok($1-,2,32) != 0) { .timerlistmemo 1 3 .memoserv LIST } | aecho $1- | halt }
n122=    elseif ($gettok($1-,1,32) == memo) && ($gettok($1-,3,32) == from) { set %~memoread $gettok($1-,2,32) | set %~memof $4 | %~memof = $left(%~memof,-1) }
n123=    elseif ($right($1-,3) == GMT) {
n124=      set %~memonum $gettok($1-,1,32)
n125=      set %~memofroms $2-
n126=      set %~memofromt ·
n127=      if ($left($1,1) == d) {
n128=        set %~memofromt ×
n129=        %~memonum = $right(%~memonum,-1)
n130=      }
n131=      if ($left($1,1) == *) {
n132=        set %~memofromt *
n133=        %~memonum = $right(%~memonum,-1)
n134=      }
n135=      %~memofroms = $gettok(%~memofroms,1,32) %~memofromt $gettok(%~memofroms,2-,32) %~memofromt
n136=      set %~memofrom $+ [ %~memonum ] %~memofroms
n137=    }
n138=    elseif ($pos($1-,end of memo,0) > 0) && (%~memodolist == 1) {
n139=      if (%~viewy != 0) { /dialog -x pickmemo }
n140=      ;set %~memodolist 0
n141=      set %~viewy 40 | if (%~memonum != $null) { %~viewy = %~viewy + $calc(%~memonum * 30) } | /dialog -m pickmemo pickmemo
n142=    }
n143=    elseif ($pos($1-,marked as deleted,0) > 0) && (%~memodolist == 1) { .timerlistmemo 1 3 .memoserv LIST }
n144=    elseif ($pos($1-,you have no,0) != 0) { aecho $1- | halt }
n145=    elseif ($gettok($1-,1,32) != memo) && ($gettok($1-,3,32) != from) && ($pos($1-,end of memo,0) == 0) && (%~memonum > 0) && (%~readmemos == 1) {
n146=      if (%~memotitle == $null) || (%~memotitle == "") { set %~memotitle %~memof }
n147=      set %~memotext $1-
n148=      /dialog -m viewmemo viewmemo
n149=    }
n150=    secho $1-
n151=    halt
n152=  }
n153=  if ($pos($1-,debug var,0) > 0) && (%IMRB == 1) { /timerdebug 1 10 debugmode $1- }
n154=  if ($istok($remove($level($mask($fulladdress,3)),$chr(61)),40,44) == $true) { .notice $nick You were shitlisted, you've just been added to my ignore list! $slogox | close -m $nick | .ignore -pntiu60 $wildsite | aecho $nick $bracket($address) has been put on ignore. $bracket(Shitlisted) }
n155=  else {
n156=    set %~reply $nick
n157=    if ((%chancheck == 1) && ($1 != null)) {
n158=      set %waitinfo $visible($1-)
n159=      showchancheck
n160=      ;/echo 12 -a showchancheck
n161=      halt
n162=    }
n163=    if ((%waitversion != 1) && (%jhu_info != 1) && (%away_info != 1) && ($1 != null)) {
n164=      set %waitinfo $strip($visible($1-))
n165=      if ($pos(%waitinfo,Info for #|2at,0) > 0) { %jhu_info = 0 | %away_info = 0 | %waitversion = 1 | halt }
n166=    }
n167=    if (((%waitversion == 1) || (%jhu_info == 1) || (%away_info == 1)) && ($1 != null)) {
n168=      set %waitinfo $visible($1-)
n169=      if (($pos(%waitinfo,Version,0) > 0) && (%waitversion == 1)) {
n170=        set %ratinfo $gettok(%waitinfo,4-,32)
n171=        set %ratversion $gettok(%waitinfo,5,32)
n172=        if (%ratversion > $ratversion) {
n173=          aecho There is a newer version of $slogo $gettok(%waitinfo,6-,32)
n174=          set %textprompt $ratpolaris %ratversion is now available at http://jhumovies.hypermart.net.
n175=          /dialog -m viewstatus viewstatus
n176=        }
n177=        else { aecho You have the latest version of $slogo }
n178=        ;/echo 12 -a waitversion
n179=        halt
n180=      }
n181=      elseif ($pos(%waitinfo,Last Topic,0) > 0) {
n182=        if (%jhu_info == 1) {
n183=          set %jhuinfo %waitinfo
n184=          %jhuinfo = $gettok(%jhuinfo,4,32)
n185=          set %jhuinfol 1
n186=          set %jhuinfon $numtok(%jhuinfo,44)
n187=          if ((%jhuinfo != $null) && (%jhuinfon > 0)) { .timershowawaymsgs 1 30 getawaymsgs }
n188=          ;/echo 12 -a Last Topic
n189=          halt
n190=        }
n191=        elseif (%away_info == 1) {
n192=          set %awayinfo %waitinfo
n193=          %awayinfo = $gettok(%awayinfo,4-,32)
n194=          %awayinfo = $deltok(%awayinfo,$numtok(%awayinfo,32),32)
n195=          set %awayitime $gettok(%awayinfo,1,32)
n196=          if (%awayitime isnum) {
n197=            %awayinfo = $deltok(%awayinfo,1,32)
n198=            /var %~goneduration = $lduration($vnum($calc($ctime - %awayitime)))
n199=          }
n200=          else {
n201=            /var %~goneduration = Unknown
n202=            %awayinfo = Unknown
n203=          }
n204=          if (%awayinfo != $null) {
n205=            if (%awayinfo = Back ) { /echo #jhu $ts $c(1) $+ < $+ %jhuinfonick $+ $c(1) $+ > $bracket(Gone) $sv(Duration,%~goneduration) $sv(Reason,Net Split?) $slogox }
n206=            else { /echo #jhu $ts $c(1) $+ < $+ %jhuinfonick $+ $c(1) $+ > $bracket(Gone) $sv(Duration,%~goneduration) $sv(Reason,%awayinfo) $slogox }
n207=          }
n208=          inc %jhuinfol
n209=          if (%jhuinfol <= %jhuinfon) { .timershowawaymsgs 1 10 getawaymsgs }
n210=          else { set %jhuinfol 1 | .timershowawaymsgs 1 3600 getawaymsgs }
n211=          ;/echo 12 -a Show Away
n212=          halt
n213=        }
n214=      }
n215=      ;/echo 3 -a %waitinfo
n216=      if (($pos(%waitinfo,Mode Lock,0) > 0) || ($pos(%waitinfo,http,0) > 0) || ($pos(%waitinfo,Founder,0) > 0) || ($pos(%waitinfo,Memo Level,0) > 0) || ($pos(%waitinfo,Registered,0) > 0) || ($pos(%waitinfo,Options,0) > 0) || ($pos(%waitinfo,Last opping,0) > 0) || ($pos(%waitinfo,|2at,0) > 0) || ($pos(%waitinfo,Info for,0) > 0) || ($pos(%waitinfo,Description:,0) > 0) || ($pos(%waitinfo,WebPage:,0) > 0)) { halt }
n217=      ;      if ($pos(%waitinfo,End of Info,0) > 0) { %jhu_info = 0 | %away_info = 0 | if ((%waitversion == 1) && ($me ison #jhu)) { %waitversion = 0 | getjhuinfo } | %waitversion = 0 | halt }
n218=      if ($pos(%waitinfo,End of Info,0) > 0) { %jhu_info = 0 | %away_info = 0 | %waitversion = 0 | halt }
n219=    }
n220=    if (($r.set(Personal.Flood.Protection,Notice) == On) && ($isnum($r.set(Personal.Flood.Protection,Notice.Lines)) == $true) && ($isnum($r.set(Personal.Flood.Protection,Notice.Interval)) == $true) && ($isnum($r.set(Personal.Flood.Protection,Ignore.Time)) == $true) && ($gnick($nick) == $true) && ($nick != $me) && ($host != $site)) {
n221=      inc %~pflood-notice. [ $+ [ $replace($site,*,_,?,_) ] ] 1
n222=      if (%~pflood-notice. [ $+ [ $replace($site,*,_,?,_) ] ] >= $r.set(Personal.Flood.Protection,Notice.Lines)) {
n223=        close -m $nick | .ignore -pntiu [ $+ [ $r.set(Personal.Flood.Protection,Ignore.Time) ] ] $wildsite
n224=        .notice $nick $c(1) $+ Notice flood detected, protection enabled. $bracket($r.set(Personal.Flood.Protection,Notice.Lines),lines within,$r.set(Personal.Flood.Protection,Notice.Interval),second interval per line) $slogox
n225=        aecho $nick $bracket($address) was put on ignore for $r.set(Personal.Flood.Protection,Ignore.Time) seconds for Notice flooding you.  To unignore $nick press $c(2) $+ Control+F6 $+ $c(1) now! $bracket($r.set(Personal.Flood.Protection,Notice.Lines),lines within,$r.set(Personal.Flood.Protection,Notice.Interval),second interval per line)
n226=      }
n227=      utimer ~pflood-notice. [ $+ [ $replace($site,*,_,?,_) ] ] $r.set(Personal.Flood.Protection,Notice.Interval)
n228=    }
n229=    if (%~pflood-notice. [ $+ [ $replace($site,*,_,?,_) ] ] < $r.set(Personal.Flood.Protection,Notice.Lines)) || (%~pflood-notice. [ $+ [ $replace($site,*,_,?,_) ] ] == $null) {
n230=      if (($r.set(Auto.ID,Status) == On) && (($nick == NickServ) || ($nick == ChanServ)) && (($pos($1-,This nick,0) > 0) || ($pos($1-,do not have access to op,0) > 0))) { if (%opretry < 6) { doidentify } }
n231=      if (($away == $true) && ($r.set(Away,Auto.Reply) == On) && ($nick != $me) && ($gnick($nick) == $true) && ($1 != XDCC) && (%~idle. [ $+ [ $nick ] ] == $null) && ($idle > 60)) { .notice $nick $bracket(Away) $away.time $away.reason $away.pager $slogox | set %~idle. [ $+ [ $nick ] ] 1 | .timer 1 10 unset %~idle. [ $+ [ $nick ] ] }
n232=      if (($nick == ChanServ) && ($pos($1-,Any bans against,0) > 0)) {
n233=        if ($gettok($1-,4,32) == $me) {
n234=          /var %~unbanchan = $gettok($1-,6,32)
n235=          if ($me !ison %~unbanchan) { /join %~unbanchan }
n236=        }
n237=      }
n238=    }
n239=  }
n240=  if ($1 != $null) {
n241=    if ($r.set(OpFunctions,OpNoticeWin) == On) && ($pos($1-,ping reply,0) == 0) && ($pos($1-,duration:,0) == 0) && ($pos($ts,chanserv,0) == 0) {
n242=      /var %~opnochan = $numtok(%meonchans,44)
n243=      :checkopno
n244=      if (%~opnochan > 0) {
n245=        /var %~opnochans = $gettok(%meonchans,%~opnochan,44)
n246=        if ($nick isop %~opnochans) { goto opnok }
n247=        dec %~opnochan
n248=        goto checkopno
n249=      }
n250=      :opnok
n251=      ;echo 7 -s %~opnochans , %~opnochan , $nick , $r.set(OpFunctions,UserWin)
n252=      if ((%~opnochan == 0) && ($r.set(OpFunctions,UserWin) == On)) || ((%~opnochan > 0) && ($r.set(OpFunctions,PvtOpWin) == On)) {
n253=        set %opmsgchan $nick
n254=        if (($right(%opmsgchan,4) != serv) || ($r.set(OpFunctions,ServiceWin) == On)) {
n255=          if ($1 != DCC) && ($pos($1-,Auto Op,0) == 0) && ($findtok($1-,send,0,32) == 0) && ($findtok($1-,sending,0,32) == 0) && ($findtok($1-,sent,0,32) == 0) && ($findtok($1-,flood detect,0,32) == 0) {
n256=            if ($pos($1,Ops,0) > 0) && ($pos($3,$chr(35),0) > 0) {
n257=              /var %~opmsgchan = $strip($3)
n258=              %~opmsgchan = $gettok(%~opmsgchan,1,40)
n259=              %~opmsgchan = $remove(%~opmsgchan,$chr(64),$chr(58),$chr(40),$chr(41))
n260=              if (%~opmsgchan != $null) && ($me ison %~opmsgchan) { %opmsgchan = %~opmsgchan }
n261=            }
n262=            set %opmsgname @OpChat $+ - $+ %opmsgchan
n263=            if ($window(%opmsgname).state == $null) { /window -ae %opmsgname }
n264=            echo $colour(notice) %opmsgname $chr(91) $+ [ $time(HH:nn) ] $+ $chr(93) - $+ $nick $+ - $visible($1-)
n265=            haltdef
n266=          }
n267=        }
n268=      }
n269=    }
n270=    ecomc $colour(notice) $nick $ts - $+ $nick $+ - $visible($1-)
n271=    if ($nick !ison $active) && (($active == Status Window) || ($me ison $active) || ($query($active) != $null)) { echo $colour(notice) -a $ts - $+ $nick $+ - $visible($1-) }
n272=    if ($comchan($nick,1) == $null) && ($active != Status Window) { echo $colour(notice) -s $ts - $+ $nick $+ - $visible($1-) }
n273=  }
n274=  ;/echo 12 -a ^Notice?
n275=  haltdef
n276=}
n277=on *:dialog:viewmemo:*:*:{
n278=  if ($devent == init) {
n279=    /did -ra $dname 1 %~memotext
n280=  }
n281=  if ($devent == sclick) {
n282=    if ($did == 497) { .memoserv SEND $gettok(%~memotitle,1,32) $$?="Reply Message" }
n283=    if ($did == 498) { .memoserv DEL %~memoread }
n284=    /dialog -x viewmemo
n285=  }
n286=}
n287=Dialog viewmemo {
n288=  title %~memotitle
n289=  size -1 -1 400 150
n290=  text "", 1, 5 10 385 130
n291=  button "Reply", 497, 65 122 80  25, cancel
n292=  button "Delete", 498, 160 122 80  25, cancel
n293=  button "Cancel", 499, 255 122 80 25, cancel
n294=}
n295=on *:dialog:viewolist:*:*:{
n296=  if ($devent == init) {
n297=    /unset %~olistsel
n298=    /var %~viewm 0
n299=    :viewloop
n300=    inc %~viewm
n301=    set %~olistf %~olistname [ $+ [ %~viewm ] ]
n302=    if (%~olistf != $null) && (%~olistf != "") {
n303=      /did -a $dname 10 %~olistf
n304=      goto viewloop
n305=    }
n306=    /did -ra $dname 495 %~olistbtn
n307=    if (%~olistbtn == ->AOP) { /did -ra $dname 498 List AOP }
n308=    else { /did -ra $dname 498 List SOP }
n309=  }
n310=  if ($devent == sclick) {
n311=    if ($did == 10) {
n312=      set %~olistsel $did(10,1).sel
n313=      set %fname $did(10,%~olistsel)
n314=      ;/memoserv READ %fsel
n315=    }
n316=    if ($did == 495) {
n317=      if (%~olistsel != $null) {
n318=        if (%~olistbtn == ->AOP) {
n319=          /chanserv AOP %~olistchan ADD $gettok(%fname,1,32)
n320=        }
n321=        else {
n322=          /chanserv SOP %~olistchan ADD $gettok(%fname,1,32)
n323=        }
n324=        /dialog -x viewolist
n325=      }
n326=    }
n327=    if ($did == 496) {
n328=      /dialog -x viewolist
n329=      if (%~olistbtn == ->AOP) { /chanserv SOP %~olistchan ADD $$?="Enter Nick/Mask" }
n330=      else { /chanserv AOP %~olistchan ADD $$?="Enter Nick/Mask" }
n331=    }
n332=    elseif ($did == 497) {
n333=      if (%~olistsel != $null) {
n334=        if (%~olistbtn == ->AOP) { /chanserv SOP %~olistchan DEL $gettok(%fname,1,32) }
n335=        else { /chanserv AOP %~olistchan DEL $gettok(%fname,1,32) }
n336=        /dialog -x viewolist
n337=      }
n338=    }
n339=    elseif ($did == 498) {
n340=      if (%~olistbtn == ->AOP) { /chanserv AOP %~olistchan LIST }
n341=      else { /chanserv SOP %~olistchan LIST }
n342=      /dialog -x viewolist
n343=    }
n344=    if ($did == 499) { /dialog -x viewolist }
n345=  }
n346=}
n347=Dialog viewolist {
n348=  title %~olisttitle
n349=  size -1 -1 400 230
n350=  list 10, 5 10 388 210
n351=  button "->AOP", 495, 5 202 70 25
n352=  button "Add", 496, 85 202 70 25
n353=  button "Delete", 497, 165 202 70 25
n354=  button "List", 498, 245 202 70 25
n355=  button "Cancel", 499, 325 202 70 25, cancel
n356=}
n357=on *:dialog:viewklist:*:*:{
n358=  if ($devent == init) {
n359=    /unset %~olistsel
n360=    /var %~viewm 0
n361=    :viewloop
n362=    inc %~viewm
n363=    set %~olistf %~olistname [ $+ [ %~viewm ] ]
n364=    if (%~olistf != $null) && (%~olistf != "") {
n365=      /did -a $dname 10 %~olistf
n366=      goto viewloop
n367=    }
n368=  }
n369=  if ($devent == sclick) {
n370=    if ($did == 10) {
n371=      set %~olistsel $did(10,1).sel
n372=      set %fname $did(10,%~olistsel)
n373=    }
n374=    if ($did == 496) {
n375=      /chanserv AKICK %~olistchan ADD $$?="Enter Nick/Mask" $$?="Enter Reason" 
n376=      /dialog -x viewklist
n377=    }
n378=    elseif ($did == 497) {
n379=      if (%~olistsel != $null) {
n380=        /chanserv AKICK %~olistchan DEL $gettok(%fname,1,32)
n381=        /dialog -x viewklist
n382=      }
n383=    }
n384=    elseif ($did == 499) { /dialog -x viewklist }
n385=  }
n386=}
n387=Dialog viewklist {
n388=  title %~olisttitle
n389=  size -1 -1 400 230
n390=  list 10, 5 10 388 210
n391=  button "Add", 496, 85 202 70 25
n392=  button "Delete", 497, 165 202 70 25
n393=  button "Cancel", 499, 245 202 70 25, cancel
n394=}
