/
Fourdiopolis Beta Testing.i7x
97 lines (71 loc) · 2.89 KB
/
Fourdiopolis Beta Testing.i7x
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
Version 1/230825 of Fourdiopolis Beta Testing by Andrew Schultz begins here.
"This encompasses rare cases where we want commands available to beta testers but not to end players."
volume beta testing - not for release
when play begins:
now beta-state is true;
if debug-state is true, continue the action;
unless currently transcripting:
say "Transcripts are a big help to me. Send them to [email]. After you press a key, a dialog will appear telling what to save a transcript to. You can preface any comments with a punctuation mark e.g. >*This needs to be implemented[roman type].[paragraph break]Thanks!";
wfak;
try switching the story transcript on;
else:
say "Thanks for taking a transcript! [email]."
chapter foing
[ * this forces you into scenario # (X). 1=friends 2=education 3=supplies 4=marginalized 5=fun 6=last names. Negative values clear that scenario. I do not rigorously check here for impossible game states. ]
foing is an action applying to one number.
foxing is an action applying to nothing.
understand the command "fo" as something new.
understand "fo" as foxing.
carry out foxing:
say "1-6 are the possible numbers." instead;
understand "fo [number]" as foing.
carry out foing:
let whichtable be the number understood;
if number understood < 0 or number understood > 6, say "1-6 please. 1=friends 2=education 3=supplies 4=marginalized 5=fun 6=last names. Or negative, to clear the table." instead;
if number understood is 0:
say "Choosing friends.";
shift-scen FRI;
else:
let tmp be entry whichtable of scenario-list;
say "Switching to [tmp].";
shift-scen tmp;
repeat through your-table:
now found entry is 0;
say "All found entries cleared for [cur-scen].";
the rule succeeds;
chapter fiing
[ * this fixes the number of things solved from 1 to 20 ]
fiing is an action applying to one number.
understand the command "fi" as something new.
understand "fi" as foxing.
understand "fi [number]" as fiing.
carry out fiing:
let count be 0;
if number understood < 0 or number understood > number of rows in your-table, say "0-[number of rows in your-table] please." instead;
repeat through your-table:
increment count;
if count > number understood:
now found entry is 0;
else:
now found entry is 1;
if number understood is 0:
say "Cleared all entries to 0.";
else if number understood is number of rows in your-table:
say "Set all entries to 1.";
else:
say "First [number understood] entries are 1, last are 0. X to make sure.";
now score is number understood;
the rule succeeds;
chapter scing
scing is an action out of world.
understand the command "sc" as something new.
understand "sc" as scing.
carry out scing:
repeat with this-tab running through scenery-tables:
repeat through this-tab:
if found entry is not -1:
now found entry is 0;
say "Scenery cleared.";
the rule succeeds;
Fourdiopolis Beta Testing ends here.
---- DOCUMENTATION ----