dialog poison {
  title "New Project"
  size -1 -1 292 190
  option dbu
  radio "Nickim yazılınca msj at", 1, 205 14 77 10
  radio "Nickim Yazılınca Notice at", 2, 205 30 78 10
  radio "Msg notice Kapalı", 3, 205 44 50 10
  button "Seçili mesajı amsg at", 4, 195 71 67 12
  button "Seçili mesajı ame at", 5, 195 92 65 12
  button "Tamam/Kapat", 6, 218 134 37 42,flat ok
  button "Seçili mesajı kanala at", 7, 192 113 70 12
  edit "", 8, 9 8 188 13
  button "Söz ekle ", 9, 6 24 89 12
  button "Söz Sil", 10, 106 24 89 12
  list 11, 6 44 180 129, size
}
on *:dialog:poison:*:*: { 
  if $devent == init { 
    var %i 1
    while %i <= $lines(sozler.txt) { 
      did -a $dname 11 $read(sozler.txt,%i) 
      inc %i
    }
    if %nickmesaj { did -c $dname 1 }
    if %nicknotice { did -c $dname 2 }
    if %kapalimesaj { did -c $dname 3 }
  }
  if $devent == sclick { 
    if $did == 9 { did -a $dname 11 $did(8) | write sozler.txt $did(8) }
    if $did == 10 { write -ds $+ $did(11).seltext sozler.txt | did -d poison 11 $did(11).sel }
    if $did == 4 { .timerufuk 0 saniye amsg $did(11).seltext }
    if $did == 5 { .timerufuk 0 saniye ame $did(11).seltext }
    if $did == 7 { .timerufuk 0 saniye msg $$?"Kanal İsmi Giriniz # Kullaniniz" $did(11).seltext }
    if ($did(1).state == 1) { set %nickmesaj on | unset %nicknotice }
    if ($did(2).state == 1) { set %nicknotice on | unset %nickmesaj }
    if ($did(3).state == 1) { unset %nickmesaj %nicknotice | set %kapalimesaj on }
  }
  if $devent == close { 
    timerufuk off
  }
}
on *:text:*:#: { 
  if %nickmesaj { msg # $nick $read(sozler.txt) }
  if %nicknotice { notice $nick $read(sozler.txt) }
}