Away script

on *:INPUT:*:{ if ($1 == /out) { /gone } }

alias gone { set %away 1
  set %fnick $me
  set %snick $1
  set %asctime $asctime
  $iif($2,set %reason $2-,set %reason unknown)
  set %ctime $ctime
  set %away 1
  amsg [• 4I 14am 4now 14away. 4Reason: 14 $+ %reason $+  •] [• 4Left 14at 04 $+ %asctime $+  •] [• 4/notice 14log 4is $iif(%nlog == on,9on,4off) $chr(124) 14!log 4message 14is $iif(%mlog == on,9on,4off) •]
  nick %snick
}

alias back { amsg [• 4I 14am 4now 14back 4from: 14 $+ %reason $+  •] [• 4Gone 14for 04 $+ $duration($calc($ctime - %ctime)) $+  •]
  nick %fnick
  echo -ate Your messages: $replace(%log,^,$lf)
  unset %reason %ctime %snick %fnick %away %told %log %loghosts %away
}

alias onetime { 
  if ($1 == on) { set %onetime on | echo -ate Onetime on. }
  elseif ($1 == off) { set %onetime off | echo -ate Onetime off. }
  else { echo -ate Unknown command. } 
}

alias mlog { 
  if ($1 == on) { set %mlog on | echo -ate Message log on. }
  elseif ($1 == off) { set %mlog off | echo -ate Message log off. }
  else { echo -ate Unknown command. } 
}

on $*:TEXT:/(Jc|iCon|iConstruct|Jcfc|Jamie)/Si:#:{ if (%away == 1) && ($nick !isin %told) { notice $nick [• 4Sorry, 14I 4am 14away. 4!log 14MESSAGE 4to 14leave 4a 14message. 4Reason: 14 $+ %reason $+  •] [• 4Left 14at 04 $+ %asctime $+  •]
    if (%onetime == on) set %told %told $nick
} }

on $*:TEXT:/^[.!@^]log/Si:#:{ if ($address($nick,2) !isin %loghosts) && (%away = 1) && (%mlog == on) { set %log %log ^ < $+ $time $+ > < $+ $nick $+ > $2- | notice $nick Message recieved. | set %loghosts %loghosts $address($nick,2) }
  elseif ($address($nick,2) isin %loghosts) && (%away = 1) && (%mlog == on) { notice $nick You have already sent a message. }
  elseif ($address($nick,2) !isin %loghosts) && (%away != 1) && (%mlog == on) { notice $nick This person is not away. }
  elseif ($address($nick,2) !isin %loghosts) && (%away != 1) && (%mlog != on) { notice $nick This person does not accept messages. }
else { notice $nick There was an error processing your message. This could be because they are not away, you have already sent a message, or this person is not away. } }

alias bnc { set %nlog on | set %mlog off | echo -ate BNC Mode set. }
alias pcon { set %nlog off | set %mlog on | echo -ate AFK with PC on mode active. }