Hi, here's a simple away dialog by me, really easy, I made it in 10 minutes...
it runs x)

Hermes

[Edit 1] Automatic answer when someone say your name while you're away.
[Edit 2] Stores messages in a window if your name is in, and stores notices in another window.
[Edit 3] You can now set an away nick.

dialog awbyH {
  title "Simple away dialog by Hermes"
  size -1 -1 137 74
  option dbu
  button "Set away!", 1, 4 43 63 10
  edit "", 2, 4 13 129 10
  text "Enter your away message here", 3, 4 5 78 8
  text "Enter your away nick here", 4, 4 23 129 8
  button "Unset away!", 5, 68 43 66 10
  button "I've finish !", 6, 43 57 50 10, ok
  edit "", 7, 4 31 129 10
}

menu channel {
  away by Hermes : dialog -m awbyH awbyH
}
on *:dialog:awbyH:*:*:{
  if ($devent == init) { 
    did -a awbyH 2 %awayreason
    did -a awbyH 7 %awaynick
  }
  if ($devent == edit) {
    if ($did == 2) { set %awayreason $did(2) }
    if ($did == 7) { set %awaynick $did(7) }
  }
  if ($devent == sclick) {
    if (($did == 1) && (!$away) && ($len(did(2)) > 3)) { set %nick $me | nick %awaynick | amsg 4I'm away for the reason: %awayreason | away did(2) }
    if (($did == 5) && ($away)) { nick %nick | unset %nick | amsg 4I'm back. I was away for the reason %awayreason 4during $duration($awaytime) | unset %awayreason | away }
  }
}

on *:text:*:*:{
  if (($me isin $strip($1-)) && ($away)) { 
    msg $chan 1I'm curently away for the reason: %awayreason $+ . I'll be back later.  
    window @AwayHighlight 
    aline @AwayHighlight 0,4 Highlight 4,0 $time $chan $nick :1 $1-
  }
}

on *:notice:*:*: {
  if ($away) {
    window @AwayNotice
    aline @AwayNotice 0,4 Notice 4,0 $time $chan $nick :1 $1-
  }
}