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

  FLAGS  ClickFly AnimateFly
  PACKS  1
  WIDTH   5 * CW
  HEIGHT 10 * CH

  ZeroToWin 52 - CARDSIN$2

  FOUNDATION
    X 0 * CW 
    Y 0
    DEAL 1,1
    DEALCARD x1
    JoinOffset 1
    MAX 13
    FLAGS Join____ RotateJoin
    ID 2
  END

  FOUNDATION
    X 1 * CW 
    Y 0
    DEAL 1,1
    DEALCARD x2
    JoinOffset 2
    MAX 13
    FLAGS Join____ RotateJoin
    ID 2
  END

  FOUNDATION
    X 2 * CW 
    Y 0
    DEAL 1,1
    DEALCARD x3
    JoinOffset 3
    MAX 13
    FLAGS Join____ RotateJoin
    ID 2
  END

  FOUNDATION
    X 3 * CW 
    Y 0
    DEAL 1,1
    DEALCARD x4
    JoinOffset 4
    MAX 13
    FLAGS Join____ RotateJoin
    ID 2
  END

  FOR column = 0 TO 3
      STACK
        X column * CW
        Y CH
        FIRST 1,13
        DragUpTo 1
        JoinOffset 0,1,2,3,4,5,6,7,8,9,10,11,12
        FLAGS ClickFly Join____ RotateJoin
        JoinFrom 3
        ID 1
      END
    END
  END

  STACK
    X 4 * CW
    Y 0 
    DEAL 48,1
    MAX 0
    FLAGS PaintLast
    ID 3
  END

END
