added check for scoring baskets

1 files changed, 100 insertions, 66 deletions

diff --git a/samples/hoops.ta b/samples/hoops.ta
index 4c2edc3..2596cb4 100644
--- a/samples/hoops.ta
+++ b/samples/hoops.ta
@@ -1,67 +1,101 @@
-[[0, ["start", 2.0], 501, 0, [null, 8]],
-[1, "skin", 501, 210, [25, 2, 50]],
-[2, ["journal", "/home/walter/Desktop/tamainline/samples/images/basketball.png"], 683, 210, [1, null]],
-[3, ["setxy2", 60], 19, 243, [17, 5, 34, null]],
+[[0, ["start", 2.0], 639, 62, [null, 100]],
+[1, "skin", 639, 398, [24, 2, 49]],
+[2, ["journal", "./samples/images/basketball.png"], 821, 398, [1, null]],
+[3, ["setxy2", 60], 19, 243, [16, 5, 33, null]],
 [4, "xcor", 138, 243, [5, null]],
-[5, ["plus2", 0], 84, 243, [3, 4, 65]],
-[6, ["setxy2", 0], 678, 506, [15, 27, 7, 16]],
-[7, ["number", 0], 743, 548, [6, null]],
-[8, "clean", 501, 42, [0, 22]],
-[9, "seth", 228, 761, [13, 12, 37]],
-[10, ["number", 90], 380, 803, [12, null]],
-[11, "heading", 380, 761, [12, null]],
-[12, ["plus2", 0], 326, 761, [9, 11, 10]],
-[13, "wait", 228, 719, [19, 14, 9]],
-[14, ["number", 0.25], 299, 719, [13, null]],
-[15, "penup", 678, 464, [54, 6]],
-[16, "pendown", 678, 590, [6, 30]],
-[17, "hat", 19, 193, [null, 18, 3]],
-[18, ["string", "parabola"], 80, 201, [17, null]],
-[19, "stack", 228, 677, [41, 20, 13]],
-[20, ["string", "parabola"], 289, 677, [19, null]],
-[21, "show", 501, 126, [22, 24, 25]],
-[22, "setscale", 501, 84, [8, 23, 21]],
-[23, ["number", 100], 597, 84, [22, null]],
-[24, ["journal", "./samples/images/basketball-court1-a.png"], 574, 126, [21, null]],
-[25, "setscale", 501, 168, [21, 26, 1]],
-[26, ["number", 33], 597, 168, [25, null]],
-[27, "leftpos", 743, 506, [6, null]],
-[28, "storeinbox2", 228, 845, [37, 36, null]],
-[29, ["number", 1.0], 440, 887, [36, null]],
-[30, "storeinbox2", 678, 632, [16, 31, 48]],
-[31, ["number", 25.0], 812, 632, [30, null]],
-[32, "box2", 416, 845, [36, null]],
-[33, "box2", 138, 447, [34, null]],
-[34, ["plus2", 0], 84, 405, [3, 35, 33]],
-[35, "ycor", 138, 405, [34, null]],
-[36, ["minus2", 0], 362, 845, [28, 32, 29]],
-[37, ["vspace", 0], 228, 803, [9, 28]],
-[38, "forever", 23, 549, [46, 40, 39]],
-[39, ["vspace", 0], 23, 585, [38, null]],
-[40, "ifelse", 124, 567, [38, 43, 41, 42, null]],
-[41, ["vspace", 0], 228, 635, [40, 19]],
-[42, "stopstack", 280, 635, [40, null]],
-[43, ["greater2", 0], 214, 533, [40, 45, 44, null]],
-[44, ["number", -1.0], 284, 575, [43, null]],
-[45, "ycor", 260, 533, [43, null]],
-[46, "hat", 23, 499, [null, 47, 38]],
-[47, ["string", "shoot"], 84, 507, [46, null]],
-[48, "stack", 678, 674, [30, 49, null]],
-[49, ["string", "shoot"], 739, 674, [48, null]],
-[50, "setpensize", 501, 252, [1, 51, 56]],
-[51, ["number", 1.0], 608, 252, [50, null]],
-[52, "storeinbox1", 602, 312, [56, 53, 57]],
-[53, "volume", 736, 312, [52, null]],
-[54, "if", 602, 396, [57, 58, 15, 55]],
-[55, ["vspace", 0], 602, 482, [54, null]],
-[56, "forever", 501, 294, [50, 52, null]],
-[57, ["vspace", 0], 602, 354, [52, 54]],
-[58, ["greater2", 0], 664, 362, [54, 59, 60, null]],
-[59, "box1", 710, 362, [58, null]],
-[60, ["number", 300.0], 734, 404, [58, null]],
-[61, ["division2", 0], 192, 327, [65, 63, 64]],
-[62, ["number", 20.0], 192, 285, [65, null]],
-[63, "box1", 246, 327, [61, null]],
-[64, "width", 270, 369, [61, null]],
-[65, ["product2", 0], 138, 285, [5, 62, 61]],
-[-1, ["turtle", "Yertle"], -304.5611979166672, 280.0, 180.0, 0, 50, 1.0]]
\ No newline at end of file
+[5, ["plus2", 0], 84, 243, [3, 4, 63]],
+[6, ["setxy2", 0], 564, 780, [14, 26, 7, 29]],
+[7, ["number", 0], 629, 822, [6, null]],
+[8, "seth", 220, 827, [12, 11, 36]],
+[9, ["number", 90], 372, 869, [11, null]],
+[10, "heading", 372, 827, [11, null]],
+[11, ["plus2", 0], 318, 827, [8, 10, 9]],
+[12, "wait", 220, 785, [18, 13, 8]],
+[13, ["number", 0.25], 291, 785, [12, null]],
+[14, "penup", 564, 738, [53, 6]],
+[15, "pendown", 564, 948, [47, null]],
+[16, "hat", 19, 193, [null, 17, 3]],
+[17, ["string", "parabola"], 80, 201, [16, null]],
+[18, "stack", 220, 743, [40, 19, 12]],
+[19, ["string", "parabola"], 281, 743, [18, null]],
+[20, "show", 639, 314, [21, 23, 24]],
+[21, "setscale", 639, 272, [68, 22, 20]],
+[22, ["number", 100], 735, 272, [21, null]],
+[23, ["journal", "./samples/images/basketball-court1-a.png"], 712, 314, [20, null]],
+[24, "setscale", 639, 356, [20, 25, 1]],
+[25, ["number", 33], 735, 356, [24, null]],
+[26, "leftpos", 629, 780, [6, null]],
+[27, "storeinbox2", 220, 911, [36, 35, 38]],
+[28, ["number", 1], 432, 953, [35, null]],
+[29, "storeinbox2", 564, 864, [6, 30, 47]],
+[30, ["number", 40.0], 698, 864, [29, null]],
+[31, "box2", 408, 911, [35, null]],
+[32, "box2", 192, 447, [64, null]],
+[33, ["plus2", 0], 84, 405, [3, 34, 64]],
+[34, "ycor", 138, 405, [33, null]],
+[35, ["minus2", 0], 354, 911, [27, 31, 28]],
+[36, ["vspace", 0], 220, 869, [8, 27]],
+[37, "forever", 15, 615, [45, 39, null]],
+[38, ["vspace", 0], 220, 953, [27, 85]],
+[39, "ifelse", 116, 633, [37, 42, 40, 41, null]],
+[40, ["vspace", 0], 220, 701, [39, 18]],
+[41, "stopstack", 272, 701, [39, null]],
+[42, ["greater2", 0], 206, 599, [39, 44, 43, null]],
+[43, ["number", -1], 276, 641, [42, null]],
+[44, "ycor", 252, 599, [42, null]],
+[45, "hat", 15, 565, [null, 46, 37]],
+[46, ["string", "shoot"], 76, 573, [45, null]],
+[47, "stack", 564, 906, [29, 48, 15]],
+[48, ["string", "shoot"], 625, 906, [47, null]],
+[49, "setpensize", 639, 440, [1, 50, 54]],
+[50, ["number", 1], 746, 440, [49, null]],
+[51, "storeinbox1", 488, 586, [81, 52, 55]],
+[52, "volume", 622, 586, [51, null]],
+[53, "if", 488, 670, [55, 56, 14, null]],
+[54, "forever", 639, 482, [49, 83, null]],
+[55, ["vspace", 0], 488, 628, [51, 53]],
+[56, ["greater2", 0], 550, 636, [53, 57, 58, null]],
+[57, "box1", 596, 636, [56, null]],
+[58, ["number", 300.0], 620, 678, [56, null]],
+[59, ["division2", 0], 192, 327, [63, 61, 62]],
+[60, ["number", 30.0], 192, 285, [63, null]],
+[61, "box1", 246, 327, [59, null]],
+[62, "width", 270, 369, [59, null]],
+[63, ["product2", 0], 138, 285, [5, 60, 59]],
+[64, ["product2", 0], 138, 447, [33, 32, 65]],
+[65, ["division2", 0], 192, 489, [64, 66, 67]],
+[66, "box1", 246, 489, [65, null]],
+[67, "height", 270, 531, [65, null]],
+[68, ["fillscreen", 0], 639, 188, [98, 69, 70, 21]],
+[69, ["number", 60], 779, 188, [68, null]],
+[70, ["number", 80], 779, 230, [68, null]],
+[71, "readpixel", 921, 139, [87, 80]],
+[72, "pop", 1029, 189, [89, null]],
+[73, "pop", 1105, 299, [90, null]],
+[74, "pop", 1181, 409, [91, null]],
+[75, "if", 921, 223, [80, 89, 76, null]],
+[76, ["vspace", 0], 997, 291, [75, 77]],
+[77, "if", 997, 333, [76, 90, 78, null]],
+[78, ["vspace", 0], 1073, 401, [77, 79]],
+[79, "if", 1073, 443, [78, 91, 95, null]],
+[80, ["vspace", 0], 921, 181, [71, 75]],
+[81, "hat", 488, 536, [null, 82, 51]],
+[82, ["string", "trigger"], 549, 544, [81, null]],
+[83, "stack", 740, 500, [54, 84, null]],
+[84, ["string", "trigger"], 801, 500, [83, null]],
+[85, "stack", 220, 995, [38, 86, 99]],
+[86, ["string", "test"], 281, 995, [85, null]],
+[87, "hat", 921, 89, [null, 88, 71]],
+[88, ["string", "test"], 982, 97, [87, null]],
+[89, ["equal2", 0], 983, 189, [75, 72, 92, null]],
+[90, ["equal2", 0], 1059, 299, [77, 73, 93, null]],
+[91, ["equal2", 0], 1135, 409, [79, 74, 94, null]],
+[92, ["number", 255.0], 1029, 231, [89, null]],
+[93, ["number", 255.0], 1105, 341, [90, null]],
+[94, ["number", 255.0], 1181, 451, [91, null]],
+[95, "print", 1149, 511, [79, 96, 97]],
+[96, ["string", "BASKET"], 1226, 511, [95, null]],
+[97, "stopstack", 1149, 553, [95, null]],
+[98, "clean", 639, 146, [100, 68]],
+[99, "clearheap", 220, 1037, [85, null]],
+[100, "hideblocks", 639, 104, [0, 98]]]