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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Shitlist Addonu Lazım..? (https://www.ircforumlari.net/mirc-scripting-sorunlari/410-shitlist-addonu-lazim.html)

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

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

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.

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

Kod:

alias badnicktara {

  if $me isop $1 {

    set %:bulunan 0

    var %s 1

    while %s <= $nick($1,0) {

      %:gnick = $nick($1,%s)

      if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == 666 {

        inc %:bulunan 1

        mode $1 +b $ulist(%:gnick,666,1)

        kick $1 %:gnick Badnick kullandiginiz tespit edildi!

      }

      inc %s

    }

    echo -a 2 Badnickler tarandi: $1 - %:bulunan badnick bulundu.

  }

  else {

    echo -a 2 $1 kanalinda OP olmaniz gerekmektedir.

  }

}
 

raw 366:*: {

badnicktara $1

}
 

on *:join:#: {

  if $level($nick $+ !*@*) == 666 {

    mode # +b $ulist($nick,666,1)

    kick # $nick Badnick kullandiginiz tespit edildi!

  }

}
 

on *:nick: {

  if $level($newnick $+ !*@*) == 666 {

    banall $newnick $ulist($newnick,666,1)

    kickall $newnick Badnick kullandiginiz tespit edildi!

  }

}
 

alias banall {

  var %i 1

  while %i <= $comchan($1,0) {

    if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }

    inc %i

  }

}
 

alias kickall {

  var %i 1

  while %i <= $comchan($1,0) {

    if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }

    inc %i

  }

}

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

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

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

}

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

Alıntı:

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.

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

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

isine yarar umarım.

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.

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.

orasına katılıyorum. Global bi kanal operator'u olsan ben o kanaldan hayır beklemem. hele hele akick yetkiside verilmisse vaay haline ;)