|
|  Alexander the Great
|  Written by Ph.Donsback
|
|
SCRIPT_TYPE 1
|
BEGIN "Alexander the Great"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS   1
  WIDTH   CW + 3 * CW + 3 * 3 * COW + 3 * 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 2
      STACK
        X CW + COW + column * CW + column * 3 * COW + column * 5 * COW
        Y row * CH
        FIRST 13,1
        DEAL 4, 1
        DRAGUPTO 1
        JoinOffset 1, -1
        FLAGS ClickFly JoinSS__ Paintright
        ID 1 
      END
    END
  END

END
