Someone

on *:LOAD:{
  echo -a 14£ifted Šcript Ãway §ystem 9(14PhyrexianIRC9) 3Loaded1.
}
on *:UNLOAD:{
  echo -a 15£ifted Šcript Ãway §ystem 9(14PhyrexianIRC9) 3Unloaded1.
}
dialog LS {
  title "Away System"
  size -1 -1 80 52
  option dbu

  box "Reason:", 1, 20 0 50 20
  box "Away Nick:", 2, 20 20 50 20
  button  "Away", 3, 2 3 18 10
  button  "Back", 4, 2 15 18 10
  button  "Exit", 5, 2 27 18 10,cancel
  edit "", 6, 22 8 45 10,autohs
  edit "", 7, 22 28 45 10,autohs
}
on *:dialog:LS:sclick:3: {
  set %away.time $time
  set %back.nick $me
  set %away.reason $did(6).text
  set %away.nick $did(7).text

  if (%away.niko == $null) {
    nick %away.nick
    set %away.time $time
    amsg 2[Away Sys] 12Status: 4AWAY 12Reason:1 %away.reason at $asctime(h:nn:ss TT) $+ .
    away ~ Away ~ [ %away.reason ] - [ At: $asctime(h:nn:ss TT) ] 
  }
  else { 
    nick %away.nick
    set %away.time $time
    amsg 2[Away Sys] 12Status: 4AWAY 12Reason:1 %away.reason at $asctime(h:nn:ss TT) $+ .
    away ~ Away ~ [ %away.reason ] - [ At: $asctime(h:nn:ss TT) ] 
  }
}
on *:dialog:LS:init:0:{ 
  did -a away 6 %away.reason
  did -a away 7 %back.nick
}
on *:dialog:LS:sclick:4: {
  nick %back.nick
  amsg 2[Away Sys] 12Status: 4BACK Left at %away.time $+ , Gone for: $duration($awaytime) $+. 
  away %away.reason
  unset %away.reason
  unset %away.time
  away
}
menu status,menubar,channel {
  £ifted Šcript Ãway §ystem:/dialog -m LS LS