on *:TEXT:*craig*:#: { 
  if (%away != on) { | halt }
  if $read(messagednicks.txt, w, $nick) { | halt }
  else {
    write messagednicks.txt $nick
    notice $nick 14I am currently set to "Away". Left at: %awaytime for %awayreason $+ .
    Window @Messages
    echo @Messages ( $+ $time $+ )< $$+ $nick $$+ > $1- 
  }
}

on 10:TEXT:!away *:#: {
  if (%away == on) { notice $nick 14You are already set to away. 
    halt
  }
  set %away on
  set %awayreason $2-
  set %awaytime $time
notice $nick 14You are now set to away.  }

on 10:TEXT:!back:#: {
  if (%away == off) { notice $nick 14You are already set to back. 
    halt
  }
  set %away off
  write -c messagednicks.txt
  unset %awayreason
  unset %awaytime
notice $nick 14You are now set to back.  }