Çevrimdışı

arkadaslar soyle bisey rica edecem szden bende yaklasik 2050 adet bad nick var hiçbiri sallama deyil hepsi kendi irc hayatımda ekledigim nickler ben soyle birsey istiyorum bir tarayıcı olacak tarayıcı
666:****ybabe^!*@*
666:*!*FAHISE*@*
666:*!*FAHISE*@*
666:*!*KANCIK*@*
666:*!*Lamer*@*

666 Userleri Tarıyacak Nicklistesinde Buldugu Nickleri Teker Teker Kickleyecek @penceresine gelmesin teker teker kicklesin eger boyle bisey yaza bilirseniz sevinirim...

 

Çevrimdışı

çoook önceleri yazdığım bir şey vardı silmiştim ama sırf bir forumda kıl olduğum biri kendi addonum diye tanıtığı için oradakini kopyalayıp 1 2 eksiğini gidermiştim tabiki şuanda çok daha gelişmişi yazılabilir ama buda çok iyi çalışıyor :)
Özellikleri: Joinde, partta, voice alınca, voicesi alınınca,nick değişitirince vs vs yani taramana gerek yok herhangi bir hareket yaptığı anda görür.


;Codded By Alience on 2001 /changes 2004

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)) {
ban $chan $nick 2 | 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
}
}
}

 

Çevrimdışı

Alience güzel add-on bu arada Alience e tşk ediyoruz sabahın 8:30 unda post atıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
gerçi ben o saatte 2. derste uyuyor pozisyonundayım ya neyse
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

abi benim zaten bir badnick yakalayıcım var siz anlamadınız sanırım soyle diyorum
mesela ben kanala girdim ve kanalda 15 tane badnick var ben bu badnickleri tarayıcıyla tarıyacam clone scan gibi bulduklarımı otomatikmen teker teker kickleyecek

 

Çevrimdışı

alias bnickscan {
var %i = 1
while (%i <= $nick($1,0)) {
var %ul = 1
while ($ulist(*,666,%ul)) {
if (($remove($ulist(*,666,%ul),*,@,!) isin $nick($1,%i)) && ($me isop $1)) {
ban $1 $nick($1,%i) 2 | kick $1 $nick($1,%i) 5Shitlisted
}
inc %ul 1
}
inc %i 1
}
}
raw 329:*: {
set %329 1
var %i = 1
while ([ $ $+ [ %i ] ] != $null) {
if ([ $ $+ [ %i ] ] ischan) { .timerbnickscan -m 1 600 bnickscan [ $ $+ [ %i ] ] | halt }
inc %i 1
}
}



burada kanaldaki topicin ne zaman yazıldığına dair gelen rawdan(329) sonra komutu aktive ettirdim sen nereye istersen oraya yaz komutun asıl kullanımı
/bnickscan #kanal buna çok yakını badnick scanda vardı zaten on *:nick kısmında biraz incelemek lazım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

abi bune ya allahını seversen :o) mirci donduruyor ve badnickte olmayan koruma listemide atıyor sadece 666 listesini kicklemiyor master:asdas koruma listemide kickliyor.. ve tarama yapınca pc mirc donuyor kapatıyorum.. yani gorevi sonlandır..

 

Çevrimdışı

doğru iki while kullanmak liste cok uzunsa mirc i neredeyse kitler gibi gösterir onu engellemenin yolu mirc aktifken 5 6 defa ctrl + pause/break tusuna basman yeterli
al 1 while li kasmıyacak kod:

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
}
}
raw 329:*: {
set %329 1
var %i = 1
while ([ $ $+ [ %i ] ] != $null) {
if ([ $ $+ [ %i ] ] ischan) { .timerbnickscan -m 1 600 bnickscan [ $ $+ [ %i ] ] | halt }
inc %i 1
}
}

çalışıyor bizzat denedim mirc versiyon 6.16 sende çalışmazsa ona bak 6 kusurlu versiyonlarda dene.

 

Çevrimdışı

abi ben bunu bota yerlestirecem herseyim tamamda bi badnickscan geldi aklıma onuda yapamadım bot auto scan edecek timerle.. onu ben yapacaktım yada !scan dicektim tarıyacaktı botta ctrl+pause ye basamayacagına gore
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
calısmadı zaten donuyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

ne enerji var be sizde bitmek tükenmek bilmeyen ehuehue
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

son verdigim kodun çalışması gerekyiro onu denemedinmi. ctrl + pause sen yazarken işine yarayacak ctrl + alt +del den çok daha iyi ayrıca badnickscan ı timerli niye yaptırıcanki onu anlamadım o shitlisti koy birde en son gönderdiğim kodu. zaten en sondaki kod kanala ilk girdiğinde tarıyacak diğeride kanalda olduğu sürece herşeyi check etiğine göre dahas? neyse sen illa timerli yapacam ben dediğim dedik diyorsan raw 329 u sil komutun kullanımı /bnickscan #kanal istediğin timera atarsın.