rave

HEXADECIMAL = "0 1 2 3 4 5 6 7 8 9 A B C D E F"
HEXLENGTH = (listlen $HEXADECIMAL)

curfogcolor = "F F 0 0 0 0"

hexupdate = [
  tmparg = (getalias $arg1)
  tmpindex = (findlist $HEXADECIMAL (at $tmparg))
  if $arg2 [
    if (< (findlist $HEXADECIMAL (at $tmparg 1)) (- $HEXLENGTH 1)) [
      tmpindex = (concat $tmpindex (+ (findlist $HEXADECIMAL (at $tmparg 1)) 1)) ] [
      tmpindex = (concat (+ $tmpindex 1) 0) ] ] [
    if (> (findlist $HEXADECIMAL (at $tmparg 1))) [
      tmpindex = (concat $tmpindex (- (findlist $HEXADECIMAL (at $tmparg 1)) 1)) ] [
      tmpindex = (concat (- $tmpindex 1) (- $HEXLENGTH 1)) ] ]
  $arg1 = (concat (at $HEXADECIMAL (at $tmpindex)) (at $HEXADECIMAL (at $tmpindex 1))) ]
isf = [ result (&& [ strcmp (at $arg1) "F" ] [ strcmp (at $arg1 1) "F" ]) ]
iszero = [ result (&& [ strcmp (at $arg1) "0" ] [ strcmp (at $arg1 1) "0" ]) ]
rave = [
  fogr = (concat (at $curfogcolor) (at $curfogcolor 1))
  fogg = (concat (at $curfogcolor 2) (at $curfogcolor 3))
  fogb = (concat (at $curfogcolor 4) (at $curfogcolor 5))
  if (isf $fogr) [
    if (isf $fogg) [ hexupdate fogr 0 ] [
      if (iszero $fogb) [ hexupdate fogg 1 ] [ hexupdate fogb 0 ] ] ] [
  if (isf $fogg) [
    if (isf $fogb) [ hexupdate fogg 0 ] [
      if (iszero $fogr) [ hexupdate fogb 1 ] [ hexupdate fogr 0 ] ] ] [
  if (isf $fogb) [
    if (isf $fogr) [ hexupdate fogb 0 ] [
      if (iszero $fogg) [ hexupdate fogr 1 ] [ hexupdate fogg 0 ] ] ] ] ]
  curfogcolor = (concat $fogr $fogg $fogb)
  tmpcurfogcolor = (at $curfogcolor)
  loop i (- (listlen $curfogcolor) 1) [
    tmpcurfogcolor = (concatword $tmpcurfogcolor (at $curfogcolor (+ $i 1))) ]
  fogcolour (concatword "0x" $tmpcurfogcolor)
  sleep 0 rave ]