Trainspotter

From RISC OS

(Difference between revisions)
Jump to: navigation, search
 
(One intermediate revision not shown)
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
+
  FLAGS  NoAutoFly
-
  PACKS  1
+
  PACKS  1
-
  WIDTH  5 * CW
+
  WIDTH  5 * CW
-
  HEIGHT 2 * CH + 11 * COH
+
  HEIGHT 2 * CH + 11 * COH
-
  ZeroToWin 104 - CARDSIN$2
+
  ZeroToWin 104 - CARDSIN$2
-
 
+
-
| Foundations
+
| Foundations
-
 
+
-
  FOR stack = 0 TO 3
+
  FOR stack = 0 TO 3
-
    FOUNDATION
+
    FOUNDATION
-
      X stack * CW
+
      X stack * CW
-
      Y 0
+
      Y 0
-
      Deal 3,2
+
      Deal 3,2
-
      DealCard x1  
+
      DealCard x1  
-
      FLAGS Join____
+
      FLAGS Join____
-
      ID 2
+
      ID 2
-
    END
+
    END
-
  END
+
  END
-
 
+
-
| Reserves
+
| Reserves
-
 
+
-
  FOR stack = 0 TO 7
+
  FOR stack = 0 TO 7
-
    STACK
+
    STACK
-
      X stack * CW
+
      X stack * CW
-
      Y CH
+
      Y CH
-
      DEAL 0,2
+
      DEAL 0,2
-
      DRAGUPTO 1
+
      DRAGUPTO 1
-
      MAX 0
+
      MAX 0
-
      ID 1
+
      ID 1
-
    END
+
    END
-
  END
+
  END
-
 
+
-
| Stock
+
| Stock
-
 
+
-
  STACK
+
  STACK
-
    X 4 * CW
+
    X 4 * CW
-
    Y 0
+
    Y 0
-
    DEAL 96
+
    DEAL 96
-
    DEALTO 1,2
+
    DEALTO 1,2
-
    TAKEFROM 1,2
+
    TAKEFROM 1,2
-
    MAX 0
+
    MAX 0
-
    DRAGUPTO 0
+
    DRAGUPTO 0
-
    FLAGS PaintCount
+
    FLAGS PaintCount
-
    ID 3
+
    ID 3
-
  END
+
  END
-
 
+
-
END
+
END

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
Personal tools