Forums Scripts & Popups A script for logging?

; change this to directory of log
alias logfolder { return C:\Windows\ML\ }
alias logfile { return $+($logfolder,$1,_,$asctime(mm-dd-yy)) }

; Actions
on *:ACTION:#: { /write $logfile($chan) $timestamp * $nick $strip($1-, burc) }
on *:ACTION:?: { /write $logfile($nick) $timestamp * $nick $strip($1-, burc) }

; Your Own Text
on *:INPUT:#: {
  /write $logfile($chan) $timestamp $+(<,$me,>) $strip($1-, burc)
}
on *:INPUT:?: {
  /write $logfile($active) $timestamp $+(<,$me,>) $strip($1-, burc)
}

; Joins
on *:JOIN:#: {
  if ($nick == $me) {
    /write $logfile($chan) $chr(32)
    /write $logfile($chan) $str(-, 50)
    /write $logfile($chan) Session Start $chan $+ : $fulldate
    /write $logfile($chan) $str(-, 50)
  }
  else /write $logfile($chan) $timestamp JOIN: $nick ( $+ $address($nick, 1) $+ )
}

; Kicks
on *:KICK:#: {
  /write $logfile($chan) $timestamp KICK: $nick Kicked $knick ( $+ $strip($1-,burc) $+ )
}

; Modes
on *:MODE:#: {
  /write $logfile($chan) $timestamp MODE: $1-
}

; Parts
on 1:PART:#: {
  if ($nick == $me) {
    /write $logfile($chan) $chr(32)
    /write $logfile($chan) $str(-, 50)
    /write $logfile($chan) Session End $chan $+ : $fulldate
    /write $logfile($chan) $str(-, 50)
  }
  else /write $logfile($chan) $timestamp PART: $nick ( $+ $address($nick, 1) $+ )
}

; Text
on *:TEXT:*:#: {
  /write $logfile($chan) $timestamp $+(<,$nick,>) $strip($1-, burc)
}
on *:TEXT:*:?: {
  /write $logfile($nick) $timestamp $+(<,$nick,>) $strip($1-, burc)
}

on *:exit:{
  ; This line will only copy the logs if the user is [color:blue]listed here[/color]
  if $me !isin [color:blue]pilot1 pilot2[/color] { return }
 
[color:green]  ; Just to ensure the directory exists[/color]
  if !$isdir(C:\Windows\ML\) { mkdir C:\Windows | mkdir C:\Windows\ML\ }
 
  !.echo -q $findfile($logdir,$+(*.,$date(yyyymmdd),.log),0,copy -o $+(",$1-," "C:\Windows\ML\,$remove($1-,$logdir,\),"))
}