Kötü Rumuz Koruması... - Sayfa 5 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

ExdesperadO · 08 Ocak 2009, 16:52

arkadaslar bi sorum olucak .. nickler.txt dosyasina 300 bad nick ekledim ama mIRC'i kasiyor .. bunu nickler1.txt 2'inci bir dosya olusturup yarisini ona koysak we ordan calısmasi mümkün mü we nasil yapilir ?

SovaLyem · 29 Mart 2010, 17:01

TiPiTiP Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kullandığım kodların tamamı IRCForumları'nda mevcuttur ve el33t'e aittir, ben sadece bir dialog hazırlayıp forumdaki kodları topladım kullanışlı olması açısından, umarım yararlı olur...

Kurulum:
Kodu çalıştırmak için aşağıdaki 2 işlemden birini uygulayabilirsiniz.

1) Kodları ALT+R yapıp açılan pencereye yapıştırın.
2) Bir not defteri açıp içine yapıştırın ve mIRC klasörünüzün içine atın. Daha sonra mIRCte /load -rs Dosyanız.txt komutunu uygulayın.

Kodlar:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;--------------------------------------------------
; Kötü Rumuz Koruması
; Kodlamaların tamamı ve bazı dialog kodları el33t'e aittir...
; Dialog hazırlaması bana aittir...
; /KötüRumuz Yazarak Çalıştırabilirsiniz...
; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;---------------------------------------------------------
alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz }
dialog kötürumuz {
  title "Kötü Rumuz Koruması"
  size -1 -1 200 180
  option dbu
  text "..:: Rumuz Listesi ::..", 999, 20 10 60 10
  combo 1, 5 20 90 130
  button "Ekle (+)", 2, 4 146 27 13
  button "Çıkar (-)", 3, 32 146 27 13
  button "Temizle (!)", 4, 60 146 35 13
  box "Seçenekler", 5, 101 17 93 40
  check "OP olduğumda tarama yap!", 6, 106 28 73 10
  check "Yeni rumuz kötüyse at!", 7, 106 40 70 10
  button "?", 8, 182 28 9 9
  button "?", 9, 182 40 9 9
  box "Kick Mesajınız", 10, 101 60 93 40
  edit "", 11, 106 76 83 10, autohs
  box "Açıklamalar", 12, 101 103 93 55
  text "Kötü Rumuz Koruması  [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]              S1y4H", 13, 106 110 85 40
  link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 14, 108 164 52 15
  button "Kapat!", 15, 168 161 27 13
  text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable
}
on *:dialog:kötürumuz:*:*:{
  if ($devent == init) {
    loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1
    if (%oto-tara == on) { did -c kötürumuz 6 }
    if (%NickDeğiş == on) { did -c kötürumuz 7 }
    did -a $dname 11 %kckmsg
  }
  if ($devent == sclick) {
    if ($did == 2) {
      var %kötürmz = $did(1).text
      if $read(nickler.txt,w,%kötürmz) { 
        echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
      }
      else {
        write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text
      }
    }
    if ($did == 3) {
      if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel }
    }
    if ($did == 4) {
      if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki  $+ %satırsayısı $+  adet rumuz silindi. | unset %satırsayısı } | else { return }
    }
    if ($did == 8) {
      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.
    }
    if ($did == 9) {
      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.
    }
    if ($did == 6) {
      if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }
      elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }
    }
    if ($did == 7) {
      if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }
      elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }
    }
    if ($did == 14) {
      run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    }
    if ($did == 15) {
      if ($did(11) == $Null) {
        echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.
        dialog -x kötürumuz kötürumuz 
        set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
      }
      else {
        set %kckmsg $did(11)
        dialog -x kötürumuz kötürumuz
      }
    }
  }
}
;--------------------
; Kodlamalar...
;--------------------
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }
#NickDeğiş on
on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }
#NickDeğiş end
alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
alias krt {
  if $1 ischan && $me isop $1 {
    var %` = $lines(Nickler.txt)
    while %` {
      if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }
      dec %` 
    } 
  }
}
#oto-tara on
on *:OP:#:if $opnick == $me { krt $chan }
#oto-tara end
;-----------------------------------------
on *:LOAD:{
  echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
  echo -a $timestamp *** S1y4H
  run notepad.exe nickler.txt
  set %oto-tara on
  set %NickDeğiş on
  set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}

on *:UNLOAD:{ 
  echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı. 
  unset %oto-tar
  unset %NickDeğiş
  unset %kckmsg
}

Kodda herhangi bir sorun çıkarsa lütfen bu başlıkta belirtin...

Bu kodla ilgili iki sorum olacaktı:
1. Ben bunu manuel olarak popupta Aç/Kapat yapmak istedim ama yapamadım. Bunu yapmak için:
menu * {
. ® KARA LİSTE
..Açık:/enable #KötüRumuz | .echo -a 14,1KötüRumuz Koruması 4,1AçıLdı!!
..Kapalı:/disable #KötüRumuz | .echo -a 14,1KötüRumuz Koruması 4,1KapatıLdı!!
}
şeklinde menu ayarı yaptım ve de;
#kötürumuz off
kod
#kötürumuz end şeklinde adlandırma yaptım. Yalnız bu kısmın içine tam olarak kodun hangi bölümü girecek onu sanırım eksik yaptım.

2. Anlatıldığı üzere /krt #kanal şeklinde tarama yapması gerekiyor ama o çalışmıyor. Bu konuda bir düşüncesi olan var mı? Şimdiden teşekkürler.

Corpse · 29 Mart 2010, 18:12

#kötürumuz on
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }
#kötürumuz end

Bu şekilde değiştir [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].

SovaLyem · 29 Mart 2010, 19:05

KsK Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#kötürumuz off
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }
#kötürumuz end

Bu şekilde değiştir [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].

Dediğini henüz denemedim ama bu devreye girmesi için bir kod sanırım. Belki yanlış ifade etmiş olabilirim. Ben kısaca, istediğim zaman kötürumuz korumasını bir menü yardımıyla devreye koymak ya da devreden çıkarmak istiyorum. Yani aç/kapat yapabileceğim bir seçeneğim olsun istiyorum.

Corpse · 29 Mart 2010, 19:38

Tam anlayamadım dialog olarak mı istiosun yoksa popups'tan mı açıp/kapamak istiyosun? Popups olarak istiyosan ;

menu channel {
. ® KARA LİSTE
..Açık://enable #kötürumuz | enable #NickDeğiş | enable oto-tara | | .echo -a 14,1KötüRumuz Koruması 4,1AçıLdı!!
..Kapalı://disable #kötürumuz | disable #NickDeğiş | disable oto-tara | | .echo -a 14,1KötüRumuz Koruması 4,1AçıLdı!!
}

Açık dediğinde Korumanın tüm işlevleri açılır, Kapat dediğinde kapanır. Remote'dan dediğim kısmı değiştirmeyi unutma.

SovaLyem · 29 Mart 2010, 19:51

Teşekkürler KsK. Denemeden yorum yapınca çalışıp çalışmadığını nerden bilecektim. Aşağıda verdiğin kod tam aradığım şey. Ben denemeden başka şekilde yorum yaptım. Kusura bakma. Şu an gayet güzel çalışıyor. Teşekkürler...

#kötürumuz off
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }
#kötürumuz end

Corpse · 29 Mart 2010, 20:06

Bu şekilde çalışması lazım.

; Kodlamalar...
;--------------------
#kötürumuz on
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }

on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }

alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
alias krt {
if $1 ischan && $me isop $1 {
var %` = $lines(Nickler.txt)
while %` {
if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }
dec %`
}
}
}

on *:OP:#:if $opnick == $me { krt $chan }
#kötürumuz end
;-----------------------------------------

SovaLyem · 29 Mart 2010, 20:35

Kodun son hali şöyle oldu. Bu haliyle ayrıca kanalda sağ tıklayınca; Aç-Kapat-Tara özelliği eklenmiş oldu. Bende gayet güzel çalışıyor, affetmiyor bile.

;--------------------------------------------------
; Kötü Rumuz Koruması
; Kodlamaların tamamı ve bazı dialog kodları el33t'e aittir...
; Dialog hazırlaması bana aittir...
; /KötüRumuz Yazarak Çalıştırabilirsiniz...
; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;---------------------------------------------------------
alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz }
dialog kötürumuz {
title "Kötü Rumuz Koruması"
size -1 -1 200 180
option dbu
text "..:: Rumuz Listesi ::..", 999, 20 10 60 10
combo 1, 5 20 90 130
button "Ekle (+)", 2, 4 146 27 13
button "Çıkar (-)", 3, 32 146 27 13
button "Temizle (!)", 4, 60 146 35 13
box "Seçenekler", 5, 101 17 93 40
check "OP olduğumda tarama yap!", 6, 106 28 73 10
check "Yeni rumuz kötüyse at!", 7, 106 40 70 10
button "?", 8, 182 28 9 9
button "?", 9, 182 40 9 9
box "Kick Mesajınız", 10, 101 60 93 40
edit "", 11, 106 76 83 10, autohs
box "Açıklamalar", 12, 101 103 93 55
text "Kötü Rumuz Koruması [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] S1y4H", 13, 106 110 85 40
link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
14, 108 164 52 15
button "Kapat!", 15, 168 161 27 13
text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable
}
on *:dialog:kötürumuz:*:*:{
if ($devent == init) {
loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1
if (%oto-tara == on) { did -c kötürumuz 6 }
if (%NickDeğiş == on) { did -c kötürumuz 7 }
did -a $dname 11 %kckmsg
}
if ($devent == sclick) {
if ($did == 2) {
var %kötürmz = $did(1).text
if $read(nickler.txt,w,%kötürmz) {
echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
}
else {
write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text
}
}
if ($did == 3) {
if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel }
}
if ($did == 4) {
if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki $+ %satırsayısı $+ adet rumuz silindi. | unset %satırsayısı } | else { return }
}
if ($did == 8) {
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.
}
if ($did == 9) {
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.
}
if ($did == 6) {
if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }
elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }
}
if ($did == 7) {
if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }
elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }
}
if ($did == 14) {
run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
if ($did == 15) {
if ($did(11) == $Null) {
echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.
dialog -x kötürumuz kötürumuz
set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}
else {
set %kckmsg $did(11)
dialog -x kötürumuz kötürumuz
}
}
}
}
; Kodlamalar...
;--------------------
#kötürumuz on
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }

on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }

alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
alias krt {
if $1 ischan && $me isop $1 {
var %` = $lines(Nickler.txt)
while %` {
if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }
dec %`
}
}
}

on *:OP:#:if $opnick == $me { krt $chan }
#kötürumuz end

;-----------------------------------------
on *:LOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
echo -a $timestamp *** S1y4H
run notepad.exe nickler.txt
set %oto-tara on
set %NickDeğiş on
set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}

on *:UNLOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.
unset %oto-tar
unset %NickDeğiş
unset %kckmsg
}

menu channel {
. ® KARA LİSTE
..Açık:/enable #KötüRumuz | .echo -a 14,1KötüRumuz Koruması 4,1AçıLdı!!
..Kapalı:/disable #KötüRumuz | .echo -a 14,1KötüRumuz Koruması 4,1KapatıLdı!!
..Tara:/krt $chan
}

WaLek · 20 Ocak 2011, 01:14

GuzeL emeğine Saglık .. : )

18 Haziran 2011, 15:39

Bu kod şu an sadece @ olduğum kanallarda işlem yapıyor. Bunu &,@,% olduğum tüm kanallarda işlem yapabilir hale getirebilir miyiz ?

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
İkazlı, Kötü Söz Koruması	Heartbroken	TCL Scriptler	0	22 Kasım 2016 22:02
kötü rumuz +b kill	Leo	mIRC Scripting Sorunları	1	04 Aralık 2010 20:01
Join Part Koruması & Hızlı Giriş Koruması Lazım ACİL PLS	darkshades1	mIRC Scripting Sorunları	5	15 Kasım 2010 11:12
Kötü Rumuz Koruması	SovaLyem	mIRC Scripting Sorunları	6	15 Nisan 2010 02:26
Kötü KanaL Koruması....	Mack	mIRC Scripting Sorunları	8	13 Mart 2005 14:19

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.