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

3Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 16 Temmuz 2011, 09:24   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




Denedim Koruma Çalısmadı Hatada Vermedi Ne Pencere Cıktı Nede Kanaldan Attı.

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 16 Temmuz 2011, 16:31   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
  if ($istok(%muafnickler,$nick,32)) { .halt } | if $nick ison %muafkanallar { .halt }
  if (
$nick isreg #) && !$istok(#operhelp #Help #yönetim,#,32) && $nick !ison #Ops { 

Denediğin nick, bu üstte geçen listeden herhangi birine denk geliyorsa, elbette hiç bişi yapmaz.

-1 %muafnickler 'de bulunmuyorsa,
-2 %muafkanallar 'da bulunmuyorsa,
-3 Nick kayıtlı değil ise
-4 OperHelp, help, yonetim kanalları değil ise
-5 Nick #Ops kanalında değil ise

Koruma, çalışacaktır.

 
Alıntı ile Cevapla

Alt 18 Temmuz 2011, 00:27   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




Verdıgın Kodu Duz Mircda Denedim Olmadı Dedıklerını Uyguladım Yıne Olmadı Bakdım Şu Kısımları Sildim...

if ($istok(%muafnickler,$nick,32)) { .halt } | if $nick ison %muafkanallar { .halt }
if (
$nick isreg #) && !$istok(#operhelp #Help #yönetim,#,32) && $nick !ison #Ops {

Yine Olmadı Acaba Bendemı Bır Hata Var Anlamadım..

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

Alt 06 Ağustos 2011, 06:16   #14
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




Elimde tam sana göre bi addon var
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on @*:TEXT:*:#:{
  
var %::chan $chan
  
var %::nick $nick
  
var %0
  
while (%$numtok($1-,32)) {
    
inc %p
    
if ($nick !isop $chan) {
      if (
$istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      
mode %::chan +%::nick kick %::chan %::nick 5 Küfür arGo Yasak !    | Window -@RAPOR titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo @RAPOR »10 Suç:7 KüFüR :($+ $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 %0
  
while (%$numtok($1-,32)) {
    
inc %p
    
if ($nick !isop $chan) {
      if (
$istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      
mode %::chan +%::nick kick %::chan %::nick 5 Küfür arGo Yok!  2    Window -@RAPOR titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo @RAPOR »10 Suç:7 KüFüR :($+ $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 %0
  
while (%$numtok($1-,32)) {
    
inc %p
    
if ($nick !isop $chan) {
      if (
$istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
      
mode %::chan +%::nick kick %::chan %::nick 5 KüfürArGo  2 Aciz İnsanların İşidir  1 KeLimeLere Dikkat.! 7 Sizi ßanLıyan Nick  $me   2 ßanLanan nick : %::nick Window -@RAPOR titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo @RAPOR »10 Suç:7 KüFüR :($+ $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 ($
== add) {
    
set %badwords $addtok(%badwords,$2,32)
    echo -
a 14»1»15»1 Listeye $2 Eklendi..!
  }
  if ($
== del) {
    if (
$istok(%badwords,$2,32)) {
      
set %badwords $remtok(%badwords,$2,32)
      echo -
a 14»1»15»1 Listeden $2 Silindi..!
    }
  }
  if ($
== delall) {
    unset %
badwords
    
echo -a 14»1»15»1 Kufur Listesi Boşaltıldı..!
  }
  if ($
== 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 %
1
    
while (%<= $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 355 200
  button 
"«:KaPaT:»"225 125 300 25,ok
  button 
"«:Kufur Korumayı Aktif Yap:»"325 25 150 25
  button 
"«:Kufur Korumayı KapaT:»"4175 25 150 25
  button 
"«:Kelime EkLe:»"525 50 150 25
  button 
"«:KeLime SiL:»"6175 50 150 25
  button 
"«:Listedeki Tum Kelimeleri SiL:»"725 75 300 25
  button 
"«:Kufur Listesine Bak:»"825 100 300 25
  box 
"Kufur Koruma "92 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,Status  {
  |-
Kufur Koruma-|:/dialog -m Badword Badword
}
alias badnick Window -@RAPOR titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo @RAPOR »10 10Suç:7BaDnick 10Nick:7 $nick 10KaNaL:# 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) {
    
mode %::chan +%::nick kick %::chan %::nick 5 Küfür 
  }
}
#blacklist END 

remoteye ekliyosun kanalda sağ tıkladığında popups menu seklinde acılır
işlemleri @Rapor penceresinde bütün ayrıntısına kadar görebilirsin ancak vilcard olarak kelime eklenmior ama baya kullanıslıdır..

 
Alıntı ile Cevapla

Alt 06 Ağustos 2011, 21:29   #15
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




TiGeR Konuyu Açarken Bu Korumayı Örnek Vermısdım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

Alt 06 Ağustos 2011, 23:25   #16
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




StanteaR,

WingmaN'ın size vermiş olduğu kodlama dizini çalışıyor.Bir pürüz dışında ki bunuda siz kodlamanızda belirtmişsiniz:
if $nick ison %muafkanallar çoğul olarak böyle bir operatör sorgusu olmaz.Buradaki muaf kanallar 1 den fazla ise kanalları tek tek if şartına bağlamalısınız.

Diğer çalışmama sebepleri:
1) Aynı sayfada birden fazla TEXT eventı mevcuttur.Remote sayfası hangisini uygulasın?
2) Kanala yazılan satırlardaki kelimeler Küfür.txt belgesinde mevcut değildir.Yada "isin" (içinde geçiyorsa) tanımına uygun değildir.
3) Mevcut şartlara baktığımızda;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on @*:TEXT:*:#:{ if ($istok(%muafnickler,$nick,32)) { halt } if ($nick isreg #) && !$istok(#operhelp #Help #yönetim,#,32) && $nick !ison #Ops { var %i $lines(küfür.txt) while (%i > 0) { if ($read(küfür.txt,%i) iswm $1-) { var %k $comchan($nick,0) while (%k > 0) { if ($nick !isop $comchan($nick,%k)) ................ .....

a) Olayın geçtiği kanalda @ değilseniz,
b) Kanala yazan nick %muafnickler'den biriyse,
c) Kanala yazan nick herhangi bir prefix'e (.&@%+) sahipse,
d) Olayın geçtiği kanal #operhelp #help #yönetim kanallarından biriyse,
e) Kanala yazan nick #Ops kanalında bulunuyorsa
f) Kanala yazan nick,ortak bulunduğum kanallarda op ise,

koruma bu durumlara müdahele etmiyecektir.Kısacası "herkes küfür edebilir ama yetkisi olmayan sıradan bir user edemez" demek istemişsiniz.IRC'ye gönül veren bireyler olarak bu kısmı da tartışmak gerekir aslında.
4) Remote kısmı kapalı olabilir.
5) WingmaN'ın size sunmuş olduğu kodlama dizininde "isin" operatörü var iken siz bunu kendinize göre "iswm" operatörü ile değiştirmişsiniz.Hatırlatalım:

"isin" operatörü içinde geçiyorsa şartına denk gelir: if (salak isin asalaklar)
Bu örnekte "salak" kelimesi asalaklar kelimesi içerisinde geçtiğinden şartlandırma pozitif olarak döner.

"iswm" operatörü,wildcard tanımına bağlı olarak içinde geçiyorsa şartına denk gelir: if (*salak* iswm asalaklar)
Burada eşleştirmenin pozitif dönüşümünü sağlamak için wildcard(*) kullanılması zorunludur.Aksi takdirde if (salak iswm asalaklar) sağlaması negatif dönecektir.

Şimdi,yapmış olduğunuz bu değişikliğe göre devam etmek istiyorsanız küfür.txt belgenizi *kelime* , kelime* , *kelime , k?l?m? vb. durumlarına göre (wildcard tanımı getirecek şekilde) yeniden düzenlemelisiniz.

 
Alıntı ile Cevapla

Alt 07 Ağustos 2011, 04:17   #17
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




StanteaR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
TiGeR Konuyu Açarken Bu Korumayı Örnek Vermısdım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Eminmisin ? ikisi aynı addon deil kontrol et
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 02 Mayıs 2013, 13:33   #18
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




slm bende yardim istiyom bi sunucuda opum kanala kufur yazana söle bisi yapabilirmisiniz bota attırmam icin adam kufur yazdimi /msg $chan !sus $$1 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn.
PHP- Kodu:
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) {
mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür arGo Yasak ! | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 }
}
}
}
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) {
mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür arGo Yok! 2 | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 }
}
}
}
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) {
mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür! ArGo 2 Aciz İnsanların İşidir 1 KeLimeLere Dikkat.! 7 Sizi ßanLıyan Nick $me 2 ßanLanan nick : %::nick | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 }
}
}
}
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adword: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,Status {
|-Kufur Koruma-|:/dialog -m Badword Badword
}
alias badnick { Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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) {
mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür !
}
}
#blacklist END
bu addona ayarlarsaniz cok mutesekkur olurum ben yaptim kufure yapiyo kufuru edene yapmasini istiyom yani nicke

 
Alıntı ile Cevapla

Alt 03 Mayıs 2013, 01:45   #19
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




Ban uygulaması yerine, kanala mesaj olarak uygulatırsan istedigin olur.
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 $chan !sus $nick 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn. | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 $chan !sus $nick 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn. | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 $chan !sus $nick 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn. | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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,Status { |-Kufur Koruma-|:/dialog -m Badword Badword } alias badnick { Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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) { mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür ! } } #blacklist ENDon @*: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 $chan !sus $nick 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn. | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 $chan !sus $nick 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn. | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 $chan !sus $nick 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn. | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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,Status { |-Kufur Koruma-|:/dialog -m Badword Badword } alias badnick { Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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) { mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür ! } } #blacklist END


 
Alıntı ile Cevapla

Cevapla

Etiketler
ayrı, küfüre, pencere


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

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
Arkadaşlar @bankick ayrı pencere yardım cihangarip mIRC Scripting Sorunları 14 07 Temmuz 2015 00:42
küfür text den kick ve ayrı pencere Dangerous123 mIRC Scripting Sorunları 3 14 Temmuz 2013 16:25