Miscellany

on *:TEXT:$(** $+ $me $+ **):#: {
  if (%logger == $true) {
    if (!$window(@logger)) {
      window @logger
    }
    aline -p @logger $timestamp <4 $+ $network $+ @ $+ $server $+ > <4 $+ $chan $+ > <4 $+ $nick $+ > $1-
    aline -p @logger -
  }
}
alias awayon {
  if ($$1 != $null) && (%away == $null) {
    set %logger $?!="Do you want to log all mentions of your name when your away?"
    if (%logger.word != $null) {
      var %z $?!="Do you want to log a custom word of your choice?" {
        if (%z == $true) set %logger.word $$="What custom word do you want to log?" | set %logger.custom yes
      }
      else set %logger.custom no
    }
    if (%timezone == $null) set %timezone $$?="What time zone do you live in?"
    set %away on
    set %awaysay $$1-
    set %awaytimer 1
    set %awaytime $time $time(TT)
    scon -at1 away I am away. Away Reason 1(12 %awaysay 1) time set 1(4 %awaytime %timezone 1)
    set %awaytimer $ctime
    scon -at1 amsg I am away. Away Reason 1(12 %awaysay 1) time set 1(4 %awaytime %timezone 1)
  }
  else echo -a You are already away.
}
alias awayoff {
  if (%away == on) {
    scon -at1 amsg I am back. Away Reason 1(12 %awaysay 101) time set 1(4 %awaytime %timezone 101) and I have been away for 1(7 $duration($calc($ctime - %awaytimer)) 1)
    if (%away.mode.half.op == halfop) msg chanserv halfop 
    unset %awaysay 
    unset %awaytimer 
    unset %awaytime
    unset %away 
    unset %logger
    scon -at1 away
  }
  else echo -a You are not away.
}
on *:OPEN:?:*: {
  if (%away == on) {
    .timer 1 1 msg $nick I am away. Away Reason 1(12 %awaysay 101) time set 1(4 %awaytime 1) and I have been away for 1(7 $duration($calc($ctime - %awaytimer)) 1)
  }
  else halt
}
on *:START: {
  unset %awaysay | unset %awaytimer | unset %awaytime | unset %away | unset %logger
}