| Kimimben | 26 Ekim 2014 20:25 |
Ban Listesi Dialoğu
Kullandığım mircimden yine bir paylaşım coderligi Samet'e ait bir dialog resimde görüldüğü gibi ban listesini açmakta gline zline shun gzline ve kline atılan banları göstermek ve isteğe göre banı kaldırma mevcut ve bu dialogu acınca statüde yazı kirliliği olmaması için raw ile destelenmiştir. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod:
dialog glist {
title "Ban Listesi"
size -1 -1 423 149
option dbu
list 1, 2 10 82 126, size
text "Gline Listesi", 4, 4 2 45 8
button "« « KAPAT » »", 5, 170 116 82 20, flat ok
list 2, 86 10 82 126, size
list 3, 254 10 82 126, size
text "Shun Listesi", 6, 86 2 71 8
text "Zline Listesi", 7, 254 2 54 8
text "Kaldırmak istediğiniz Banın ip numarasının üzerine Çift tıklayınca Ban Kalkacak.", 8, 72 140 266 8
list 9, 170 10 82 103, size
text "G-Zline Listesi", 10, 170 2 65 8
list 11, 338 10 82 126, size
text "Kline Listesi", 12, 338 2 60 8
}
on *:dialog:glist:*:*:{
if $devent == init {
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(237,241,219)
mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12 +b Turkish 13 950 Verdana
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12 textbg $rgb(237,241,219)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12 background $rgb(237,241,219)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12 text $rgb(0,0,0)
mdx SetColor $dname 8l text $rgb(199,92,2)
set %gkontrol on | .enable #bangizle | .stats g | .stats s | .stats k | .stats Z
.timer 1 1 .disable #bangizle
}
if $devent == dclick {
if $did == 1 {
gline $+(-*@, $did(1).seltext)
did -d $dname 1 $did(1).sel
}
if $did == 2 {
shun $+(-*@, $did(2).seltext)
did -d $dname 2 $did(2).sel
}
if $did == 3 {
zline $+(-*@, $did(3).seltext)
did -d $dname 3 $did(3).sel
}
if $did == 9 {
gzline $+(-*@, $did(9).seltext)
did -d $dname 9 $did(9).sel
}
if $did == 11 {
kline $+(-*@, $did(11).seltext)
did -d $dname 11 $did(11).sel
}
}
if $devent == close {
write -c gline.txt
write -c zline.txt
write -c shun.txt
write -c gzline.txt
write -c kline.txt
}
}
raw 223:*: {
if ($2 isincs G) && (%gkontrol == on) && ($dialog(glist)) {
did -a glist 1 $gettok($3,2,64) | write gline.txt $gettok($3,2,64)
.timer 1 3 unset %gkontrol
}
if ($2 isincs z) && (%gkontrol == on) && ($dialog(glist)) {
did -a glist 3 $gettok($3,2,64) | write zline.txt $gettok($3,2,64)
}
if ($2 isincs s) && (%gkontrol == on) && ($dialog(glist)) {
did -a glist 2 $gettok($3,2,64) | write shun.txt $gettok($3,2,64)
}
if ($2 isincs Z) && (%gkontrol == on) && ($dialog(glist)) {
did -a glist 9 $gettok($3,2,64) | write gzline.txt $gettok($3,2,64)
}
if ($2 isincs K) && (%gkontrol == on) && ($dialog(glist)) {
did -a glist 11 $gettok($3,2,64) | write kline.txt $gettok($3,2,64)
}
/halt
}
alias glist { dialog -m glist glist }
#bangizle off
raw 223:*: { /halt }
raw 249:*: { /halt }
raw 219:*: { /halt }
raw 216:*: { /halt }
#bangizle end
|
