Just a simple away system CharltonJ and I made!

on *:load: //echo -a $smb 4,1Thank You for Loading The CJG Away System Type /awaysys or right click in a channel and hit Away System to Run it 
dialog away {
  title "CJG Away System"
  size -1 -1 122 120
  option dbu
  radio "On", 5, 24 8 26 10, 
  radio "Off", 6, 72 8 26 10
  box "Away Logger", 7, 8 0 106 26
  text "Away Reason:", 1, 16 48 41 8, center
  text "Away Nick :", 2, 16 64 41 8, center
  edit %areason, 3, 56 48 50 10, autohs
  edit %anick, 4, 56 64 50 10, autohs
  box "Enter Your Reason And Nick", 8, 8 32 106 50
  button "Away", 10, 7 85 107 12, center
  button "Back", 11, 7 100 107 12, center
}

on *:dialog:away:edit:*: {
  if ($did == 3) { /set %areason $did(away,3) }
  if ($did == 4) { /set %anick $did(away,4) }
}

on *:dialog:away:sclick:*: {
  if ($did == 10) { /ame 4,1is now away! 0 %areason  0,1 4*CJG Away System* | /set %backnick $me | /nick %anick | set %mtime $ctime | .enable #away | window -aei @AwayLogs  }
  if ($did == 11) {    /ame 4,1is now back from away!0 %areason  4Duration: 0 $duration($calc($ctime - %mtime))   4*CJG Away System*  |  /nick %backnick | disable #away | /unset %anick | /unset %areason | /unset %mtime   }
}

on *:dialog:away:sclick:*: {
  if ($did == 5) { /set %log 1  }
  if ($did == 6) { /set %log 0 }
}

#away off
on *:text:*:?: { 
  if (%log == 1) { //echo @AwayLogs 4< $+ $nick $+ > $1- | /msg $nick I Am Not Away Your Messages Are Logged! | /close -m }
}
#away end

alias awaysys { 
  /dialog -m away away
}

menu channel  {
  -
  Away System: /awaysys
}