dialog Kmesaj {
  title "Kanaldakilere mesaj"
  size -1 -1 109 44
  option dbu
  text "  Hangi kanal", 1, 1 4 35 10
  edit "", 2, 42 4 59 10, multi
  text "   Mesajınız", 3, 1 17 35 10
  edit "", 4, 42 16 59 10, multi
  button "Tamam", 5, 11 31 35 10, ok
  button "Kapat", 6, 62 31 35 10, cancel
}
on *:dialog:kmesaj:*:*:{
  if ($devent == edit) {
    set %knl $did(2) | set %msj $did(4) 
  }
  if ($devent == sclick) {
    if ($did == 5) {
      gonder %msj
    }
  }
}
 
alias gonder { 
  var %nickler $nick(%knl,0) 
  while (%nickler >= 1) { 
    if ($nick(%knl,%nickler) != $me) { 
      msg $nick(%knl,%nickler) %msj
    } 
    dec %nickler
  } 
}
 
alias at { dialog -m kmesaj kmesaj }

 
dialog amsg {
  title "Kanaldakilere mesaj"
  size -1 -1 143 44
  option dbu
  text " Kanala Girene", 1, 1 4 52 10
  edit "", 2, 59 4 79 10, multi
  text " Kanaldan çıkana", 3, 1 17 53 10
  edit "", 4, 59 16 79 10, multi
  button "Kapat", 6, 75 30 47 10, cancel
  check "Auto mesaj açık", 5, 2 30 50 10
}
 
on *:dialog:amsg:*:*:{
  if ($devent == edit) {
    set %jns $did(2) | set %prt $did(4) 
  }
  if $devent == init {
    if ($group(#ams) == On) {
      did -c amsg 5 
    } 
    did -a amsg 2 $iif(%jns != $null,%jns,Kanala girene ne göndericeksin) 
    did -a amsg 4 $iif(%prt != $null,%prt,Cıkana ne yollucaksın)
  }
  if ($devent == sclick) {
    if ($did == 5) { 
      if ($did($dname,5).state == 1) { 
        .enable #ams
      }  
      else { 
        .disable #ams 
      }
    }
  }
}
#ams on
on !*:join:#: {
  msg $nick %jns
}
on !*:part:#: {
  msg $nick %prt
}
#ams end
 
alias automesaj { dialog -m amsg amsg }