IRC ve mIRC Kullanıcılarının Buluşma Noktası
  irc hosting




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 17 Şubat 2007, 18:44   #1
Çevrimdışı
BadNick & Küfür Koruması


-- Sponsor Baglantı --


Yapmış olduğum bir addonı sizlere sunuyorum..Bir dialog üzerinde hem badnick hemde küfür koruma ayarlarını yapabiliceğiniz bir addon sizleri bekliyor...Dialog üzerinde eklediğiniz ve çıkarttığınız kelimeleri anında görebileceğiniz aktif bir pencerede bulunmaktadır.. Tek yapmanız gereken /antipity komutunu kullanmak..
--------------------------------------------------------------------------

alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on @*:join:#:{ if $gurkan(isimsiz,$nick,badnick.txt) { .mode $chan +b $wildsite | .kick $chan $nick BadNick! }
}
on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }

alias antipity { dialog -m antipity antipity }
dialog antipity {
title "BadNick & Kufur Koruma Sistemi ßy AntiPity"
size -1 -1 226 102
option dbu
list 2, 38 22 70 58, size
list 5, 118 22 70 58, size
edit "", 10, 38 12 70 10
edit "", 11, 118 12 70 10
box "BAD NICK", 6, 5 3 107 81
box "KUFUR", 7, 114 3 107 81
button "T A M A M", 1, 38 87 148 12,ok
button "EKLE", 3, 10 14 24 28
button "KALDIR", 4, 10 45 24 28
button "EKLE", 8, 192 14 24 28
button "KALDIR", 9, 192 45 24 28
}
on *:dialog:antipity:INIT:*: {
if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt }
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt }
if (%badnick) .didtok $dname 2 32 $ifmatch
if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:antipity:sclick:*:{
if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel }
if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }

}
on *:dialog:antipity:sclick:1:{
set %badnick $didtok($dname,2,44)
set %kufur $didtok($dname,5,44)
}
Yapmış olduğum bir addonı sizlere sunuyorum..Bir dialog üzerinde hem badnick hemde küfür koruma ayarlarını yapabiliceğiniz bir addon sizleri bekliyor...Dialog üzerinde eklediğiniz ve çıkarttığınız kelimeleri anında görebileceğiniz aktif bir pencerede bulunmaktadır.. Tek yapmanız gereken /antipity komutunu kullanmak..
--------------------------------------------------------------------------

alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on @*:join:#:{ if $gurkan(isimsiz,$nick,badnick.txt) { .mode $chan +b $wildsite | .kick $chan $nick BadNick! }
}
on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }

alias antipity { dialog -m antipity antipity }
dialog antipity {
title "BadNick & Kufur Koruma Sistemi ßy AntiPity"
size -1 -1 226 102
option dbu
list 2, 38 22 70 58, size
list 5, 118 22 70 58, size
edit "", 10, 38 12 70 10
edit "", 11, 118 12 70 10
box "BAD NICK", 6, 5 3 107 81
box "KUFUR", 7, 114 3 107 81
button "T A M A M", 1, 38 87 148 12,ok
button "EKLE", 3, 10 14 24 28
button "KALDIR", 4, 10 45 24 28
button "EKLE", 8, 192 14 24 28
button "KALDIR", 9, 192 45 24 28
}
on *:dialog:antipity:INIT:*: {
if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt }
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt }
if (%badnick) .didtok $dname 2 32 $ifmatch
if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:antipity:sclick:*:{
if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel }
if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }

}
on *:dialog:antipity:sclick:1:{
set %badnick $didtok($dname,2,44)
set %kufur $didtok($dname,5,44)
}
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
Alt 08 Mart 2007, 11:14   #2
Çevrimdışı
Yanıt: BadNick & Küfür Koruması




Paylaşım İçin Tşkler , Ancak Cümle İçerisinde Geçtigi Zaman Atmıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

  Alıntı ile Cevapla

Alt 09 Haziran 2008, 16:36   #3
Çevrimdışı
Cevap: BadNick & Küfür Koruması




PayLaşım için TeşekkürLer Fakat ; mirc'ime EkLiyorum Txt'den,mircde /antipity Yapıyorum ve karşıma kutu çıkıyor fakat badnick böLümüne ***** yazıyorum ekLe tusuna basıyorum işLemiyor ne yazarsam yazayim ekLe tusuna bastigimda işLemiyor Listeye ekLenmiyor. bu başka badnick addonundada oLdu ve bunu deneyeyim dedim bundada aynısı oLdu Yardimci oLabiLirmisiniz? ;scare

  Alıntı ile Cevapla

Alt 10 Haziran 2008, 14:16   #4
Çevrimdışı
Cevap: BadNick & Küfür Koruması




NatioNaL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PayLaşım için TeşekkürLer Fakat ; mirc'ime EkLiyorum Txt'den,mircde /antipity Yapıyorum ve karşıma kutu çıkıyor fakat badnick böLümüne ***** yazıyorum ekLe tusuna basıyorum işLemiyor ne yazarsam yazayim ekLe tusuna bastigimda işLemiyor Listeye ekLenmiyor. bu başka badnick addonundada oLdu ve bunu deneyeyim dedim bundada aynısı oLdu Yardimci oLabiLirmisiniz? ;scare

PHP- Kodu:   Kodu kopyalamak için üzerine çift tıklayın!
on @8:join:#:/mode # +b $Nick | /kick # $Nick  2 Kanal Seviyesine Uymayan Nick İle Giriş Yaptığınız İçin Uzaklaştırıldınız.  2 Lütfen 4 /Nick YeniNick 2 Şeklinde Nickinizi Değiştirip Giriniz.  } }
alias shitconf if $dialog(kötürumuz) == $null dialog -m kötürumuz kötürumuz
dialog kötürumuz 
{
  
title "ßadNick"
  
size --1 200 265 
  button 
"Tamam"1110 200 70 20,ok
  
list 210 20 180 135sort 
  box 
"Kotu Nickler"35 5 190 145 
  edit 
""410 165 180 20autohs
  box 
"Eklenecek Nick'i Girin"55 150 190 45
  button 
"Ekle"620 200 70 20
  box 
"Not:"75 225 190 35 
  text 
"Nick Silmek İcin Nick'e Cift Tiklayin"825 240 180 45 
}
alias shitsetup if $dialog(kötürumuz) == $null dialog -m kötürumuz kötürumuz
on 
*:dialog:kötürumuz:dclick:2:{ .ruser 8 $did(2).seltext did -d kötürumuz 2 $did(2).sel }
on *:dialog:kötürumuz:sclick:6:{ if ($did(4) != $null) { did -a kötürumuz 2 $did(4) | .auser 8 $did(4) | did -fr kötürumuz 4 } }
on *:dialog:kötürumuz:init:*:{ 
  if (
$ulist(*,8,0) != $null) { 
    
set %cnt.shit 0
    
while (%cnt.shit $ulist(*,8,0)) { 
      
inc %cnt.shit 1 
      did 
-a kötürumuz 2 $ulist(*,8,%cnt.shit
    } 
    unset %
cnt.shit 
  



Kodu Remoteye Ekliyorsun
/dialog -m kötürumuz kötürumuz
Şeklinde Çalıştırıyorsun.
****y* Şeklinde de Ekleyebiliyorsun.
--

__________________
Şimdi Saat Sensizliğin Ertesi..
  Alıntı ile Cevapla

Alt 07 Ağustos 2008, 03:01   #5
Çevrimdışı
Cevap: BadNick & Küfür Koruması




PayLaSiM iCiN TsKLeR, BeNDe BuNu aRiYoRDuM
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

  Alıntı ile Cevapla

Alt 06 Kasım 2010, 13:28   #6
Çevrimdışı
Cevap: BadNick & Küfür Koruması




PHP- Kodu:   Kodu kopyalamak için üzerine çift tıklayın!
[QUOTE=AntiPity;190866]Yapmış olduğum bir addonı sizlere sunuyorum..Bir dialog üzerinde hem badnick hemde küfür koruma ayarlarını yapabiliceğiniz bir addon sizleri bekliyor...Dialog üzerinde eklediğiniz ve çıkarttığınız kelimeleri anında görebileceğiniz aktif bir pencerede bulunmaktadır.. Tek yapmanız gereken /antipity komutunu kullanmak..
--------------------------------------------------------------------------
 
alias gurkan {
if !
$istok(isimsiz ,$1,32) { return $false }
goto $
1
:isimsiz
var %· | while $read($3,%·) { if $v1 iswm ${ return $true } | inc %· } | return $false)
}
on @*:join:#:{ if $gurkan(isimsiz,$nick,badnick.txt) { .mode $chan +b $wildsite | .kick $chan $nick BadNick! }
}
on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }
 
alias antipity dialog -m antipity antipity }
dialog antipity {
title "BadNick & Kufur Koruma Sistemi ßy AntiPity"
size --1 226 102
option dbu
list 238 22 70 58size
list 5118 22 70 58size
edit 
""1038 12 70 10
edit 
""11118 12 70 10
box 
"BAD NICK"65 3 107 81
box 
"KUFUR"7114 3 107 81
button 
"T A M A M"138 87 148 12,ok
button 
"EKLE"310 14 24 28
button 
"KALDIR"410 45 24 28
button 
"EKLE"8192 14 24 28
button 
"KALDIR"9192 45 24 28
}
on *:dialog:antipity:INIT:*: {
if (
$isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt 
if (
$isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt 
if (%
badnick) .didtok $dname 2 32 $ifmatch 
if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:antipity:sclick:*:{
if (
$did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
if (
$did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
if (
$did == 4) { write -dl $+ $did(2).sel badnick.txt did -d $dname 2 $did(2).sel 
if (
$did == 9) { write -dl $+ $did(5).sel kufur.txt did -d $dname 5 $did(5).sel }
 
}
on *:dialog:antipity:sclick:1:{ 
set %badnick $didtok($dname,2,44)
set %kufur $didtok($dname,5,44)
}[/
QUOTE

kardeş bu kod çok güzelde bu kodda *pic* diye eklediğimde küfürlü cümle veya ident içerisinde geçen pic kelimesini atmıyor sadece pic yazdğında atıyor pic diye ident girdiğinde atıyor cümle içerisinde atması için ne yapmalıyız.

veyada cesuryurek üstadım senin kodunu aldımda senin bu koda badident bölümü nasıl ekleyebiliriz gürkan kardeşimizinkinde cümle içerisinde olanları atmıyor

----------

konu baya eskiymiş kusura bakmayın yeni farkettim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

  Alıntı ile Cevapla

Alt 07 Kasım 2010, 05:09   #7
Çevrimdışı
X5
X5 - ait Kullanıcı Resmi (Avatar)
Cevap: BadNick & Küfür Koruması




güzel bi remoteye benziyor bi kaç düzenlemeyle kullanılabilir hale gelecektir.

  Alıntı ile Cevapla

Alt 07 Kasım 2010, 12:40   #8
Çevrimdışı
Cevap: BadNick & Küfür Koruması




DenperaS Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
veyada cesuryurek üstadım senin kodunu aldımda senin bu koda badident bölümü nasıl ekleyebiliriz gürkan kardeşimizinkinde cümle içerisinde olanları atmıyor

----------

konu baya eskiymiş kusura bakmayın yeni farkettim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Evet Konu baya eskimiş, aradan 2 yıl geçti.

Badident için şu kodu kullanman yeterli.

PHP- Kodu:   Kodu kopyalamak için üzerine çift tıklayın!
on @Badident:join:#: { ban -k # $nick Uygunsuz Ident }
alias shitconf 
  if (
$dialog(Badident) == $null) { dialog -m Badident Badident 
}
alias badident dialog -m badident badident }
dialog Badident {
  
title "Bad Ident"
  
size --1 200 265 
  button 
"Tamam"1110 200 70 20,ok
  
list 210 20 180 135sort 
  box 
"Kotu Identler"35 5 190 145 
  edit 
""410 165 180 20autohs
  box 
"Eklenecek Ident'i Girin"55 150 190 45
  button 
"Ekle"620 200 70 20
  box 
"Not:"75 225 190 35 
  text 
"Ident Silmek İcin Ident'e Cift Tiklayin"825 240 180 45 
}
alias shitsetup if ($dialog(Badident) == $null) { dialog -m Badident Badident }
on *:dialog:Badident:dclick:2: { .ruser Badident $did(2).seltext did -d Badident 2 $did(2).sel }
on *:dialog:Badident:sclick:6: { 
  if (
$did(4) != $null) { 
    
did -a Badident 2 $did(4)
    .
auser Badident *! $+ $did(4) $+ @* 
    
did -fr Badident 4 
  

}
on *:dialog:Badident:init:*: {
  if (
$ulist(*,Badident,0) != $null) { 
    
set %cnt.shit 0
    
while (%cnt.shit $ulist(*,Badident,0)) { 
      
inc %cnt.shit 1 
      did 
-a Badident 2 $ulist(*,Badident,%cnt.shit)
    } 
    unset %
cnt.shit 
  



Kullanım: /Badident

__________________
Şimdi Saat Sensizliğin Ertesi..
  Alıntı ile Cevapla

Alt 08 Aralık 2010, 17:18   #9
Çevrimdışı
Cevap: BadNick & Küfür Koruması




paylaşdıgın icin tskler emeyine saglık

  Alıntı ile Cevapla

Alt 02 Mart 2011, 22:18   #10
Çevrimdışı
Cevap: BadNick & Küfür Koruması




CesuryureK Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PHP- Kodu:   Kodu kopyalamak için üzerine çift tıklayın!
on @8:join:#:/mode # +b $Nick | /kick # $Nick  2 Kanal Seviyesine Uymayan Nick İle Giriş Yaptığınız İçin Uzaklaştırıldınız.  2 Lütfen 4 /Nick YeniNick 2 Şeklinde Nickinizi Değiştirip Giriniz.  } }
alias shitconf if $dialog(kötürumuz) == $null dialog -m kötürumuz kötürumuz
dialog kötürumuz 
{
  
title "ßadNick"
  
size --1 200 265 
  button 
"Tamam"1110 200 70 20,ok
  
list 210 20 180 135sort 
  box 
"Kotu Nickler"35 5 190 145 
  edit 
""410 165 180 20autohs
  box 
"Eklenecek Nick'i Girin"55 150 190 45
  button 
"Ekle"620 200 70 20
  box 
"Not:"75 225 190 35 
  text 
"Nick Silmek İcin Nick'e Cift Tiklayin"825 240 180 45 
}
alias shitsetup if $dialog(kötürumuz) == $null dialog -m kötürumuz kötürumuz
on 
*:dialog:kötürumuz:dclick:2:{ .ruser 8 $did(2).seltext did -d kötürumuz 2 $did(2).sel }
on *:dialog:kötürumuz:sclick:6:{ if ($did(4) != $null) { did -a kötürumuz 2 $did(4) | .auser 8 $did(4) | did -fr kötürumuz 4 } }
on *:dialog:kötürumuz:init:*:{ 
  if (
$ulist(*,8,0) != $null) { 
    
set %cnt.shit 0
    
while (%cnt.shit $ulist(*,8,0)) { 
      
inc %cnt.shit 1 
      did 
-a kötürumuz 2 $ulist(*,8,%cnt.shit
    } 
    unset %
cnt.shit 
  



Kodu Remoteye Ekliyorsun
/dialog -m kötürumuz kötürumuz
Şeklinde Çalıştırıyorsun.
****y* Şeklinde de Ekleyebiliyorsun.
--





Üstad : * /dialog: 'kötürumuz' Tablo yok diyor ..

  Alıntı ile Cevapla

Cevapla

Etiketler
badnick, korumasi, koruması, kufur, küfür, mirc, mirc download, mirc indir

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
Badnick Koruması edit TİGeR mIRC Scripting Sorunları 14 21 Ocak 2016 18:32
badnick koruması Selim01 mIRC Scripting Sorunları 5 08 Ekim 2009 01:25
Badnick koruması. morveotesii mIRC Scripting Sorunları 3 28 Temmuz 2008 01:37
Badnick Küfür tcl tilsim61 Eggdrop, NeoStats, BNC 4 23 Nisan 2008 12:24
BoT hakkında küfür koruması ekLeme !küfür Editor mIRC Scripting Sorunları 6 30 Kasım 2007 23:26



forum trabzon