|
| Rules for Mindwarp Patience
| Written by N.Vickers
|
SCRIPT_TYPE 1
|
BEGIN "Mindwarp patience"

  FLAGS ClickFly AnimateFly
  PACKS 2
  WIDTH 18 * CW + 42
  HEIGHT 1200
  ZeroToWin 104 - CARDSIN$2

  FOR stack = 0 TO 1
    FOR row = 0 TO 1
      STACK
        X 14 * CW + 40 + stack * CW
        Y 16 + CH * row
        FIRST 1
        MAX 13
        DRAGUPTO 0
        JoinOffset 1
        FLAGS PaintLast DeepCheck AutoFly ClickFly JoinSS__
        ID 2
      END
    END
  END

  FOR stack = 2 TO 3
    FOR row = 0 TO 1
      STACK
        X 14 * CW + 40 + stack * CW
        Y 16 + CH * row
        FIRST 13
        MAX 13
        DRAGUPTO 0
        JoinOffset -1
        FLAGS PaintLast DeepCheck AutoFly ClickFly JoinSS__
        ID 2
      END
    END
  END

  FOR stack = 0 to 6
    STACK
      X stack * CW + 12
      Y 16
      FIRST 13
      MAX 29
      JoinOffset -1
      DEAL 9 - stack , 2 , 3 , 9 - stack
      FLAGS ClickFly JoinSS__
      ID 1
    END
  END

  FOR stack = 7 to 13
    STACK
      X stack * CW + 26
      Y 16
      FIRST 1
      MAX 29
      JoinOffset 1
      DEAL stack - 4 , 2 , 3 , stack - 4
      FLAGS ClickFly JoinSS__
      ID 1
    END
  END

|  FOR row = 0 TO 3
|    STACK
|      X ( row + 14 ) * CW + 40
|      Y 338
|      MAX 1
|      DRAGUPTO 1
|      FLAGS ClickFly
|      ID 1
|    END
|  END

  STACK
    X 14 * CW + 40
    Y 16 + 2 * CH
    MAX 0
    DEAL 24
    DEALTO 4,3
    DRAGUPTO 0
    FLAGS PaintBack PaintCount
    ID 3
  END

  STACK
    X 15 * CW + 40
    Y 16 + 2 * CH
    MAX 0
    DRAGUPTO 1
    FLAGS PaintLast
    ID 4
  END

END
