Code:
lias logo { return Away System by GrimZ }
alias xduration { return $remove($replace($duration($1),secs,s,mins,m,hrs,h,days,d,wks,w,wk,w,min,m,sec,s,hr,h,day,d),$chr(32))) }
alias awaylog { var %ctr = 1 | while (%ctr <= $lines($mircdirAway.txt)) { echo -a $chr(35) $+ %ctr &raquo; $read -l $+ %ctr $mircdirAway.txt | inc %ctr } | write -c $mircdirAway.txt }
alias away.status { 
  if ($dialog(away) == $null) { .timerawaysystem off | return }
  else { did -ra away 10 $iif($away,away ... ( $+ [ $xduration($calc($ctime - %Away.Left)) ] $+ ) ,currently not set away!) }
}
on *:LOAD: {
  echo -a &#1512; Away System by GrimZ Loaded..!
  echo -a &#1512; Popups to work it on menubar and channel.
}

menu menubar,channel {
  Away System
  .$iif($away,Set Back):back
  .$iif(!$away,Set Away):dialog -m away away
}

dialog away {
  size -1 -1 210 130
  title "Away System by GrimZ"
  button "&Away",1, 5 100 60 25, default
  button "&Back",2, 72 100 60 25, disable
  button "&Exit",3, 140 100 60 25, cancel
  text "Reason&:",4, 5 15 40 20
  edit "buzy!",5, 50 10 150 20, autohs
  text "Log Msgs?",6, 5 40 55 20
  radio "Yes",7, 110 35 40 20, group
  radio "No",8, 165 35 35 20
  box "Status",9, 5 60 195 35
  text "currently not set away!",10, 18 73 160 15, center
}
on 1:dialog:away:init:*: { did -c $dname 8 }
on 1:dialog:away:sclick:*: {
  if ($did == 1) { 
    set %Away.Reason $did(5) | set %Away.Log $iif($did(7).state == 1,$true,$false) | set %Away.Left $ctime 
    ame is away, $did(5) @ $time(hh:nnt) [Log! $+ $iif(%Away.Log == $true,on,off) $+ ] (Away System by GrimZ) 
    away $did(5) | did -eb $dname 2,1 
    .timerawaysystem 0 1 away.status
  }
  if ($did == 2) {
    ame is back from %Away.Reason @ $time(hh:nnt) ... gone for $xduration($calc($ctime - %Away.Left)) (Away System by GrimZ) | .timerawaysystem off | away | did -ra $dname 10 currently not set away! | set %Away.Log $false
    if ($lines($mircdirAway.txt) != $null) && ($lines($mircdirAway.txt) != 0) { echo -a &#1512; Away System &raquo; You have $lines($mircdirAway.txt) Msg's logged, type /awaylog to read. }
  }
}
on *:TEXT:*:?: {
  if (%Away.Log == $true) { .msg $nick Im currently away, %Away.Reason ... Msg logged. $logo | write $mircdirAway.txt MSG from $nick @ $time(hh:nnt) .. $1- | .ignore -pu25 $mask($fulladdress,2) | close -m $nick }
}

ctcp *:VERSION:*: {
  .ctcpreply $nick ADDON $logo
}

Code:

menu menubar,channel { 
Away System 
[b].$iif($away,Set Back):back [/b]
.$iif(!$away,Set Away):dialog -m away away 
} 

Code:
Away System 
.$iif($away,Set Back,Set Away):dialog -m away away
}