on *:START:{ themestart }
on *:LOAD:{ themestart }

alias themestart {
  .timestamp on
  .timestamp -f 2(12hh2:12nn2.12ss2)
  .timestamp -g 2(12hh2:12nn2.12ss2)
  .color background 11
  .color editbox 11
  .color editbox text 1
  .color treebar 11
  .color treebar text 1
  .color listbox 11
  .color listbox text 1
  .color inactive 11 
  .color 2 $rgb(192,19,19)
  .color 3 $rgb(0,147,0)
  .color 10 $rgb(100,100,100)
  .color 11 $rgb(212,212,212)
  .color 12 $rgb(90,90,90)
  .color 14 $rgb(54,64,71)
  .color 15 $rgb(141,155,169)
  .font -z 12 tahoma
  .cnick -r *
  .cnick -r * 
  .cnick -r * 
  .cnick -r * 
  .cnick -r *
  .cnick -r *
  .cnick -r *
  .cnick -r *
  .cnick $!me 7 *
  .cnick * 1 ~&@%
  .cnick * 15 +
  .cnick * 2 *
  changeversion
  echo -st 2((
  echo -st     2 —› Welcome to Coffey's Atomic Theme.
  echo -st     2 —› You are running mIRC $version on $os $+ .
  echo -st     2 —› Enjoy!
  echo -st 2((
}

alias describe {
  haltdef
  .describe $1 $2-
  echo -tm $1 2• $me $2-
}
alias me {
  haltdef
  .me $active $1-
  echo -tm $active 2• $me $1-
}
on ^*:text:*:#:{
  if ($nick isop #) { haltdef | echo -tm $chan 02(@01 $+ $nick $+ 02)01 $1- }
  elseif ($nick ishop #) { haltdef | echo -tm $chan 02(%01 $+ $nick $+ 02)01 $1- }
  elseif ($nick isvoice #) { haltdef | echo -tm $chan 02(+01 $+ $nick $+ 02)01 $1- }
  elseif ($nick isreg #) { haltdef | echo -tm $chan 02(01 $+ $nick $+ 02)01 $1- }
}

on *:INPUT:#:{
  if ($left($1,1) != /) {
    if ($me isop #) { .msg # $1- | echo -tm $chan 02(@01 $+ $me $+ 02)01 $1- | haltdef }
    if ($me ishop #) { .msg # $1- | echo -tm $chan 02(%01 $+ $me $+ 02)01 $1- | haltdef }
    if ($me isvoice #) { .msg # $1- | echo -tm $chan 02(+01 $+ $me $+ 02)01 $1- | haltdef }
    if ($me isreg #) { .msg # $1- | echo -tm $chan 02(01 $+ $me $+ 02)01 $1- | haltdef }
  }
}


on *:INPUT:?:{
  if ($left($1,1) != /) {
  .msg $active | echo -ta $chan 02(01 $+ $me $+ 02)01 $1- | haltdef }
}


on ^*:text:*:?:{
  haltdef
  echo -tm $nick 02(01 $+ $nick $+ 02) $1-
}


alias quit { raw quit :: Coffey's . Atomic . Theme :: } 
alias notice {
  if (!$isid) {
    .!notice $1-
    if (!$show) { return }
    echo -tma     02 —›12 - $+ $1 $+ 12- $2-
  }
}
alias dns {
  if (!$isid) {
    if ($1) {
      !.dns $1-
      if ($show) {
        var %h = $1,%f
        if ($istok(-h -c,$1,32)) { var %f = $1,%h = $2 }
        if (%f != -h) && (. !isin %h) && ($address(%h,5)) { %h = $gettok($v1,2,64) }
        echo -tma     02 —›12 DNS: resolving $thmbr(%h) $+ ...
      }
    }
  }
}

on ^*:notify:{
  haltdef
  echo -tms     02 —›12 Notify: $thmbr($nick) is now online!
}
on ^*:unotify:{
  haltdef
  echo -tms     02 —›12 Unnotify: $thmbr($nick) is now offline!
}
alias thmhl {
  if ($1- != $null) {
    return 02(12 $+ $1- $+ 02)12
  }
}
alias thmbr {
  if ($1- != $null) {
    return 02(12 $+ $1- $+ 02)12
  }
}
on ^*:join:#:{
  haltdef
  if ($nick == $me) {
    haltdef
    echo -tm $chan 02((
    echo -tm $chan     02 —›12 Now talking in $thmbr($chan)
    echo -tm $chan     02 —›12 Users: $nick($chan,0) users, $nick($chan,0,o) ops, $nick($chan,0,v) voiced, $nick($chan,0,r) regular.
  }
  else {
    haltdef
    var %x = 1 
    while (%x <= $nick($chan,0)) { 
      if ($address($nick($chan,%x),2) == $address($nick,2)) && ($nick($chan,%x) != $me) { 
        var %clones %clones $nick($chan,%x) 
      } 
      inc %x 
    }
    echo -tm $chan     02 —›12 Join: $thmbr($nick) $thmbr($address) $iif(%clones != $null && %clones != $nick, $chr(124) 12Clones Found: $thmbr(%clones))
  }
  if ($query($nick)) {
    echo -tm $nick     02 —›12 Join: $thmbr($+($nick,:,$chan)) $thmbr($address)
  }
}

on ^*:part:#:{
  haltdef
  if ($nick == $me) {
    echo -ts     02 —›12 Part: You have parted $chan $thmbr($1-)
  }
  else {
    echo -tm $chan     02 —›12 Part: $thmbr($nick) $thmbr($address) $thmbr($1-)
  }
  if ($query($nick)) {
    echo -tm $nick     02 —›12 Part: $thmbr($+($nick,:,$chan)) $thmbr($address) $thmbr($1-)
  }
}

on ^*:kick:#:{
  haltdef
  if ($knick == $me) {
    echo -tma     02 —›12 Kick: You were kicked out of $thmbr($chan) by $thmbr($nick) $thmbr($1-)
  }
  else {
    echo %e     02 —›12 kick: $thmbr($knick) was kicked by $thmbr($nick) $thmbr($1-)
  }
  if ($query($knick)) {
    echo -tm $knick     02 —›12 Kick: $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $thmbr($1-)
  }
  if ($query($nick)) {
    echo -tm $nick     02 —›12 Kick: $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $thmbr($1-)
  }
}

on ^*:quit:{
  haltdef
  var %i $comchan($nick,0) 
  while (%i) { 
    echo -tm $comchan($nick,%i)     02 —›12 Quit: $thmbr($nick) $thmbr($address) $thmbr($1-)
    dec %i
  }
  if ($query($nick)) {
    echo -tm $nick     02 —›12 Quit: $thmbr($nick) $thmbr($address) $thmbr($1-)
  }
}

on ^*:nick:{
  haltdef
  if ($newnick != $me) {
    var %i = 1
    while ($comchan($newnick,%i)) { 
      echo -tm $comchan($newnick,%i)     02 —›12 Nick: $thmbr($nick) is now known as $thmbr($newnick)
      inc %i
    }
    if ($nick == $me) {
      var %d 1
      while (%d <= $chan(0)) {
        echo -tms $chan(%d)     02 —›12 Nick:12 You are now known as $thmbr($newnick)
        inc %d
      }
      if ($query($newnick)) {
        echo -tm $newnick     02 —›12 Nick: $thmbr($nick) is now known as $thmbr($newnick)
      }
    }
  }
}

on ^*:topic:#:{
  haltdef
  var %x = 1 
  while ($ini(topic.ini,$chan,n $+ %x)) { inc %x } 
  writeini -n topic.ini $chan $+(n,%x) $replace($1-,$chr(2),<b>,$chr(3),<c>,$chr(15),<n>,$chr(22),<r>,$chr(31),<u>) 
  echo -tm $chan     02 —›12 Topic: $thmbr($nick) changes topic to 02( $+ $1- $+ 02)
}

ctcp *:*:*:{
  if (!$istok(dcc version,$1,32)) {
    haltdef
    if ($1 == ping) { .ctcpreply $nick PING $ctime }
    if ($chan) {
      echo -tm $chan 02? $+ $nick $+ 02@ $+ $chan $+ 02? $1 $2-
    }
    else {
      echo -tma 02? $+ $nick $+ 02? $1 $2-
    }
  }
}

on ^*:rawmode:#:{
  haltdef
  echo -tm $chan     02 —›12 Mode: $thmbr($nick) sets mode $thmbr($1-)
}
on ^*:invite:#:{
  haltdef
  echo -tmsa     02 —›12 Invite: $thmbr($nick) invites you to join $thmbr($chan)
}
on ^*:usermode:{
  haltdef
  echo -tmsa     02 —›12 Your usermode is now: $thmbr($1-)
}

on ^*:chat:*:{
  haltdef
  echo -tm =$nick 2• (12 $+ $nick $+ 12)1 $+ $1-
}


on ^*:action:*:#:{
  haltdef
  echo -tm $chan 4• $nick $1-
}


on ^*:action:*:?:{
  haltdef
  echo -tm $chan 4• $nick $1-
} 



on ^*:notice:*:*:{
  haltdef
  echo -tmas 12-1 $+ $nick $+ 12-1 $1-
}

on ^*:snotice:*:{
  haltdef
  echo -tmas 1- $+ $nick $+ - $1-
}

on ^*:open:?:{
  echo -tmas     2—› (12 $+ $nick $+ 2)12/2(12 $+ $address $+ 2)12 opened a query with you:1 $1-
}

on *:dns:{
  haltdef
  if ($dns(0)) {
    var %i = 1,%t = $dns(0)
    while (%i <= %t) {
      echo -tmas     02 —›12 DNS: resolved $thmbr($dns(%i)) to $thmbr($remtok($dns(%i).ip $dns(%i).addr,$dns(%i),1,32))
      inc %i
    }
  }
  else {
    echo -tmas     02 —›12 DNS: unable to resolve $thmbr($iif($address,$v1,$nick))
  }
}

on ^*:wallops:*:{
  haltdef
  if (!$window(%w)) {
    window -nk0g1e %w
    thmecho %w Wall message window for $thmhl($1-) opened on $thmhl($asctime(h:nn.ss)) $+ .
    echo %w 
  }
  echo -tm %w 02( $+ $nick $+ 02) %t
}
raw 324:*:{
  haltdef
  echo -t $2     02 —›12 Modes on $2 $+ : 02(12 $+ $3- $+ 02)
}
raw 329:*:{
  haltdef
  echo -t $2     02 —›12 $2 creation time: $thmbr($asctime($3))
  echo -tm $2 02((
}
raw 367:*:{
  haltdef
  echo -t $2     02 —›12 $thmbr($3) set on $thmbr($asctime($5)) by $thmbr($4)
}
raw 368:*:{
  haltdef
  echo -t $2     02 —›12 End of $thmbr($2) ban list!
}
raw 404:*:{
  haltdef
  echo -t $2     02 —›12 Unable to send message to $thmbr($2) $+ !
}
raw 482:*:{
  haltdef
  echo -t $2     02 —›12 You're not opped on $thmbr($2) $+ !
}
raw 396:*:{
  haltdef
  echo -st     02 —›12 $thmbr($2) is now your hidden host!
}
raw 451:*:{
  haltdef
  echo -st     02 —›12 Register first!
}
raw 311:*:{
  haltdef
  if (%whois. [ $+ [ $cid ] ]) {
    echo -tma 02((12 /whois end 02))
  }
  else {
    set %whois. $+ $cid 1
  }
  echo -tma 02((12 /whois start 02))
  echo -tma 02 —› 01 $+ $2 12is "1 $+ $6- $+ 12" $thmbr($+($3,@,$4))
}
raw 319:*:{
  haltdef
  echo -ta 11 —›  $+ $2 12Is on:1 $3-
}

raw 312:*:{
  haltdef
  echo -tma 11 —›  $+ $2 12Using1 $3 1 $+ $thmbr($4-)
}
else {
  echo -tma 11 —›  $+ $2 12Used1 $3 1 $+ $thmbr($4-)
}

raw 313:*:{
  haltdef
  echo -tma 11 —›  $+ $2 12is1 $5-
}
raw 314:*:{
  haltdef
  set %whowas. $+ $cid 1
  echo -tma 02((12 /whowas start 02))
  echo -tma 02 —› 01 $+ $2 12was " $+ $6- $+ 12" $thmbr($+($3,@,$4))
}
raw 301:*:{
  haltdef
  if (%whois. [ $+ [ $cid ] ]) {
    echo -tma 11 —›  $+ $2 12is away "1 $+ $3- $+ 12"
  }
  elseif (%whowas. [ $+ [ $cid ] ]) {
    echo -tma 11 —›  $+ $2 12was away "1 $+ $3- $+ 12"
  }
  elseif ($2 != $me) && (!%away.seen. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ]) {
    set -u300 %away.seen. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ] 1
    echo -tma     02 —›12 Away: $thmbr($2) is marked as being away as $thmbr($3-)
  }
}
raw 369:*:{
  haltdef
  if (%whowas. [ $+ [ $cid ] ]) {
    echo -tma whois 02((12 /whowas end 02))
    unset %whowas. $+ $cid
  }
}
raw 330:*:{
  haltdef
  echo -tma 11 —›  $+ $2 12Authed as "1 $+ $3 $+ 12"
}
raw 338:*:{
  haltdef
  echo -tma 11 —›  $+ $2 12Real host $3 $thmbr($4-)
}
raw 317:*:{
  haltdef
  echo -tma 11 —›  $+ $2 12Has been idle for1 $duration($3)
  echo -tma 11 —›  $+ $2 12Signed on1 $duration($calc($ctime - $4)) 12ago
}
raw 318:*:{
  haltdef
  if (%whois. [ $+ [ $cid ] ]) {
    echo -tma 02((12 /whois end 02))
    unset %whois. $+ $cid
  }
}
raw 331:*:{
  haltdef
  if ($me ison $2) { 
    echo -tm $2     02 —›12 No topic set: $thmbr($2)
  }
}
raw 332:*:{
  haltdef
  if ($me ison $2) { 
    echo -tm $2     02 —›12 Topic: $thmbr($3-)
  }
}
raw 333:*:{
  haltdef
  if ($me ison $2) { 
    echo -tm $2     02 —›12 Set by: $thmbr($3) on $thmbr($asctime($4))
  }
}
raw 341:*:{
  haltdef
  echo -t $3     02 —›12 Invite: $thmbr($2) has been invited to join $thmbr($3)
}
raw 443:*:{
  haltdef
  echo -ts $3     02 —›12 Invite: $thmbr($2) is already on $thmbr($3)
}
raw 353:*:{
  haltdef
  echo -st     02 —›12 Names: $thmbr($3) $4-
}

raw 355:*:{
  haltdef
  echo -st     02 —›12 Names: $thmbr($3) $4-
}

raw 366:*:{
  haltdef
  echo -st     02 —›12 End of /names list for $thmbr($2)
}

raw 421:*:{
  haltdef
  echo -sta     02 —›12 Error: unknown command $thmbr($2)
}
raw 352:*:{
  haltdef
  echo -ts     02 —›12 Who: 02(12 $+ $6 $+ ! $+ $+($3,@,$4) $+ 02)12 on $thmbr($2) using $thmbr($5) $+ . real name: $thmbr($9-)
}
raw 315:*:{
  haltdef
  echo -ts     02 —›12 End of /who request for $thmbr($2)
}
raw 433:*:{
  haltdef
  echo -ta     02 —›12 Error: nickname $thmbr($2) is already in use! 
}
raw 471:*:{
  haltdef
  echo -ta     02 —›12 Can't join $2 02(12full (+l)02)12! 
}
raw 473:*:{
  haltdef
  echo -ta     02 —›12 Can't join $2 02(12invite only (+i)02)12! 
}
raw 474:*:{
  haltdef
  echo -ta     02 —›12 Can't join $2 02(12you're banned (+b)02)12! 
}
raw 475:*:{
  haltdef
  echo -ta     02 —›12 Can't join $2 02(12requires key (+k)02)12! 
}
raw 477:*:{
  if ($left($2,1) isin $chantypes) {
    haltdef
    echo -ta     02 —›12 Can't join $2 02(12auth'ed only (+r)02)12!
  }
}
raw 401:*:{
  haltdef
  echo -tma     02 —›12 No such nickname: $thmbr($2)
  unset $+(%,whois.,$2,.,$cid)
}
raw 406:*:{
  haltdef
  echo -tma     02 —›12 No such nickname: $thmbr($2)
}
raw 403:*:{
  haltdef
  echo -tma     02 —›12 No such channel: $thmbr($2)
}
raw 251:*:{
  haltdef
  echo -stm     02 —›12 There are $thmbr($4) users and $thmbr($7) invisible on $thmbr($10) servers
}
raw 252:*:{
  haltdef
  echo -stm     02 —›12 There are $thmbr($2) operator(s) online
}
raw 253:*:{
  haltdef
  echo -stm     02 —›12 There are $thmbr($2) unknown connection(s)
}
raw 254:*:{
  haltdef
  echo -stm     02 —›12 There are $thmbr($2) channels formed
}
raw 472:*:{
  haltdef
}
raw 255:*:{
  haltdef
  echo -stm     02 —›12 I have $thmbr($4) clients and $thmbr($7) servers
}
raw 001:*:{
  haltdef
  echo -stm     02 —›12 Welcome to the internet relay network, $thmbr($8)
}
raw 002:*:{
  haltdef
  echo -stm     02 —›12 Your host is $thmbr($left($5,-1)) $+ , running version $thmbr($8)
}

raw 003:*:{
  haltdef
  echo -stm     02 —›12 This server was created $thmbr($6-)
}

raw 004:*:{
  haltdef
  echo -stm     02 —›12 Server: $thmbr($2) $+ , version: $thmbr($3) $+ , usermodes: $thmbr($4) $+ , channelmodes: $thmbr($5)
}

raw 005:*:{
  haltdef
  echo -stm     02 —›12 Supported by this server: $thmbr($deltok($2-,-5-,32))
}

raw *:*:{
  if (!$istok(321 322 323,$numeric,32)) {
    haltdef
    echo -tma     02 —›12 $2-
  }
}

Alias Changeversion { 
  .Ignore -tw * 
  .Debug -i NUL Versionrep 
}
Alias Versionrep { 
  If ($Regex($1,/^<- :(\S+?)!\S+ PRIVMSG \S+ :\001VERSION\001/)) { 
    .Ctcpreply $Regml(1) VERSION :: Atomic . Theme . By . Coffey522 ::
  } 
}

alias clonescan {
  who $chan
  var %nicks = $nick($chan,0), %x = 0
  while (%x <= %nicks) {
    var %host = $address($nick($chan,%x),2)
    if (%host != $address($me,2)) && (!$read(allowedhost.txt,w,%host)) {
      if ($ialchan(%host,$chan,0) > 1) && (!$istok(%clone.hosts,%host,44)) {
        var %y = 1, %clones = $ialchan(%host,$chan,0), %clones.found = yes
        while (%y <= %clones) {
          var %nick = $gettok($ialchan(%host,$chan,%y),1,33)
          var %clone.nicks = $iif(%clone.nicks,%clone.nicks &) %nick
          inc %y
        }
        echo -tm $chan     2 —› Clones: $thmbr(%clone.nicks @ $gettok(%host,2,64))
        var %clone.hosts = $addtok(%clone.hosts,%host,44)
        unset %clone.nicks
      }
    }
    inc %x
  }  
  if (!%clones.found) echo -tm $chan     2 —› Clones: $thmbr(None found)
}

alias loader { return $findfile($logdir,*.log,0,1,aline -l @Log $nopath($1-)) }

alias viewer {
  window -Skal15 @Log 300 150 500 300 @Log Tahoma 12 | titlebar @Log Viewer
  aline 1 @Log 0,10 Logs !  $loader Log(s) Were Found
  aline 1 @Log -
  if ($1 != $null) { seefile 0 $1- }
}

alias seefile {
  if ( $isfile($2-) ) {
    loadbuf -rp @Log $+(",$2-,")
    if ( $1 == 0 ) { sline @Logs 10 | sline @Log 10 }
    else {
      sline @Log $calc($1 + 2) | sline @Log $calc($1 + 2)
      rline @Log $1 $line(@Log,$1)
    }
    if ( $fline(@Log,$nopath($2-),1,1)  ) { sline -l @Log $ifmatch }
  }
}

alias erase { var %lvar = $sline(@Log,0)
  while ( %lvar ) { .signal removefile @Log $sline(@Logs,%lvar).ln $+($logdir,$sline(@Log,%lvar)) | dec %lvar }
}

alias eraseall {
  var %lvar = $line(@Log,0,1)
  while ( %lvar ) { .signal removefile @Log %lvar $+($logdir,$line(@Log,%lvar,1)) | dec %lvar }
}

on *:signal:removefile: { .remove $+(",$3-,") | dline -l $1 $2 }

menu @Log {
  dclick: { if ( $1 ) { seefile 0 $+($logdir,$line(@Log,$1,1)) } }
  .$iif(!$sline(@Log,0),$style(2)) Erase: { erase }
  .-
  .Erase all: { eraseall }
  -
  Update: { window -c @Log | viewer }
  -
  Close: { window -c @Log }
  -
}

menu nicklist {
  $1
  .Quickinfo $+ $chr(58) $nick: echo     2—›1 $1-
  .-
  .Channel $+ $chr(58) $chan: echo     2—›1 $1-
  .User Mode $+ $chr(58) ( $left($nick(#,$1).pnick,1) ): echo     2—›1 $1-
  .Idle Time $+ $chr(58) $duration($nick(#,$1).idle): echo     2—›1 $1-
  .Com Chan $+ $chr(58) $comchan($1,1) $comchan($1,2) $comchan($1,3): echo     2—›1 $1-
  .Address $+ $chr(58) $address($1,0): echo     2—›1 $1-
  -
  Information
  .Whois: whois $1
  .DNS: dns $1
  .Ping: ctcp $1 PING
  -
  Usermodes:
  .Give owner: mode # +q $1
  .Give protect: mode # +a $1
  .Give op: mode # +o $1
  .Give halfop: mode # +h $1
  .Give voice: mode # +v $1
  .-
  .Take owner: mode # -q $1
  .Take protect: mode # -a $1
  .Take op: mode # -o $1
  .Take halfop: mode # -h $1
  .Take voice: mode # -v $1
  .-
  .Take all modes: mode # -qaohv $1 $1 $1 $1 $1
  -
  Kick/Ban
  .Kick: mode # -Q | kick # $1
  .Kick (Reason): mode # -Q | kick # $1 $?="Enter a kick reason".
  .-
  .Ban: mode # +b $address($1,2)
  .Unban: mode # -b $address($1,2)
  .-
  .Kickban: mode # -Q+b $address($1,2) | kick # $1
  .Kickban (Reason): mode # -Q+b $address($1,2) | kick # $1 $?="Enter a kickban reason."
  .-
  .Timeban: mode # -Q | ban -ku $+ $calc($?="Enter the length of the ban in minutes" * 60) # $nick Timeban
}

menu channel {
  $chan
  .Quickinfo $+ $chr(58) $chan: echo     2—›1 $1-
  .-
  .Modes $+ $chr(58) $chan(#).mode: echo     2—›1 $1-
  .Users $+ $chr(58) $nick(#,0): echo     2—›1 $1-
  .Opped $+ $chr(58) $nick(#,0,o): echo     2—›1 $1-
  .Helpopped $+ $chr(58) $nick(#,0,h): echo     2—›1 $1-
  .Voiced $+ $chr(58) $nick(#,0,v): echo     2—›1 $1-
  .Regular $+ $chr(58) $nick(#,0,r): echo     2—›1 $1-
  .-
  .Scan for clones: clonescan
  .-
  .Channel Central: dialog -dm cc cc
  .-
  .View Log: viewer
  .-
}

dialog cc { 
  title "Channel Central" 
  size -1 -1 189 164 
  option dbu 
  text "Topic:", 1, 5 3 18 8 
  edit "", 2, 4 12 165 10, autohs 
  text "Bans List:", 3, 2 25 49 8 
  list 4, 4 34 140 77, size hsbar vsbar 
  check "Only ops set Topic", 5, 6 118 60 10 
  check "No external messages", 6, 6 130 62 10 
  check "Invite only", 7, 6 141 50 10 
  check "Moderated", 8, 6 152 50 10 
  check "Key:", 9, 75 120 20 10 
  check "Limit to:", 10, 75 131 28 10 
  check "Private", 11, 75 142 29 10 
  check "Serect", 12, 75 153 28 10 
  text "users", 13, 126 132 15 8 
  edit "", 14, 97 120 47 10, autohs 
  edit "", 15, 104 131 19 10, limit 4 
  button "OK", 16, 149 124 36 11 
  button "Cancel", 17, 149 138 36 11 ok, cancel 
  button "Help", 18, 149 152 36 11 
  button "Edit", 19, 148 98 37 12, disable 
  button "Remove", 20, 148 84 37 12, disable 
  button "Bans", 21, 148 34 37 12 
  button "Excepts", 22, 148 49 37 12 
  button "Invites", 23, 148 64 37 12 
} 
on *:dialog:cc:init:0:{ 
  set %chanel $iif($active == Status Window,$chan(1),$active) 
  dialog -t cc mIRC Channel Central %chanel 
  did -ra cc 2 $chan(%chanel).topic | set %topci $chan(%chanel).topic 
  $iif(*t* iswm $chan(%chanel).mode, did -c cc 5)  
  $iif(*n* iswm $chan(%chanel).mode, did -c cc 6) 
  $iif(*i* iswm $chan(%chanel).mode, did -c cc 7) 
  $iif(*m* iswm $chan(%chanel).mode, did -c cc 8) 
  $iif($chan(%chanel).key != $null,did -ra cc 14 $chan(%chanel).key) | $iif($chan(%chanel).key != $null,did -c cc 9) 
  $iif($chan(%chanel).limit != $null,did -ra cc 15 $chan(%chanel).limit) | $iif($chan(%chanel).key != $null,did -c cc 10)  
  $iif(*p* iswm $chan(%chanel).mode, did -c cc 11) 
  $iif(*s* iswm $chan(%chanel).mode, did -c cc 12) 
  $iif($chan(%chanel).ibl != $null,ibl %chanel) 
} 
on *:dialog:cc:close:0:{ 
  .timer 1 .5 unset %chanel 
  .timer 1 .5 unset %topci 
} 
on *:dialog:cc:sclick:4:{ 
  did -e cc 19,20 
} 
on *:dialog:cc:sclick:16:{ 
  $iif($did(2) != %topci,topic %chanel $did(2)) 
  $iif($did(5).state == 1, mode %chanel +t,mode %chanel -t) 
  $iif($did(6).state == 1, mode %chanel +n,mode %chanel -n) 
  $iif($did(7).state == 1, mode %chanel +i,mode %chanel -i) 
  $iif($did(8).state == 1, mode %chanel +m,mode %chanel -m) 
  $iif($did(9).state == 1, mode %chanel +k $did(14),mode %chanel -k $did(14)) 
  $iif($did(10).state == 1, mode %chanel +l $did(15),mode %chanel -l $did(15)) 
  $iif($did(11).state == 1, mode %chanel +p,mode %chanel -p) 
  $iif($did(12).state == 1, mode %chanel +s,mode %chanel -s) 
  dialog -x cc cc 
} 
on *:dialog:cc:sclick:18:{ 
  help mk:@MSITStore:C:\Program%20Files\mIRC\bots\Mirc.chm::/channel_central.htm 
} 
on *:dialog:cc:sclick:19:{ 
  set %address $did(4).seltext 
  dialog -i cc cc 
  dialog -m cc2 cc2 
} 
on *:dialog:cc:sclick:20:{ 
  ban -r %chanel $did(4).seltext  
  did -d cc 4 $did(4).sel 
} 
on *:dialog:cc:sclick:21:{ 
  did -ra cc 3 Bans List: 
  $iif($chan(%chanel).ibl != $null,/ibl %chanel) 
} 
on *:dialog:cc:sclick:22:{ 
  did -ra cc 3 Excepts List: 
  $iif($chan(%chanel).iel != $null,/iel %chanel) 
} 
on *:dialog:cc:sclick:23:{ 
  did -ra cc 3 Invites List: 
  $iif($chan(%chanel).iil != $null,/iil %chanel) 
} 
on *:dialog:cc:dclick:4:{ 
  set %adress $did(4).seltext 
  dialog -i cc cc 
  dialog -m cc2 cc2 
} 
dialog -l cc2 { 
  title "Edit Address" 
  size -1 -1 118 72 
  option dbu 
  text "Edit Address:", 1, 5 7 35 8 
  edit "", 2, 4 16 104 10 
  check "Remove ban in:", 3, 34 30 50 10 
  combo 4, 45 41 23 50, disable size vsbar drop 
  button "OK", 5, 34 59 37 12, ok 
  text "mins", 6, 70 42 13 8, disable 
  button "Cancel", 7, 76 59 37 12, cancel 
} 
on *:dialog:cc2:init:0:{ 
  did -a cc2 2 %adress 
  did -a cc2 4 1 
  did -a cc2 4 2 
  did -a cc2 4 3 
  did -a cc2 4 4 
  did -a cc2 4 5 
  did -a cc2 4 6 
  did -a cc2 4 7 
  did -a cc2 4 8 
  did -a cc2 4 9 
  did -a cc2 4 10 
  did -a cc2 4 15 
  did -a cc2 4 20 
  did -a cc2 4 25 
  did -a cc2 4 30 
  did -a cc2 4 35 
  did -a cc2 4 40 
  did -a cc2 4 45 
  did -a cc2 4 50 
  did -a cc2 4 55 
  did -a cc2 4 60 
} 
on *:dialog:cc2:sclick:3:{ 
  did -e cc2 4 
} 
on *:dialog:cc2:sclick:5:{ 
  if ($did(3).state == 1) { 
    if ($did(4) != $null) { 
      .timer 1 $~($calc($did(4) * 60),2) ban -r $~(%chanel,2) $did(2) 
    } 
  } 
  if ($did(2).edited == $true) { 
    ban -r %chanel %adress 
    ban %chanel $did(2) 
  } 
  unset %adress 
} 
alias ibl { 
  var %x = 1 
  var %y = $1 
  did -r cc 4  
  while (%x <= $ibl(%y,0)) { 
    did -a cc 4 $ibl(%y,%x) 
    inc %x 
  } 
} 
alias iel { 
  var %x = 1 
  var %y = $1 
  did -r cc 4  
  while (%x <= $iel(%y,0)) { 
    did -a cc 4 $iel(%y,%x) 
    inc %x 
  } 
} 
alias iil { 
  var %x = 1 
  var %y = $1 
  did -r cc 4  
  while (%x <= $iil(%y,0)) { 
    did -a cc 4 $iil(%y,%x) 
    inc %x 
  } 
}