|
|  Binary Star
|  Written by Ph.Donsback
|
SCRIPT_TYPE 1
|
BEGIN "Binary Star"

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

| Foundations

  FOUNDATION
    X 2 * CW + 2 * 5 * COW + 5 * COW / 2
    Y 1 * CH
    MAX 104
    Deal 1,1
    Dealcard s1
    First 1,1,s
    DragUpTo -1 + Cardsin$2
    JoinOffset 1, -1
    FLAGS Join____ RotateJoin
    ID 2
  END

  FOUNDATION
    X 2 * CW + 2 * 5 * COW + 5 * COW / 2
    Y 2 * CH
    MAX 104
    Deal 1,1
    Dealcard h13
    First 13,13,h 
    DragUpTo -1 + Cardsin$3
    JoinOffset 1, -1
    FLAGS Join____ RotateJoin
    ID 3
  END

| First row of stack

  FOR stack = 0 TO 4
    STACK
      X stack * CW + stack * 5 * COW
      Y 0
      MAX 0
      DEAL 6,1
      DRAGUPTO 1 
      FLAGS ClickFly PaintRight
      ID 1
    END
  END

| Second and third row

  FOR row = 1 TO 2 
    FOR stack = 0 TO 1
      STACK
        X stack * CW + stack * 5 * COW
        Y row * CH
        MAX 0
        DEAL 6,1
        DRAGUPTO 1 
        FLAGS ClickFly PaintRight
        ID 1
      END
    END
    FOR stack = 3 TO 4
      STACK
        X stack * CW + stack * 5 * COW
        Y row * CH
        MAX 0
        DEAL 6,1
        DRAGUPTO 1 
        FLAGS ClickFly PaintRight
        ID 1
      END
    END
  END

| Fourth row

  FOR stack = 0 TO 3
    STACK
      X stack * CW + stack * 5 * COW + CW / 2 + 5 * COW / 2
      Y 3 * CH
      MAX 0
      DEAL 6,1
      DRAGUPTO 1 
      FLAGS ClickFly PaintRight
      ID 1
    END
  END

END
