|
|  Russite Boxing The Compass
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Boxing the Compass"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  2
  WIDTH   8 * CW
  HEIGHT  8 * CH

  ZeroToWin 104 - CARDSIN$2

| Foundations

  FOR stack = 3 TO 4
|---North
    FOUNDATION
      X stack * CW 
      Y 0
      DEAL 1,1
      DealCard c1
      ID 2
    END
|---South
    FOUNDATION
      X stack * CW 
      Y 7 * CH
      DEAL 1,1
      DealCard h1
      ID 2
    END
|---West
    FOUNDATION
      X 0 
      Y stack * CH
      DEAL 1,1
      DealCard s1
      ID 2
    END
|---East
    FOUNDATION
      X 7 * CW
      Y stack * CH
      DEAL 1,1
      DealCard d1
      ID 2
    END
  END

| Stacks

  FOR stack = 2 TO 5
|---North
    STACK
      X stack * CW
      Y CH
      FIRST 1,13,c
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS ClickFly AppendOneOnly PaintLast
      ID 1
    END
|---South
    STACK
      X stack * CW
      Y 6 * CH
      FIRST 1,13,h
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS ClickFly AppendOneOnly PaintLast
      ID 1
    END
|---West
    STACK
      X CW
      Y stack * CH
      FIRST 1,13,s
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS ClickFly AppendOneOnly PaintLast
      ID 1
    END
|---West
    STACK
      X 6 * CW
      Y stack * CH
      FIRST 1,13,d
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS ClickFly AppendOneOnly PaintLast
      ID 1
    END
  END

| Stock

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

| Waste

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

END
