AWAY.TXT

alias an {
  set %away.ch_nn ON
  if ( $1 == $null ) { set %nn.away $$?="What is your away-nickname?" }
  else { set %nn.away $1 }
  hecho Your away-nickname is now:15 %nn.away
}
alias anno {
  set %away.ch_nn OFF
  hecho Your nickname wont change when you set you away
}
ON *:OPEN:*:*: {
  if ($away == $true) {
    if (%away.msg1 == on) {
      .notice $nick i'm away, " $+ %away.reason $+ " (Since:  $+ %away.time $+  $+ )¤(Log:on)
      .echo @Away-logs 11[ $+ $asctime(HH:nn) $+ ] < $+ $nick $+ > 10 $1-
      .close -m $nick
      halt
    }
    if (%away.msg2 == on) {
      .notice $nick %away.msg3
      .echo @Away-logs 11[ $+ $asctime(HH:nn) $+ ] < $+ $nick $+ > 10 $1-
      .close -m $nick 
      halt
    }
  }
}
ON *:NOTICE:*:*: {
  if ($away == $true) {
    if (%away.msg1 == on) {
      .notice $nick i'm away, " $+ %away.reason $+ " ¤ (Since: %away.time $+ ) ¤ (Log:on)
      .echo @Away-logs 11[ $+ $asctime(HH:nn) $+ ] < $+ $nick $+ > 10 $1-
      halt
    }
    if (%away.msg2 == on) {
      .notice $nick %away.msg3
      .echo @Away-logs 11[ $+ $asctime(HH:nn) $+ ] < $+ $nick $+ > 10 $1-
      halt
    }
  }
}
alias gone {
  if ( $away == $true ) { hecho You are already away! | halt }
  if ( $away == $false ) {
    if ( $1- == $null ) {
      set %away.reason $$?="Why are you away?"
      goto start
    }
    else {
      set %away.reason $1-
      goto start
    }
    :start
    set %away.start.ctime $ctime
    set %away.time $fulldate
    away " $+ %away.reason $+ " ¤ (Since :  $+ %away.time $+ )
    window @Away-logs | echo @Away-logs 10Away-reason : 0 %away.reason | echo @Away-logs 10Away Since : 0 $time $date | echo @Away-logs 10--------------------------------------------------------------------------------- 
    ame is away, " $+ %away.reason $+ " ¤ (Log:on)
    unset %nn.away2
    if (%away.ch_nn == ON) { set %away.norm_nn $me | set %away.norm_nn2 * $+ %away.norm_nn $+ * | /nick %nn.away | set %nn.away2 * $+ %nn.away $+ * }
  }
}
alias back { 
  if ($away == $false) { hecho You are not marked as away | halt }
  if ($away == $true ) {
    if (%away.ch_nn == ON) { /nick %away.norm_nn }
    set %away.away.ctime $ctime - %away.start.ctime
    away
    if ( $1- == $null ) {
      ame is back from " $+ %away.reason $+ " ¤ (Gone $duration(%away.away.ctime) $+ ) 
      echo @Away-logs 10--------------------------------------------------------------------------------- 
      resetidle
    }
    else { 
      ame is back, " $+ $1- $+ "
      echo @Away-logs 10--------------------------------------------------------------------------------- 
      resetidle
    }
  }
}
menu @Away-logs {
  Clear all:/clear @away-logs
  -
  Close:/window -c @away-logs
}
on *:text:%away.norm_nn2:#: { 
  if ( $away == $true ) { 
    if (%away.msg1 == on) {
      .notice $nick i'm away, " $+ %away.reason $+ " ¤ (Since: %away.time $+ ) ¤ (Log:on)
    }
    elseif (%away.msg2 == on) {
      .notice $nick %away.msg3
    }
  }
}
on *:text:%nn.away2:#: { 
  if ( $away == $true ) { 
    if (%away.msg1 == on) {
      .notice $nick i'm away, " $+ %away.reason $+ " ¤ (Since: %away.time $+ ) ¤ (Log:on)
    }
    if (%away.msg2 == on) {
      .notice $nick %away.msg3
      .halt
    }
  }
}