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
TEKMEYLE İADE EDİLEN ALTIN	Desmont	Tarih	0	19 Kasım 2014 16:29
ŞEHZADE III. SELİM’İN KUR’ANI KERİM HATMİ İÇİN TERTİB EDİLEN MERASİM	Desmont	Tarih	0	17 Kasım 2014 19:45
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)

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.