Çevrimdışı

NAMES End Raw'i varken baska Raw'lere ne gerek var ki?
Alfa, asagidaki kodu copy paste yap yerer. Kusursuz calisacaktir.

 

Çevrimdışı

Evet %100 Kusursuz İkinizede Cok Ama COk Teşekkür Ederim Ugras Verdiginiz İcin Arkadaslar

 

Çevrimdışı

ben bu addonun benzerini bir yerd egormustum hatta kullandim kisa bir sureliginede sanirim aliencenin kimden bahsettiginide tah,min ediyorum bu korumaya sahiplenen kisiyi yani neyse esas meseleye geceyim
ben bu korumayi kullandim evet guzel fakat ilginc bir sey gordum bu korumada
ornekle aciklarsam mesela kotu nick listemize hot kelimesini ekledik diyelim
eger bu kelime kanala giren hasan nickli userin ip adresinde yani hostunda hot kelimesi geciyorsa ki bazen gecenler var hasanida atiyor yani bu koruma kanala giren nickin yani sira ip leride tariyor ve kayitli kelimeyi ister nick ister ip de gorsun atiyor
ilk gunler ben niye kayitli olmayan nickleri atiyor diye bakinip duruyordum sonradan cozdum bunuda bilginize
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)))

 

Çevrimdışı

benim bu kanal tarama isine kafam basmadi biriniz topik raw biriniz ise kanal kisi listesi sonu raw dan sonra komutun calismasini istemissiniz iyide siz kanala girdiginizde daha op olmadan bu rawlar benim bildigim gecmis olur haliyle bu rawlarla dan hemen sonra kanal taranbirsa siz halen op olmamis olursunuz yaniliyormuyum birde kisa yollari konmamis onlarida ben ekliyeyim dedim

menu channel,status,menubar {
.-
Badnick
.-
.Kanali Taramasi:/badnicktara | 0,4 Badnickler tarandi: $1 - 8,12 %:bulunan 0,4 badnick bulundu.
.Ekle:/.auser 666 $$?="Nick Giriniz" | /echo -a 10Kotu nick listeye Alindi...
.Çikar:/.ruser $$?="Nick Giriniz" | /echo -a 10Kotu nick listeden Çikarildi...
.Düzenle:/shitlist | /echo -a 4 $+ $me 6Kotu nick listesi Açildi

}

 

Çevrimdışı

on 1:dialog:adver:sclick:*: {
if ($did == 3) { did -ra $dname 5 $did(3).seltext | did -e $dname 10 }
if ($did(13).state == 1) { set %senable 1 | did -e adver 3,4,5,6,7,10,12 } | else { set %senable 0 | did -b adver 3,4,5,6,7,10,12 }
if ($did == 4) { set %words1 [ %words1 ] $did(5) | did -a $dname 3 $did(5) | did -ra $dname 5 }
if ($did == 7) { if ($did(3).sel > 0) { set %words1 $remtok(%words1,$did(3).seltext,32) | did -d adver 3 $did(3).sel | did -ra $dname 5 | did -b $dname 7 } }
if ($did(10).state == 1) { set %kban 1 | did -e adver 12 } | else { set %kban 0 | did -b adver 12 }
}

on *:dialog:adver:init:*: {
if (%kban == 1) { did -c adver 10 | did -e adver 12 }
if (%kban == 0) { did -b adver 12 }
if (%senable == 1) { did -c adver 13 | did -e adver 4,5,6,7,10,12 }
if (%senable == 0) { did -b adver 4,5,6,7,10,12 }
var %a = 1
while ($gettok(%words1,%a,32)) {
did -a adver 3 $gettok(%words1,%a,32)
inc %a
}

}

on @*:join:#:{
if ($nick !isop $chan) {
var %x = 1
while (%x <= $numtok(%words1,32)) {
if ($gettok(%words1,%x,32) isin $nick) { var %advering! = $true }
inc %x
}
if (%advering!) && (%kban == 1) && (%mins) {
mode $chan b $nick
kick $chan $nick 12 $+ Kanalimiza bu nickle giremezsiniz nick degisin!!
}
}
}
dialogunu kopyalamadim
bu aslinda kotukelime korumasi idi ben bunu kotunick olarak degistirdim
ama buna birde kotunick taramasi eklemek istiyorum beceremedik haliyle
mumkunmu buna bir kotunick taramasi yapmak acaba

 

Çevrimdışı

Alience Nickli Üyeden Alıntı

alias bnickscan { var %i = 1 while (%i <= $nick($1,0)) { var %shlist = $ulist($nick($1,%i),666,0),*,@,!) if (%shlist != 0) { ban $1 $nick($1,%i) 2 | kick $1 $nick($1,%i) 5Shitlisted } inc %i 1 } }

arkadaşlar yukardaki turuncu bölgede neden ip ban atmıyo olabilir? ip ban atması gerekiyo sanırım.

 

Çevrimdışı

pardon bi yalnışlık olmuş sorun bendeymiş çok çok özür dilerim.

 

Çevrimdışı

ArkadaşLar artık Mode +b kick felan kalmadı Şunun ipe akick alacak addonu yokmu ?

 

Çevrimdışı

alias Shitlist { if ($dialog(Shitlist)) { dialog -c Shitlist } | dialog -ma Shitlist Shitlist }
dialog Shitlist {
size -1 -1 295 346
title "Shitlist & Auto kick"
Combo 1, 1 1 240 330
button "&Ekle", 2, 244 2 50 22
button "&Çıkar", 3, 244 24 50 22
button "Tamam", 4, 244 324 50 22,ok
Check "Shitlist ON" , 5 , 1 327 241 20
}
on *:dialog:Shitlist:*:*: {
if ($devent == init) { Shitlist.init }
if ($devent == sclick) {
if ($did == 2) { if ($did(1) != $null) { /.auser 666 $did(1) | Shitlist.init } }
if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | Shitlist.init } }
if ($did == 5) {
writeini $+(",$mircini,") Shitlist Shitlist $iif($did(5).state == 1,on,off)
}
}
}
alias Shitlist.init {
did -r Shitlist 1
if ($readini $+(",$mircini,") Shitlist Shitlist == on) { did -c Shitlist 5 }
set %ul 1
while (%ul <= $ulist(*,0)) {
if ($level($ulist(*,%ul)) == 666) { did -a Shitlist 1 $ulist(*,%ul) }
inc %ul 1
}
unset %ul
}
on 666:join:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
cs akick $chan add $+($nick,!*@*) 5God is h4pp3n ! | kick $chan $nick 5Shitlisted
}
}
}
on 666:part:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode $chan +b $address($nick,2)
}
}
}
on *:nick: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if ($nick == $me) { halt }
var %ul = 1
while ($ulist(*,666,%ul)) {
if (($remove($ulist(*,666,%ul),*,@,!) isin $nick) || ($remove($ulist(*,666,%ul),*,@,!) isin $newnick)) {
var %i = 1
while ($comchan($newnick,%i)) {
if (($me isop $comchan($newnick,%i)) || ($me ishop $comchan($newnick,%i))) {
ban $comchan($newnick,%i) $newnick | kick $comchan($newnick,%i) $newnick 5Shitlisted
}
inc %i 1
}
}
inc %ul 1
}
}
}
on 666:text:*:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $nick 2 | kick $chan $nick 5Shitlisted
}
}
}
on 666:notice:*:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $nick 2 | kick $chan $nick 5Shitlisted
}
}
}
on 666:action:*:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $nick 2 | kick $chan $nick 5Shitlisted
}
}
}
on 666:op:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $opnick 2 | kick $chan $opnick 5Shitlisted
}
}
}
on 666:deop:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $opnick 2 | kick $chan $opnick 5Shitlisted
}
}
}
on 666:voice:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $vnick 2 | kick $chan $vnick 5Shitlisted
}
}
}
on 666:devoice:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $vnick 2 | kick $chan $vnick 5Shitlisted
}
}
}
on 666:help:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $hnick 2 | kick $chan $hnick 5Shitlisted
}
}
}
on 666:dehelp:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $hnick 2 | kick $chan $hnick 5Shitlisted
}
}
}

Alience'nin vermis oldugu kodu bu sekilde degisirsen Shitlist'e aldıgını nick kanala girdiginde direk Akick alıncaktır.

 

Çevrimdışı

Her yazdığım kodda olduğu gibi yine en az bir 5 ay gecikmeli idrak ediyor. Hazır kodlar bölümünde 2. versiyonu var [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], akick olayına gelince tamamiyle saçmalıyorsunuz derim.