Trainspotter

From RISC OS

Revision as of 09:33, 17 April 2006 (view source) Blastsofthextreme (Talk | contribs) ← Older edit		Latest revision as of 09:34, 17 April 2006 (view source) Blastsofthextreme (Talk | contribs)
Line 15:		Line 15:
	| Foundations		| Foundations
-		+
	FOR stack = 0 TO 3		FOR stack = 0 TO 3
	FOUNDATION		FOUNDATION

---

Latest revision as of 09:34, 17 April 2006

|
|     Trainspotter
|   Written By Sion Cleaver
| (C) Blasts of the Xtreme 2006
|
SCRIPT_TYPE 1
|
BEGIN "Trainspotter"

  FLAGS  NoAutoFly
  PACKS  1
  WIDTH  5 * CW
  HEIGHT 2 * CH + 11 * COH
  ZeroToWin 104 - CARDSIN$2

| Foundations

  FOR stack = 0 TO 3
    FOUNDATION
      X stack * CW
      Y 0
      Deal 3,2
      DealCard x1 
      FLAGS Join____
      ID 2
    END
  END

| Reserves

  FOR stack = 0 TO 7
    STACK
      X stack * CW
      Y CH
      DEAL 0,2
      DRAGUPTO 1
      MAX 0
      ID 1
    END
  END

| Stock

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

END