|
|  Wave Motion patience
|  Written by Ph.DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Wave Motion"

  FLAGS ClickFly AnimateFly
  PACKS 1
  WIDTH 8 * CW
  HEIGHT 2 * CH + 13 * COH + 6 * COH
  ZEROTOWIN 4 - SEQUENCES$3

| The tableau

  FOR stack = 0 TO 7
    STACK
      X stack * CW
      Y 0
      FIRST 1, 13
      ID 3
      JOINOFFSET -1
      DragOffset -1
      Sequence SeqSS__, x13, -1, 13
      FLAGS DeepCheck JoinSS__ ClickFly DragSS__
    END
  END

| The reserves

  FOR stack = 0 TO 3
    STACK
      X stack * CW
      Y CH + 13 * COH
      MAX 0
      DEAL 7,1
      DragOffset -1
      FLAGS DragSS__
      ID 2
    END
  END

  FOR stack = 4 TO 7
    STACK
      X stack * CW
      Y CH + 13 * COH
      MAX 0
      DEAL 6,1
      DragOffset -1
      FLAGS DragSS__
      ID 2
    END
  END

END
