alias gone {
  set %time $asctime
  set %nick $me
  set %why  $1-
  set %FirstNick $nick
  nick """"""
  amsg  15I am now away:[4¤  7 %why  4¤ 15]  [4¤ 15I Left At:7 $time 4¤]
  away  15I am now away:[4¤  7 %why  4¤ 15]  [4¤ 15I Left At:7 $time 4¤]



}
Alias Back {
  amsg 15I am now back from [4¤7 %why 4¤15] [4¤7 %time 15][I have been gone For:7 $duration($awaytime) 4¤]
  nick %nick
  away
}
on $*:TEXT:/(\Q $+ %FirstNick $+ \E|dredd|^_^|[-]/Si:*:{ If ($me == Dredd|away) { /notice $nick I am currently away | /notice $nick [« Reason: %why »] [« Left at: %time »]

    Aline @window $asctime -  [13«14 $nick 13»] -6  $1- 
Else { HALT }   } }