blob: 53cbc0838b8175088311a73cd67a3aa191c60258 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
(fate_version 1)
(global int i)
(global int index_a)
(global int index_b)
(global int index_c)
(player_choice
(for
(
(index_a 0)
)
(< index_a 10)
(
(index_a (+ 1 index_a))
)
(option
( Option at index (var index_a) )
You selected option at index (var index_a)
)
)
)
(player_choice
(option
( Wrong Choice 0 )
(set i 1)
(assert (false) FAILED: Player Choice A)
)
(option
( Right Choice )
Took the right choice.
(set i 2)
)
(option
( Wrong Choice 1 )
(set i 1)
(assert (false) FAILED: Player Choice B)
)
)
(assert (= (var i) 2) FAILED: Player Choice C, i: (var i))
(player_choice
(if (false)
(option
( Wrong Choice 0 )
(set i 1)
)
)
(ifelse (false)
(option
( Wrong Choice 1 )
(set i 3)
)
(if (true)
(option
( Right Choice )
(set i 6)
)
)
)
)
(assert (= (var i) 6) FAILED: Player Choice D, i: (var i))
(global (set int) test_set)
(while (>= (var i) 0)
(add! (var i) test_set)
(set i (- (var i) 1))
)
(foreach test_set e
(var e)
)
(player_choice
(if (false)
(option
( Wrong Choice -1 )
(set i 1)
)
)
(foreach test_set e
(ifelse (= (var e) 3)
(option
( Correct Choice (var e) )
(
Chosen var e: (var e)
(set i 653)
)
)
(option
( Wrong Choice (var e) )
(
Chosen var e: (var e)
(set i (var e))
)
)
)
)
(ifelse (false)
(option
( Wrong Choice 1 )
(set i 3)
)
(option
( Wrong Choice Other )
(set i 6)
)
)
)
(assert (= (var i) 653) FAILED: Player Choice E, i: (var i))
(player_choice
(foreach test_set e
(if (= (rand 0 1) 1)
(option
( Choice (var e) )
(
Chosen var e: (var e)
)
)
)
)
)
(end)
|
