|
|  Bisley
|  Written by Ph.Donsback
|
SCRIPT_TYPE 1
|
BEGIN "Bisley"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  1
  WIDTH  12 * CW
  HEIGHT 2 * CH + 4 * COH + 11 * COH
  ZeroToWin 52 - CARDSIN$2

  FOR stack = 0 TO 3
    FOUNDATION
      X stack * CW
      Y 0
      DEAL 1,1
      DEALCARD x1
      ID 2
    END
  END

  FOR stack = 8 TO 11
    FOUNDATION
      X stack * CW
      Y 0
      First 13
      JoinOffset -1
      ID 2
    END
  END

  FOR stack = 0 TO 11
    STACK
      X stack * CW
      Y CH
      FIRST 0
      DEAL 4,1
      JoinOffset 1, -1
      DRAGUPTO 1
      FLAGS ClickFly JoinSS__
      ID 1
    END
  END

END
