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

  FLAGS  ClickFly AnimateFly LockAutoFly
  PACKS  1
  WIDTH  9 * CW
  HEIGHT 2 * CH + 3 * COH

  ZeroToWin 52 - CARDSIN$2

| Hiden Foundations

  FOR stack = 1 TO 13
    FOUNDATION
      X 0 - CW 
      Y 0 - CH
      First stack, stack
      JoinOffset 0
      Flags Join____ DeepCheck Append4Only
      ID 2
    END
  END

| Tableau

  FOR stack = 0 TO 8
    STACK
      X stack * CW
      Y 0
      DEAL 1,1
      DRAGUPTO 4
      MAX 4
      First 1,13
      FirstFrom 4,3
      JoinOffset 0
      FLAGS ClickFly DeepCheck Join____ FirstFly
      ID 1
    END
  END

| Stock

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

| Waste

  STACK
    X 4 * CW + CW / 2
    Y CH + 3 * COH
    DEAL 1,1
    DRAGUPTO 1
    Max 0
    FLAGS PaintLast Clickfly
    ID 4
  END

END
