Untitled

#logging on
on *:TEXT:*:*:{
  if (($chan == #mirc) || ($chan == #mk)) { halt }
  if (!$chan) {
    if (!$file($qt($+($mircdir,logs\,$nick,.txt)))) { 
      write $qt($+($mircdir,logs\,$nick,.txt)) $asctime($gmt)
      write $qt($+($mircdir,logs\,$nick,.txt)) START OF LOG FOR $upper($NICK)
      write $qt($+($mircdir,logs\,$nick,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-) 
    }
    else {
      write $qt($+($mircdir,logs\,$nick,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-) 
    }
  }
  else { 
    if (!$file($qt($+($mircdir,logs\,$chan,.txt)))) { 
      write $qt($+($mircdir,logs\,$chan,.txt)) $asctime($gmt)
      write $qt($+($mircdir,logs\,$chan,.txt)) START OF LOG FOR $upper($CHAN)
      write $qt($+($mircdir,logs\,$chan,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-) 
    }
    else {
      write $qt($+($mircdir,logs\,$chan,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-)
    }
  }
}
on *:PART:*:{
  if (($chan == #mirc) || ($chan == #mk)) { halt }
  if (!$file($qt($+($mircdir,logs\,$chan,.txt)))) { 
    write $qt($+($mircdir,logs\,$chan,.txt)) $asctime($gmt)
    write $qt($+($mircdir,logs\,$chan,.txt)) START OF LOG FOR $upper($CHAN)
    write $qt($+($mircdir,logs\,$chan,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-) 
  }
  else {
    write $qt($+($mircdir,logs\,$chan,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-)
  }
}
on *:JOIN:*:{
  if (($chan == #mirc) || ($chan == #mk)) { halt }
  if (!$file($qt($+($mircdir,logs\,$chan,.txt)))) { 
    write $qt($+($mircdir,logs\,$chan,.txt)) $asctime($gmt)
    write $qt($+($mircdir,logs\,$chan,.txt)) START OF LOG FOR $upper($CHAN)
    write $qt($+($mircdir,logs\,$chan,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-) 
  }
  else {
    write $qt($+($mircdir,logs\,$chan,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-)
  }
}
on *:KICK:*:{
  if (($chan == #mirc) || ($chan == #mk)) { halt }
  if (!$file($qt($+($mircdir,logs\,$chan,.txt)))) { 
    write $qt($+($mircdir,logs\,$chan,.txt)) $asctime($gmt)
    write $qt($+($mircdir,logs\,$chan,.txt)) START OF LOG FOR $upper($CHAN)
    write $qt($+($mircdir,logs\,$chan,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-) 
  }
  else {
    write $qt($+($mircdir,logs\,$chan,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-)
  }
}
on *:QUIT:*:{
  if (($chan == #mirc) || ($chan == #mk)) { halt }
  if (!$chan) {
    if (!$file($qt($+($mircdir,logs\,$nick,.txt)))) { 
      write $qt($+($mircdir,logs\,$nick,.txt)) $asctime($gmt)
      write $qt($+($mircdir,logs\,$nick,.txt)) START OF LOG FOR $upper($NICK)
      write $qt($+($mircdir,logs\,$nick,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-) 
    }
    else {
      write $qt($+($mircdir,logs\,$nick,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-) 
    }
  }
  else { 
    if (!$file($qt($+($mircdir,logs\,$chan,.txt)))) { 
      write $qt($+($mircdir,logs\,$chan,.txt)) $asctime($gmt)
      write $qt($+($mircdir,logs\,$chan,.txt)) START OF LOG FOR $upper($CHAN)
      write $qt($+($mircdir,logs\,$chan,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-) 
    }
    else {
      write $qt($+($mircdir,logs\,$chan,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$nick,>) $strip($1-)
    }
  }
}

on *:INPUT:*:{
  if (($chan == #mirc) || ($chan == #mk)) { halt }
  if ($left($1,1) == /) { $iif($left($1,2) == //,$($1-,2),$1-) | halt }
  elseif (!$chan) {
    if (!$file($qt($+($mircdir,logs\,$nick,.txt)))) { 
      write $qt($+($mircdir,logs\,$nick,.txt)) $asctime($gmt)
      write $qt($+($mircdir,logs\,$nick,.txt)) START OF LOG FOR $upper($NICK)
      write $qt($+($mircdir,logs\,$nick,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$me,>) $strip($1-) 
    }
    else {
      write $qt($+($mircdir,logs\,$nick,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$me,>) $strip($1-) 
    }
  }
  else { 
    if (!$file($qt($+($mircdir,logs\,$chan,.txt)))) { 
      write $qt($+($mircdir,logs\,$chan,.txt)) $asctime($gmt)
      write $qt($+($mircdir,logs\,$chan,.txt)) START OF LOG FOR $upper($CHAN)
      write $qt($+($mircdir,logs\,$chan,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$me,>) $strip($1-) 
    }
    else {
      write $qt($+($mircdir,logs\,$chan,.txt)) $+([,$asctime($gmt(mmm dd hh:nn:ss))) GMT] $+(<,$me,>) $strip($1-)
    }
  }
}
#logging end