Well I was bored and made this away system 1 day and decided to post it today...all u have to do is load into remote and rightclick on channel prv or in the menubar...just use the Konfigure part 1st...its easy...

;coder - SL
on *:open:?: {
  if (%away == on) {
    msg $nick 10<==SL Chat==> 7Sorry $nick I am not at my PC at the moment, I am away for4 %awayreason
  }
  if (%away == off) { halt }
}
on *:start: {
  set %SLCStart $read($mircdirSLC Start.txt)
  if (%skin == SLC) { echo -a  $+ $asctime(H:nn) $+ 11| $+ %SLCStart }
  if (%skin == Default) { echo -a  $+ $asctime(H:nn) $+ 4| $+ %SLCStart }
  if (%skin == LP) { echo -a  $+ $asctime(H:nn) $+ 10| $+ %SLCStart }
  if (%1st == $null) {
    set %dnick $?="Enter You're Nick you would like to use mostly"
    set %pass $?*="Enter you're nicknames password if you have 1"
    nick %dnick
    set %awaynick $me $+ {aWeH}
    set %awayreason $me is out for some partying
    set %1st no
  }
  else { halt }
}
menu query,menubar,status,channel {
  SLC-AwaySystem
  .Konfigure:/aweh
  .on:/set %away on | /set %awayreason $?="Enter reason for being away" | /away %awayreason | /set %nnick $me | /nick $?="Enter you're away nick" | /amsg 10<==SL Chat==>6 Away System : 3activated : 7reason : %awayreason | /set %awaytime $time on this date $date
  .off:/set %away off | /away | /nick %nnick | /amsg 10<==SL Chat==>6 Away System : 3deactivated : 7back from : %awayreason :12 away since %awaytime | /unset %nnick | /unset %awayreason | /unset %awaytime
}

alias aweh dialog -m away aweh
dialog aweh {
  title "<==SL Chat==> Away system"
  size -1 -1 110 100
  option dbu
  edit [ %awaynick ], 1, 5 15 50 10, autohs
  text "Enter You're away nickname", 2, 5 5 70 10
  text "Enter you're reason for being away", 3, 5 25 70 20
  button  "Set Away", 4, 55 34 25 20, ok tab 1
  button "Cancell", 5, 80 7 25 24, cancell tab 1
  button "Set Back", 8, 80 34 25 20, ok tab 1
  edit [ %awayreason ], 6, 5 55 100 10, autohs
}
on 1:dialog:away:sclick:4: set %awaynick $did($dname, 1).text |  set %awayreason $did($dname, 6).text | /set %away on | /away %awayreason | /set %nnick $me | /nick %awaynick | /amsg 10<==SL Chat==>6 Away System : 3activated : 7reason : %awayreason | /set %awaytime $time on this date $date |     set %leavingdate $ctime($time(mmmm d yyyy HH:nn:ss))
on 1:dialog:away:sclick:8: set %away off | /away | /nick %nnick | /amsg 10<==SL Chat==>6 Away System : 3deactivated : 7back from : %awayreason :12 away since %awaytime | /unset %nnick | /unset %awaytime | %returndate = $ctime($time(mmmm d yyyy HH:nn:ss)) | %sl.at = $calc(%returndate - %leavingdate) | amsg 3,0 $me was away for $duration(%sl.at) | unset %returndate | unset %sl.at | unset %leavingdate