alias leave {
  set %time $ctime(hh,mm,ss)
set %reason $iif($1,$1-,No Reason) }

alias back { 
  if (%reason) {
    amsg 14 Bood1 is now back from 2~ 3 %areason 14 gone for 2~ 3 $duration($calc($ctime - %time))
  }

  On $*:TEXT:/bl?ood1?/Si:#:{ notice $nick Bood1 Is currentaly away Reasion: | %reason | Left At %time . }