Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Heavenly · 13 Eylül 2009, 14:56

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

on *:TEXT:*:#:{
  var %::chan = $chan
  var %::nick = $nick
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      kline %::nick  2 Küfür Aciz insan'ların  İşidir 1 Terbiyeli Ol 2 $server 12 $me  5 $date 14 $time 12K14üfü12R I14s 12N14ot a5LL14owe5D12..   | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time }
    }
  }
}
on *:action:*:#:{
  var %::chan = $chan
  var %::nick = $nick
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      kline %::nick  2 Küfür Aciz insan'ların  İşidir 1 Terbiyeli Ol 2 $server 12 $me  5 $date 14 $time 12K14üfü12R I14s 12N14ot a5LL14owe5D12..   | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time }

    }
  }
}
on *:notice:*:#:{
  var %::chan = $chan
  var %::nick = $nick
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      kline %::nick  2 Küfür Aciz insan'ların  İşidir 1 Terbiyeli Ol 2 $server 12 $me  5 $date 14 $time 12K14üfü12R I14s 12N14ot a5LL14owe5D12..  | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time }

    }
  }
}
alias badword {
  if ($1 == add) {
    set %badwords $addtok(%badwords,$2,32)
    echo -a 14»1»15»1 Listeye $2 Eklendi..!
  }
  if ($1 == del) {
    if ($istok(%badwords,$2,32)) {
      set %badwords $remtok(%badwords,$2,32)
      echo -a 14»1»15»1 Listeden $2 Silindi..!
    }
  }
  if ($1 == delall) {
    unset %badwords
    echo -a 14»1»15»1 Kufur Listesi Boşaltıldı..!
  }
  if ($1 == list) {
    if ($window(@Kufur-List) == $null) {
      window -ab @Kufur-List
    }
    if ($numtok(%badwords,32) == 0) { aline @Kufur-List 14»1»15»1 Listede Hicbir Kelime YoK..! | halt }
    aline @Kufur-List 14»1»14»1 KufurLu Kelimeler Listeleniyor... 4ToPLam Kufur : ( $+ $numtok(%badwords,32) $+ )
    var %n = 1
    while (%n <= $numtok(%badwords,32)) {
      aline $color(info 2) @Kufur-List 4»»» $gettok(%badwords,%n,32)
      inc %n
    }
    aline @Kufur-List 14»1»15»1 LisTe Sonu ..
  }
}
alias Badword dialog -m Badword Badword
dialog Badword {
  title "Kufur Koruma"
  size -1 -1 355 200
  button "«:KaPaT:»"2, 25 125 300 25,ok
  button "«:Kufur Korumayı Aktif Yap:»"3, 25 25 150 25
  button "«:Kufur Korumayı KapaT:»"4, 175 25 150 25
  button "«:Kelime EkLe:»"5, 25 50 150 25
  button "«:KeLime SiL:»"6, 175 50 150 25
  button "«:Listedeki Tum Kelimeleri SiL:»"7, 25 75 300 25
  button "«:Kufur Listesine Bak:»"8, 25 100 300 25
  box "Kufur Koruma "9, 2 1 350 190
}
on 1:dialog:Badword:sclick:*:{
  if ($did == 3) { /set %badword.detect on | echo -a 3«(14 *** Kufur Koruması Simdi ACIK 3)» }
  if ($did == 4) { /unset %badword.detect | echo -a 3«(14 *** Kufur Koruması Simdi KAPALI 3)» }
  if ($did == 5) { /badword add $$?="Kufur Gir:" }
  if ($did == 6) { /badword del $$?="Kufur Gir:" }
  if ($did == 7) { /badword delall }
  if ($did == 8) { /badword list }
}
Menu Channel {
  |-Kufur Koruma-|:/dialog -m Badword Badword
}
alias badnick { Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 10Suç:7BaDnick 10Nick:7 $nick 10KaNaL:7 # 10 BaN Süresi:7 Süresiz 10 Zaman:7 $time | ban # $nick 2 | kick # $nick 4 $chan 12 kanaLı 2Sohbet odalaSı kurallarına ( 4 Uygun bir nick KuLLanmama 2) sebebinden dolayı  4 $chan 2 odasından 4 Süresiz 2 uzakla$tırıldınız.Daha fazla bilgi icin 4/motd 2yazınız ! | halt }
#blacklist on
on karaliste:JOiN:#:{
  var %::chan = $chan
  var %::nick = $nick
  if (%nickkor == ON) {
    kline %::nick  2 Küfür Aciz insan'ların  İşidir 1 Terbiyeli Ol 2 $server 12 $me  5 $date 14 $time 12K14üfü12R I14s 12N14ot a5LL14owe5D12.. 

  }
}
#blacklist END

korumamda hiç bir sorun yok çok güzel çalışıyo sadece ek olarak

ÖRN: kline %::nick 2 Küfür Aciz insan'ların İşidir 1 Terbiyeli Ol 2 $server 12 $me 5 $date 14 $time 12K14üfü12R I14s 12N14ot a5LL14owe5D12.. | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time }

şu kısımdan sonra sunu eklemek ıstıyorum

msg #yönetim #kanal Kanalında Nick Nick'i Yasaklı Olan Şu Kelimeyi Kullandı (kelime) ve sunucudan uzaklaştırıldı

yardımcı olurmusunuz Lütfen

h4pp3n · 13 Eylül 2009, 15:15

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

on *:TEXT:*:#:{
var %::chan = $chan
var %::nick = $nick
var %p = 0
while (%p < $numtok($1-,32)) {
inc %p
if ($nick !isop $chan) {
if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
msg #yönetim $nick $chan kanalındaki küfür nedeniyle işlem gördü. Edilen küfür: $ifmatch
kline %::nick  2 Küfür Aciz insan'ların  İşidir 1 Terbiyeli Ol 2 $server 12 $me  5 $date 14 $time 12K14üfü12R I14s 12N14ot a5LL14owe5D12..   | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time
}
}
}
}
on *:action:*:#:{
var %::chan = $chan
var %::nick = $nick
var %p = 0
while (%p < $numtok($1-,32)) {
inc %p
if ($nick !isop $chan) {
if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
msg #yönetim $nick $chan kanalındaki küfür nedeniyle işlem gördü. Edilen küfür: $ifmatch
kline %::nick  2 Küfür Aciz insan'ların  İşidir 1 Terbiyeli Ol 2 $server 12 $me  5 $date 14 $time 12K14üfü12R I14s 12N14ot a5LL14owe5D12..   | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time 
}
}
}
}
on *:notice:*:#:{
var %::chan = $chan
var %::nick = $nick
var %p = 0
while (%p < $numtok($1-,32)) {
inc %p
if ($nick !isop $chan) {
if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
msg #yönetim $nick $chan kanalındaki küfür nedeniyle işlem gördü. Edilen küfür: $ifmatch
kline %::nick  2 Küfür Aciz insan'ların  İşidir 1 Terbiyeli Ol 2 $server 12 $me  5 $date 14 $time 12K14üfü12R I14s 12N14ot a5LL14owe5D12..  | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time 
}
}
}
}

Bu sekilde yaparsan istedigini yapmıs olursun .. Olmazsa tekrar yazarsın .. Denemedim ..

Heavenly · 13 Eylül 2009, 15:49

denedım ama bu cıkıyo

[KBSC] [15:46:59] <04asd> denemexx #deneme kanalındaki küfür nedeniyle işlem gördü. Edilen küfür: on

h4pp3n · 13 Eylül 2009, 15:51

$ifmatch yerine $1- yap tamamını gör ..

Heavenly · 13 Eylül 2009, 16:06

teşekkurler ılgın ıcın sımdı sorunsuz calısıyo elıne saglık

kilicli_32 · 13 Eylül 2009, 23:05

bu korumayı nasıl çalıştıracaz kodu ne ????

SteNLie · 17 Kasım 2009, 19:27

evet bu koruma nasıl çalışmaktadır yardımcı olurmusunuz

yaLin · 17 Kasım 2009, 20:23

Bu kodu kullanabilmeniz için oper olmanız gerekmektedir. lakin ben (@) yada (&)'um diyorsanız, kline yazan yerleri ( kick # %::nick ) gibi değiştirebilirsiniz..

WeiLSiDe · 17 Kasım 2009, 21:12

kline %::nick 2 Küfür Aciz insan'ların İşidir 1 Terbiyeli Ol 2 $server 12 $me 5 $date 14 $time 12K14üfü12R I14s 12N14ot a5LL14owe5D12.. | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time

bu satırları

ban # %::nick 2 | kick # %::nick 2 Küfür Aciz insan'ların İşidir 1 Terbiyeli Ol 2 $server 12 $me 5 $date 14 $time 12K14üfü12R I14s 12N14ot a5LL14owe5D12.. | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time

bununla değişirseniz ban kick atar

Gulsum · 17 Kasım 2009, 22:34

söylemek istedikleri küfürlü sözleri nereye yazıyoruz nereye ekliyoruz kufur.txt mi oluşturuluyor

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
SÜNNET EDİLEN 10 YAŞINDAKİ KIZ ÇOCUĞU KAN KAYBINDAN ÖLDÜ!	oMeN	Haber Arşivi	2	24 Temmuz 2018 14:16
TEKMEYLE İADE EDİLEN ALTIN	Desmont	Tarih	0	19 Kasım 2014 16:29
KanaLda Yetki aLanı biLdirme	FirariSevdam	mIRC Scripting Sorunları	2	08 Ağustos 2012 01:12
Remote.ini'deki kufur'leri iptal edip, kufur.tx ile sağlıkla sağlamak için ne gerek?	ircmsn	mIRC Scripting Sorunları	5	08 Aralık 2007 16:40

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.