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

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 Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme) (https://www.ircforumlari.net/mirc-scripting-sorunlari/255449-kufur-korumasina-ek-edilen-kufurleri-yonetim-kanalina-bildirme.html)

Heavenly 13 Eylül 2009 14:56
Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
Kod:
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 :(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
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
Kod:
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
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
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
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
$ifmatch yerine $1- yap tamamını gör ..

Heavenly 13 Eylül 2009 16:06
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
teşekkurler ılgın ıcın sımdı sorunsuz calısıyo elıne saglık

kilicli_32 13 Eylül 2009 23:05
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
bu korumayı nasıl çalıştıracaz kodu ne ????

SteNLie 17 Kasım 2009 19:27
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
evet bu koruma nasıl çalışmaktadır yardımcı olurmusunuz

yaLin 17 Kasım 2009 20:23
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
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
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
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 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 :(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
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
söylemek istedikleri küfürlü sözleri nereye yazıyoruz nereye ekliyoruz kufur.txt mi oluşturuluyor

yaLin 17 Kasım 2009 22:39
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
kod mIRC e eklendiğinde sağ tıka Küfür koruma diyaloğu geliyor.
ordan kelime ekle kelime sil yapıyorsunuz.:)

Gulsum 18 Kasım 2009 00:38
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
kelimeler Variables bölmüne bu şekil ekleniyo
%badwords salak aptal
bu şekil sadece o kelime gecerse kanalda atıyor.peki sensalaksın yazanı atmıyor. *salak* die ekledim yine kabul etmedi nasıl eklemeliyim

yaLin 18 Kasım 2009 00:49
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
kelimeyi veriablese ekleme. sağ tık yap kufur koruma diyalogunu aç ordan ekle.

Bu arada soruların bitmiyor yanlış anlama ama.) mIRC işine çok heveslisin gördüğüm kadarı ile.
kolay gelsin.:)

Gulsum 18 Kasım 2009 01:46
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
kelimeyi veriablese ekleme sağ tık yap kufur koruma diyalogunu aç ordan ekle.
bende aynen öğle ekliyorum codun kendisi veriablese ekliyo:)

Heavenly 18 Kasım 2009 13:32
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
kod txt'ten okutulmadı ben bızzat oyle ıstedım koruma daha hızlı calıssın dıye veritables'e eklenıyor kufurler kufurlerı ekleme yontemıne gelınce bu korumayı normal kufur eklemek ıcın yaptırmamıstım ConferansRoom sunucularında spam ekleme gıbı bı sey olmadıgı ıcın kufur'lerı onlemenın en ıyı yolu boyle bı korumaydı cokta ısıme yaramıstı sız normal kufur koruması arıyorsanız bu pek ısınıze yaramaz

SteNLie 21 Aralık 2009 13:00
Cevap: Kufur Korumasına Ek (Edılen Kufurlerı #yönetim Kanalına Bildirme)
 
bu korumaya muaf kanal nasıl ekleyebilirim ?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:08.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk