alias badnick {
if ($1 == ekle) {
hadd badnick $2
secho $2 veritabanina başarıyla eklendi
}
elseif ($1 == sil) {
if ($hfind(badnick,$2)) {
hdel badnick $2
secho $2 veritabanindan başarıyla silindi
}
else { secho $2 veritabaninda bulunamadi }
}
elseif ($1 == list) {
var %x = 1
while (%x = 7) { secho $replace(%hbadnick,$chr(1),$+($chr(32),-,$chr(32))) | unset %hbadnick }
inc %x
}
if ($numtok(%hbadnick,32) >= 1) { secho $replace(%hbadnick,$chr(1),$+($chr(32),-,$chr(32))) | unset %hbadnick }
}
else { secho hatali islem }
}
alias tara {
if ($hfind(badnick,$1)) {
mode # +b $ifmatch
}
}
alias secho {
if (!$window([USER=4356]Bad[/USER]nick)) { window -e [USER=4356]Bad[/USER]nick }
echo [USER=4356]Bad[/USER]nick $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:EXIT: hsave -o badnick badnick.htb
on *:start: {
hmake badnick 1000
if ($exists(badnick.htb)) { hsave -o badnick badnick.htb }
hload badnick badnick.htb
}