kufur koruma temizlik - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Heavenly · 15 Ocak 2009, 17:27

Soyle bı kod arıyorum Redegit'te vardı sanırım bu kod kanalda kufur edenı sadece banlıyıp soyle bı yazı yazıyodu yasak kelıme kullanılımından dolayı #ircforumlari kanalında banlandınız $nick kullanılan kelıme (kırmızı bı kutu ıcınde yazıyodu) şudur . sonrada kanalı temızlıyodu dıyalog seklındeydı bu kod kelıme eklıyıp cıkartabılıyodun cok guzel bı kod'du ama hıc bı yerde bulamadım yardımcı olursanız sevınırım irCforumLari

Heavenly · 20 Ocak 2009, 16:11

yardım edıcek kımse yok mu yaff

Editor · 20 Ocak 2009, 18:59

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

on 1:start:{
  hmake kufur
  hload kufur kufur.mercy
}
on 1:text:*:#:{
  var %::nick $nick
  var %::text = $1-
  if $hfind(kufur,$1-,1,W).data && $nick {
    mode # +b $nick | kick # $nick Kanal genelinde küfürlü Konuşmanızdan Dolayı 15 banlandınız.Banlıyan nick : %::nick Ettiğiniz küfür : 4,4 $remove($gettok($1,1,33),:) 
    play $chan temizle.txt 300
    timer 1 300 $chan -b $nick 
  }
}
alias küfür {
  if $1 == ekle {  
    hadd -m kufur $r(1000,999999) $2-
    hsave kufur kufur.mercy
    echo -a Kötü Söz  girdisi Eklendi: $2-
  }
  elseif $1 == sil {
    if $hfind(kufur,$2-,1,W).data {
      hdel kufur $ifmatch
      hsave kufur kufur.mercy
      echo -a Kötü Söz girdisi Silindi: ( $+ $ifmatch $+ ) $2-
    }
    else {
      Echo -a Silmeye çalıştıgınız küfür listede mevcur değil,  $+(,$me,)
    }
  }
  elseif $1 == liste {
    echo -a $+(,$me,) Küfür listesi listeleniyor
    var %x = 1 
    while (%x <= $hget(Kufur,0).item) { 
      echo -a 4 $+ $hget(Kufur,%x).data 
      inc %x 
    }
    echo -a $+(,$me,) küfür liste sonu.
  }
}
alias kufurkur {
  hmake kufur
  hload kufur kufur.mercy
}

Herhangi bir küfür dahilinde !temizle Komutu'nu uygulamaktadır.

yapman gereken mIRC ana Klasor'unun içine temizle.txt ve kufur.mercy dosyası atmak bunları Uyguladığın taktirde küfür edildiğinde küfür eden atılacak ve temizle olayı devreye girecek.

Ekleme - silme

/küfür ekle <kelime>
/küfür sil <kelime>
/küfür liste

Hoşça paylaşımlar.

Heavenly · 21 Ocak 2009, 12:42

TesekkurLer SaGoPa-mİRCKanka eLıne emegıne saglık pekı ben bunu dıyalog seklınde yapmaya kalksam ne yapmam gerek ? anlatarak yaparsan ogrenme amaclı cok guzel olur bunu dıyalog halıne nası getırebılırım yada menu nicklist 'te yada status barda cıkmasını nasıl saglıyabılırım

MerakLıuSer · 21 Ocak 2009, 13:26

Status/Channel/Query/Nicklist ;
Bu dört bölümde çıkmasını istiyorsan.
1. yol;
ALT R basıyorsun. Açılan pencerede popups diye bir kısım göreceksin. Ona bir kez tıklıyorsun. Ardından üstünde view diye bir bölüm göreceksin. Ona tıkladıgında bu dört seçeneği göreceksin; " Status/Channel/Query/Nicklist " bunlardan hangisine eklemek istiyorsan ona tıklayacaksın. Örneğin " CHANNEL " bölümüne eklemek istiyorum. Bakıyorum orda en alta eklemek istiyorum sayfayı en alta çekiyorum ve oraya;
KüfürKoruma
.Küfür Ekle:/Küfür ekle $$?="Eklenecek kelime nedir?"
.Küfür Sil:/Küfür sil $$?="Silinecek kelime nedir?"
.Küfür Listele:/Küfür liste

2. yol

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


on 1:start:{
hmake kufur
hload kufur kufur.mercy
}
on 1:text:*:#:{
var %::nick $nick
var %::text = $1-
if $hfind(kufur,$1-,1,W).data && $nick {
mode # +b $nick | kick # $nick Kanal genelinde küfürlü Konuşmanızdan Dolayı 15 banlandınız.Banlıyan nick : %::nick Ettiğiniz küfür : 4,4 $remove($gettok($1,1,33),:)
play $chan temizle.txt 300
timer 1 300 $chan -b $nick 
}
}
alias küfür {
if $1 == ekle { 
hadd -m kufur $r(1000,999999) $2-
hsave kufur kufur.mercy
echo -a Kötü Söz girdisi Eklendi: $2-
}
elseif $1 == sil {
if $hfind(kufur,$2-,1,W).data {
hdel kufur $ifmatch
hsave kufur kufur.mercy
echo -a Kötü Söz girdisi Silindi: ( $+ $ifmatch $+ ) $2-
}
else {
Echo -a Silmeye çalıştıgınız küfür listede mevcur değil, $+(,$me,)
}
}
elseif $1 == liste {
echo -a $+(,$me,) Küfür listesi listeleniyor
var %x = 1 
while (%x <= $hget(Kufur,0).item) { 
echo -a 4 $+ $hget(Kufur,%x).data 
inc %x 
}
echo -a $+(,$me,) küfür liste sonu.
}
}
alias kufurkur {
hmake kufur
hload kufur kufur.mercy
}
menu channel,status,query {
Küfür
.Küfür Ekle:/Küfür ekle $$?="Eklenecek kelime nedir?"
.Küfür Sil:/Küfür sil $$?="Silinecek kelime nedir?"
.Küfür Listele:/Küfür liste
}

3. yol;

Dialog ile yapılabilir ama ben pek beceremem diye ellemedim.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

--------------------------------------------------------------
2. yolu aynen al ekle SaGoPa-mİRCKanka dediğin dosyaları ana klasörüne ekle tamamdır.

Yardımım olmuşsa ne mutlu bana iyi paylaşımlar.

Heavenly · 21 Ocak 2009, 14:32

verdıgın yollara baktım Meraklıuser En ıyısı 1. yoldu ogrenme acısından ve ortaya cıkan sonuc boyle oldu ılgın ıcın cok tesekkurler

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

[14:12] <05deneme> a.q
[14:12] * Operator sets mode: +b deneme!*@*
[14:12] <04Operator> 0,0.
[14:12] * deneme was kicked by Operator (Kanal genelinde küfürlü Konuşmanızdan Dolayı 240 Sn  banlandınız.Banlıyan nick : Operator Ettiğiniz küfür : 4,4 a.q)
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operatore> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04oOperator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0......................................................................0,5 Kanal Temızlenıyor :)
[14:12] <04ocean_vvide> 0,0..................................................................0,2 Sohbet Icın Guzel Bır Gun :)
[14:12] <04ocean_vvide> 0,0..........................................................................0,10 PayLaşım iÇin ßurdayız 
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.
[14:12] <04Operator> 0,0.    0,2 KanaL TemizLenmiştir veriLen Geçiçi RahatsızLıktan DoLayı özüR diLeriz .  0,5 İyi SohbetLer

QkLa · 22 Ocak 2009, 08:02

S'a

bununla ilgili konu acacaktim arama butonunda bunu buldum gerek kalmadi.ama bana lazim olan code bot icin.bu codeyi bot'a ekleyip komutla kufur ekle sil ve liste seklinde yapabilirmiyiz lutfen.ekle sil ve listele komutunu kanaldaki gorevliler ve ahmet nicki gerceklestirebilsin.kanaldan kufur nedeni ile atilan sahis #a kanalina sajoin edilsin ve orada kendisine kurallar.txt icerisindeki yazilar okunup o kanaldanda kicklensin,

yardimlariniz ve ilginiz icin tesekkur ederim ..

Editor · 23 Ocak 2009, 04:51

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

on 1:start:{
  hmake kufur
  hload kufur kufur.mercy
}
on 1:text:*:#:{
  var %::mask $gettok($1-,2-,32)
  var %::text = $1-
  var %::nick = $nick
  var %::kufur = $hget(kufur,$hfind(kufur,$1-,1,W).data)
  if $hfind(kufur,$1-,1,W).data && $nick {
    mode # +b $nick | kick # $nick Kanal genelinde küfürlü Konuşmanızdan Dolayı 15 banlandınız.Banlıyan nick : %::nick Yakalanan Kelimeniz : 4,4 %::kufur
    play $chan temizle.txt 300
    timer 1 300 $chan -b $nick
    sajoin $nick #A
    play #A kurallar.txt 300
    .timer5 0 15 ban #A $nick | kick #A $nick Okumuş olduğunuz Kurallara İtaat ediniz. 
    .timer5 0 20 timer5 off
  } 
  if $nick == NICK {
    if $nick !isop $chan {
      msg $chan %::nick $+ : Bu Komutu kullanmaya yetkiniz yok! 
    }
    else {
      if $gettok($1-,1,32) == !kotusoz {
        hadd -m kufur $r(1000,999999) %::mask
        hsave kufur kufur.mercy
        msg # Kötü Söz maskı Eklendi: %::mask
      }
      if $gettok($1-,1,32) == !kotusil {
        if $hfind(kufur,$gettok($1-,2-,32),1,W).data {
          hdel kufur $ifmatch
          hsave kufur kufur.mercy
          msg # Kötü Söz maskı Silindi: %::mask
        }
      }
    }
  }
}

Yapman gerekenler NICK yazan yere Kanalda yetkisi olmadan Bota Komut uygulatacak nicki yazarsın.

Daha Sonra mIRC ana Klasor'unun içine Kufur.mercy , Temizle.txt ve Kurallar.txt dosyalarını atmak.Bunları Tam anlamıyla Uyguladığın taktirde Söylediklerin gerçekleşicektir.

Hoşça Paylaşımlar.

QkLa · 23 Ocak 2009, 08:24

S'a

kanalda kim ne yazarsa yazsin su uyariyi veriyor.

Bu Komutu kullanmaya yetkiniz yok!

kotusoz ve kotusozsil komutunu oplar kullanamiyor.userler komutu uyguladiklarinda bu komutu kullanamazsiniz msg'si iletilmiyor.buna listele komutu ekledim ama calismadi.

AzuLa · 23 Ocak 2009, 13:12

Boş Bir Sayfaya Aşağıdaki kodları ekleyiniz.

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


on *:start: {

  hmake AzuLin

  hload AzuLin.txt

}

 
on *:text:*:#: {

  if ($nick !isop $chan) {

    if $hfind(AzuLin,$1-,1,W).data {

      kick $chan $nick 1Argo - Küfür Yasaktır ! $name

      ban $chan $nick 2

      clean

    }

  }

}

 
alias clean { .timer 40 00 msg $chan  }

Yeni Bir Boş Sayfa Açınız. Aşağıdaki Kodları da Açtığınız Boş Sayfaya Ekleyiniz.

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


on *:text:*:#: {

  if $chan == #AzuLon {

    if $nick isop $chan {

      if $1 == !kotuekle {

        if $2 == $null {

          msg $chan(#AzuLon) Listeye Eklenecek kelimeyi yazmadınız.

          halt

        }

        if $hfind(AzuLin,$2,1,W).data {

          msg $chan(#AzuLon) Bu kelimeyi daha önce eklemişsiniz.

          halt

        }

        else {

          var %kotu.nr $r(0,10000),%kotu.item $2

          hadd -m AzuLin %kotu.nr %kotu.item

          hsave AzuLin AzuLin.txt

          msg $chan(#AzuLon) Eklenen Kelime Bilgisi: Kelime: %kotu.item Ekleyen: $nick

        }

      }

      if $1 == !kotusil {

        if $2 == $null {

          msg $chan(#AzuLon) Listeden Çıkarılacak kelimeyi yazmadınız.

          halt

        }

        else {

          if $hfind(AzuLin,$2,1,W).data {

            hdel -s AzuLin $ifmatch $2

            hsave AzuLin AzuLin.txt

            msg $chan(#AzuLon) Silinen Kelime Bilgisi: Kelime: $2 Silen: $nick

          }

          else {

            msg $chan(#AzuLon) Böyle Bir Kelime Listeden Yer Almıyor.

            halt

          }

        }

      }

      if $1 == !kotulist {

        listele

      }

    }

    else {

      if !kotu* iswm $1 {

        msg $chan(#AzuLon) Bu komutu kullanabilmeniz için $chan Kanalında Op Konumunda Olmalısınız.

      }

    }

  }

}

 
alias listele {

  msg $chan(#AzuLon) Kötü - Argo Kelime Listesi Sıralanıyor.

  var %azi = 1 

  while (%azi <= $hget(AzuLin,0).data) { 

    msg $chan(#AzuLon) $hget(AzuLin,%azi).data 

    inc %azi

  }

  if $hget(AzuLin,%azi).data == $null {

    haltdef

  }

  msg $chan(#AzuLon) Kötü - Argo Kelime Listesi Sonu.

}

Önemli! Kodları ekledikten sonra mIRCinizin ana klasörüne AzuLin.txt belgesi kayıtlayınız. Aksi takdirde komutlar calısmayabilir.

Kodun Çalışma Mantığı:

Komutu Kullanacak Kişi #AzuLon kanalında Op ise;

#AzuLon Kanalında !kotuekle kelime yazıldıgında kelimeyi listeye ekler.
#AzuLon Kanalında !kotusil kelime yazıldıgında kelimeyi listeden cıkarır.
#AzuLon Kanalında !kotulist yazıldıgında kelimeleri listeler.

Komutu Kullanacak Kişi #AzuLon kanalında Op Değil ise;

#AzuLon kanalında !kotuekle !kotusil !kotulist komutlarının hangisini kullanırsa kullansın , Opu olmadan bu komutları kullanamayacagına dair bir uyarı yansıtır.

Koruma Açıklaması: kanalda Op konumunda olmayan biri içerisinde eklenmiş kelimenin bulundugu bir cümle yazarsa;
Kişiyi kanaldan kickler + hostunu banlar. Kanala 40 satırlık bosluk bırakarak temizler.
Eğer Op konumunda biri bu kelimelerden birini yazarsa koruma işlemez.

Açıklama:
Deneme olarak Komutların çalışacağı kanalı #AzuLon olarak ayarladım. Siz de komutların hangi kanalda işlemesini istiyorsanız #AzuLon olan kısımları #kanalınız şeklinde değiştiriniz. #Ops kanalında işlemesi için ; #AzuLon olan yerleri #Ops olarak değiştirmelisiniz.

Kodun calıstıgına dair Log:

Alıntı:

[12:54] * ChanServ mod değiştirdi:+o aLias
[12:55] <@aLias> !kotulist
[12:55] <~AzuLa> Kötü - Argo Kelime Listesi Sıralanıyor.
[12:55] <~AzuLa> deniyoruz
[12:55] <~AzuLa> asos
[12:55] <~AzuLa> Kötü - Argo Kelime Listesi Sonu.
[12:56] <@aLias> !kotuekle salak
[12:56] <~AzuLa> Eklenen Kelime Bilgisi: Kelime: salak Ekleyen: aLias
[12:56] <@aLias> !kotuekle manyak
[12:56] <~AzuLa> Eklenen Kelime Bilgisi: Kelime: manyak Ekleyen: aLias
[12:56] <@aLias> !kotulist
[12:56] <~AzuLa> Kötü - Argo Kelime Listesi Sıralanıyor.
[12:56] <~AzuLa> deniyoruz
[12:56] <~AzuLa> manyak
[12:56] <~AzuLa> salak
[12:56] <~AzuLa> asos
[12:56] <~AzuLa> Kötü - Argo Kelime Listesi Sonu.
[12:56] <@aLias> !kotusil asos
[12:56] <~AzuLa> Silinen Kelime Bilgisi: Kelime: asos Silen: aLias
[12:57] <@aLias> !kotulist
[12:57] <~AzuLa> Kötü - Argo Kelime Listesi Sıralanıyor.
[12:57] <~AzuLa> deniyoruz
[12:57] <~AzuLa> manyak
[12:57] <~AzuLa> salak
[12:57] <~AzuLa> Kötü - Argo Kelime Listesi Sonu.
[12:57] * aLias mod değiştirdi:-o aLias
[12:57] <aLias> !kotulist
[12:57] <~AzuLa> Bu komutu kullanabilmeniz için #AzuLon Kanalında Op Konumunda Olmalısınız.
[12:57] <aLias> !kotuekle
[12:57] <~AzuLa> Bu komutu kullanabilmeniz için #AzuLon Kanalında Op Konumunda Olmalısınız.
[12:57] <aLias> !kotuekle asos
[12:57] <~AzuLa> Bu komutu kullanabilmeniz için #AzuLon Kanalında Op Konumunda Olmalısınız.
[12:57] <aLias> !kotusil
[12:57] <~AzuLa> Bu komutu kullanabilmeniz için #AzuLon Kanalında Op Konumunda Olmalısınız.
[12:57] <aLias> !kotusil asos
[12:57] <~AzuLa> Bu komutu kullanabilmeniz için #AzuLon Kanalında Op Konumunda Olmalısınız.
[12:58] * AzuLa mod değiştirdi:+o aLias
[12:58] <@aLias> !kotulist
[12:58] <~AzuLa> Kötü - Argo Kelime Listesi Sıralanıyor.
[12:58] <~AzuLa> deniyoruz
[12:58] <~AzuLa> manyak
[12:58] <~AzuLa> salak
[12:58] <~AzuLa> Kötü - Argo Kelime Listesi Sonu.
[12:58] <@aLias> !kotuekle deniyoruz
[12:58] <~AzuLa> Bu kelimeyi daha önce eklemişsiniz.
[12:58] <@aLias> !kotusil sdf
[12:58] <~AzuLa> Böyle Bir Kelime Listeden Yer Almıyor.
[13:11] <@aLias> !kotulist
[13:11] <~AzuLa> Kötü - Argo Kelime Listesi Sıralanıyor.
[13:11] <~AzuLa> deniyoruz
[13:11] <~AzuLa> manyak
[13:11] <~AzuLa> salak
[13:11] <~AzuLa> Kötü - Argo Kelime Listesi Sonu.
[13:11] <@aLias> salak
[13:11] * aLias mod değiştirdi:-o aLias
[13:12] <aLias> salak
[13:12] * aLias AzuLa Tarafından Kanaldan Atıldı (Argo - Küfür Yasaktır !)
[13:12] * AzuLa mod değiştirdi:+b *!*@2040CF0.E9E68F03.35D6A447.IP

*DipNot: Yardımı İçin CesuryureK'e teşekkür ederim.

Kod ile ilgili herhangi bir sorun yaşarsanız başlık altında paylaşabilirsiniz.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Kufur Koruma ( Zline'a Cevirme )	Heavenly	mIRC Scripting Sorunları	5	23 Nisan 2009 11:56
kufur koruma	AyazGeceLer	mIRC Scripting Sorunları	2	19 Şubat 2009 02:13
kufur koruma ile ilgili	ahmet_corum	mIRC Scripting Sorunları	6	13 Şubat 2009 00:09
Kufur Koruma	AyazGeceLer	mIRC Scripting Sorunları	2	06 Şubat 2009 22:53
Kufur Koruma Yardim	AyazGeceLer	mIRC Scripting Sorunları	2	29 Ocak 2009 20:29

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

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.