Something

dialog Away  {
  title "Away dialog -Texas creations-"
  size -1 -1 100 42
  option dbu
  box "reason:", 1, 20 0 75 20
  box "away nick:", 2, 20 20 75 20
  button  "go", 3, 2 3 15 10
  button  "back", 4, 2 15 15 10
  button  "exit", 5, 2 27 15 10,cancel
  edit "", 6, 22 8 67 10,autohs
  edit "", 7, 22 28 67 10,autohs
}
on *:dialog:away:sclick:3: {
  set %away2 on
  set %away.date $fulldate
  set %away.time $ctime
  set %away.niko.2 $me
  set %away.tijd $time
  set %away.niko $did(6).text
  set %nick.niko $did(7).text

  if (%away.niko == $null) { 
    /amsg 1(7»4Away7«1) 4Reason: 1no reason given 4left at: %away.tijd
    away %away.niko
  }
  else { 
    /amsg 1(7»4Away7«1) 12- $+ %away.niko $+ - 1Left at: %away.tijd
    nick %nick.niko
    away %away.niko
  }
}
on *:dialog:away:init:0:{ 
  did -a away 6 %away.niko
  did -a away 7 %nick.niko
}
on *:dialog:away:sclick:4: {
  nick %away.niko.2
  /amsg 1(7»4Back7«1) From: 12 - $+ %away.niko $+ -  1Time gone: $duration($calc($ctime - %away.time)) 4Left at: %away.tijd
  away
  unset %away* %nick*
}
On *:text:$($+(*,$me,*)):#: { if (%away2) { notice $nick Away:  %away.niko I've been away for $duration($calc($ctime - %away.time)) } }
menu channel,query {
  Away Dialog- Made by Texas:/dialog -m away away
}