|
|  Shamrocks
|  Written by Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Shamrocks"

  FLAGS  ClickFly AnimateFly
  PACKS  1
  WIDTH  6 * CW + 2 * 5 * COW 
  HEIGHT 4 * CH

  ZeroToWin 52 - CARDSIN$2

  FOR stack = 0 TO 3
    FOUNDATION
      X 5 * CW + 2 * 5 * COW 
      Y stack * CH
      ID 2
    END
  END

  FOR row = 0 TO 2
    FOR stack = 0 TO 4
      STACK
        X stack * CW + 2 * stack * COW
        Y row * CH
        FIRST 0
        MAX 3
        JOINOFFSET -1, 1
        DRAGUPTO 1
        DEAL 3,1
        FLAGS ClickFly Join____ AppendOneOnly PaintShiftRight
        ID 1
      END
    END
  END

  FOR stack = 0 TO 3
    STACK
      X stack * CW + 2 * stack * COW
      Y 3 * CH
      FIRST 0
      MAX 3
      JOINOFFSET -1, 1
      DRAGUPTO 1
      DEAL 3,1
      FLAGS ClickFly Join____ AppendOneOnly PaintSHiftRight
      ID 1
    END
  END

END
