| KivanC | 18 Ekim 2014 09:26 |
Badnick Kode hash cevirme
Kod:
on @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:JOIN:*:{
if ($ulist($fulladdress,koruma,0) >= 1) {
return }
elseif !$istok(#kanal1 #kanal2 #kanal3 #kanal4
#kanal5,$chan,32) {
mode $chan +b
$nick
kick $chan $nick 5Rumunuz kanal seviyesine uygun
degildir , 4/nick YENINICK 5 seklinde rumunuzu degistirip oyle kanala giris
yapabilirsiniz.12
}
}
alias tara {
set %:bulunan
0
var %s 1
while %s <= $nick(#,0) {
%:gnick = $nick(#,%s)
if ($ulist($+($nick(#,%s), !*@*),koruma,0)
>= 1) || ($ulist($+(*!,
$regsubex($address($nick(#,%s),1),/^\*[!]\*(\S+)[@].+/S,\1), @*), koruma,0)
>= 1) { return }
If %:gnick isreg # &&
$level(%:gnick $+ !*@*) == badnick {
inc
%:bulunan 1
mode # +b %:gnick | kick # %:gnick
5Rumunuz kanal seviyesine uygun degildir , 4/nick YENINICK 5 seklinde
rumunuzu degistirip oyle kanala giris yapabilirsiniz.12
}
inc %s
}
echo -a 2 Badnickler
tarandi: # - %:bulunan badnick bulundu.
}
on *:NICK:{
if
($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
else
{
if $ulist($+($newnick,!*@*),badnick,0)
{
var %Cnk = 1
while $comchan($newnick,%Cnk) {
var %e = $v1
if $me isop %e &&
!$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,%e,32) {
mode %e +b $newnick
kick %e $newnick
5Rumunuz kanal seviyesine uygun degildir , 4/nick YENINICK 5 seklinde
rumunuzu degistirip oyle kanala giris
yapabilirsiniz.12
}
inc %Cnk
}
}
}
}
alias badnickekle {
auser badnick $1 $+ !*@*
}
alias
badnicksil {
ruser badnick $1 $+ !*@*
}
alias nickkoruma
{
auser koruma $1 $+ !*@*
}
alias badidentekle {
auser
badnick *! $+ $1 $+ @*
}
alias badidentsil {
ruser badnick *! $+
$1 $+ @*
}
alias identkoruma {
auser koruma *! $+ $1 $+ @*
}
Kode /tara #kanal yaptığımda kanaldaki 10 badnick'den sadece birini atıyor peki kode'yi Hash tablo'ya cevirebilirmiyiz. |
