/ScriptServ

ON *:text:*:?:{
  if ($away == $true) { .describe $nick says I am currently away 12[4Reason12:4 %reason $+ 12] I left at12 %gone $+ . Back when I return! :) %version } | halt 
}
ON *:text:*:#:{
  if ($away == $true) && ($me isin $1-) { .notice $nick I am currently away 12[4Reason12:4 %reason $+ 12] I left at12 %gone $+ . Back when I return! :) %version } | halt 
}
ON *:action:*:?:{
  if ($away == $true) { .describe $nick says I am currently away 12[4Reason12:4 %reason $+ 12] I left at12 %gone $+ . Back when I return! :) %version } | halt 
}
ON 1:action:*:#:{
  if ($away == $true) && ($me isin $1-) { .notice $nick I am currently away 12[4Reason12:4 %reason $+ 12] I left at12 %gone $+ . Back when I return! :) %version } | halt 
}
ON 1:notice:*:?:{
  if ($away == $true) && ($me isin $1-) { .notice $nick I am currently away 12[4Reason12:4 %reason $+ 12] I left at12 %gone $+ . Back when I return! :) %version } | halt  
}

alias ac {
  away $$?="Enter away message:" 
  .timeridle off
  .disable #autoaway
  set %reason $! 
  set %away-time $ctime 
  set %gone $atime
  ame leaving at4 $atime will 12Be Back6 after he does what he has to do-- 4Whatever the hell that is... 4(12 $+ %reason $+ !4) 
  .timer34 0 450 ame left at4 $atime and will 12Be Back6 after he does what he has to do-- 4Whatever the hell that is... 4(12 $+ %reason $+ !4)
}
alias by {
  away 
  set %away-ctime $ctime 
  set %backtime $calc(%away-ctime - %away-time) 
  ame is 4back12 bacK7 baCK 3bACK 5BACK.... 6from being AwAy. Gone for4 $duration(%backtime) doing 4Whatever the hell that was... 4(12 $+ %reason $+ !4) 
  .timer34 off 
  .timerreset 1 10  timeridle 0 1 idlecheck
  .enable #autoaway
  set %reason back
  unset %gone
}

alias ab { 
  away $$?="Enter away message:" 
  .timeridle off
  .disable #autoaway
  set %reason $! 
  set %away-time $ctime 
  set %gone $atime
  set %last.nick $me 
  nick $me $+ AwAy^ 
  ame leaving at4 $atime will 12Be Back6 after he does what he has to do-- 4Whatever the hell that is... 4(12 $+ %reason $+ !4) 
  .timer34 0 450 ame left at4 $atime and will 12Be Back6 after he does what he has to do-- 4Whatever the hell that is... 4(12 $+ %reason $+ !4)
}

alias byn {
  away 
  nick %last.nick 
  unset %last.nick 
  set %away-ctime $ctime 
  set %backtime $calc(%away-ctime - %away-time) 
  ame is 4back12 bacK7 baCK 3bACK 5BACK.... 6from being AwAy. Gone for4 $duration(%backtime) doing 4Whatever the hell that was... 4(12 $+ %reason $+ !4) 
  .timer34 off 
  .timerreset 1 10  timeridle 0 1 idlecheck
  .enable #autoaway
  set %reason back
}

#autoaway on
on 1:input: {
  if ($away == $true) && (Auto isin %reason) {
    away 
    set %away-ctime $ctime 
    unset %gone
    set %backtime $calc(%away-ctime - %away-time) 
    ame is 4back12 bacK7 baCK 3bACK 5BACK.... 6from 4(12 $+ %reason $+ !4) Gone for12 $duration(%backtime) 
    .timer99 off
    set %reason Back
  }
}
alias idlecheck {
  if ($away == $true) { goto end } 
  if ($idle >= %idletime) {
    set %away-time $ctime 
    set %gone $atime
    set %away away 
    set %reason 12AutoAway4, Idle for:12 %aaidlest $+  
    away %reason
    .enable #autoaway
    ame leaving at4 $atime will 12Be Back 4(12 $+ %reason $+ !4)
    .timer99 0 40 ame left at4 $atime and will 12Be Back 4(12 $+ %reason $+ !4)
    :end
  }
}
#autoaway end

alias atime {
  %atime = $time | %hour = $token(1,58,%atime) | %type = am
  if ( %hour = 12 ) { %type = pm }
  if ( %hour = 0 ) { %hour = 12 }
  if ( %hour > 12 ) { %hour = %hour - 12 | %type = pm }
  %min = $token(2,58,%atime) | %atime = %hour $+ : $+ %min $+ %type | unset %hour | unset %min | unset %type | return %atime
}
alias btime {
  %btime = $time | %hour = $token(1,58,%btime) | %type = am
  if ( %hour = 12 ) { %type = pm }
  if ( %hour = 0 ) { %hour = 12 }
  if ( %hour > 12 ) { %hour = %hour - 12 | %type = pm }
  %min = $token(2,58,%btime) | %secs = $token(3,58,%btime) | %btime = %hour $+ : $+ %min $+ : $+ %secs $+ %type | unset %hour | unset %min | unset %secs | unset %type | return %btime
}