Mine

Alias Away {
  If ($away == $true) {
    away
    ame is Back from: ( $+ %away.msg $+ ) Gone For: ( $+ $duration($awaytime) $+ )
  }
  Else {
    set %away.msg $$?"What is your away reason?"
    ame is Away. Reason: ( $+ %away.msg $+ )
    away %away.msg
  }
}

ON *:TEXT:*:?:{
  if ($away == $true) {
    /msg $nick I'm Away. Reason: ( $+ %away.msg $+ )
  }
}
ON *:TEXT:*Yick*:#:{
  if ($away == $true) {
    /msg $chan I'm Away. Reason: ( $+ %away.msg $+ )
  }
}