on !*:join:#X:$iif(!$isfile($+($mircdirtakip\,$nick,.txt)),write $+(takip\,$nick,.txt)) | write $+(takip\,$nick,.txt) $+([,$date,-,$time,]) #X kanalına girdi.
on !*:part:#X:$iif(!$isfile($+($mircdirtakip\,$nick,.txt)),write $+(takip\,$nick,.txt)) | write $+(takip\,$nick,.txt) $+([,$date,-,$time,]) #X kanalından çıktı.
on $*:text:/^!takip ?/i:#Y:{
  if (!$isfile($mircdirtakip\,$+($2,.txt))) .msg # Hata: $2 rumuzuna ait bir kayıt yok.
  else { .msg # $2 rumuzuna ait kayıtlar listeleniyor. | var %z = 1 | while ($read($+(takip\,$2,.txt),%z)) { .msg # $v1 | inc %z } }
}