Kod

on *:start:if $isfile(yasak.63) { hmake yasak | hload yasak yasak.63 }
on 1:ctcpreply:version*: { 
  if $hfind(yasak,$strip($2-),W,1).data {
    echo -a $nick Yasak version.
  }
}
alias yasak { var %kaydet = hsave yasak yasak.63, %ekle = hadd -m yasak $rand(0,999), %sil hdel -m yasak, $&
    %hata = /yasak ekle version VERSION - /yasak sil ID - /yasak list
  if !$1 { echo -ea %hata | return } 
  if $1 = list { 
    var %list = $regsubex(a,$str(a,$hget(yasak,0).data),/./g,$chr(32) \n)
    if (%list) { echo -ae Liste. |  tokenize 32 %list | bak $* }
    else { echo -a Veri yok! }
    return
  }
  if !$2 { echo -ea %hata | return }
  if $1 == ekle && $hfind(yasak,$2-,W,1).data { echo -a $qt($2-)  benzer var. | return }
  elseif $1 == ekle { echo -ea $qt($2-) Version eklendi. }
  if $1 == sil && !$hget(yasak,$2) { echo -a $qt($2) id yok.  | return }
  elseif $1 == sil { echo -ea $qt($hget(yasak,$2)) Version silindi }
 $replace($1,ekle,%ekle,sil,%sil) $2-
  %kaydet
}
alias bak { echo ID: $hget(yasak,$1).item - Version: $hget(yasak,$1).data }