Something

away {
  if ( %whereami == away ) { $null }
  else { set %whereami away
    set %awayreason $1-
    set %awaytime 0
    nick Meka`gone
    ame is away ( %awayreason )
    timer1 0 1 /inc -N %awaytime 1
  }
}
back {
  if ( %whereami == present ) { $null }
  else { set %whereami present
    nick Mekasa
    ame has returned from %awayreason (Has been away for $duration( %awaytime ) )
  }
}
on *:TEXT:*:?:{
  if ( %whereami == away ) {
    if ( %spamcheck == 0 ) {
      msg $nick %awaynotice
      timer 7 1 /dec -N %spamcheck 1
      timer 1 8 /inc -N %spamcheck 7
    }
    else { $null }
  }
  else { $null }
}