Kod: Kodu kopyalamak için üzerine çift tıklayın!
1.kod
on !badnick:join:*:{
if ($me isop $chan) || ($me ishop $chan) {
if ($ulist($fulladdress,koruma,0) >= 1) { return }
elseif !$istok(#help #mirchelp #operhelp #geveze #turkiye@ #globalops,$chan,32) {
ban -u $+ %bsure $chan $nick $+ !*@*
quote kick $chan $nick Badnick! maske; $ulist($address($nick,5),$ulevel,1)
}
}
}
on *:nick:{
if !$ulist($+($newnick,!*@*),koruma,0) && $ulist($+($newnick,!*@*),badnick,0) {
var %badnick = 1
while %badnick <= $comchan($newnick,0) {
if $me isop $comchan($newnick,%badnick) || $me ishop $comchan($newnick,%badnick) {
if !$istok(#help #mirchelp #operhelp #geveze #turkiye@ #globalops,$comchan($newnick,%badnick),32) {
ban -u $+ %bsure $comchan($newnick,%badnick) $newnick $+ !*@*
quote kick $comchan($newnick,%badnick) $newnick Badnick! maske;
}
}
inc %badnick
}
}
}
yukarda userlistten maskeyi bulmayı becerdimde aşağıda beceremedim
bide birden fazla maskeden etkilenirsede onlarıda gösterebilir mi her ikisindede
böyle; maskeler; alciy*!*@* - *ciy*!*@* - alciyan!*@*
---------------------------
2.kod
/badtara #kanal dedigimizde önce kaç adet nick bulundu listesiyle beraber göstersin.
Örnek; #Kanal kanalında 7 adet kayıtlı nick bulundu listesi;
1-) nick1 eşdeğer maskeler; al!*@*
2-) nick2 eşdeğer maskeler; *tel*!*@* - yutel*!*@*
3-) nick3 eşdeğer maskeler; *bal!*@*
4-) ...
... gibi. 7 taneyi sıralasın.
F7 tuşuna basınca listedekileri tekrar tarayıp atsın.
2. tarama sonucu 5 maske etkilendi diye.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
/badtara {
var %btara 1
while %btara <= $nick($1,0) {
if !$ulist($nick($1,%btara),koruma,0) && $ulist($nick($1,%btara),badnick,0) {
ban -u $+ %bsure $chan $nick($1,%btara) $+ !*@*
kick $chan $nick($1,%btara) Kötü nick(rumuz) lütfen değiştiriniz; "/nick yeninickiniz" komutunu kullanınız. NOT : " $+ $gettok($asctime($calc($ctime + %bsure)),4,32), $+ " itibariyle ban deaktif(iptal) olacaktır. Etkikendiği maske; BURASI
}
inc %btara
}
}
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:06 -->-> Daha önceki mesaj 23:05 --
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:join:*: {
%clones = $ialchan($wildsite,#,0)
if *!*@*helper* iswm $fulladdress { halt }
if *!*@*oper* iswm $fulladdress { halt }
if *!*@*admin* iswm $fulladdress { halt }
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks -->
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count }
.echo $chan 2*** 0,1 0,1[9,1Uyarı0,1/4,1CLONE0,1] : Toplam ( $+ %clones $+ ) adet clone. --> $remove(%clone.nicks,-->) (13CBAN1) }
if (%change == $null) {
haltdef
halt
}
}
(CBAN) kısmına tıklayınca o ip adresine ait bütün cloeneleri bütün kanallardan atıcak olduğum
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:08 -->-> Daha önceki mesaj 23:06 --
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on !^*:text:*:#:{
.set %n $nick($chan,$nick).pnick
if $left(%n,1) == ~ { echo $chan $timestamp $+(<,5~, $+ $nick $+ ,>) $1- }
elseif $left(%n,1) == & { echo $chan $timestamp $+(<,7&, $+ $nick $+ ,>) $1- }
elseif $left(%n,1) == @ { echo $chan $timestamp $+(<,4@, $+ $nick $+ ,>) $1- }
elseif $left(%n,1) == % { echo $chan $timestamp $+(<,13%, $+ $nick $+ ,>) $1- }
elseif $left(%n,1) == + { echo $chan $timestamp $+(<,12+, $+ $nick $+ ,>) $1- }
else { echo $chan $timestamp $+(<,1 $+ $nick $+ ,>) $1- }
haltdef
}
Kanalda mesaj yazıldığında kırmızı uyarı yanmıyor kanal üstünde o yanmalı.
Özeldede nicklerin ince görünmesini istiyorum bu koddaki gibi mümkün mü.