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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 30 Aralık 2009, 19:39   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Bad Nick List Gline Atsın




Merhaba Arkadaslar Bunu Nick Kick Ban Degilde Gline Olarak Nasıl Degiştirabiliriz Şimdiden Teşekkürler







alias flowerslist { if ($dialog(flowerslist)) { dialog -c flowerslist } | dialog -ma flowerslist flowerslist }
dialog flowerslist {
size -1 -1 295 346, flat
icon sounds/icon1.ico
title "Karaliste-Badnick Addon"
Combo 1, 1 1 240 330
button "&Ekle", 2, 244 2 50 150 ,flat
button "&Cikar", 3, 244 155 50 150 ,flat
button "&Tamam", 4, 244 308 50 38, flat ok
Check "flowerslist Ac" , 5 , 1 327 241 20, flat
}
on *:dialog:flowerslist:*:*: {
if ($devent == init) { flowerslist.init }
if ($devent == sclick) {
if ($did == 2) { if ($did(1) != $null) { /.auser 10 $did(1) | flowerslist.init } }
if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | flowerslist.init } }
if ($did == 5) {
if ($did(5).state == 1) { writeini " $+ $mircini $+ " flowerslist flowerslist on }
if ($did(5).state == 0) { writeini " $+ $mircini $+ " flowerslist flowerslist off }
}
}
}
alias flowerslist.init {
did -r flowerslist 1
if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { did -c flowerslist 5 }
set %ul 1
while (%ul <= $ulist(*,0)) {
if ($level($ulist(*,%ul)) == 10) { did -a flowerslist 1 $ulist(*,%ul) }
inc %ul 1
}
unset %ul
}
#karaliste on
on 10:join:#: {
if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode # +b $$1 | .kick # $$1 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}
}
}
#karaliste end
#karaliste on
on 10art:#: {
if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode # +b $nick | kick # $nick 5 $+ # Kanalına Girişin 12Karaliste 4/ 12Badnick 4/ 12Inviter 5 Sebebinden Dolayı Yasaklanmı$tır...
}
}
}
#karaliste end
#karaliste on
on 10:nick: {
if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode # +b $nick | kick $chan $newnick 5 $+ # Kanalına Girişin 12Karaliste 4/ 12Badnick 4/ 12Inviter 5 Sebebinden Dolayı Yasaklanmıştır...
}
}
}
#karaliste on
on 10:text:*:#: {
if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode # +b $nick | kick $chan $nick 5 $+ # Kanalına Girişin 12Karaliste 4/ 12Badnick 4/ 12Inviter 5 Sebebinden Dolayı Yasaklanmıştır...
}
}
}
#karaliste end
#karaliste on
on 10:notice:*:#: {
if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode # +b $nick | kick $chan $nick 5 $+ # Kanalına Girişin 12Karaliste 4/ 12Badnick 4/ 12Inviter 5 Sebebinden Dolayı Yasaklanmıştır...
}
}
}
#karaliste end
menu nicklist {
.-
Karalist-Badnick
.-
.Ekle:/.auser 10 $$1 | /echo -a 10 $+ $$1 4Karalisteye Alındı... | /mode # +b $nick | /kick # $nick 10 $+ # Kanalına Girişin 12Karaliste 4/ 12Badnick 4/ 12Inviter 10 Sebebinden Dolayı Yasaklanmıştır...
.Çıkar:/.ruser $$1 | /echo -a 10 $+ $$1 4Karalisteden Çıkarıldı...
.At:mode # +b $$1 | .kick # $$1 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}
}
menu channel {
.-
Karalist-Badnick
.-
.Ekle:/.auser 10 $$?="Nick Giriniz" | /echo -a 10Karalisteye Alındı...
.Çıkar:/.ruser $$?="Nick Giriniz" | /echo -a 10Karalisteden Çıkarıldı...
.Düzenle:/flowerslist | /echo -a 10 $+ $me 4Karaliste Açıldı


Konu XcLusive tarafından (30 Aralık 2009 Saat 20:00 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 30 Aralık 2009, 19:58   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Acil Lüten...Bad Nick List Gline Atsın




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias flowerslist { if ($dialog(flowerslist)) { dialog -c flowerslist } | dialog -ma flowerslist flowerslist } dialog flowerslist { size -1 -1 295 346, flat icon sounds/icon1.ico title "Karaliste-Badnick Addon" Combo 1, 1 1 240 330 button "&Ekle", 2, 244 2 50 150 ,flat button "&Cikar", 3, 244 155 50 150 ,flat button "&Tamam", 4, 244 308 50 38, flat ok Check "flowerslist Ac" , 5 , 1 327 241 20, flat } on *:dialog:flowerslist:*:*: { if ($devent == init) { flowerslist.init } if ($devent == sclick) { if ($did == 2) { if ($did(1) != $null) { /.auser 10 $did(1) | flowerslist.init } } if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | flowerslist.init } } if ($did == 5) { if ($did(5).state == 1) { writeini " $+ $mircini $+ " flowerslist flowerslist on } if ($did(5).state == 0) { writeini " $+ $mircini $+ " flowerslist flowerslist off } } } } alias flowerslist.init { did -r flowerslist 1 if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { did -c flowerslist 5 } set %ul 1 while (%ul <= $ulist(*,0)) { if ($level($ulist(*,%ul)) == 10) { did -a flowerslist 1 $ulist(*,%ul) } inc %ul 1 } unset %ul } #karaliste on on 10:join:#: { if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { if (($me isop $chan) || ($me ishelp $chan)) { gzline $nick +1h SEBEP } } } on 10:nick: { if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { if (($me isop $chan) || ($me ishelp $chan)) { gzline $newnick +1h SEBEP } } } on 10:text:*:#: { if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { if (($me isop $chan) || ($me ishelp $chan)) { gzline $nick +1h SEBEP } } } on 10:notice:*:#: { if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { if (($me isop $chan) || ($me ishelp $chan)) { gzline $nick +1h SEBEP } } } #karaliste end menu nicklist { .- Karalist-Badnick .- .Ekle:/.auser 10 $$1 | /echo -a 10 $+ $$1 4Karalisteye Alındı... | /mode # +b $nick | /kick # $nick 10 $+ # Kanalına Girişin 12Karaliste 4/ 12Badnick 4/ 12Inviter 10 Sebebinden Dolayı Yasaklanmıştır... .Çıkar:/.ruser $$1 | /echo -a 10 $+ $$1 4Karalisteden Çıkarıldı... .At:mode # +b $$1 | .kick # $$1 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız. } menu channel { .- Karalist-Badnick .- .Ekle:/.auser 10 $$?="Nick Giriniz" | /echo -a 10Karalisteye Alındı... .Çıkar:/.ruser $$?="Nick Giriniz" | /echo -a 10Karalisteden Çıkarıldı... .Düzenle:/flowerslist | /echo -a 10 $+ $me 4Karaliste Açıldı }

kırmızı yerleri değiştirirsin.
ayrıca help acil yardım vs.. gibi başlıklı konularda yasak. bi sonraki konuların başlıklarında bu tür kelimeler görülürse direk silinir.

 
Alıntı ile Cevapla

Alt 30 Aralık 2009, 21:02   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Bad nick listesini G-Line'la ızaklaştırmak




Merhaba Arkadaslar Bunu Nick Ban Kick Degilde Gline Olarak Nasıl Degiştirebilirim Ayrıca Bu Kod Kanalda Operatorken Calısıyor Bunu Oper Düzeyine Nasıl Cekebiliriz


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...] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) S1y4H", 13, 106 110 85 40
link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])", 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
}

[UYARI]İlk konuyu yanlış bölüme açtınız. Buda yetmesi aynı bölüme aynı konudan bir tane daha açıyorsunuz. İki konunuzu birleştirdim, daha dikkatli olun.[/UYARI]


Konu Ajan tarafından (30 Aralık 2009 Saat 21:21 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 30 Aralık 2009, 21:14   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Yeni.. Bad Nick List Gline Atsın




Alıntı:
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }

Kısmında @ prefix'ini silerseniz, deop durumunda da çalışır. Gline atmak içinde
Alıntı:
mode # +b $nick | kick # $nick %kckmsg

yerine
.gline $nick neden kullanabilirsiniz.
Ayrıca
Alıntı:
on *:OP:#:if $opnick == $me { krt $chan }

kısmında taramayı siz opa çıkınca başlatıyor.
on me*:join:#: krt $chan
olarak düzenlerseniz, opa çıktığınızda değil; kanala girdiğinizde tarar.

__________________
Suyun intiharıdır şelale...
 
Alıntı ile Cevapla

Alt 30 Aralık 2009, 21:19   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Yeni.. Bad Nick List Gline Atsın




Ajan Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kısmında @ prefix'ini silerseniz, deop durumunda da çalışır. Gline atmak içinde
yerine
.gline $nick neden kullanabilirsiniz.
Ayrıca

kısmında taramayı siz opa çıkınca başlatıyor.
on me*:join:#: krt $chan
olarak düzenlerseniz, opa çıktığınızda değil; kanala girdiğinizde tarar.



Anlamadım Arkadasım Hiç Birşey
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Benim Gönderdigim Kodda Bitmıs Yapılmıs Seklini Gösterırsenız Cok sevinirim teşekkurler

 
Alıntı ile Cevapla

Alt 30 Aralık 2009, 21:23   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bad Nick List Gline Atsın




Zaten bende senin verdiğin kodu düzenledim, farklı bir şey yapmadım. Bitmiş şeklide yukarıda duruyor. Neleri değiştirmen gerektiğin orada belirli.

__________________
Suyun intiharıdır şelale...
 
Alıntı ile Cevapla

Alt 31 Aralık 2009, 03:39   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bad Nick List Gline Atsın




Teşekkürler Ajan Yardımcı Oldugunuz İçin Sevgiler.

----------

Teşekkürler XcLusive Yardımcı Oldugunuz İçin Sevgiler.

 
Alıntı ile Cevapla

Alt 31 Aralık 2009, 08:33   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bad nick listesini G-Line'la ızaklaştırmak




boyner Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Merhaba Arkadaslar Bunu Nick Ban Kick Degilde Gline Olarak Nasıl Degiştirebilirim Ayrıca Bu Kod Kanalda Operatorken Calısıyor Bunu Oper Düzeyine Nasıl Cekebiliriz


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...] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) S1y4H", 13, 106 110 85 40
link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])", 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
}

[UYARI]İlk konuyu yanlış bölüme açtınız. Buda yetmesi aynı bölüme aynı konudan bir tane daha açıyorsunuz. İki konunuzu birleştirdim, daha dikkatli olun.[/UYARI]

konu aynı ama verdıgım her ıkı addon`da farklı yanlız anlamam için ayrı ayrı yazdım oldukca acemiyım hoş görünüz için tşk ederım

 
Alıntı ile Cevapla

Cevapla

Etiketler
atsin, atsın, bad, gline, list, lutenbad, 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
Nick yazılınca satırı msg atsın lsls mIRC Scripting Sorunları 5 30 Ağustos 2014 19:16
Ban degilde gline atsın istiyorum boyner mIRC Scripting Sorunları 7 01 Ocak 2012 12:27
statüste ip adresine cift tıklayınca gline atsın eyeS mIRC Scripting Sorunları 2 16 Aralık 2011 22:31
setnamesi asdfg olana gline atsın nasıl olur ? eyeS mIRC Scripting Sorunları 10 09 Ekim 2011 23:59
Sqline List'ten girene gline cashmare mIRC Scripting Sorunları 5 05 Şubat 2011 16:15