IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kod:
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
/yaptırım komutu ile çalıştırabilirsiniz.