Çevrimdışı

on @*:TEXT:*:#: {
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %l = $strip($1-)
if ($hmatch(ozel,%l)) {
ban -u300 # $nick 3
kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!
}
}
alias ozel {
if ($1 == ekle) && ($regex($2,[A-Za-z])) {
hadd ozel $2
secho  $2  veritabanina başarıyla eklendi
}
elseif ($1 == sil) {
if ($hfind(ozel,$2)) {
hdel ozel $2
secho $2 veritabanindan başarıyla silindi
}
else { secho $2 veritabaninda bulunamadi }
}
elseif ($1 == list) {
var %x = 1
while (%x <= $hget(ozel,0).item) {
set %hozel $addtok(%hozel,$hget(ozel,%x).item,1)
if ($numtok(%hozel,32) >= 7) { secho $replace(%hozel,$chr(1),$+($chr(32),-,$chr(32))) | unset %hozel }
inc %x
}
if ($numtok(%hozel,32) >= 1) { secho $replace(%hozel,$chr(1),$+($chr(32),-,$chr(32))) | unset %hozel }
}
else { secho hatali islem }
}
alias secho {
;echo -a $1-
if (!$window(@ozel)) { window -e @ozel }
echo @ozel $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:EXIT: hsave -o ozel ozel.htb
on *:start: {
hmake ozel 1000
if ($exists(ozel.htb)) { hsave -o ozel ozel.htb }
hload ozel ozel.htb
}

----
/ozel ekle <ozel> belirtilen ozeli tablomuza ekler
/ozel sil <ozel> belirtilen ozeli tablodan siler
/ozel list eklenmis tum ozeli listeler
ozel eklerken wildcad kullanilabilir
/ozel ekle *ozele gel*
seklinde eklendiginde osele gel gibi kelimeler de de uyarilacak ve kanaldan atilacaktir.

arkadaslar bu kodu buldum sorunum çozuldu fakat kodda /ekle ozel ozele gel

gibi eklemeler ile ekleniyor bunun yerine

mirc de /ozel yazdiğimizda karsimiza tablo çiksa oraya eklesek yapa bilirmiyiz?