Hazır kod Kanal ip/takip Sistemi.

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 *:text:!arsiv &:#KANAL:{

  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 }

  }

}