|
|  Clover Leaf
|  Written by Ph.Donsback
|
|
SCRIPT_TYPE 1
|
BEGIN "Clover Leaf"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS   1
  WIDTH   CW + 4 * CW + 4 * 3 * COW + 4 * 5 * COW + COW
  HEIGHT  4 * CH
  ZeroToWin 52 - CARDSIN$2

| Foundations

  FOUNDATION
    X 0
    Y 0
    Deal 1,1
    DealCard h1
    JoinOffset 1
    ID 2
  END

  FOUNDATION
    X 0
    Y CH
    Deal 1,1
    DealCard d1
    JoinOffset 1
    ID 2
  END

  FOUNDATION
    X 0
    Y 2 * CH
    Deal 1,1
    DealCard s13
    JoinOffset -1
    ID 2
  END

  FOUNDATION
    X 0
    Y 3 * CH
    Deal 1,1
    DealCard c13
    JoinOffset -1
    ID 2
  END

| Fans

  FOR row = 0 TO 3
    FOR column = 0 TO 3
      STACK
        X CW + COW + column * CW + column * 3 * COW + column * 5 * COW
        Y row * CH
        FIRST 13,1
        DEAL 3, 1
        DRAGUPTO 1
        JoinOffset 1, -1
        FLAGS ClickFly JoinSS__ Paintright
        ID 1 
      END
    END
  END

END
