|
|  Russite Sir Tommy
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Sir Tommy"

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

  ZeroToWin 52 - CARDSIN$2

  FOR stack = 0 TO 3
    FOUNDATION
      X stack * CW 
      Y 0
      FLAGS Join____
      ID 2
    END
  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 52,1
    MAX 0
    FLAGS PaintLast
    ID 3
  END

END
