well pretty self explaining type /awy to changed to you away nick you dont have to set a reason just leave the box blank /bsy to go to your busy nick /back to change to ur normal nick it can always be used to used random nicks lol use it how u like :P

menu * {
  .Status:dialog -m nickz nickz
}
dialog nickz {
  title "Status"
  size -1 -1 150 120
  option pixels
  text "Normal nick" 1, 5 17 70 20
  edit "" 2, 75 15 70 20
  text "Away nick" 3, 5 42 70 20
  edit "" 4, 75 40 70 20
  text "Busy nick" 5, 5 67 70 20
  edit "" 6, 75 65 70 20
  button "Ok" 7, 75 90 70 20, ok close, disable
  button "Save" 8, 5 90 70 20
}
dialog rsnz {
  title "Away reasons"
  size -1 -1 300 150
  option pixels
  list 1, 0 50 300 100, hsbar vsbar
  edit "" 2, 5 20 220 20
  button "Ok" 3, 230 20 65 20
}
alias awy { nick %aw | dialog -m rsnz rsnz }
alias bsy { nick %bn }
alias back { nick %nn
}
on *:DIALOG:nickz:init:0:{
  did -a nickz 2 %nn
  did -a nickz 4 %aw
  did -a nickz 6 %bn
}
on *:DIALOG:rsnz:init:0:{
  var %ao = $numtok(%rsnz,44), %bv = 1
  while ( %bv <= %ao ) {
    did -a rsnz 1 $gettok(%rsnz,%bv,44)
  inc %bv }
}
on *:DIALOG:rsnz:sclick:*:{
  if ($did = 1) { did -ra rsnz 2 $did($dname,1).seltext }
  if ($did = 3) { away $did(2) | set %rsnz $addtok(%rsnz,$did(2),44) }
}    
on *:DIALOG:nickz:sclick:*:{
  if ($did = 8) && ( $did(2,4,6) ) { set %nn $did(2) | set %aw $did(4) | set %bn $did(6) | did -e nickz 7 }
}