Untitled

dialog rcc {
  title "Runey's Channel Control"
  size -1 -1 233 181
  option dbu
  tab "Main", 1, 0 -3 233 164
  list 2, 2 23 68 132, tab 1 size vsbar
  text "Nicks on your channel", 3, 3 14 56 8, tab 1
  button "Whois", 5, 73 24 37 12, disable tab 1
  button "Ping", 6, 114 24 37 12, disable tab 1
  button "Verson", 7, 155 24 37 12, disable tab 1
  button "DCC Chat", 11, 114 40 37 12, disable tab 1
  button "Ignore", 8, 155 40 37 12, disable tab 1
  button "Unignore", 12, 195 40 37 12, disable tab 1
  button "Copy Name", 15, 73 40 37 12, disable tab 1
  button "Query", 16, 195 24 37 12, disable tab 1
  list 4, 73 66 155 90, tab 1 size hsbar vsbar
  button "OK", 13, 34 167 37 12, default ok
  button "Cancel", 14, 163 167 37 12, cancel
  button "Update", 9, 101 167 37 12
}
on *:DIALOG:rcc:init:0:{
  ;set %dchannel $$?="Enter the channel you wish to control"
  $changet(%dchannel)
}
on *:DIALOG:rcc:sclick:*:{
  if ($did == 2) {
    /did -e rcc 5
    /did -e rcc 6
    /did -e rcc 7
    /did -e rcc 8
    /did -e rcc 11
    /did -e rcc 12
    /did -e rcc 15
    /did -e rcc 16
  }
  if ($did == 16) {
    /dialog -i rcc rcc
    /query $did(2).seltext
  }
  if ($did == 15) {
    /clipboard $did(2).seltext
  }
  if ($did == 12) {
    /ignore -rw $did(2).seltext
  }
  if ($did == 8) {
    /ignore -w $did(2).seltext
  }
  if ($did == 11) {
    /dcc chat $did(2).seltext
  }
  if ($did == 7) {
    /ctcp $did(2).seltext version
  }
  if ($did == 6) {
    /ctcp $did(2).seltext ping
  }
  if ($did == 9) {
    sockopen rcc www.freewebs.com 80
    /dialog -x rcc rcc    
    $noop($input(Checking for any updates, ogia, Updater))
  }
}
alias changet {
  var %x = 1
  var %y = $1
  while (%x <= $nick(%y,0)) {
    /did -a rcc 2 $nick(%y,%x)
    inc %x
  }
}
on *:sockopen:rcc:{
  sockwrite -nt $sockname GET /runey676/rcc.mrc HTTP/1.1
  sockwrite -nt $sockname Host: www.freewebs.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:rcc:{
  if ($sockerr) { halt }
  else {
    while ($sock($sockname).rq) {
      sockread &temp
      bwrite $qt($mircdircc.mrc) -1 -1 &temp
    }
    /dialog -m u u
    sockclose rcc
  }
}
on *:CTCPREPLY:PING*:/did -a rcc 4 $1 - $gettok($bytes($2,db),1,44) $+ sec(s)
on *:CTCPREPLY:VERSION*:/did -a rcc 4 $1-
dialog u {
  title "Updater"
  size -1 -1 96 21
  option dbu
  text "Your file is now up to date! Enjoy", 1, 6 6 85 10
}