Untitled

menu * { 
  .Away Options
  ..$iif(!$var(%goaway.), Away):set %goaway. $$?="Reason for away" | goaway 
  ..$iif($var(%goaway.), Back):/goback 
  .-
  ...$iif(!$var(%goaway.), Set/Unset Preset Aways)
  ....$iif(!$var(%preset.away.1), Set Away One):set %preset.away.1 $$?="Preset Away Number One's Reason." | echo -a $timestamp 3,15Preset away number one was set.
  ....$iif(!$var(%preset.away.2), Set Away Two):set %preset.away.2 $$?="Preset Away Number Two's Reason." | echo -a $timestamp 3,15Preset away number two was set.
  ....$iif(!$var(%preset.away.3), Set Away Three):set %preset.away.3 $$?="Preset Away Number Three's Reason." | echo -a $timestamp 3,15Preset away number three was set.
  ....$iif(!$var(%preset.away.4), Set Away Four):set %preset.away.4 $$?="Preset Away Number Four's Reason." | echo -a $timestamp 3,15Preset away number four was set.
  ....$iif(!$var(%preset.away.5), Set Away Five):set %preset.away.5 $$?="Preset Away Number Five's Reason." | echo -a $timestamp 3,15Preset away number five was set.
  ....-
  ....$iif(!$var(%awaynick.), Set Away Nick):set %awaynick. $$?="Away Nick." | echo -a $timestamp 3,15Your away nick has been set.
  ....-
  ....$iif($var(%preset.away.*), Unset All Presets):unset %preset.away.* | echo -a $timestamp 3,15All preset reasons have been reset.
  ....-
  ....$iif($var(%awaynick.), Unset Away Nick):unset %awaynick. | echo -a $timestamp 3,15Away nick has been unset.
  ....-
  ...$iif($var(%preset.away.*), Unset Specific Presets)
  ....%preset.away.1:unset %preset.away.1 | echo -a $timestamp 3,15Preset reason one was deleted.
  ....%preset.away.2:unset %preset.away.2 | echo -a $timestamp 3,15Preset reason two was deleted.
  ....%preset.away.3:unset %preset.away.3 | echo -a $timestamp 3,15Preset reason three was deleted.
  ....%preset.away.4:unset %preset.away.4 | echo -a $timestamp 3,15Preset reason four was deleted.
  ....%preset.away.5:unset %preset.away.5 | echo -a $timestamp 3,15Preset reason five was deleted.
  .-
  ...$iif($var(%preset.away.*) && !$var(%goaway.), Preset Aways) 
  ....%preset.away.1:set %goaway. %preset.away.1 | goaway
  ....%preset.away.2:set %goaway. %preset.away.2 | goaway
  ....%preset.away.3:set %goaway. %preset.away.3 | goaway 
  ....%preset.away.4:set %goaway. %preset.away.4 | goaway
  ....%preset.away.5:set %goaway. %preset.away.5 | goaway
} 
alias goaway {  
  allaway 
  set %regnick $me
  set %goaway.time $time(hh:nnTT)  
  set %goaway.ctime1 $ctime
  gmsg [7Away1]:[7»14Reason:7 %goaway. 7«1]:[7»14Left at: 14 $+ $time $+ 7«1]
  $iif($var(%awaynick.), allnick %awaynick.)
}

alias goback {
  allback
  gmsg [7Back1]:[7»14From 7 %goaway. 7«1]:[7»14 was gone for 14 $+ $duration(set %awaytime $ctime)) $+ 7«1]
  $iif($var(%awaynick.), allnick %regnick)
  unset %goaway.* | unset %regnick
}
alias gmsg {
  var %i = 1
  while (%i <= $scon(0)) {
    scon %i /amsg  $1- 
    inc %i
  }
} 
alias allnick {
  var %i = 1
  while (%i <= $scon(0)) {
    scon %i /nick $1-
    inc %i
  }
}
alias allaway {
  var %i = 1
  while (%i <= $scon(0)) {
    scon %i /away %goaway.
    inc %i
  }
}
alias allback {
  var %i = 1
  while (%i <= $scon(0)) {
    scon %i /away
    inc %i
  }
}
on *:UNLOAD:{
  unset %preset.away.* | unset %awaynick.
  echo -a 3/10!3\ Script unloaded, all pre-set away reasons deleted. 3/10!3\ 
} 
on $*:TEXT:/^(iCheck|iDont|iCheckChecks)/Si:#:{
  if (%goaway.) && ($me iswm $1-) || (%goaway.)  {
    notice $nick Currently Away • %goaway. • Time gone:  $+ %goaway.time $+ 
  }
  else halt
}