Shitlist Addonu Lazım..?
 

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...

ç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
}
}
}

Alience güzel add-on bu arada Alience e tşk ediyoruz sabahın 8:30 unda post atıyor :D gerçi ben o saatte 2. derste uyuyor pozisyonundayım ya neyse :D

badnick
 

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

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 :D

badn
 

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..

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.

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 :) calısmadı zaten donuyor :)

ne enerji var be sizde bitmek tükenmek bilmeyen ehuehue :D

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.