|
|  Box Kite
|  Written by Ph.Donsback
|
|
SCRIPT_TYPE 1
|
BEGIN "Box Kite"

  FLAGS  ClickFly AnimateFly
  PACKS   2
  WIDTH   6 * CW + 2 * COW
  HEIGHT  4 * CH + 2 * COH
  ZeroToWin 104 - CARDSIN$2

| Four foundations in the center box

  FOR column = 1 TO 4
    FOUNDATION
      X column * CW + COW
      Y CH + COH
      ID 2
      DEAL 1,1
      DealCard x13
      JoinOffset -1
      FLAGS JoinSS__
    END

    FOUNDATION
      X column * CW + COW
      Y 2 * CH + COH
      ID 2
      DEAL 1,1
      DealCard x1
      JoinOffset 1
      FLAGS JoinSS__
    END
  END

| Tableau

  FOR row = 0 TO 1
    FOR column = 1 TO 4
      STACK
        X column * CW + COW
        Y 3 * row * CH + 2 * row * COH
        FIRST 0
        DEAL 8,1
        DRAGUPTO 1
        JoinOffset 1, -1
        FLAGS ClickFly Join____ RotateJoin PaintLast
        ID 1
      END
    END
  END

  FOR row = 1 TO 2
    FOR column = 0 TO 1
      STACK
        X 5 * column * CW + 2 * column * COW
        Y row * CH + COH
        FIRST 0
        DEAL 8,1
        DRAGUPTO 1
        JoinOffset 1, -1
        FLAGS ClickFly Join____ RotateJoin PaintLast
        ID 1
      END
    END
  END

END
