Badnick Koruması... (Tamamen Kendi Kodlarım )
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:START: {
if !$findfile($mircdir,badnick.db,1) {
hmake -s badnick 100
hsave -s badnick badnick.db
}
else {
hmake -s badnick
hload -s badnick badnick.db
}
}
alias tab {
if ($1 == $null) return $chr(9)
var %i = 1, %r
while ($($+($,%i),2) != $null) {
%r = $instok(%r,$ifmatch,0,9)
inc %i
}
return %r
}
alias hata { .echo -q $input(Hata: $1-,oh,Hata!) }
alias badnick {
if -* iswm $1 {
if *r* iswm $1 {
if $hfind(badnick,$+(*,$2,*),1,w).data {
hdel badnick $ifmatch
hsave badnick badnick.db
echo -ta $2 'Girdisi Silindi...
}
else hata Komutu Yanlış Kullandınız...
}
elseif *s* iswm $1 {
if (!$window(@BADNICK)) window -lk +L @BADNICK
aline @BADNICK $tab(No,DATA)
aline @BADNICK $tab(-,-)
var %k = 1
while %k <= $hget(badnick,0).item {
aline @BADNICK $tab(%k,$hget(badnick,%k).data)
inc %k
}
}
elseif *c* iswm $1 {
var %m = 1,%l = 1
while %m <= $hget(badnick,0).item {
while %l <= $nick($2,0) {
if $hget(badnick,%m).data iswm $nick($2,%l) || $hget(badnick,%m).data isin $nick($2,%l) {
_queue samode $2 +b $address($nick($2,%l),2)
echo -ta BadNick Listenizde ki $hget(badnick,%m).data Maskesiye, $nick($2,%l) 'i Uyuşuyor...
}
inc %l
}
inc %m
}
}
elseif *m* iswm $1 {
var %:m = 1
while %:m <= $hget(badnick,0).item {
if $hget(badnick,%:m).data iswm $3 || $hget(badnick,%:m).data isin $3 {
_queue samode $2 +b $address($2,2)
}
inc %:m
}
}
}
else {
if $hfind(badnick,$+(*,$2,*),1,w).data {
hata Girmek İstediğiniz Veri Zaten Listenizde Mevcut
}
else {
hadd badnick $r(0,9999999) $1 | hsave badnick badnick.db
echo -ta $1 Başarıyla Eklendi...
}
}
}
on *:JOIN:#: {
if $nick == $me {
.timer 1 2 .badnick -c #
}
else {
badnick -m # $nick
}
}
alias _queue {
inc %queue.count
if ($timer(.queue) == $null) {
hadd -m queue count 1
hadd -m queue 1 $1-
_doqueue 1
}
else {
var %queue.count = $calc($hget(queue,count) + 1)
hadd -m queue %queue.count $1-
hadd -m queue count %queue.count
}
}
alias _doqueue {
if ($hget(queue,$1) != $null) {
.timer.queue -mo 1 $calc((4 - $gettok(3 2 1,$1,32)) * 60) _doqueue $calc($1 + 1)
$ifmatch
.hdel -s queue $1
}
else hfree queue
}
İleride Geliştirilebilir. Kısaca Komutları yazayım ama fazla gerek yok
/badnick <badnick> :Wildcardlar geçerli...
Bu Kodda "echo -ta" Kısımlarını "msg <kendinnickiniz>" şeklinde değiştirirseniz bu uyarı ve bilgi mesajları size gelecektir...