Kod

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