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

  FLAGS  ClickFly AnimateFly
  PACKS  1
  WIDTH  4 * CW 
  HEIGHT  4 * CH
  ZeroToWin 52 - CARDSIN$2

  FOUNDATION
    X CW + CW / 2
    Y CH
    ID 2
    MAX 52
    JoinOffset +1, -1
    DEAL 1,1
    FLAGS Join____ RotateJoin
  END

  STACK
    X CW
    Y 2 * CH
    DEAL 50
    DEALTO 4,1
    TAKEFROM 4,2
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 3
  END

  STACK
    X 2 * CW
    Y 2 * CH
    DEAL 1,1
    MAX 0
    DRAGUPTO 1
    FLAGS PaintLast
    ID 4
  END

END
