Admin Status Kontrol Addonu

[Tutsaq]

menu * {
  -
  Status Kontrolu:/statuskontrol
  -
}

alias statuskontrol { dialog -m skontrol skontrol }
dialog skontrol {
  title "Statüs Kontrol Merkezi"
  size -1 -1 170 204
  option dbu
  list 1, 92 3 70 201, size
  button "Seçili Nicke Zline At", 2, 3 5 74 11
  button "Hepsine Zline At", 3, 3 17 74 11
  button "Seçili Nicke Shun At", 4, 3 33 74 11
  button "Hepsine Shun At", 5, 3 45 74 11
  button "Seçili Nicke Kill At", 6, 3 62 74 11
  button "Hepsine Kill At", 7, 3 74 74 11
  button "Hepsine K. Cek", 8, 3 102 74 11
  button "Seçili Nicki K. Cek", 9, 3 90 74 11
  ;text "S.Nick:Seçili Nick ", 10, 2 167 74 11
  button "Kayıtsız Nicklere Shun", 11, 3 130 74 11
  button "Kayıtsız Nicklere Zline", 12, 3 118 74 11
  text "Statusdeki Nicklere", 13, 2 178 49 8
  text "İşlem Yapabilirsiniz", 14, 2 189 49 14
  button "Kayıtsız Nicklere Kill", 15, 3 142 74 11
  button "Kayıtsız Nickleri K.Cek", 16, 3 154 74 11
}


on *:dialog:skontrol:*:*: {
  if $devent == sclick && $status == connected {
    if $did == 2 { zline $did(1).seltext %sure %kurallar }
    if $did == 3 {
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        gzline $read(wholist.txt,%i) %sure %kurallar
        inc %i
      }
    }
    if $did == 4 { shun $did(1).seltext %sure %kurallar }
    if $did == 5 {
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        shun $read(wholist.txt,%i) %sure %kurallar
        inc %i
      }
    }
    if $did == 6 { kill $did(1).seltext %kurallar }
    if $did == 7 {
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        kill $read(wholist.txt,%i) %kurallar
        inc %i
      }
    }
    if $did == 9 { sajoin $did(1).seltext $$?"Kanal Yaz # koy" }
    if $did == 8 {
      var %kanal $$?"Kanal Yaz $chr(35) koy" 
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        sajoin $read(wholist.txt,%i) %kanal
        inc %i
      }
    }
    if $did == 11 {
      set %kshunat on
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        shun $read(wholist.txt,%i) 900 %kurallar
        inc %i
      }
    }
    if $did == 12 {
      set %kzlinat on
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        gzline $read(wholist.txt,%i) 900 %kurallar
        inc %i
      }
    }
    if $did == 15 {
      set %kkat on
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        kill $read(wholist.txt,%i) %kurallar
        inc %i
      }
    }
    if $did == 16 {
      set %kkal on
      set %kkchan $$?"Kanal Yaz $chr(35) koy"
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        sajoin $read(wholist.txt,%i) %kkchan
        inc %i
      }
    }
  }
  if $devent == init {
    ;mdx MarkDialog $dname   
    ;; mdx SetDialog $dname bgcolor $rgb(47,163,204)
    ; mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 +b Turkish 12 600 Arial
    ;; mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 textbg $rgb(47,163,204)
    ; mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 background $rgb(47,163,204)
    ; mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 text $rgb(0,0,0)
    ;mdx SetDialog $dname style title tool sysmenu
    if $status == connected {
      set %skontrol on | who
      .timer 1 1 savebuf -o skontrol 1 wholist.txt
    }
  }
  if $devent == close {
    write -c wholist.txt
    unset %skontrol
  }
}