From c278ce48fb5eb607d5f78c1ab0cc0d6d59a2f966 Mon Sep 17 00:00:00 2001
From: Walter Bender <walter@sugarlabs.org>
Date: Mon, 14 Oct 2013 18:36:38 +0000
Subject: clean up snake game

---
(limited to 'samples')

diff --git a/samples/game-snake.tb b/samples/game-snake.tb
new file mode 100644
index 0000000..8ea6f17
--- /dev/null
+++ b/samples/game-snake.tb
@@ -0,0 +1,54 @@
+[[0, ["start", 2.0], 200, 180, [null, 37]],
+[1, "hat", 740, 420, [null, 2, 13]],
+[2, ["string", "left"], 799, 432, [1, null]],
+[3, "hat", 740, 180, [null, 4, 12]],
+[4, ["string", "right"], 799, 192, [3, null]],
+[5, "stack", 520, 276, [11, 6, 7]],
+[6, ["string", "left"], 579, 276, [5, null]],
+[7, "stack", 520, 318, [5, 8, 9]],
+[8, ["string", "right"], 579, 318, [7, null]],
+[9, "forward", 520, 360, [7, 10, 52]],
+[10, ["number", 10], 594, 360, [9, null]],
+[11, "kbinput", 520, 234, [33, 5]],
+[12, ["vspace", 0], 740, 234, [3, 14]],
+[13, ["vspace", 0], 740, 474, [1, 15]],
+[14, ["if", 0], 740, 276, [12, 16, 20, null]],
+[15, ["if", 0], 740, 516, [13, 17, 22, null]],
+[16, ["equal2", 0], 806, 242, [14, 46, 18, null]],
+[17, ["equal2", 0], 806, 482, [15, 47, 19, null]],
+[18, "keyboard", 862, 284, [16, null]],
+[19, "keyboard", 862, 524, [17, null]],
+[20, "right", 758, 342, [14, 21, null]],
+[21, ["number", 10], 830, 342, [20, null]],
+[22, "left", 758, 582, [15, 23, null]],
+[23, ["number", 10], 837, 582, [22, null]],
+[24, "wait", 218, 418, [35, 25, null]],
+[25, ["number", 0.1], 287, 418, [24, null]],
+[26, "forward", 1020, 276, [30, 27, 39]],
+[27, ["number", 3.0], 1094, 276, [26, null]],
+[28, "back", 1020, 402, [39, 29, 31]],
+[29, ["number", 3.0], 1078, 402, [28, null]],
+[30, "penup", 1020, 234, [50, 26]],
+[31, "pendown", 1020, 444, [28, null]],
+[32, "showblocks", 200, 478, [48, null]],
+[33, "hat", 520, 180, [null, 34, 11]],
+[34, ["string", "action"], 579, 192, [33, null]],
+[35, "stack", 218, 376, [48, 36, 24]],
+[36, ["string", "action"], 277, 376, [35, null]],
+[37, "setpensize", 200, 226, [0, 38, 49]],
+[38, ["number", 5], 301, 226, [37, null]],
+[39, ["storein", 0], 1020, 318, [26, 40, 41, 28]],
+[40, ["string", "color"], 1115, 318, [39, null]],
+[41, "see", 1115, 360, [39, null]],
+[42, ["equal2", 0], 256, 276, [48, 44, 43, null]],
+[43, ["number", 0.0], 312, 318, [42, null]],
+[44, "box", 312, 276, [42, 45, null]],
+[45, ["string", "color"], 367, 276, [44, null]],
+[46, ["number", 3.0], 862, 242, [16, null]],
+[47, ["number", 1.0], 862, 482, [17, null]],
+[48, ["until", 21], 200, 310, [49, 42, 35, 32]],
+[49, ["vspace", 0], 200, 268, [37, 48]],
+[50, "hat", 1020, 180, [null, 51, 30]],
+[51, ["string", "look ahead"], 1079, 192, [50, null]],
+[52, "stack", 520, 402, [9, 53, null]],
+[53, ["string", "look ahead"], 579, 402, [52, null]]]
diff --git a/samples/games-snake.tb b/samples/games-snake.tb
deleted file mode 100644
index 397ffc8..0000000
--- a/samples/games-snake.tb
+++ /dev/null
@@ -1,53 +0,0 @@
-[[0, ["start", 2.0], 400, 20, [null, 51]],
-[1, "hat", 820, 260, [null, 2, 14]],
-[2, ["string", "left"], 879, 272, [1, null]],
-[3, "hat", 820, 20, [null, 4, 13]],
-[4, ["string", "right"], 879, 32, [3, null]],
-[5, "stack", 160, 236, [11, 6, 7]],
-[6, ["string", "left"], 219, 236, [5, null]],
-[7, "stack", 160, 278, [5, 8, 9]],
-[8, ["string", "right"], 219, 278, [7, null]],
-[9, "forward", 160, 320, [7, 10, 37]],
-[10, ["number", 10], 234, 320, [9, null]],
-[11, "kbinput", 160, 194, [47, 5]],
-[12, ["forever", 166], 400, 108, [51, 49, null]],
-[13, ["vspace", 0], 820, 74, [3, 15]],
-[14, ["vspace", 0], 820, 314, [1, 16]],
-[15, ["if", 0], 820, 116, [13, 19, 23, null]],
-[16, ["if", 0], 820, 356, [14, 20, 25, null]],
-[17, ["string", "l"], 942, 322, [20, null]],
-[18, ["string", "r"], 942, 82, [19, null]],
-[19, ["equal2", 0], 886, 82, [15, 18, 21, null]],
-[20, ["equal2", 0], 886, 322, [16, 17, 22, null]],
-[21, "keyboard", 942, 124, [19, null]],
-[22, "keyboard", 942, 364, [20, null]],
-[23, "right", 838, 182, [15, 24, null]],
-[24, ["number", 10], 910, 182, [23, null]],
-[25, "left", 838, 422, [16, 26, null]],
-[26, ["number", 10], 917, 422, [25, null]],
-[27, "wait", 418, 474, [39, 28, null]],
-[28, ["number", 0.1], 487, 474, [27, null]],
-[29, "forward", 160, 404, [37, 30, 33]],
-[30, ["number", 8.0], 234, 404, [29, null]],
-[31, "back", 160, 488, [33, 32, 38]],
-[32, ["number", 8.0], 218, 488, [31, null]],
-[33, "readpixel", 160, 446, [29, 31]],
-[34, "pop", 594, 192, [45, null]],
-[35, "pop", 648, 234, [46, null]],
-[36, "pop", 648, 276, [46, null]],
-[37, "penup", 160, 362, [9, 29]],
-[38, "pendown", 160, 530, [31, null]],
-[39, ["if", 21], 418, 306, [42, 40, 44, 27]],
-[40, ["equal2", 40], 484, 192, [39, 45, 41, null]],
-[41, ["number", 255], 540, 314, [40, null]],
-[42, ["vspace", 40], 418, 184, [49, 39]],
-[43, "stopstack", 436, 414, [44, null]],
-[44, "showblocks", 436, 372, [39, 43]],
-[45, ["plus2", 0], 540, 192, [40, 34, 46]],
-[46, ["plus2", 0], 594, 234, [45, 35, 36]],
-[47, "hat", 160, 140, [null, 48, 11]],
-[48, ["string", "acci\u00f3n"], 219, 152, [47, null]],
-[49, "stack", 418, 142, [12, 50, 42]],
-[50, ["string", "acci\u00f3n"], 477, 142, [49, null]],
-[51, "setpensize", 400, 66, [0, 52, 12]],
-[52, ["number", 5], 501, 66, [51, null]]]
diff --git a/samples/thumbnails/games-snake.png b/samples/thumbnails/game-snake.png
index da57530..da57530 100644
--- a/samples/thumbnails/games-snake.png
+++ b/samples/thumbnails/game-snake.png
Binary files differ
--
cgit v0.9.1