Mine

menu * { 
  Away dialog:/dialog -m away away 
} 
dialog away { 
  title "Away Script by Lordier" 
  size -1 -1  270 310 
  text "Away message:", 2, 10 5 250 250 
  edit "", 3, 10 20 250 50 
  text "Away nick:", 4, 10 70 250 250 
  edit "", 5, 10 90 250 25 
  button "Set away", 6, 10 125 250 25 
  text "Back nick:", 7, 10 160 250 250 
  edit "", 8, 10 180 250 25 
  button "Set back", 9, 10 215 250 25 
  text "Away dialog made by Lordier.", 10, 10 290 250 250 
  button "Close", 11, 10 255 250 25, cancel 
} 
on *:dialog:Away:sclick:6: { 
 set %away.able on 
  /set %away.name $did($dname,5) 
  /set %away.msg $did($dname,3) 
  set %away.myname $me 
  set %away.time $time 
  set %away.ctime $ctime 
  scon -a /nick %away.name 
  scon -a /away %away.msg 
  scon -a ame • is now away • %away.msg • left at • %away.time • 
} 
on *:dialog:Away:sclick:9: { 
 set %away.able off 
  set %back.name $did($dname,8) 
  scon -a /nick %back.name 
  scon -a /away 
  scon -a /ame • is now back from • %away.msg • time gone • $duration($calc($ctime - %away.ctime)) • 
  /unset %away.* 
  /unset %back.* 
}
on *:text:*:*:{ 
  if (%away.able == on) { 
    if ($me isin $1-) { 
      /notice $nick $me is away • %away.msg • gone for • $duration($calc($ctime - %away.ctime)) • 
    } 
  } 
}