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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 05 Mart 2010, 19:37   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Kötü Rumuz Koruması




Forumda bulduğum aşağıdaki Kötü Rumuz Koruması çok güzel çalışıyor. Benim istediğim, acaba bu koda istediğimiz zaman devreye koymak ya da devreden çıkarmak için bir "Açık/Kapalı" işlevi ekleyebilir miyiz? Şimdiden teşekkürler

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

;--------------------------------------------------
; Kötü Rumuz Koruması
; Kodlamaların tamamı ve bazı dialog kodları el33t'e aittir...
; Dialog hazırlaması bana aittir...
; /KötüRumuz Yazarak Çalıştırabilirsiniz...
; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;---------------------------------------------------------
alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz }
dialog kötürumuz {
title "Kötü Rumuz Koruması"
size -1 -1 200 180
option dbu
text "..:: Rumuz Listesi ::..", 999, 20 10 60 10
combo 1, 5 20 90 130
button "Ekle (+)", 2, 4 146 27 13
button "Çıkar (-)", 3, 32 146 27 13
button "Temizle (!)", 4, 60 146 35 13
box "Seçenekler", 5, 101 17 93 40
check "OP olduğumda tarama yap!", 6, 106 28 73 10
check "Yeni rumuz kötüyse at!", 7, 106 40 70 10
button "?", 8, 182 28 9 9
button "?", 9, 182 40 9 9
box "Kick Mesajınız", 10, 101 60 93 40
edit "", 11, 106 76 83 10, autohs
box "Açıklamalar", 12, 101 103 93 55
text "Kötü Rumuz Koruması [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] S1y4H", 13, 106 110 85 40
link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
14, 108 164 52 15
button "Kapat!", 15, 168 161 27 13
text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable
}
on *:dialog:kötürumuz:*:*:{
if ($devent == init) {
loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1
if (%oto-tara == on) { did -c kötürumuz 6 }
if (%NickDeğiş == on) { did -c kötürumuz 7 }
did -a $dname 11 %kckmsg
}
if ($devent == sclick) {
if ($did == 2) {
var %kötürmz = $did(1).text
if $read(nickler.txt,w,%kötürmz) {
echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
}
else {
write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text
}
}
if ($did == 3) {
if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel }
}
if ($did == 4) {
if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki  $+ %satırsayısı $+  adet rumuz silindi. | unset %satırsayısı } | else { return }
}
if ($did == 8) {
did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır.
}
if ($did == 9) {
did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.
}
if ($did == 6) {
if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }
elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }
}
if ($did == 7) {
if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }
elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }
}
if ($did == 14) {
run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
if ($did == 15) {
if ($did(11) == $Null) {
echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.
dialog -x kötürumuz kötürumuz
set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}
else {
set %kckmsg $did(11)
dialog -x kötürumuz kötürumuz
}
}
}
}
;--------------------
; Kodlamalar...
;--------------------
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }
#NickDeğiş on
on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }
#NickDeğiş end
alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
alias krt {
if $1 ischan && $me isop $1 {
var %` = $lines(Nickler.txt)
while %` {
if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }
dec %`
}
}
}
#oto-tara on
on *:OP:#:if $opnick == $me { krt $chan }
#oto-tara end
;-----------------------------------------
on *:LOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
echo -a $timestamp *** S1y4H
run notepad.exe nickler.txt
set %oto-tara on
set %NickDeğiş on
set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}

on *:UNLOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.
unset %oto-tar
unset %NickDeğiş
unset %kckmsg
}

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 05 Mart 2010, 19:49   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kötü Rumuz Koruması




SovaLyem Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Forumda bulduğum aşağıdaki Kötü Rumuz Koruması çok güzel çalışıyor. Benim istediğim, acaba bu koda istediğimiz zaman devreye koymak ya da devreden çıkarmak için bir "Açık/Kapalı" işlevi ekleyebilir miyiz? Şimdiden teşekkürler

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

;--------------------------------------------------
; Kötü Rumuz Koruması
; Kodlamaların tamamı ve bazı dialog kodları el33t'e aittir...
; Dialog hazırlaması bana aittir...
; /KötüRumuz Yazarak Çalıştırabilirsiniz...
; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;---------------------------------------------------------
alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz }
dialog kötürumuz {
title "Kötü Rumuz Koruması"
size -1 -1 200 180
option dbu
text "..:: Rumuz Listesi ::..", 999, 20 10 60 10
combo 1, 5 20 90 130
button "Ekle (+)", 2, 4 146 27 13
button "Çıkar (-)", 3, 32 146 27 13
button "Temizle (!)", 4, 60 146 35 13
box "Seçenekler", 5, 101 17 93 40
check "OP olduğumda tarama yap!", 6, 106 28 73 10
check "Yeni rumuz kötüyse at!", 7, 106 40 70 10
button "?", 8, 182 28 9 9
button "?", 9, 182 40 9 9
box "Kick Mesajınız", 10, 101 60 93 40
edit "", 11, 106 76 83 10, autohs
box "Açıklamalar", 12, 101 103 93 55
text "Kötü Rumuz Koruması [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] S1y4H", 13, 106 110 85 40
link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
14, 108 164 52 15
button "Kapat!", 15, 168 161 27 13
text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable
}
on *:dialog:kötürumuz:*:*:{
if ($devent == init) {
loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1
if (%oto-tara == on) { did -c kötürumuz 6 }
if (%NickDeğiş == on) { did -c kötürumuz 7 }
did -a $dname 11 %kckmsg
}
if ($devent == sclick) {
if ($did == 2) {
var %kötürmz = $did(1).text
if $read(nickler.txt,w,%kötürmz) {
echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
}
else {
write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text
}
}
if ($did == 3) {
if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel }
}
if ($did == 4) {
if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki  $+ %satırsayısı $+  adet rumuz silindi. | unset %satırsayısı } | else { return }
}
if ($did == 8) {
did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır.
}
if ($did == 9) {
did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.
}
if ($did == 6) {
if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }
elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }
}
if ($did == 7) {
if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }
elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }
}
if ($did == 14) {
run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
if ($did == 15) {
if ($did(11) == $Null) {
echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.
dialog -x kötürumuz kötürumuz
set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}
else {
set %kckmsg $did(11)
dialog -x kötürumuz kötürumuz
}
}
}
}
;--------------------
; Kodlamalar...
;--------------------
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }
#NickDeğiş on
on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }
#NickDeğiş end
alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
alias krt {
if $1 ischan && $me isop $1 {
var %` = $lines(Nickler.txt)
while %` {
if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }
dec %`
}
}
}
#oto-tara on
on *:OP:#:if $opnick == $me { krt $chan }
#oto-tara end
;-----------------------------------------
on *:LOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
echo -a $timestamp *** S1y4H
run notepad.exe nickler.txt
set %oto-tara on
set %NickDeğiş on
set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}

on *:UNLOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.
unset %oto-tar
unset %NickDeğiş
unset %kckmsg
}


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;-------------------------------------------------- ; Kötü Rumuz Koruması ; Kodlamaların tamamı ve bazı dialog kodları el33t'e aittir... ; Dialog hazırlaması bana aittir... ; /KötüRumuz Yazarak Çalıştırabilirsiniz... ;
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
menu * { .Rumuz Koruması ..Açık:.enable #Rumuz | .echo -a 14,1Rumuz Koruması 4,1AçıLdı!! ..Kapalı:.disable #Rumuz | .echo -a 14,1Rumuz Koruması 4,1KapatıLdı!! } #Rumuz off alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz } dialog kötürumuz { title "Kötü Rumuz Koruması" size -1 -1 200 180 option dbu text "..:: Rumuz Listesi ::..", 999, 20 10 60 10 combo 1, 5 20 90 130 button "Ekle (+)", 2, 4 146 27 13 button "Çıkar (-)", 3, 32 146 27 13 button "Temizle (!)", 4, 60 146 35 13 box "Seçenekler", 5, 101 17 93 40 check "OP olduğumda tarama yap!", 6, 106 28 73 10 check "Yeni rumuz kötüyse at!", 7, 106 40 70 10 button "?", 8, 182 28 9 9 button "?", 9, 182 40 9 9 box "Kick Mesajınız", 10, 101 60 93 40 edit "", 11, 106 76 83 10, autohs box "Açıklamalar", 12, 101 103 93 55 text "Kötü Rumuz Koruması
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
S1y4H", 13, 106 110 85 40 link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
14, 108 164 52 15 button "Kapat!", 15, 168 161 27 13 text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable } on *:dialog:kötürumuz:*:*:{ if ($devent == init) { loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1 if (%oto-tara == on) { did -c kötürumuz 6 } if (%NickDeğiş == on) { did -c kötürumuz 7 } did -a $dname 11 %kckmsg } if ($devent == sclick) { if ($did == 2) { var %kötürmz = $did(1).text if $read(nickler.txt,w,%kötürmz) { echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut. } else { write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text } } if ($did == 3) { if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel } } if ($did == 4) { if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki  $+ %satırsayısı $+  adet rumuz silindi. | unset %satırsayısı } | else { return } } if ($did == 8) { did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır. } if ($did == 9) { did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır. } if ($did == 6) { if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. } elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. } } if ($did == 7) { if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. } elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. } } if ($did == 14) { run
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($did == 15) { if ($did(11) == $Null) { echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak. dialog -x kötürumuz kötürumuz set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız. } else { set %kckmsg $did(11) dialog -x kötürumuz kötürumuz } } } } ;-------------------- ; Kodlamalar... ;-------------------- on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg } #NickDeğiş on on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } } #NickDeğiş end alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false } alias krt { if $1 ischan && $me isop $1 { var %` = $lines(Nickler.txt) while %` { if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } } dec %` } } } #oto-tara on on *:OP:#:if $opnick == $me { krt $chan } #oto-tara end ;----------------------------------------- on *:LOAD:{ echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi. echo -a $timestamp *** S1y4H run notepad.exe nickler.txt set %oto-tara on set %NickDeğiş on set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız. } on *:UNLOAD:{ echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı. unset %oto-tar unset %NickDeğiş unset %kckmsg } #Rumuz end


__________________
-
 
Alıntı ile Cevapla

Alt 05 Mart 2010, 21:41   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kötü Rumuz Koruması




Öncelikle teşekkürler, popups menüsüne eklendi ve çalışıyor. Ancak daha önce /kötürumuz dediğimde diyalog karşıma çıkıyordu şimdi ne yaptıysam çıkaramıyorum. Çünkü diyalogu toolbara ekleyecem ama bir türlü aliastan çalıştırmadım (/kötürumuz). Sebebi nedir acaba?

 
Alıntı ile Cevapla

Alt 05 Mart 2010, 22:03   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kötü Rumuz Koruması




Kötürumuz alias'ını group'un dışına alırsak her /kötürumuz dediğinizde dialog açılacaktır.

 
Alıntı ile Cevapla

Alt 05 Mart 2010, 22:09   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kötü Rumuz Koruması




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu *  {
  .
Rumuz Koruması
  
..Açık:.enable #Rumuz | .echo -a 14,1Rumuz Koruması 4,1AçıLdı!! 
  
..Kapalı:.disable #Rumuz | .echo -a 14,1Rumuz Koruması 4,1KapatıLdı!!
}
alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz }
dialog kötürumuz {
  
title "Kötü Rumuz Koruması"
  
size --1 200 180
  option dbu
  text 
"..:: Rumuz Listesi ::.."99920 10 60 10
  combo 1
5 20 90 130
  button 
"Ekle (+)"24 146 27 13
  button 
"Çıkar (-)"332 146 27 13
  button 
"Temizle (!)"460 146 35 13
  box 
"Seçenekler"5101 17 93 40
  check 
"OP olduğumda tarama yap!"6106 28 73 10
  check 
"Yeni rumuz kötüyse at!"7106 40 70 10
  button 
"?"8182 28 9 9
  button 
"?"9182 40 9 9
  box 
"Kick Mesajınız"10101 60 93 40
  edit 
""11106 76 83 10autohs
  box 
"Açıklamalar"12101 103 93 55
  text 
"Kötü Rumuz Koruması  
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">, 
13106 110 85 40
  link 
"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">, 
14108 164 52 15
  button 
"Kapat!"15168 161 27 13cancel
  text 
"..:: Kötü Rumuz Koruması ::.."1613 165 80 10,disable
}
#Rumuz off
on *:dialog:kötürumuz:*:*:{
  if (
$devent == init) {
    
loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1
    
if (%oto-tara == on) { did -c kötürumuz 6 }
    if (%
NickDeğiş == on) { did -c kötürumuz 7 }
    
did -a $dname 11 %kckmsg
  
}
  if (
$devent == sclick) {
    if (
$did == 2) {
      var %
kötürmz $did(1).text
      
if $read(nickler.txt,w,%kötürmz) { 
        echo -
a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
      }
      else {
        
write nickler.txt %kötürmz did -a $dname 1 %kötürmz did -d $dname 1 $did(1).text
      
}
    }
    if (
$did == 3) {
      if 
$read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readnnickler.txt did -d $dname 1 $did(1).sel }
    }
    if (
$did == 4) {
      if ($$?!=
"Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt did -r $dname 1 | echo -a $timestamp *** Listedeki  $+ %satırsayısı $+  adet rumuz silindi. | unset %satırsayısı } | else { return }
    }
    if (
$did == 8) {
      
did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz ararbulunanları Nick!*@* şeklinde banlayıp atarÖzellikle kanala girdiğinizde (@ olursanızototarama yapacağından işinize yaracaktır.
    }
    if (
$did == 9) {
      
did -a $dname 13 olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.
    }
    if (
$did == 6) {
      if (%
oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }
      
elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }
    
}
    if (
$did == 7) {
      if (%
NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }
      
elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }
    
}
    if (
$did == 14) {
      
run http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">}
    if (
$did == 15) {
      if (
$did(11) == $Null) {
        echo -
a $timestamp *** Kick Mesajı belirlenmediorjinal mesaj kullanılacak.
        
dialog -x kötürumuz kötürumuz 
        set 
%kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
      }
      else {
        
set %kckmsg $did(11)
        
dialog -x kötürumuz kötürumuz
      
}
    }
  }
}
;--------------------
Kodlamalar...
;--------------------
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }
#NickDeğiş on
on *:NICK:{ if $kotunick($newnick) { var %1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 mode $v2 +%< | kick $v2 $newnick %kckmsg } | inc %} } }
#NickDeğiş end
alias kotunick { var %| while $read(nickler.txt,%_) { if $v1 iswm ${ return $v1 } | inc %} | return $false }
alias krt {
  if $
1 ischan && $me isop ${
    var %`
 = $lines(Nickler.txt)
    while %
` {
      if 
$fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1isreg $mode $+$+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }
      
dec %` 
    } 
  }
}
#oto-tara on
on *:OP:#:if 
$opnick == $me { krt $chan }
#oto-tara end
;-----------------------------------------
on *:LOAD:{
  echo -a 
$timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
  echo -a 
$timestamp *** S1y4H
  run notepad.exe nickler.txt
  set %oto-tara on
  set %NickDeğiş on
  set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}
on *:UNLOAD:{ 
  echo -a 
$timestamp *** Kötü Rumuz Koruması kaldırıldı. 
  unset %oto-tar
  unset %NickDeğiş
  unset %kckmsg
}
#Rumuz end 


 
Alıntı ile Cevapla

Alt 05 Mart 2010, 22:14   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kötü Rumuz Koruması




Rica ediyoruz kimseyi hazırcılığa alıştırmayın.Lütfen.Siz sadece yol gösteriniz.

 
Alıntı ile Cevapla

Alt 15 Nisan 2010, 02:26   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kötü Rumuz Koruması




Hazırcılıkla alakası yok ki. Siz yapıyorsunuz bizde aynısını kullanıyoruz değiştirmeden isim. Saygı duyuyoruz.Bizim işimiz değil ki bu sizin işiniz yardım ederseniz çok teşekkür etmezseniz ise teşekkür
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
zaten bunlardan anlayacak birisi olsak forumda ne işimiz var anlamadım :S

 
Alıntı ile Cevapla

Cevapla

Etiketler
korumasi, koruması, kotu, kötü, mirc, mirc download, mirc indir, rumuz


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
Kötü Rumuz Koruması... TiPiTiP mIRC Scripting Hazır Kodlar 55 12 Ağustos 2012 13:33
kötü rumuz +b kill Leo mIRC Scripting Sorunları 1 04 Aralık 2010 20:01
Join Part Koruması & Hızlı Giriş Koruması Lazım ACİL PLS darkshades1 mIRC Scripting Sorunları 5 15 Kasım 2010 11:12
Clone Koruması Proxy Koruması ve SaldırıProgramına OnLem KOdu Lazım neobre mIRC Scripting Sorunları 13 09 Ekim 2009 00:07
Kötü KanaL Koruması.... Mack mIRC Scripting Sorunları 8 13 Mart 2005 14:19