16 lines
486 B
Plaintext
16 lines
486 B
Plaintext
100 cls
|
|
110 monton = 12
|
|
120 llevar = 0
|
|
130 do while monton > 0
|
|
140 print using "There are ## tokens remaining. How many would you like to take";monton;
|
|
150 input llevar
|
|
160 do while llevar = 0 or llevar > 3
|
|
170 input "You must take 1, 2, or 3 tokens. How many would you like to take";llevar
|
|
180 loop
|
|
190 print "On my turn I will take";4-llevar;" token(s)."
|
|
200 monton = monton-4
|
|
210 loop
|
|
220 print
|
|
230 print "I got the last token. I win! Better luck next time."
|
|
240 end
|