| Kimimben | 28 Ağustos 2014 01:00 |
Szline Dialogu
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
İrcservices Kullananlar için uzun zamandır elimde olan Szline dialogunu paylaşıyorum Dialog bana ait kodlama kardeşim Feragat ait.
Resimde görüldüğü gibi szline listeleme ekleme silme işlemi yapıyor burda yapılması gereken bir kısım var önce modules.conf içindeki #SZlineReason "You are banned from this network" bu satırın hemen altındaki satırışı şu şekilde değiştirin SZlineReason "Z-lined: Szline Yasaklandınız" bu sekilde değiştirin ve rehash cekin. Bunu yapmaktaki amaç kişiye bu dialogda szline eklediğinizde o kişi atıldığı zaman Szline yasakladınız bu yazı çıkacaktır, sizde resimde gördüğünüz gibi sebeb kısmına o ipi eklerken bir açıklama yapacaksınız o ipi neden yasakladığını hatırlayacak bir yazı ile görmüş olacaksınız. Kod:
alias sezline { dialog -m szline szline }
dialog szline {
title " Szline Listesi "
size -1 -1 483 454
option pixels
list 1, 4 27 122 315, size
edit "", 2, 115 346 176 21, multi autohs
text " ip ekle :", 3, 7 348 70 16
button "Ekle", 4, 297 345 183 50, flat
button "« « KAPAT » »", 5, 2 423 479 29, flat ok
box "", 6, 2 339 109 28
box "", 7, 2 392 288 30
text " İp silerken üstünü çitf tıklayınız. ", 8, 5 402 269 16
list 9, 127 27 111 315, size
list 10, 239 27 120 315, size
text " İp", 11, 7 7 82 16
text " Ekleyen", 12, 138 7 79 16
text " Tarih", 13, 249 7 91 16
list 14, 360 27 120 315, size
text " Sebeb", 15, 370 7 80 16
box "", 17, 2 366 109 28
text " Sebeb :", 18, 5 375 95 16
edit "", 16, 115 373 176 21, multi autohs
box "", 19, 128 0 109 26
box "", 20, 4 0 120 26
box "", 21, 241 0 118 26
box "", 22, 361 0 119 26
box "", 23, 298 392 182 30
text " ", 24, 303 402 162 16
}
alias isaretle {
did -c szline 1 $did(szline,1).lines
did -c szline 9 $did(szline,9).lines
did -c szline 10 $did(szline,10).lines
}
on *:dialog:szline:sclick:4:{ if $regex($did(2).text,/^[[:digit:]]/S) { os szline add $did(2) $+ * $did(16).text | did -a szline 1 $did(2) | dialog -x szline | dialog -m szline szline }
else { noop $input(IP Adresi Rakamla Baslamalıdır!,o,IP Uyarı) }
}
on *:dialog:szline:sclick:1:/did -c $dname 1 $did(1).sel | did -c $dname 9 $did(1).sel | did -c $dname 10 $did(1).sel | did -c $dname 14 $did(1).sel
on *:dialog:szline:sclick:9: { did -c $dname 9 $did(9).sel | did -c $dname 1 $did(9).sel | did -c $dname 10 $did(9).sel | did -c $dname 14 $did(9).sel }
on *:dialog:szline:sclick:10: { did -c $dname 10 $did(10).sel | did -c $dname 1 $did(10).sel | did -c $dname 9 $did(10).sel | did -c $dname 14 $did(9).sel }
on *:dialog:szline:sclick:14: { did -c $dname 14 $did(14).sel | did -c $dname 1 $did(14).sel | did -c $dname 9 $did(14).sel | did -c $dname 10 $did(9).sel }
on *:dialog:szline:dclick:1:os szline del $did(1).seltext $+ * | did -d szline 1 $did(1).sel | dialog -x szline | dialog -m szline szline
on *:notice:*:*: {
if ($nick == operserv) && ($dialog(szline)) && $regex($1-,/\x28|\x29/) && !$regex($1-,/(Aktüel\sliste[:]|SZLINE\slistesine\seklendi|SZLINE\slistesinde\sbulunamadi|SZLINE\slistesinden\ssilindi)/iS) {
did -a szline 1 $replace($1,*,) | did -a szline 9 $remove($2,$chr(40)) | did -a szline 10 $regsubex(tr,$4-6,/([a-z]{2,5})\s(\d{2})\s(\d{4})/iS,\2 \1 \3) | did -ra szline 24 Toplam = $did(szline,1).lines }
if ($nick == operserv) && ($dialog(szline)) && !$regex($1-,/(Aktüel\sliste[:]|SZLINE\slistesine\seklendi|SZLINE\slistesinde\sbulunamadi|SZLINE\slistesinden\ssilindi)/iS) && !$regex($1-,/(\x28.+\x29)/US) { did -a szline 14 $1- }
}
on *:dialog:szline:init:*: {
/os szline view
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 15 950 Tahoma
mdx SetColor $dname 3,4,6,8,9,11,13,10,12,14,15,17,18,19,20,21,22,23,24 background $rgb(237,241,219)
mdx SetColor $dname 3,4,6,8,9,11,13,12,10,14,15,17,18,19,20,21,22,23,24 textbg $rgb(237,241,219)
mdx SetFont $dname 2,3,4,6,8,9,11,13,12,10,14,15,16,17,18,19,20,21,22,23,24 15 950 Tahoma
mdx SetColor $dname 8,11,12,13,15,24l text $rgb(199,92,2)
}
|
