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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
|
run file "core.nom"
lua block ".."
|do -- Use a closure to hide this behind the accessor rules
| local relations = setmetatable({}, {__index=function(self,key)
| local t = {}
| self[key] = t
| return t
| end})
| compiler:def("%key %relation ?", function(_,vars)
| return relations[vars.relation][vars.key]
| end)
| compiler:def("%key %relation = %value", function(_,vars)
| relations[vars.relation][vars.key] = vars.value
| end)
| compiler:def("* %relation = %value", function(_,vars)
| local result = {}
| for k,v in pairs(relations[vars.relation]) do
| if utils.equivalent(v, vars.value) then
| table.insert(result, k)
| end
| end
| return result
| end)
|end
rule "set all * %relation = %value":
for "key" in (* %relation = %value):
%key %relation = %value
rule "you":
lua expr "(you or 'Anonymous')"
rule ["make %person %action", "make %person do %action"]:
lua block [..]
"do"
"\n local old_you = you"
"\n you = vars.person"
"\n ret = compiler:call('do %', vars.action)"
"\n you = old_you"
"\nend"
say "===================================================="
say " NEW GAME"
say "===================================================="
rule "everyone approves %action": yes
rule "with everyone's approval %action":
if (everyone approves %action):
do %action
..else:
say "You do not have the will of the people! >:("
restrict "rule % %" to within "with everyone's approval %"
restrict "make % %" to within "with everyone's approval %"
restrict "set all * % = %" to within "with everyone's approval %"
restrict "% % = %" to within "with everyone's approval %"
restrict "restrict % to within %" to within "with everyone's approval %"
with everyone's approval:
rule "propose %action":
if ("pending proposal" "is" ?):
say "Sorry, an action is already pending."
..else:
say "Proposing..."
"pending proposal" "is" = %action
rule "unpropose":
let "pending" = ("pending proposal" "is" ?)
set all * %pending = (nil)
"pending proposal" "is" = (nil)
rule "mark %who as approving %action":
%who %action = "approved"
rule "mark %who as rejecting %action":
%who %action = "rejected"
rule ["approve", "vote yes", "vote yea"]:
let "pending" = ("pending proposal" "is" ?)
if (%pending == (nil)):
say "Nothing is currently pending!"
return
mark (you) as approving %pending
if (everyone approves %pending):
say "The motion passes!"
with everyone's approval %pending
unpropose
..else:
let "approvers" = (number of (* %pending = "approved"))
let "num-players" = (number of (players))
printf [%approvers, "/", %num-players, " players have approved"]
rule ["reject", "vote no", "vote nay", "veto", "disapprove"]:
let "pending" = ("pending proposal" "is" ?)
if (%pending == (nil)):
say "Nothing is currently pending!"
return
mark (you) as rejecting %pending
unpropose
rule ["players", "everyone", "everybody", "all players"]:
* "is a player" = (yes)
rule "join":
(you) "is a player" = (yes)
printf ["Welcome to the game, ", you,"!"]
allow "unpropose" to use "set all * % = %"
allow ["join", "mark % as approving %", "mark % as rejecting %", "propose %", "unpropose"] to use "% % = %"
restrict "unpropose" to within ["approve", "reject"]
restrict "mark % as approving %" to within ["propose %", "approve"]
restrict "mark % as rejecting %" to within ["propose %", "reject"]
rule "everyone approves %action":
(number of (players)) == (number of (* %action = "approved"))
join
propose:
say "fart"
approve
propose:
"democracy" "is possible" = (yes)
if ("democracy" "is possible" ?):
say "DEMOCRACY WORKS!!!"
approve
propose:
rule "fart":
say "poot"
say "fart should have been defined"
approve
say "doop"
fart
propose:
rule "open election %candidates":
if ("candidates" "are" ?):
say "An election is already in progress."
..else:
"candidates" "are" = %candidates
rule "close the election":
set all * "votes for" = (nil)
"candidates" "are" = (nil)
rule "vote for %candidate":
(you) "votes for" = %candidate
let "vote-percent" = ((number of (* "votes for" = %candidate)) / (number of (players)))
printf ["Vote cast. ",%candidate," now has ",(100 * %vote-percent),"% of the votes."]
if (%vote-percent > 0.5):
printf ["The winner of the election is:", %candidate]
close the election
allow ["open election %", "close the election", "vote for %"] to use ["% % = %"]
allow ["close the election"] to use ["set all * % = %"]
approve
propose:
rule "as bill %action":
if ((you) == "Anonymous"):
make "bill" do %action
..else:
printf ["Who do you think you are, ", you,"?"]
allow ["as bill %"] to use ["make % %"]
approve
as bill: join
propose:
rule "as dave %action":
if ((you) == "Anonymous"):
make "dave" do %action
..else:
printf ["Who do you think you are, ", you,"?"]
allow ["as dave %"] to use ["make % %"]
approve
as bill: approve
as dave: join
open election ["tom", "dick", "harry"]
vote for "dick"
as bill: vote for "dick"
propose:
rule "take a shit": say "shit taken."
approve
as bill: approve
as dave: approve
take a shit
say "Done."
|
