Status Kontrol Addonu Opers
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
}
}
|
