on *:join:#Sohbet:{ .enable #tkp | who $nick }
#tkp off
raw 352:*:{
  if $hget(tkp,$gettok($4,3,46))  { echo -a  [ $6 ] Nicki Daha Önce giriş yaptı. Bilgiler'i; Nick [ $gettok($hget(tkp,$gettok($4,3,46)),1,32) ] Fullnamesi [ $gettok($hget(tkp,$gettok($4,3,46)),2,32) ]  | .disable #tkp | halt }
  hadd -m tkp $gettok($4,3,46) $6 $9-
  .disable #tkp
}
#tkp end

2«13:42:13» • Çıkış : GhoSt (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) 
10«13:42:13» • Giriş : GhoSt (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) 
2«13:42:17» • Çıkış : ibr4him (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) 
10«13:42:18» • Giriş : ibr4him (SaglmShell
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) 
[ ibr4him ] Nicki Daha Önce giriş yaptı. Bilgiler'i; Nick [ GhoSt ] Fullnamesi [[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] İnt. Hizmetleri ]

on *:snotice:*:{
  if (*client*connect* iswm $1-) { 
    var %difyip = $remove($token($10,2,64),$chr(41)), %difynick = $9, %difyident = $remove($token($10,1,64),$chr(40))
    if $read(arsiv.txt,w,$+(*,%difyip,$chr(32),%difynick,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }
    write arsiv.txt %difyip %difynick 14Ident: %difyident 02Son Girişi: $+($time,-,$date) 
  }
  elseif (*changed*his*her*nickname* iswm $1-) {
    var %difyzip = $remove($token($5,2,64),$chr(41)), %difynickz = $11, %difyidentz = $remove($token($5,1,64),$chr(40))
    if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynickz,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }
    write arsiv.txt %difyzip %difynickz 14Ident: %difyidentz 02Son Girişi: $+($time,-,$date) 
  }
}
;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz
on *:input:#: { 
  if $1 == !arsiv {
    if $regex($2,/^\d+.\d+/) {
      if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) { 
        msg $chan $2 arşivi listeleniyor 
        filter -ffcg arsiv.txt depo.txt /^\Q $+ $2 $+ \E\s/ 
        play $chan depo.txt 750
      }
      else { msg $chan $2 arşivde bulunmuyor 
      }
    }
    if $regex($2,/^[^\d]/) {
      if $read(arsiv.txt,r,/[^:]\s\Q $+ $2 $+ \E\s/i) { 
        msg $chan $2 arşivi listeleniyor 
        filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $2 $+ \E\s/i 
        play $chan depo.txt 750 
      }
      else { msg $chan $2 arşivde bulunmuyor }
    }
  }
}