IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 03 Mart 2019, 17:42   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Sunucu Xline List Dialog


Reklam

Sunucu üzerine aktif olan Gline, Shun, Gzline, Zline ve Kline işlemlerini ayrı ayrı olarak dialog şeklinde listeler üzerine çift tıkladığınız IP`nin Xline işlemini kaldırır.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu * { Sunucu Line IP Listesi:/sunucuban } alias sunucuban { .dialog -m glist glist } dialog glist { title "Sunucu Genel 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 { 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

Sunucu üzerine aktif olan Gline, Shun, Gzline, Zline ve Kline işlemlerini ayrı ayrı olarak dialog şeklinde listeler üzerine çift tıkladığınız IP`nin Xline işlemini kaldırır.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu * { Sunucu Line IP Listesi:/sunucuban } alias sunucuban { .dialog -m glist glist } dialog glist { title "Sunucu Genel 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 { 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

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 03 Mart 2019, 17:43   #2
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Cevap: Sunucu Xline List Dialog



Benzeri daha farkl bir kod tm listeyi deilde gzline ve gline listesini eker ban atlma sebebini listeler zerine tklayp yine ban kaldrma ilemi yapabiliriz. Ayrca IP nin zerine sa tklayp detay gster diyerek ban detaylarna ulaabiliriz.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
raw 223:*:{ write proxy.txt $+($3,$chr(9)) $+($4,$chr(9)) $+($7,$chr(9)) $+($8,$chr(9)) $+($9,$chr(9)) $10- halt } alias _kralaz { stats g .timerdenemes 1 3 /__kralaz } menu * { Banlistesi Gzline:_kralaz } menu @kralaz { .Sil: { gline $+ $gettok($remove($1-,$chr(9)),1,32) gzline $+ $gettok($remove($1-,$chr(9)),1,32) } Ban Satiri Gster .Satr Gster: { if (!$window(@Satr.Gster)) { window -g @Satr.Gster -1 -1 800 100 Fixedsys 11 } .echo -tm @Satr.Gster $remove($1-,$chr(9)) halt } } alias __kralaz { if ($window @kralaz)) { window -c @kralaz } { window -glk0 @kralaz -1 -1 800 600 Fixedsys 11 iline @kralaz 1 Eklenmi ban silerken tek tek siliniz iline @kralaz 2 IP - SEBEB - BANLAYAN iline @kralaz 3 1 ----------- 2 --------- 3 --------- 4 ----------- 5 ----------- 6 titlebar @kralaz by KraLaz var s = 4 while %s <= $lines(proxy.txt) { var %k = $read(proxy.txt,%s) iline @kralaz %s $gettok(%k,1,32) $gettok(%k,2,32) $gettok(%k,3,32) $gettok(%k,4,32) $gettok(%k,5,32) $gettok(%k,6-,32) inc %s unset %k } remove proxy.txt } halt }


  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
dialog, list, sunucu, xline
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık