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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 18 Haziran 2007, 10:29   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Küfür Korumasi




Arkadaslar bu kufur koruması var ama bunda ban atarken hem sonunda küfürü yazıyor hemde banı aradan 1 dk gecdıkden sonra gerı acıyor ben hem ettıgı kufuru yazmasını ıstemıyorum hemde banı zamanlı acmasını ıstemıyorum ben kurcaladım denedım ama ban atmadı yardımcı olabılırmısınız bu kod ıse belırttıgım gıbı alıntıdır...



Alıntı:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Swear protection ;;
;; ;;
;; Author : Amidos ;;
;; Version : 1.03 ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:load:{
.set %kiket on
.set %oplar on
.set %banvaxt 200
.set %kickmsj BAD-WORD Detected. Please stop swearing-
.set %soyush fuck,shit,bitch,idiot
.echo -a 2Swear4 protection...
.echo -a 4Type 2/bad4 to open !
.echo -a 7 Good luck!! 4:12>
}

on @*:text:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:action:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:notice:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
alias _swer_ {
var %x $strip($1-) , %i $numtok(%soyush,44)
while (%i) {
if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
if (%kiket == on) { .kick # $nick $iif(%kickmsj != $null,%kickmsj 1[4 $gettok(%soyush,%i,44) 1],BAD-WORD Detected. Please stop swearing- 1[4 $gettok(%soyush,%i,44) 1]) }
if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }
return
}
dec %i
}
}

dialog swear {
title "Swear protection By Amidos"
size -1 -1 185 111
option dbu
box "List of Bad Words", 1, 90 1 94 79
combo 2, 94 10 87 53, size
button "Add", 3, 98 66 31 10
button "Del", 4, 144 65 31 10
box "", 5, 96 60 36 18
box "", 6, 142 60 36 18
box "Penalty", 7, 2 2 84 45
check "Kick ", 8, 5 13 39 10
check "Ban ", 9, 5 31 32 10
edit "", 10, 36 30 23 12, disable
text "Seconds", 11, 62 32 21 8, disable
box "Except", 12, 2 49 84 31
check "@ps", 13, 6 57 77 10
check "+Voices", 14, 6 68 75 10
box "Kick Message", 15, 2 81 182 27
edit "", 16, 6 90 174 13, autohs
}
alias bad { .dialog -m swear swear }
on *:dialog:swear:init:*:{
if (%soyush) didtok $dname 2 44 $ifmatch
if (%kiket) { .did -c $dname 8 }
if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
if (%oplar) { .did -c $dname 13 }
if (%vlar) { .did -c $dname 14 }
did -a $dname 10 %banvaxt
did -a $dname 16 %kickmsj
}
on *:dialog:swear:sclick:*:{
if ($did == 3) {
if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } }
}
if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:dialog:swear:edit:*:{
%kickmsj = $did(16)
%banvaxt = $did(10)
}
menu status,menubar {
BAD-WORD:.bad
}

Arkadaslar bu kufur koruması var ama bunda ban atarken hem sonunda küfürü yazıyor hemde banı aradan 1 dk gecdıkden sonra gerı acıyor ben hem ettıgı kufuru yazmasını ıstemıyorum hemde banı zamanlı acmasını ıstemıyorum ben kurcaladım denedım ama ban atmadı yardımcı olabılırmısınız bu kod ıse belırttıgım gıbı alıntıdır...



Alıntı:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Swear protection ;;
;; ;;
;; Author : Amidos ;;
;; Version : 1.03 ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:load:{
.set %kiket on
.set %oplar on
.set %banvaxt 200
.set %kickmsj BAD-WORD Detected. Please stop swearing-
.set %soyush fuck,shit,bitch,idiot
.echo -a 2Swear4 protection...
.echo -a 4Type 2/bad4 to open !
.echo -a 7 Good luck!! 4:12>
}

on @*:text:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:action:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:notice:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
alias _swer_ {
var %x $strip($1-) , %i $numtok(%soyush,44)
while (%i) {
if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
if (%kiket == on) { .kick # $nick $iif(%kickmsj != $null,%kickmsj 1[4 $gettok(%soyush,%i,44) 1],BAD-WORD Detected. Please stop swearing- 1[4 $gettok(%soyush,%i,44) 1]) }
if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }
return
}
dec %i
}
}

dialog swear {
title "Swear protection By Amidos"
size -1 -1 185 111
option dbu
box "List of Bad Words", 1, 90 1 94 79
combo 2, 94 10 87 53, size
button "Add", 3, 98 66 31 10
button "Del", 4, 144 65 31 10
box "", 5, 96 60 36 18
box "", 6, 142 60 36 18
box "Penalty", 7, 2 2 84 45
check "Kick ", 8, 5 13 39 10
check "Ban ", 9, 5 31 32 10
edit "", 10, 36 30 23 12, disable
text "Seconds", 11, 62 32 21 8, disable
box "Except", 12, 2 49 84 31
check "@ps", 13, 6 57 77 10
check "+Voices", 14, 6 68 75 10
box "Kick Message", 15, 2 81 182 27
edit "", 16, 6 90 174 13, autohs
}
alias bad { .dialog -m swear swear }
on *:dialog:swear:init:*:{
if (%soyush) didtok $dname 2 44 $ifmatch
if (%kiket) { .did -c $dname 8 }
if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
if (%oplar) { .did -c $dname 13 }
if (%vlar) { .did -c $dname 14 }
did -a $dname 10 %banvaxt
did -a $dname 16 %kickmsj
}
on *:dialog:swear:sclick:*:{
if ($did == 3) {
if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } }
}
if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:dialog:swear:edit:*:{
%kickmsj = $did(16)
%banvaxt = $did(10)
}
menu status,menubar {
BAD-WORD:.bad
}

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 18 Haziran 2007, 14:43   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: Küfür Korumasi




on *:text:*@hotmail*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*@hot*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*@0544*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*@0537*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:********:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*zikerim*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }




bu kodu txt ıcıne at ve scrpte yukle gayet ıyı calısıyor baska bır scrpten alıntı yaptım ayrıca kendın de aynı sekılde cogaltabılırsın zaten cok kısa ben sana bır bolumunu yolladım kendın aynı sekılde cogaltırsın artık kolay gelsın

 
Alıntı ile Cevapla

Alt 18 Haziran 2007, 14:53   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: Küfür Korumasi




mujdat Nickli Üyeden Alıntı
on *:text:*@hotmail*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*@hot*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*@0544*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*@0537*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:********:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*zikerim*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }



bu kodu txt ıcıne at ve scrpte yukle gayet ıyı calısıyor baska bır scrpten alıntı yaptım ayrıca kendın de aynı sekılde cogaltabılırsın zaten cok kısa ben sana bır bolumunu yolladım kendın aynı sekılde cogaltırsın artık kolay gelsın

bununla yukardakinin ne alakasi varki ? biraz dikkat lütfen


if (%kiket == on) { .kick # $nick $iif(%kickmsj != $null,%kickmsj 1[4 $gettok(%soyush,%i,44) 1],BAD-WORD Detected. Please stop swearing-
kirmizi kismi silersen ettigi küfür kick mesaji icinde yer almaz

if (%banet == on) { .ban # $nick 2 }
buda süresiz ban icin

 
Alıntı ile Cevapla

Cevapla

Etiketler
korumasi, kufur, küfür, mirc, mirc download, mirc indir


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
Çok Mu Küfür Ediyorsun ? Küfür Ederken Vücudumuzda Bunlar Oluyor ! Süslü İslamiyet 0 26 Şubat 2010 23:54
BoT hakkında küfür koruması ekLeme !küfür Editor mIRC Scripting Sorunları 6 30 Kasım 2007 23:26
Tekrar korumasi ... Support TCL Scriptler 5 02 Kasım 2007 06:41
Küfür KorumasI HakkInda Sorun! BeLaLim mIRC Scripting Sorunları 3 21 Haziran 2007 17:29