küfür koruması. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Skys · 13 Ekim 2010, 15:17

Kolay gelsin IF'de baktım cok küfür koruması var Coğunu denedim bota mIRCScript Botuna ama coğu codu Botuma uygulayamadım.

!küfürekle
!küfürsil

eklediğim küfürü kanalda kullanan kullanıcın ban almasını istiyorum.

Chelt · 13 Ekim 2010, 15:46

Buraya bakmışmıdınız.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Skys · 13 Ekim 2010, 16:39

Suan ekledim yükledim denedim ama küfür koruması Çalışmadı..

on 1:start:{
hmake kufur
hload kufur kufur.bugra
}
on 1:text:*:#:{
var %::text = $1-
if $hfind(kufur,$1-,1,W).data && $nick {
mode # +b $nick
msg # $nick küfürlü konuştunuz Bu yuzden kanaldan uzaklaştırıldınız. yakalanan küfürünüz >4 $hget(kufur,$hfind(kufur,$1-,1,W).data)
}
if $chan == #ss {
if $gettok($1-,1,32) == !kotusoz {
hadd -m kufur $r(1000,999999) $gettok($1-,2-,32)
hsave kufur kufur.bugra
msg # Kötü Söz Eklendi: $gettok($1-,2-,32)
}
if $gettok($1-,1,32) == !kotusil {
if $hfind(kufur,$gettok($1-,2-,32),1,W).data {
hdel kufur $ifmatch
hsave kufur kufur.bugra
msg # Kötü Söz Silindi: ( $+ $ifmatch $+ ) $gettok($1-,2-,32)
}
}
}
}
on *:load:{
echo -a 4|2WingmaN4| 2 Küfür korumanız Yüklenmiştir.
echo -a 4<2WingmaN4> 2 Kurmak için > 4/kufurkur 2 yazabilirsiniz
}
alias kufurkur {
hmake kufur
hload kufur kufur.bugra
echo -a 4|2WingmaN4| 2: Küfür korumanız kurulmuştur.
}

kufur.bugra

50606
* şikeç *
227455
*a.g*
364469

Sekildede eklenmisti

KiLL · 14 Ekim 2010, 01:31

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Sorunun yanıtını burada bulman mümkün

SessizKaLp · 14 Ekim 2010, 01:49

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

on *:text:*:#kanal:{
  if !kufurekle* iswm $1- {  
    if ($read(oper.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(root.txt,w,$nick)) {  
      if $read(kufurler.txt,w,$2-) { 
        .msg $chan  $2 1Küfür Listesinde zaten ekli.
      }
      else { 
        write kufurler.txt $2- 
        .msg $chan 1Kufurlu kelime eklendi: $2
      } 
    }
    else {
      msg $nick  $nick 1Bu Komuta Erişiminiz Yok.
    }
  }
  if !kufursil* iswm $1- {
    if ($read(oper.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(root.txt,w,$nick)) {  
      if !$read(kufurler.txt,w,$2-) { 
        msg $chan  $2 1Kufur Listesinde yok. 
      } 
      else { 
        write $+(-,dw,$2-) kufurler.txt 
        msg $chan  $2 1Kufur Listesinden Silindi. 
      } 
    }
    else {
      msg $nick  $nick 1Bu Komuta Erişiminiz Yok.
    } 
  }
}

!kufurekle
!kufursil

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

on *:text:!kufurlist:#kanal:{ kntrl }
alias wblist { 
  .msg # 1Hafızadaki Kufur Listesi Özelinize Verildi.
  .msg $nick 1Hafızadaki Kufur Listesi.
  .play $nick kufurler.txt 0
  .timer 1 2 .msg $nick 1Listeleme tamamlandı.
}
alias kntrl {
  if $istok($read(root.txt, w, $nick),$nick,32) == $true { wblist | halt }
  if $istok($read(root.txt, w, $nick),$nick,32) == $false { kntr2 } 
}
alias kntr2 {
  if $istok($read(admin.txt, w, $nick),$nick,32) == $true { wblist | halt }
  if $istok($read(admin.txt, w, $nick),$nick,32) == $false { kntr3 } 
}
alias kntr3 { 
  if $istok($read(oper.txt, w, $nick),$nick,32) == $true { wblist | halt }
  if $istok($read(oper.txt, w, $nick),$nick,32) == $false { .msg $nick 1Bu Komuta Erişiminiz Yok. | halt }
}

!kufurlist

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

on *:TEXT:*:#:{ 
if ($me isop $chan) {
var %i 1 
while $read(kufurler.txt,%i) { 
if ($read(kufurler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,;)) { /kick $chan $nick Küfür Etmek Yasaktır! | /mode $chan +b $nick } 
inc %i 
} 
}
}

kufurler.txt açmayı unutma.
kolay gelsin

22 Mart 2011, 00:35

Bu kodların üçünüde remoteyemi eklicez_?

SessizKaLp · 22 Mart 2011, 06:36

Evet ayrı ayrı remote açıp ekliyoruz.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Küfür Koruması	AkReP	mIRC Scripting Sorunları	6	09 Mayıs 2010 20:44
Küfür Koruması	GuneL	mIRC Scripting Sorunları	8	06 Mayıs 2009 13:57
küfür koruması hk	olcays	mIRC Scripting Sorunları	4	23 Ekim 2008 18:59
BoT hakkında küfür koruması ekLeme !küfür	Editor	mIRC Scripting Sorunları	6	30 Kasım 2007 23:26
Küfür Koruması	JuaJua	Eggdrop, NeoStats, BNC	1	09 Mart 2007 16:42

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.