Prost Away Sistem

menu * {
  Away System
  .Away: setaway
  .Back: setback
  .-
  .Slient
  ..Silent Away: quietaway
  ..Silent Back: quietback
  .Pager
  ..Pager je ( $+ $iif(%options.pager, On, Off) $+ ) : {
    if (%options.pager) echo -a *** Pager - DISABLED ***
    else echo -a *** Pager - ACTIVE ***
    %options.pager = $iif(%options.pager, 0, 1)
  }
  ..Procitaj Paging: run NotePad.exe $scriptdir\page.txt
  ..Obrisi: {
    write -c $scriptdir\page.txt clearing all pages on $fulldate
    echo -at *** Paging obrisan ***
  }
}

alias setaway {
  if ($1 == $null) set %away.reason $$?="Upisi Razlog"
  else set %away.reason $1-
  away  ( $+ %away.reason $+ )
  set %away.time $ctime
  if (%options.pager) {
    ame Away : [ $+ %away.reason $+ ] PAGE: /ctcp $me page < vasa poruka >
    .timer(away) 0 $?="Vreme u sec ?" ame still Away : [ $+ %away.reason $+ ] PAGE: /ctcp $me page < vasa poruka >
  }
  else {
    ame Away : [ $+ %away.reason $+ ]
    .timer(away) 0 $?="Vreme u sec ?" ame still Away : [ $+ %away.reason $+ ]
  }
}

alias setback {
  if ($away == $false) { echo -at ** Nisi vise Away! ** | halt }
  .timer(away) off
  ame Back : [ $+ %away.reason $+ ] Away : [ $duration($calc($ctime - %away.time)) ] Jesam li vam ne dostajao ?
  away
  unset %away.*
}

alias quietaway {
  set %away.reason $$?="Upisi Razlog"
  away  ( $+ %away.reason $+ )
}

alias quietback {
  if ($away == $false) { echo -at *** Nisi vise Away! *** | halt }
  away
  unset %away.*
}

ctcp *:page:*: {
  if (%options.pager) .notice $nick  > Hello. Trenutno sam zazet ili sam AFK...Javicu ti se kasnije...
  echo -at ** [ PAGED by $nick ] $address on $fulldate
  write $scriptdir\page.txt paged by : $nick $address $fulldate MSG : $2-
}

alias rtime return $time(h:nntt)