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ı

Cevap: Acil Lüten...Bad Nick List Gline Atsın
 

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.

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]

Cevap: Yeni.. Bad Nick List Gline Atsın
 

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.

Cevap: Yeni.. Bad Nick List Gline Atsın
 

Anlamadım Arkadasım Hiç Birşey :( Benim Gönderdigim Kodda Bitmıs Yapılmıs Seklini Gösterırsenız Cok sevinirim teşekkurler

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.

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.

Cevap: Bad nick listesini G-Line'la ızaklaştırmak
 

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