IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   kufur koruma temizlik (https://www.ircforumlari.net/mirc-scripting-sorunlari/172854-kufur-koruma-temizlik.html)

Heavenly 15 Ocak 2009 17:27
kufur koruma temizlik
 
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
Cevap: kufur koruma temizlik
 
yardım edıcek kımse yok mu yaff

Editor 20 Ocak 2009 18:59
Cevap: kufur koruma temizlik
 
Kod:
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
Cevap: kufur koruma temizlik
 
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
Cevap: kufur koruma temizlik
 
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- Kodu:
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. :)

--------------------------------------------------------------
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
Cevap: kufur koruma temizlik
 
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:
[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
Cevap: kufur koruma temizlik
 
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
Cevap: kufur koruma temizlik
 
Kod:
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
Cevap: kufur koruma temizlik
 
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
Cevap: kufur koruma temizlik
 
Boş Bir Sayfaya Aşağıdaki kodları ekleyiniz.

PHP- Kodu:
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- Kodu:
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.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16:34.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net