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) }

}