Çevrimdışı

on @!*:join:#: {
if (spy isin $address($nick,5)) || (guvenlik isin $address($nick,5)) { halt }
if $grr2(3,6,6,$nick) { cs akick # add $address($nick,2) 0,4Random Nick | cs akick # enforce | cs akick # del $address($nick,2) } }
}

valla ßu çalışmadı mealstrom denedim ama tık yok
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

;calısması gerekirdi ama bide bunu dene bakalım
on @!*:join:#: {
if $grr2(3,6,6,$nick) && (spy !isin $address($nick,5)) && (guvenlik !isin $address($nick,5)) { cs akick # add $address($nick,2) 0,4Random Nick | cs akick # enforce | cs akick # del $address($nick,2) } }
}

 

Çevrimdışı

maresef
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
çalışmıor çok denedim ama tık yok

 

Çevrimdışı

nelix dogru olarak eklediğine eminmisin sen kod sorunsuz gorunuyo

 

Çevrimdışı

alias grr2 {
var %s = $mid($4,1,$3)
if (($($+($,regex,$chr(40),%s,$chr(44),/[^aeiou],$chr(123),$2,$chr(125),/i,$chr(41)),2)) || ($($+($,regex,$chr(40),%s,$chr(44),/[aeiou],$chr(123),$1,$chr(125),/i,$chr(41)),2))) { return $true } | else { return $false }
}
on @!*:join:#:{
if (spy isin $address($nick,5)) || (iSo0o0 isin $address($nick,5)) { halt }
if (KeIebek isin $address($nick,5)) || (Sonya isin $address($nick,5)) { halt }
if $grr2(3,6,6,$remove($gettok($gettok($address($nick ,5),2,33),1,64),~)) { /cs akick # add $address($nick,2) 14,1R12a14,1nd12o14,1m N12i14,1ck12`14,1Id12e14,1nt pr12o14,1h12i14,1b12i14,1t12i14,1on 12i14,1n0 # 12-[-0 $me 12-]- 14,1B12a14,1nn12e14,1d=>>0 %kick | inc %kick | /cs akick # enforce | /cs akick # del $address($nick,2)
}
}

Arkadaşlar Bu Addon Mirc'imde /auser koruma nick Şeklinde eklediğim nickleri banlamıyacak.. yardımcı olur musunuz..

 

Çevrimdışı

Şöle Yap

Alias Olarak;
randomdegil /auser randomdegil.txt $1

alias grr2 {
var %s = $mid($4,1,$3)
if (($($+($,regex,$chr(40),%s,$chr(44),/[^aeiou],$chr(123),$2,$chr(125),/i,$chr(41)),2)) || ($($+($,regex,$chr(40),%s,$chr(44),/[aeiou],$chr(123),$1,$chr(125),/i,$chr(41)),2))) { return $true } | else { return $false }
}
on @!*:join:#:{
if ($read(randomdegil.txt,w,$nick)) { halt }
if (spy isin $address($nick,5)) || (iSo0o0 isin $address($nick,5)) { halt }
if (KeIebek isin $address($nick,5)) || (Sonya isin $address($nick,5)) { halt }
if $grr2(3,6,6,$remove($gettok($gettok($address($nick ,5),2,33),1,64),~)) { /cs akick # add $address($nick,2) 14,1R12a14,1nd12o14,1m N12i14,1ck12`14,1Id12e14,1nt pr12o14,1h12i14,1b12i14,1t12i14,1on 12i14,1n0 # 12-[-0 $me 12-]- 14,1B12a14,1nn12e14,1d=>>0 %kick | inc %kick | /cs akick # enforce | /cs akick # del $address($nick,2)
}
}

/randomdegil banlanmayacak.nick
yazarsan
o nicki .txt ye atar ve koddaki if şartı atmaz onu
TŞKLER.

 

Çevrimdışı

Random Addonu
on @Random:join:#: { cs akick # add $nick $+ !*@* 0,4×·Random·× 0,12 Nick¹/Ident² Detected  0,3 Yardim Icin /q $me   | cs akick # enforce | cs akick # del $nick $+ !*@* }
Bu Kodu Alt+r ye basarak Remote Bölümünde Boş bir yere Yapistirin..

Users Bölümü
Random Identler

Random:*!*cx*@*
Random:*!*aui*@*
Random:*!*euo*@*
Random:*!*eoa*@*
Random:*!*uiu*@*
Random:*!*oa*@*
Random:*!*oei*@*
Random:*!*oio*@*
Random:*!*uie*@*
Random:*!*jx*@*
Random:*!*qz*@*
Random:*!*aou*@*
Random:*!*oua*@*
Random:*!*iio*@*
Random:*!*eii*@*
Random:*!*eoe*@*
Random:*!*qz*@*
Random:*!*wv*@*
Random:*!*yj*@*
Random:*!*dlk*@*
Random:*!*czn*@*
Random:*!*tbh*@*
Random:*!*dz*@*
Random:*!*wf*@*
Random:*!*qu*@*
Random:*!*iiu*@*
Random:*!*qz*@*
Random:*!*xf*@*
Random:*!*jc*@*

Random Nickler
Random:*jx*!*@*
Random:*uai*!*@*
Random:*uoe*!*@*
Random:*aio*!*@*
Random:*ouo*!*@*
Random:*aea*!*@*
Random:*aei*!*@*
Random:*oae*!*@*
Random:*oea*!*@*
Random:*oii*!*@*
Random:*iao*!*@*
Random:*ooe*!*@*
Random:*ooi*!*@*
Random:*ooa*!*@*
Random:*eio*!*@*
Random:*eoo*!*@*
Random:*oia*!*@*
Random:*ioa*!*@*
Random:*qx*!*@*
Random:*eio*!*@*
Random:*tkk*!*@*
Random:*zj*!*@*
Random:*ckp*!*@*
Random:*gzj*!*@*
Random:*qf*!*@*
Random:*bw*!*@*
Random:*uop*!*@*
Random:*uuj*!*@*
Random:*xq*!*@*
Random:*iib*!*@*
Random:*cuu*!*@*
Random:*eeg*!*@*
Random:*cow*!*@*
Random:*yx*!*@*
Random:*ioj*!*@*
Random:*iix*!*@*
Random:*****!*@*
Random:*xuz*!*@*
Random:*sikici*!*@*
Random:*sokucu*!*@*
Random:*porn*!*@*
Random:*tecavuz*!*@*
Random:siki_*!*@*
Random:am_*!*@*
Random:*yar?ak*!*@*
Random:********!*@*
Random:*beceren*!*@*
Random:*alet20*!*@*
Random:*sikim*!*@*
Random:*seks*!*@*
Random:*siker*!*@*

Random Ipler

Random:*!*@*.jp
Random:*!*@*.py
Random:*!*@*.by
Random:*!*@*.ua
Random:*!*@*.vn
Random:*!*@*.se
Random:*!*@*.lt
Random:*!*@*.no
Random:*!*@*.th
Random:*!*@*.gr
Random:*!*@*.lv
Random:*!*@*.hu
Random:*!*@*.ch
Random:*!*@*.ca
Random:*!*@*.ac.uk
Random:*!*@*.cox.net
Random:*!*@*swbell*.*
Random:*!*@*kasserver*.*
Random:*!*@*verizon*.*
Random:*!*@*.aol.com
Random:*!*@*superonline*.*
Random:*!*@*ameritech*.*
Random:*!*@*qualitynet*.*
Random:*!*@*sbcglobal*.*
Random:*!*@*vapor*.*

Random Identler yazan yerden itibaren hepsini kopyalayip alt+r ye basip User Bolumune Yapistirin.


Alıntıdır.

 

Çevrimdışı

Bu kod el33t in yazdığı bir kod. iyi çalışıyor. ($nick,/neslisah|vaybe diye başlayan satır atılmamasını istediğin nickler kısmıdır. kodun sonundaki /i ise nicklerin büyük küçük harf duyarlılığıdır. nick ahmet sede AhMeT sede AHMET sede atılmaz.

on @!*:JOIN:#:{
if (!$regex($nick,/neslisah|vaybe|tuqce|qozlem|zeyna|jotif|ciqsgirl|w awe|sema^^|extrem|companero|uyuz|selamm|xcomely|Sc arlett1|doktor|zxcourse|yokum|kerem|sahilci|demier en|nonamef|haziran|murat|doruk|karayel|mydream|naz l|smarties|meliz|yagmur|zpam|selda|ilke|kurabiye|b ade|bachelor|gezegen|nehrr|amele|erdem|plasser|ast racoupe|joelle|denizyildizi|serman|slmss|gamze|bil lur|hurols|gizemm|gambler|clkcoupe|syler|zeynaa|po yraz|yelis|kuram|myra|lapin|sleepp|yuppii|suistima l|shule|antuanet|zeynoo/i)) {
tokenize 33 $gettok($fulladdress,1,64)
if (!$hget($+($chan,$cid,drone),$nick)) && (($len($1) > 4) || ($len($2) > 4)) && ($regex($1,/^[a-z]+$) && $regex($2,/^~?[a-z]+$)) {
if ($regex($1,/^[^aeiou]{4}/)) || ($regex($2,/^(~?)[^aeiou]{4}/)) { goto end }
elseif ($regex($1,/([a-z])\1{2}/)) || ($regex($2,/([a-z])\1{2}/)) { goto end }
elseif ($regex($1,/[aeiou]{4/)) || ($regex($2,/[aeiou]{4}/)) { goto end }
elseif ($regex($1,q[^u]) || $regex($2,q[^])) { goto end }
elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) || ($regex($2,/[^aeioux]x[^aeiouyx]/)) { goto end }
else { halt }
:end
if ($nick ison $chan) { ban $chan $nick 2 | .timer 1 600 mode $chan -b $address($nick,2) | kick $chan $nick (Random (Rastgele) Nick ve/veya Ident..)[Drones Kicked: $+(%d.k,]) | inc %d.k }
hadd -mu60 $+($chan,$cid,drone) $replace($fulladdress,!,$chr(32))
halt
}
;elseif ($regex($nick,/^[A-Z][a-z]+[^0-9][0-9]{2}$/)) && (Guest* !iswm $nick) { echo 4 -s ban -ku600 $chan $nick 2 autokicked: [exp/ma] You are infected with an IRC trojan/virus. Visit [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
}

__________________