| Kimimben | 21 Ekim 2014 23:44 |
Cevap: Aop Hop Vop ekleme silme listeleme Dialogu
Kod:
dialog oekle {
title "Op Listeleme Ekleme Silme"
size -1 -1 156 203
option dbu
list 1, 2 51 73 124, size
text " Kanal Seçin :", 2, 4 3 51 8
box "", 6, 2 -1 57 14
text " Yetki Ekleyin :", 8, 78 52 57 8
edit "", 9, 76 63 77 11
button "Listele", 3, 117 2 36 23, flat
button "Ekle", 5, 76 76 77 33, flat
box "", 11, 76 48 77 14
button "« « KAPAT » »", 13, 76 110 77 65, flat ok
box "", 14, 2 174 151 16
text " Yetkiyi silmek icin üstünü çift tıklayın", 15, 4 179 137 8
combo 4, 60 14 56 76, group size drop
box "", 7, 2 11 57 14
text " Founder Kim :", 10, 4 28 50 8
edit "", 12, 60 26 93 12, read
edit "", 16, 2 39 151 10, read
box "", 17, 2 -1 57 14
text " Aop Hop Vop Seçin", 18, 4 16 51 8
combo 19, 60 2 56 81, group size drop
box "", 20, 2 23 57 15
edit "", 21, 2 191 151 10, read
}
alias ops dialog -m oekle oekle
on *:dialog:oekle:init:*: {
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(237,241,219)
mdx SetColor $dname 1 textbg $rgb(237,241,219)
mdx SetColor $dname 1 background $rgb(237,241,219)
mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25 15 950 Tahoma
mdx SetColor $dname 2,4,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25 background $rgb(237,241,219)
mdx SetColor $dname 2,4,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25 textbg $rgb(237,241,219)
mdx SetFont $dname 2,4,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25 15 950 Tahoma
mdx SetColor $dname 14,15,16l text $rgb(199,92,2)
did -a $dname 19 Guzyeli
did -a $dname 19 Radyo
did -a $dname 19 islam
did -a $dname 19 Test
did -a $dname 19 Yarisma
did -a $dname 19 Kelime
did -a $dname 19 Bilgi
did -a $dname 19 Admin
did -a $dname 19 Services
did -a $dname 19 Yardim
did -a $dname 19 Kontrol
did -a $dname 19 Op
did -a $dname 19 Dj
did -a $dname 4 Aop
did -a $dname 4 Hop
did -a $dname 4 Vop
}
on *:dialog:oekle:sclick:5:{ .enable #offs | cs $$did(oekle,4).text $chr(35) $+ $$did(oekle,19).text add $did(oekle,9).text }
on *:dialog:oekle:sclick:3:{ if ($did(19).text) && ($did(4).text) { .enable #offs | did -r $dname 1 | did -r $dname 12 | cs $lower($did(4).text) $chr(35) $+ $lower($did(19).text) list | cs info $chr(35) $+ $lower($did(19).text)
did -ra $dname 16 # $+ $did(19).text $did(4).text Listesi Açıldı.
} }
on *:dialog:oekle:dclick:1:{ if $did(1).seltext { var %seltext = $did(1).seltext | cs $$did(4).text $chr(35) $+ $$did(19).text del $did(1).seltext
did -r $dname 21 | did -a $dname 21 $qt(%seltext) Nicki Silinmiştir. | did -d $dname 1 $did(1).sel
}
}
#offs off
on *:notice:*:*: {
if $nick == ChanServ {
if ($regex(list,$1-,/^\d+\s+(\S+)$/S)) { did -a oekle 1 $regml(list,1) }
if ($regex($1-,/[#].+bulunamadi/Si)) { did -a oekle 1 Liste Boş. }
if ($regex(fn,$1-,/Kanal\sSahibi[:]\s(\S+)/Si)) { did -a oekle 12 $regml(fn,1) }
if (*listelerine sadece kayitli nickler eklenebilir* iswm $1-) { did -r oekle 21 | did -a oekle 21 Kayıtsız Nicki Ekleyemezsiniz! | .disable #offs }
elseif (*zaten #* ?OP listesinde* iswm $1-) { did -r oekle 21 | did -a oekle 21 $did(oekle,9).text Zaten Listede Ekli! | .disable offs }
elseif (*#* ?OP listesine eklendi* iswm $1-) { var %99 $did(oekle,9).text | did -a oekle 1 $did(oekle,9).text | did -r oekle 9
did -r oekle 21 | did -a oekle 21 $qt(%99) Nicki Eklendi. | .disable #offs }
}
.timer 1 2 .disable #offs
}
#offs end
|
