mIRCTR.ORG

on @*:TEXT:*:#: {   ; +o +h +v ler bu degerden etkilenmeyecekler   if ($nick !isreg #) return   var %l = $strip($1-)   if ($hmatch(kufur,%l)) {     ban -u300 # $nick 3     kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!   } } alias kufur {   if ($1 == ekle) && ($regex($2,[A-Za-z])) {     hadd kufur $2     secho  $2  veritabanina başarıyla eklendi   }   elseif ($1 == sil) {     if ($hfind(kufur,$2)) {       hdel kufur $2       secho $2 veritabanindan başarıyla silindi     }     else { secho $2 veritabaninda bulunamadi }   }   elseif ($1 == list) {     var %x = 1      while (%x <= $hget(kufur,0).item) {       set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)       if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }       inc %x     }     if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32)))  | unset %hkufur }   }   else { secho hatali islem } } alias secho {   ;echo -a $1-   if (!$window(@kufur)) { window -e @kufur }   echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-) } on *:EXIT: hsave -o kufur kufur.htb  on *:start: {    hmake kufur 1000    if ($exists(kufur.htb)) { hsave -o kufur kufur.htb }    hload kufur kufur.htb  }    ----  /kufur ekle <kufur> belirtilen kufuru tablomuza ekler /kufur sil <kufur> belirtilen kufuru tablodan siler /kufur list eklenmis tum kufurleri listeler kufur eklerken wildcad kullanilabilir /kufur ekle *sokar* seklinde eklendiginde sokarim sokrlar sokarak gibi kelimeler de de uyarilacak ve kanaldan atilacaktir.