on *:join:#:{ 
  .set %hea * $+ $gettok($address($nick,0),2,64)) $+ *
  if $read(klon.txt,w,%hea) {
    .set %nik $gettok($read(klon.txt,w,%hea),1,11)
  if %nik !== $nick {
    .set %nicksaat $duration($gettok($read(klon.txt,w,%hea),3,11))
    .set %benimsaat $duration($time)
    echo -a $nick Nicki %nik Rumuzu ile  $replace($duration($calc(%benimsaat - %nicksaat)),mins,Dk,secs,Sn,min,Dk,sec,Sn)) Önce Girmişti..
    .halt
  }
  else {
    write klon.txt $nick $+ $chr(11) $+ $gettok($address($nick,0),2,64) $+ $chr(11) $+ $time 
  }
}
}
alias temizle {
.unset %hea
.unset %nik
.unset %nicksaat
.unset %benimsaat
.remove klon.txt
}