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. }

dialog query {
  title "Query request"
  size -1 -1 146 53
  option dbu
  button "Accept query", 1, 1 25 144 12
  button "Decline query", 2, 1 39 144 12
  edit "", 3, 1 1 144 10, read
  edit "", 4, 1 12 144 10, read
}

on *:OPEN:?:*:{ if (%away == 1) { notice $nick Sorry, but iConstruct is away ( $+ %reason $+ ). He left at %asctime $+ . }
else { openquery $1- } }

alias openquery { /dialog -md query query
  /did -ra query 3 $nick has sent you the following message:
  /did -ra query 4 $1- 
  set %anick $nick 
  msg %anick Please wait for $me to accept your query.
}

on *:DIALOG:query:sclick:*:{
  if ($did == 1) { msg %anick $me has 9accepted your query. | dialog -x query | window -a %anick | unset %anick }
  if ($did == 2) { msg %anick $me has 4declined your query. | dialog -x query | close -m %anick | unset %anick  }
}