;Nickolas
;10/07/2007 15:28:59
 
alias temp_alias {
  var %expire, %cmd = $1, %code
  if ($regex(expiretime, $2, /^-u(\d+)$/)) {
    %expire = $iif($regml(expiretime, 1) < 0, 1, $regml(expiretime, 1))
    %code = $3-
  }
  else {
    %expire = $null
    %code = $2-
  }
  .alias %cmd %code
  if (%expire != $null) {
    .timer. $+ %cmd $+ _ $+ $cid 0 %expire .alias %cmd
  }
}
alias _queue.fkey {
  var %fkeys = f7,f8,sf7,sf8,cf7,cf8
  var %read_keys = F7,F8,Shift-F7,Shift-F8,CTRL-F7,CTRL-F8
  var %i = 1, %gotalias = $false, %cmd
  while (%i <= $numtok(%fkeys, 44)) {
    %cmd = $gettok(%fkeys, %i, 44)
    if (!$timer(. $+ %cmd $+ _ $+ $cid)) {
      temp_alias %cmd $1-
      %gotalias = $true
      break
    }
    inc %i
  }
  if (%gotalias == $false) {
    temp_alias f7 $1-
    %cmd = f7
  }
  return $gettok(%read_keys, $findtok(%fkeys, %cmd, 44), 44)
}