alias yaptırım $iif($dialog(yaptırım),echo -a Yaptırım dialogu açık.,dialog -m yaptırım yaptırım)

dialog yaptırım {
  title "Yaptırım"
  size -1 -1 173 170
  option dbu
  check "", 1, 10 9 7 10
  text "Bağlanınca komutları çalıştır.", 2, 19 10 102 8
  combo 3, 7 28 102 37, size
  button "Ekle", 4, 118 29 37 12
  button "Sil", 5, 118 44 37 12
  edit "", 6, 6 78 159 68, multi return
  button "Tamam", 7, 44 153 37 12
  button "İptal", 8, 90 153 37 12, cancel
  text "Komutlar:", 9, 7 68 68 9
  text "Networks:", 10, 7 19 26 9
}

on *:dialog:yaptırım:*:*:{
  if $devent == sclick {
    if $did == 4 {
      if $did(3) {
        if !$istok(%networks",$did(3),$asc(£)) {
          did -a $dname 3 $did(3) 
          .set %networks" $addtok(%networks",$did(3),$asc(£))
          echo -a $qt($did(3)) isimli network listeye eklendi.
        }
        else echo -a Network ismi listede mevcut.
      }
      else echo -a Network ismi belirtmediniz.
    }
    if $did == 5 {
      if $did(3,$did(3).sel) {
        echo -a $qt($did(3,$did(3).sel)) listeden silindi.
        did -d $dname 3 $did(3).sel
        set %networks" $remtok(%networks",$did(3,$did(3).sel),$asc(£))
      }
      else echo -a Liste boş.
    }
    if $did == 1 {
      if $did(1).state == 1 {
        echo -a Bağlanınca komutları çalıştır: $qt(AKTİF)
        .enable #perform
      }
      else {
        echo -a Bağlanınca komutları çalıştır: $qt(KAPALI)
        .disable #perform
      }
    }
    if $did == 7 {
      $iif($isfile(perform.txt),.remove perform.txt)
      var %p 1
      while %p <= $did(6).lines { 
        write perform.txt $did(6,%p)
        inc %p
      }
      dialog -x yaptırım
    }
  }
  if $devent == init {
    if %networks" {
      didtok $dname 3 $asc(£) $v1
    }
    if $group(#perform).status == on { did -c $dname 1 }
    else did -u $dname 1
    if $isfile(perform.txt) {
      loadbuf -o $dname 6 perform.txt
    }
  }
}

#perform on
on *:connect:{
  if $istok(%networks",$network,$asc(£)) && $lines(perform.txt) {
    var %p 1
    while %p <= $lines(perform.txt) {
      $read(perform.txt,%p)
      inc %p
    }
  }
}
#perform end