|
|  Russite Stronghold
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Stronghold"

  FLAGS  ClickFly AutoFly AnimateFly
  PACKS  1
  WIDTH  CW + 18 * COW + CW + 18 * COW + CW
  HEIGHT  5 * CH

  ZeroToWin 52 - CARDSIN$2

  FOR row = 1 TO 4
    STACK
      X 0
      Y row * CH
      FIRST 1, 13
      DEAL 7,0
      DragUpTo 1
      FLAGS ClickFly Join____ PaintRight
      ID 1
    END STACK

    FOUNDATION
      X CW + 18 * COW
      Y row * CH
      ID 2
      FLAGS PaintLast
    END FOUNDATION

    STACK
      X CW + 18 * COW + CW
      Y row * CH
      FIRST 1, 13
      DEAL 6,0
      DragUpTo 1
      FLAGS ClickFly Join____ PaintRight
      ID 1
    END STACK

  END FOR

| Cell 

  STACK
    X CW + 18 * COW
    Y 0
    FIRST 1, 13
    MAX 1
    FLAGS ClickFly PaintLast
  END STACK

END
