| LanetLy | 14 Ocak 2010 22:34 |
uzun nick remotesi uzun harfLi nick
Kod:
[script]
n0=alias uzunnick { if (!$dialog(uzunnick)) dialog -m uzunnick uzunnick }
n1=dialog uzunnick {
n2= title "uzunnick Koruması"
n3= size -1 -1 200 180
n4= option dbu
n5= text "..:: Rumuz Listesi ::..", 999, 20 10 60 10
n6= combo 1, 5 20 90 130
n7= button "Ekle (+)", 2, 4 146 27 13
n8= button "Çıkar (-)", 3, 32 146 27 13
n9= button "Temizle (!)", 4, 60 146 35 13
n10= box "Seçenekler", 5, 101 17 93 40
n11= check "OP olduğumda tarama yap!", 6, 106 28 73 10
n12= check "Yeni rumuz uzunnickse at!", 7, 106 40 70 10
n13= button "?", 8, 182 28 9 9
n14= button "?", 9, 182 40 9 9
n15= box "Kick Mesajınız", 10, 101 60 93 40
n16= edit "", 11, 106 76 83 10, autohs
n17= box "Açıklamalar", 12, 101 103 93 55
n18= text "uzun Rumuz Koruması ", 13, 106 110 85 40
n19= link "Bolsohbet", 14, 108 164 52 15
n20= button "Kapat!", 15, 168 161 27 13
n21= text "..:: uzunnick Koruması ::..", 16, 13 165 80 10,disable
n22=}
n23=on *:dialog:uzunnick:*:*:{
n24= if ($devent == init) {
n25= loadbuf -o $dname 1 $shortfn(uzunnicks.txt) | did -c $dname 1 1
n26= if (%oto-tara == on) { did -c uzunnick 6 }
n27= if (%NickDeğiş == on) { did -c uzunnick 7 }
n28= did -a $dname 11
n29= }
n30= if ($devent == sclick) {
n31= if ($did == 2) {
n32= var %kötürmz = $did(1).text
n33= if $read(uzunnicks.txt,w,%kötürmz) {
n34= echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
n35= }
n36= else {
n37= write uzunnicks.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text
n38= }
n39= }
n40= if ($did == 3) {
n41= if $read(uzunnicks.txt,w,$did(1).seltext) { write $+(-dl,$readn) uzunnicks.txt | did -d $dname 1 $did(1).sel }
n42= }
n43= if ($did == 4) {
n44= if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(uzunnicks.txt) | write -c uzunnicks.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki $+ %satırsayısı $+ adet rumuz silindi. | unset %satırsayısı } | else { return }
n45= }
n46= if ($did == 8) {
n47= did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır.
n48= }
n49= if ($did == 9) {
n50= did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.
n51= }
n52= if ($did == 6) {
n53= if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }
n54= elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }
n55= }
n56= if ($did == 7) {
n57= if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }
n58= elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }
n59= }
n60= if ($did == 14) {
n61= run
n62= }
n63= if ($did == 15) {
n64= if ($did(11) == $Null) {
n65= echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.
n66= dialog -x uzunnick uzunnick
n67= set 12Nickinizi 4KısaLtın12!!!
n68= }
n69= else {
n70= set $did(11)
n71= dialog -x uzunnick uzunnick
n72= }
n73= }
n74= }
n75=}
n76=;--------------------
n77=; Kodlamalar...
n78=;--------------------
n79=on *:join:#:if $kotunick($nick) { /ban # $nick | /kick # $nick 12Nickinizi 4KısaLtın12!!! }
n80=#NickDeğiş on
n81=on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick 12Nickinizi 4KısaLtın12!!!
n82=} | inc %_ } } }
n83=#NickDeğiş end
n84=alias kotunick { var %_ = 1 | while $read(uzunnicks.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
n85=alias krt {
n86= if $1 ischan && $me isop $1 {
n87= var %` = $lines(uzunnicks.txt)
n88= while %` {
n89= if $fline($1,$read(uzunnicks.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(uzunnicks.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(uzunnicks.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(uzunnicks.txt,%`),%~,1),1) 12Nickinizi 4KısaLtın12!!!
n90= } | dec %~ } }
n91= dec %`
n92= }
n93= }
n94=}
n95=#oto-tara on
n96=on *:OP:#:if $opnick == $me { krt $chan }
n97=#oto-tara end
n98=;-----------------------------------------
n99=on *:LOAD:{
n100= echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
n101= echo -a $timestamp *** İs here LanetLy
n102= run notepad.exe uzunnicks.txt
n103= set %oto-tara on
n104= set %NickDeğiş on
n105= set 4N14ickini1z 12Nickinizi 4KısaLtın12!!
n106=}
n107=on *:UNLOAD:{
n108= echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.
n109= unset %oto-tar
n110= unset %NickDeğiş
n111= unset %kckmsg
n112=}
Bu remoteninde çaLışması için ayrıca uzunnicks.txt dosyası açıyoruz mircin icinde remotemiz çaLışmaya başLıyor
----------
uzunnicks.txt sayfasının icine atmamız gereken harfLer.Harf sayısını kendiniz ayarLarsınız Kod:
*aaaaaa*
*bbbbbb*
*cccccc*
*dddddd*
*eeeeee*
*rrrrrr*
*tttttt*
*yyyyyy*
*uuuuuu*
*oooooo*
*pppppp*
*ssssss*
*ffffff*
*gggggg*
*hhhhhh*
*jjjjjj*
*kkkkkk*
*llllll*
*iiiiii*
*zzzzzz*
*xxxxxx*
*vvvvvv*
*nnnnnn*
*mmmmmm*
*wwwwww*
*qqqqqq*
|
