Well i was bored again... so i made an Away Script

dialog Away_System {
  title "Away System. Built By: Noa_Destiny"
  size -1 -1 184 129
  option dbu
  tab "Away", 3, 2 0 180 126
  edit "", 5, 7 25 170 10, tab 3
  text "Away Reason:", 6, 7 17 44 8, tab 3
  button "Away", 7, 60 93 60 14, tab 3
  edit "", 8, 7 46 170 10, tab 3
  text "Away Nick:", 9, 7 38 44 8, tab 3
  text "Estimated Return:", 10, 7 61 46 8, tab 3
  edit "", 21, 7 68 170 10, tab 3
  tab "Back", 4
  text "Back Nick", 14, 7 17 44 8, tab 4
  button "Back", 18, 60 93 60 14, tab 4
  edit "", 11, 7 25 170 10, tab 4
  text "Back Nick's Password (To IDENTFY to NickServ) [Optional]", 15, 7 38 169 8, tab 4
  edit "", 12, 7 46 170 10, tab 4
}

on *:DIALOG:Away_System:sclick:7: {
  set %reason $did(Away_System,5,1).text
  set %eta $did(Away_System,21,1).text
  if ( $did(Away_System,21,1).text == $null ) { set %eta Not Specified }
  else { }
  set %anick $did(Away_System,8,1).text
  set %start $ctime
  ame is away [ %reason ] Estimated Return [ %eta ]
  nick %anick
  away %reason
}

on *:DIALOG:Away_System:sclick:18: {
  set %bnick $did(Away_System,11,1).text
  nick %bnick
  if ( $did(Away_System,12,1).text != $null ) {
    set %password $did(Away_System,15,1).text
    msg NickServ IDENTIFY %password
  }
  else { }
  set %end $ctime
  ame is back from [ %reason ] I was gone for [  $+ $duration($calc(%end - %start)) $+ ]
  away
}