Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet odaları

Avatar
Own
Avatar
Thilda
Avatar
dae
Avatar
zurnamix
Avatar
Convex
Avatar
Dedecan61
Avatar
Aperson
Avatar
aFa
Avatar
KarabuluT6606
>
+
 Kayıt ol
Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 24 Temmuz 2009, 11:36   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
küfür koruma yardım



PHP 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) {
      gzline $nick : 15 Küfür!  2 Aciz İnsanların İşidir  | 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) {
      gzline $nick : 15 Küfür!  2 Aciz İnsanların İşidir  | 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) {
      gzline $nick : 15 Küfür!  2 Aciz İnsanların İşidir   | 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 }
#blacklist2 on
on karaliste:JOiN:#:{
  var %::chan = $chan
  var %::nick = $nick
  if (%nickkor == ON) {
    gzline $nick : 15 Küfür!  2 Aciz İnsanların İşidir  
  }
}
#blacklist2 END 

elime böyle bi kod var yine burdan bulmuştum koderi kim bilmiyorum ama emeğine sağlık güzel bi kod yazmış ufak tefek kendime göre editledim fakat bu kodun #a ve #b kanallarından muaf olmasını istiorm nasıl yapabilirim ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet bizimmekan
Alt 24 Temmuz 2009, 11:49   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruma yardım



kodun yapılmasını ıstıyen bendım ve cokta ısıme yarayan bı kod olmustu SagopaMırcKanka nıck'lı arkadas yapmıstı sagolsun ona ozel pm atarsan sana gerı donecektır muaf kanal ekleme konusunda yardımcı olacaktır

__________________
Korkuyorsan yapma,
yapıyorsan korkma..

wake the fuck up samurai we have a city to burn..


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
 
Alıntı ile Cevapla

Alt 24 Temmuz 2009, 13:58   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruma yardım



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 ($chan == #B) { halt }
  if ($chan == #A) { halt }
  if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      gzline $nick : 15 Küfür!  2 Aciz İnsanların İşidir  | 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 ($chan == #B) { halt }
  if ($chan == #A) { halt }
  if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      gzline $nick : 15 Küfür!  2 Aciz İnsanların İşidir  | 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 ($chan == #B) { halt }
if ($chan == #A) { halt }
if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      gzline $nick : 15 Küfür!  2 Aciz İnsanların İşidir   | 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 }
#blacklist2 on
on karaliste:JOiN:#:{
  var %::chan = $chan
  var %::nick = $nick
  if (%nickkor == ON) {
    gzline $nick : 15 Küfür!  2 Aciz İnsanların İşidir  
  }
}
#blacklist2 END


 
Alıntı ile Cevapla

Alt 04 Kasım 2009, 12:27   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruma yardım



bu kodun bazı nickleride muaf tutmasını istiyorum nasıl yapabilirim yardımcı olurmusunz tşk.ler

 
Alıntı ile Cevapla

Alt 04 Kasım 2009, 13:20   #5
Çevrimdışı
Leo
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruma yardım



selam guzel kod arkadaslar bu kodu kanaldna banlayacak şekilde yapa bilirmiyiz

 
Alıntı ile Cevapla

Alt 04 Kasım 2009, 14:01   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruma yardım



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 ($regex($chan,/(#kanal1|#kanal2|#kanal3)/i)) && ($regex($nick,/(nick1|nick2|nick3)/i))  { halt }
 if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      gzline $nick : 15 Küfür!  2 Aciz İnsanların İşidir  | 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 ($regex($chan,/(#kanal1|#kanal2|#kanal3)/i)) && ($regex($nick,/(nick1|nick2|nick3)/i))  { halt }
if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      gzline $nick : 15 Küfür!  2 Aciz İnsanların İşidir  | 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 ($regex($chan,/(#kanal1|#kanal2|#kanal3)/i)) && ($regex($nick,/(nick1|nick2|nick3)/i))  { halt }
if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      gzline $nick : 15 Küfür!  2 Aciz İnsanların İşidir   | 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 }
#blacklist2 on
on karaliste:JOiN:#:{
  var %::chan = $chan
  var %::nick = $nick
  if (%nickkor == ON) {
    gzline $nick : 15 Küfür!  2 Aciz İnsanların İşidir  
  }
}
#blacklist2 END

#kanal1 2 3 şeklinde muaf kanallarını ve nick1 nick2 3 şeklinde muaf nicklerini ekleyebilirsin.
İyi forumlar.

 
Alıntı ile Cevapla

Alt 04 Kasım 2009, 14:08   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruma yardım



leoo Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
selam guzel kod arkadaslar bu kodu kanaldna banlayacak şekilde yapa bilirmiyiz


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 ($regex($chan,/(#kanal1|#kanal2|#kanal3)/i)) && ($regex($nick,/(nick1|nick2|nick3)/i))  { halt }
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      ban # $nick 2 | kick # $nick sebep | 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 ($regex($chan,/(#kanal1|#kanal2|#kanal3)/i)) && ($regex($nick,/(nick1|nick2|nick3)/i))  { halt }
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      ban # $nick 2 | kick # $nick sebep  | 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 ($regex($chan,/(#kanal1|#kanal2|#kanal3)/i)) && ($regex($nick,/(nick1|nick2|nick3)/i))  { halt }
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      ban # $nick 2 | kick # $nick sebep  | 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 }
#blacklist2 on
on karaliste:JOiN:#:{
  var %::chan = $chan
  var %::nick = $nick
  if (%nickkor == ON) {
    .ban # $nick 2 
    .kick # $nick sebep
  }
}
#blacklist2 END

Bu şekilde yapılabilir. İyi forumlar...

 
Alıntı ile Cevapla

Alt 05 Kasım 2009, 17:33   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruma yardım



ArkadaşLar ßu kodu IRCOP olmayanlar kullanamıyor mu ßen ßi küfür yazdım kufurlıste ama atmadı dedıkı ßu kodu kullanmanız ıcın IRCOP olmanız lazım dedı opken sopken kullanamıyormuyuz .

 
Alıntı ile Cevapla

Alt 05 Kasım 2009, 17:45   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruma yardım



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 ($regex($chan,/(#kanal1|#kanal2|#kanal3)/i)) && ($regex($nick,/(nick1|nick2|nick3)/i))  { halt }
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      ban # $nick 2 | kick # $nick sebep | 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 ($regex($chan,/(#kanal1|#kanal2|#kanal3)/i)) && ($regex($nick,/(nick1|nick2|nick3)/i))  { halt }
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      ban # $nick 2 | kick # $nick sebep  | 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 ($regex($chan,/(#kanal1|#kanal2|#kanal3)/i)) && ($regex($nick,/(nick1|nick2|nick3)/i))  { halt }
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      ban # $nick 2 | kick # $nick sebep  | 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 }
#blacklist2 on
on karaliste:JOiN:#:{
  var %::chan = $chan
  var %::nick = $nick
  if (%nickkor == ON) {
    .ban # $nick 2 
    .kick # $nick sebep
  }
}
#blacklist2 END

Oper olmadan da kullanabilirsin ama @ olman lazım...

 
Alıntı ile Cevapla

Alt 06 Kasım 2009, 03:22   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruma yardım



biraz mantıkla işi çözebilirsin KraL`` .. ne gibi ? nasıl ? diceksin...

(yukardaki kodlardan bir kesit alarak) küçük bi ipucu;
Alıntı:
gzline $nick Küfür! Aciz İnsanların İşidir

bu kısımı almamın nedeni şu;

"gzline $nick"

zline atabilmen için oper olman lazım dimi ..

oper değilsin ! o halde ban olayında değişiklik istediğine göre aop yada sop'sun..

o zaman da olayın akışı şöyle değişir..
Alıntı:
"ban # $nick 2 | kick # $nick"

aradaki fark;

gzline $nick : Küfür! Aciz İnsanların İşidir | Window -e @RAPOR (oper)

ban # $nick | kick # $nick sebep | Window -e @RAPOR (aop - sop)

işine yarar bilgiler olabileceğini düşündüğüm için yazdım.. olayın özünü anlatabilmişimdir sanırım..

İyi Forumlar...

Konu ircop tarafından (06 Kasım 2009 Saat 03:28 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
koruma, kufur, küfür, mirc download, mirc indir, yardim, yardım

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Küfür Koruma XDie mIRC Scripting Sorunları 1 13 Nisan 2012 20:56
karakter küfür koruma RegSubex mIRC Scripting Sorunları 1 18 Mayıs 2011 00:28
küfür koruma Selim01 mIRC Scripting Sorunları 6 15 Kasım 2009 13:30
Hash Küfür Koruma Tai_Pan mIRC Scripting Sorunları 5 17 Şubat 2009 13:04
küfür koruma yardım muratt_aziz mIRC Scripting Sorunları 2 24 Ağustos 2008 17:43




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
trsikayet.com ferizli haber kaynarca haber yavru köpek sohbet instagram takipçi sohbet teması
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk