#Xchan off
on @1:JOIN:#:.whois $nick
raw 319:*: {
  if (%Xchan1 isin $3-) || (%Xchan2 isin $3-) || (%Xchan3 isin $3-) || (%Xchan4 isin $3-) || (%Xchan5 isin $3-) {
    var %Wnick = $comchan($2,0)
    while (%Wnick) {
      if ($me isop $comchan($2,%Wnick)) {
        ban -u60 $comchan($2,%Wnick) $2 11
        kick $comchan($2,%Wnick) $2 1I don't like your channels! $+ )( $+ %z $+  $+
      }
      dec %Wnick
    }
  }
}
#Xchan End

alias Xchan dialog -m Xchan Xchan
dialog Xchan {
  title "New Project"
  size -1 -1 126 187
  option pixels
  edit "", 1, 4 19 116 21, center
  edit "", 2, 4 44 116 21, center
  edit "", 3, 4 70 116 21, center
  edit "", 4, 4 95 116 21, center
  edit "", 5, 4 121 116 21, center
  box "", 6, 1 7 123 144
  button " [  ] ", 7, 24 157 75 25, flat ok
  box "", 8, 1 148 122 37
}
on *:dialog:Xchan:init:0: {
  did -a Xchan 1 %Xchan1
  did -a Xchan 2 %Xchan2
  did -a Xchan 3 %Xchan3
  did -a Xchan 4 %Xchan4
  did -a Xchan 5 %Xchan5
}
on *:dialog:Xchan:edit:*: { 
  if $did(1) { set %Xchan1 $did(1) }
  if $did(2) { set %Xchan2 $did(2) }
  if $did(3) { set %Xchan3 $did(3) }
  if $did(4) { set %Xchan4 $did(4) }
  if $did(5) { set %Xchan5 $did(5) }
}

Menu Channel,Menubar {
  -
      
  . : .enable #Xchan | /echo  -a  * * *   
  . : .disable #Xchan | /echo  -a * * *   
  . : /Xchan
  .-
  . : /echo -a                          %z
}
