29 lines
817 B
Text
29 lines
817 B
Text
func ShowTokens(Tokens);
|
|
int Tokens;
|
|
[Text(0, "Tokens remaining: ");
|
|
IntOut(0, Tokens);
|
|
CrLf(0); CrLf(0);
|
|
];
|
|
|
|
int Tokens, T, CT;
|
|
[Tokens:= 12;
|
|
loop [ShowTokens(Tokens);
|
|
Text(0, " How many Tokens (1, 2 or 3)? ");
|
|
T:= IntIn(0);
|
|
if T < 1 or T > 3 then
|
|
Text(0, "^m^jMust be a number between 1 and 3. Try again.^m^j^m^j")
|
|
else [CT:= 4 - T;
|
|
Text(0, " Computer takes ");
|
|
IntOut(0, CT);
|
|
Text(0, " token");
|
|
if CT # 1 then ChOut(0, ^s);
|
|
Text(0, ".^m^j^m^j");
|
|
Tokens:= Tokens - 4;
|
|
];
|
|
if Tokens = 0 then
|
|
[ShowTokens(0);
|
|
Text(0, " Computer wins!^m^j");
|
|
return;
|
|
];
|
|
];
|
|
]
|