Edited: this is a totally different Away System to the Other one i made

just put in a message a colour and click away :P

dialog Away {
  title "^_PoiXons Away System"
  size -1 -1 175 100
  option dbu
  text "Away Message:" 1, 5 6 50 10
  edit "" 2, 45 5 120 10, 
  button "Away" 4, 5 18 80 15
  button "Return" 5, 85 18 80 15
  text "Pick The Colour:" 6, 5 35 50 15
  radio "dark red" ,7, 8 45 50 15
  radio "rainbow" ,8, 8 59 50 15
  radio "light blues" ,9, 8 73 50 15
  radio "Glowing Stars" ,10, 60 45 50 15
  radio "green" ,11, 60 59 50 15
  radio "Grey" ,12, 60 73 50 15
  radio "Orange" ,13, 112 45 50 15
  radio "Grey Designs" ,14, 112 59 50 15
  radio "Pink Design" ,15, 112 73 50 15
}
on *:dialog:Away:sclick:4: {
  if (%away == on) { echo -a You Are Already Away!! | halt }
  if ($did(2) == $null) { echo -a Please Enter An Away Message!! | halt }
  if (%away != on) { set %away on }
  if ($did(away,7).state == 1) { set %colour red }
  if ($did(away,8).state == 1) { set %colour rainbow }
  if ($did(away,9).state == 1) { set %colour lblue }
  if ($did(away,10).state == 1) { set %colour gs }
  if ($did(away,11).state == 1) { set %colour green }
  if ($did(away,12).state == 1) { set %colour grey }
  if ($did(away,13).state == 1) { set %colour orange }
  if ($did(away,14).state == 1) { set %colour gd }
  if ($did(away,15).state == 1) { set %colour pd }
  set %away on
  set %msg $did(2)
  if (%colour == red) { set %c on | amsg 4,1(5)1,5(4)7**14 $me Is Now Away Reason:4 %msg 2, 14Type 4!status14 to see how Long $me Has Been Away For7 **4,1(5)1,5(4) | away %msg | halt }
  if (%colour == rainbow) { set %c2 on | amsg 4,1`12`8`9`7`13`11 ...9 $me is Now Away Reason:7 %msg 2,9Type 4!status9 to see how Long $me Has Been Away For11 ... 4`12`8`9`7`13` | away %msg | halt }
  if (%colour == lblue) { set %c3 on | amsg 11,10-10,11-11,10-10,11-11,10-10,11-12,0 *.*.* $me Is Now Away Reason %msg $+ : Type !status to see how long $me Has Been Away For *.*.*11,10-10,11-11,10-10,11-11,10-10,11- | away %msg | halt }
  if (%colour == gs) { set %c4 on | amsg 8,1******* 7 $me 8 $+ is now Away Reason7 %msg $+ 8:Type 7!status8 to see how long ive been away!! ******* | away %msg | halt }
  if (%colour == green) { set %c5 on | amsg 9,3()3,9()9,3()9,1''' 9 $me is now Away Reason %msg $+ :3 Type !status to see how long $me has been Away !! 9,3()3,9()9,3() | away %msg | halt }
  if (%colour == grey) { set %c6 on | amsg 14,1()15()14()15 $me is away reason %msg $+ : type 14!status15 to see how long $me has been away! 14,1()15()14() | away %msg | halt }
  if (%colour == orange) { set %c7 on | amsg 7,8()8,7()7,8()4,1 $me is Away Reason %msg $+ : type !status to see how long $me has been away !! 7,8()8,7()7,8() | away %msg | halt }
  if (%colour == gd) { set %c8 on | amsg 14,1_15^14-15_14^^15-14_^15 $me is Now Away Reason %msg $+ : type !status to see how long $me has been Away for!14 ^_15-14^^15_14-15^14_ | away %msg | halt }
  if (%colour == pd) { set %c9 on | amsg 13,6()6,13()13,6()4 $me Is Now Away Reason %msg $+ : type !status to see how long $me has been away for! 13,6()6,13()13,6() | away %msg | halt }
}
on *:dialog:Away:sclick:5: {
  if (%away == on) {
    away
    unset %away
    if (%c == on) && (%colour == red) { amsg 4,1(5)1,5(4)7**14 $me is Back From %msg $+ : $me has been away for $duration($awaytime)) !7 **4,1(5)1,5(4) | unset %msg | unset %c }
    if (%c2 == on) && (%colour == rainbow) { amsg 4,1`12`8`9`7`13`11 ...9 $me is Back From %msg $+ : $me has been away for $duration($awaytime)) !11 ... 4`12`8`9`7`13` | unset %msg | unset %c2 }
    if (%c3 == on) && (%colour == lblue) { amsg 11,10-10,11-11,10-10,11-11,10-10,11-12,0 *.*.* $me is Back From %msg $+ : $me has been away for $duration($awaytime)) ! *.*.*11,10-10,11-11,10-10,11-11,10-10,11- | unset %msg | unset %c3 }
    if (%c4 == on) && (%colour == gs) { amsg 8,1******* 7 $me 8 is Back From 9.^.4 %msg 9.^.8  $me has been away for 7 $duration($awaytime)) ! 8******* | unset %msg | unset %c4 }
    if (%c5 == on) && (%colour == green) { amsg 9,3()3,9()9,3()9,1''' 9 $me is Back From %msg $+ : $me has been away for $duration($awaytime)) ! 9,3()3,9()9,3() | unset %msg | unset %c5 }
    if (%c6 == on) && (%colour == grey) { amsg 14,1()15()14()15 $me is Back From %msg $+ : $me has been away for $duration($awaytime)) ! 14,1()15()14() | unset %msg | unset %c6 }
    if (%c7 == on) && (%colour == orange) { amsg 7,8()8,7()7,8()4,1 $me is Back From %msg $+ : $me has been away for $duration($awaytime)) ! 7,8()8,7()7,8() | unset %msg | unset %c7 }
    if (%c8 == on) && (%colour == gd) { amsg 14,1_15^14-15_14^^15-14_^15 $me is Back From %msg $+ : $me has been away for $duration($awaytime)) !14 ^_15-14^^15_14-15^14_ | unset %msg | unset %c8 }
    if (%c9 == on) && (%colour == pd) { amsg 13,6()6,13()13,6()4 $me is Back From %msg $+ : $me has been away for $duration($awaytime)) ! 13,6()6,13()13,6() | unset %msg | unset %c9 }
  }
}
on *:text:!status:#: {
  if (%away == on) {
    msg $nick 4 $+ $me Is Away Reason3:2 %msg
    msg $nick 4 $+ $me Has Been Away For $duration($awaytime))
  }
}
on *:text:*:?: {
  if (%away == on) {
    msg $nick 4Sorry, $me is Away! Reason:2 %msg
    msg $nick 4 $me Has Been Away For:2 $duration($awaytime))
  }
}
menu nicklist {
  Away System! { dialog -m away away }
}