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

- 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)

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