Anonymous

menu * {
  Chan:/dialog -m channel channel 
}
dialog Channel {
  title "Channel Info Dialog"
  size -1 -1 131 126
  option dbu
  tab "Home", 1, 2 2 120 120
  list 6, 7 36 68 63, tab 1 size
  text "Chans I'm On!", 7, 11 21 67 8, tab 1
  button "Get List", 27, 81 22 37 12, tab 1
  button "Join", 10, 81 40 37 12, tab 1
  edit "", 28, 75 55 46 22, tab 1
  text "Select a chan:", 29, 81 84 36 8, tab 1
  button "Part", 30, 81 93 37 12, tab 1
  tab "Bans", 2
  button "Unban", 9, 84 40 25 10, tab 2
  list 11, 6 33 75 71, tab 2 size
  button "Clear", 12, 84 52 25 10, tab 2
  button "Get list", 26, 83 21 37 12, tab 2
  text "Channel:", 31, 11 21 67 8, tab 2
  edit "", 34, 33 20 50 10, tab 2
  tab "Access", 3
  list 13, 9 34 71 72, tab 3 size
  button "Delete", 14, 84 40 25 10, tab 3
  button "Clear", 15, 84 52 25 10, tab 3
  text "Name:", 16, 83 65 25 8, tab 3
  edit "", 17, 80 74 39 20, tab 3
  text "Level:", 18, 83 94 25 8, tab 3
  edit "", 19, 83 104 22 10, tab 3
  button "Add", 20, 106 104 15 10, tab 3
  button "Get List", 25, 82 22 37 12, tab 3
  text "Channel:", 32, 11 21 67 8, tab 3
  edit "", 35, 33 21 48 10, tab 3
  tab "Information", 4
  box "Chan Info:", 21, 7 35 109 71, tab 4
  text "Founder:", 8, 13 44 99 8, tab 4
  text "Descr.:", 22, 13 53 101 26, tab 4
  text "Registered:", 23, 13 81 101 19, tab 4
  button "Get Info", 24, 82 22 37 12, tab 4
  text "Channel:", 33, 11 21 67 8, tab 4
  edit "", 36, 34 20 46 10, tab 4
  button "Close", 5, 8 109 37 12
}
on *:DIALOG:channel:sclick:9:{
  /mode $did(34) -b $did(11).seltext
  /did -r $dname 11
  /mode $did(34) +b
}
on *:DIALOG:channel:sclick:12:{
  /mode $did(channel,34) - $+ $str(b,%z) $dappl
  unset %z | unset %y | unset %ppl
  /did -r channel 11
  /mode $did(channel,34) +b

}
alias dappl {
  set %x 1
  set %z $did(channel,11).lines
  set %ppl
  while (%x <= %z) {
    %ppl = %ppl $did(channel,11,%x)
    inc %x
  }
  return %ppl
}


on *:DIALOG:channel:sclick:26:{
  set %gay yes
  /did -r $dname 11
  /mode $did(34) +b
}
raw 367:*:{ if (%gay == yes) {
    did -a channel 11 $3
  }
}
on *:DIALOG:channel:sclick:25:{
  /cs access $did(35) list
}
on *:NOTICE:*:?:{ 
  .echo -a got here 1
  if ($nick == ChanServ | $3 == isn't | %hotness) {
    did -a channel 8 Founder: Not registered
    did -a channel 22 Description: Not registered
  did -a channel 23 Registered: Not registered }
}
on *:NOTICE:*:?:{
  if (*Access list* iswm $1- || *num* iswm $1- || $1 isnum $1-) { 
  did -a channel 13 $1- }
}

on *:DIALOG:Channel:sclick:5:{
  dialog -x channel channel
}
on *:DIALOG:Channel:sclick:24:{
  set %hotness
  cs info $did(36)
}
on *:NOTICE:*:?:{ 
  .echo -a got here 1
  if ($nick == ChanServ | $3 == isn't | %hotness) {
    did -a channel 8 Founder: Not registered
    did -a channel 22 Description: Not registered
  did -a channel 23 Registered: Not registered }
}
on *:NOTICE:*:*:{ 
  if ($nick == Chanserv) {
    if (%hotness) {  
      if (founder: == $1) {
        set %dafounder $2-
        did -a channel 8 Founder: %dafounder
      }
      if (Description: == $1) {
        set %dades $2-
        did -a channel 22 Description: %dades
      }
      if (Registered: == $1) {
        set %dadate $2-
        did -a channel 23 Registered: %dadate
      }
    }
  }
}

on *:DIALOG:Channel:sclick:27:{
  did -r $dname 6
  var %x = 1
  while (%x <= $chan(0)) {
    did -a $dname 6 $chan(%x)
  inc %x }
}