Trainspotter

From RISC OS

Revision as of 09:31, 17 April 2006 (view source) Blastsofthextreme (Talk | contribs) ← Older edit		Revision as of 09:33, 17 April 2006 (view source) Blastsofthextreme (Talk | contribs) Newer edit →
Line 1:		Line 1:
-	|	+	|
-	|    Trainspotter	+	|    Trainspotter
-	|  Written By Sion Cleaver	+	|  Written By Sion Cleaver
-	| (C) Blasts of the Xtreme 2006	+	| (C) Blasts of the Xtreme 2006
-	|	+	|
-	SCRIPT_TYPE 1	+	SCRIPT_TYPE 1
-	|	+	|
-	BEGIN "Trainspotter"	+	BEGIN "Trainspotter"
		+
		+	FLAGS  NoAutoFly
		+	PACKS  1
		+	WIDTH  5 * CW
		+	HEIGHT 2 * CH + 11 * COH
		+	ZeroToWin 104 - CARDSIN$2
		+
		+	| Foundations
-	FLAGS  NoAutoFly	+	FOR stack = 0 TO 3
-	PACKS  1	+	FOUNDATION
-	WIDTH  5 * CW	+	X stack * CW
-	HEIGHT 2 * CH + 11 * COH	+	Y 0
-	ZeroToWin 104 - CARDSIN$2	+	Deal 3,2
-		+	DealCard x1
-	| Foundations	+	FLAGS Join____
-		+	ID 2
-	FOR stack = 0 TO 3	+	END
-	FOUNDATION	+	END
-	X stack * CW	+
-	Y 0	+	| Reserves
-	Deal 3,2	+
-	DealCard x1	+	FOR stack = 0 TO 7
-	FLAGS Join____	+	STACK
-	ID 2	+	X stack * CW
-	END	+	Y CH
-	END	+	DEAL 0,2
-		+	DRAGUPTO 1
-	| Reserves	+	MAX 0
-		+	ID 1
-	FOR stack = 0 TO 7	+	END
-	STACK	+	END
-	X stack * CW	+
-	Y CH	+	| Stock
-	DEAL 0,2	+
-	DRAGUPTO 1	+	STACK
-	MAX 0	+	X 4 * CW
-	ID 1	+	Y 0
-	END	+	DEAL 96
-	END	+	DEALTO 1,2
-		+	TAKEFROM 1,2
-	| Stock	+	MAX 0
-		+	DRAGUPTO 0
-	STACK	+	FLAGS PaintCount
-	X 4 * CW	+	ID 3
-	Y 0	+	END
-	DEAL 96	+
-	DEALTO 1,2	+	END
-	TAKEFROM 1,2	+
-	MAX 0	+
-	DRAGUPTO 0	+
-	FLAGS PaintCount	+
-	ID 3	+
-	END	+
-		+
-	END	+

---

Revision as of 09:33, 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