|
|  Rules for the game of Seahaven Towers
|  Written by J.Horsnell
|
|  This is a game I once saw on another computer.
|  Its ten stacks are of the same-suit descending
|  value kind and must comply with the rules to 
|  be moved.  Only kings may be moved onto an empty
|  stack.  The four stacks in the middle at the top
|  are able to store one card of any kind. The 
|  foundations are on either side of these stacks
|  and are built from the ace up.  Only one card 
|  may be moved at any time but since there are four
|  card stores at the top this means one card plus
|  the number of empty card stores.
|
SCRIPT_TYPE 1
|
BEGIN "Seahaven towers"

  FLAGS ClickFly AutoFly AnimateFly
  WIDTH 14 + 10 * CW
  HEIGHT 808
  ZeroToWin 52 - CARDSIN$1

  FOR stack = 0 TO 1
    FOR pile = 0 TO 1
      FOUNDATION
        X stack * CW + 12 + pile * 8 * CW
        Y 16
        ID 1
      END
    END
  END

  FOR stack = 0 TO 9
    STACK
      X stack * CW + 12
      Y 16 + CH
      FIRST 13
      MAX 16
      DEAL 5,1
      DRAGUPTO 1 + EMPTY$2
      FLAGS DeepCheck ClickFly JoinSS__
    END
  END

  FOR stack = 0 TO 3
    STACK
      X 12 + CW * 3 + stack * CW
      Y 16
      FIRST 1,13
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS PaintLast
      ID 2
    END
  END

END
