Trimming some dead code.
This commit is contained in:
Bruce Hill
parent
e4ca1cace7
commit
052504a86b
326
game1.moon
326
game1.moon
@ -1,326 +0,0 @@
|
|||||||
#!/usr/bin/env moon
|
|
||||||
utils = require 'utils'
|
|
||||||
Game = require 'nomic'
|
|
||||||
core_game = require 'core'
|
|
||||||
|
|
||||||
game = Game(core_game)
|
|
||||||
|
|
||||||
game\def "# $key $relation = $value", (args)=>
|
|
||||||
--print "Setting #{args.key} #{args.relation} = #{args.value}"
|
|
||||||
@relations[args.relation][args.key] = args.value
|
|
||||||
return args.value
|
|
||||||
|
|
||||||
game\def "set all * $relation = $value", (args)=>
|
|
||||||
rels = @relations[args.relation]
|
|
||||||
for k,_ in pairs rels
|
|
||||||
rels[k] = args.value
|
|
||||||
if next(rels) == nil
|
|
||||||
@relations[args.relation] = nil
|
|
||||||
return args.value
|
|
||||||
|
|
||||||
game\def "$key $relation ?", (args)=>
|
|
||||||
return @relations[args.relation][args.key]
|
|
||||||
|
|
||||||
deep_pairs = (t)->
|
|
||||||
coroutine.wrap ->
|
|
||||||
for k,v in pairs(t)
|
|
||||||
coroutine.yield k, v
|
|
||||||
mt = getmetatable(t)
|
|
||||||
return unless mt and mt.__index and type(mt.__index) == 'table' and mt.__index != t
|
|
||||||
for k,v in deep_pairs mt.__index
|
|
||||||
if t[k] == nil
|
|
||||||
coroutine.yield k,v
|
|
||||||
|
|
||||||
game\def "* $relation = $value", (args)=>
|
|
||||||
--print "Finding all * #{args.relation} = #{args.value}"
|
|
||||||
[key for key, value in deep_pairs(@relations[args.relation]) when value == args.value]
|
|
||||||
|
|
||||||
game\def {"restrict $actions to $whitelist"}, (args)=>
|
|
||||||
with args
|
|
||||||
actions = @canonicalize(if type(.actions) == 'table' then .actions else {.actions})
|
|
||||||
whitelist = @all_aliases(if type(.whitelist) == 'table' then .whitelist else {.whitelist})
|
|
||||||
@\set_whitelist actions, whitelist
|
|
||||||
for action in *actions
|
|
||||||
print("Restricting #{utils.repr(action)} to #{utils.repr(whitelist)}")
|
|
||||||
|
|
||||||
game\def {"permit $whitelist to $actions"}, (args)=>
|
|
||||||
with args
|
|
||||||
actions = @canonicalize(if type(.actions) == 'table' then .actions else {.actions})
|
|
||||||
whitelist = @all_aliases(if type(.whitelist) == 'table' then .whitelist else {.whitelist})
|
|
||||||
for action in *actions
|
|
||||||
if not @authorized[action]
|
|
||||||
print "#{action} is already available to everyone."
|
|
||||||
continue
|
|
||||||
print("Permitting #{utils.repr(action)} to #{utils.repr(whitelist)}")
|
|
||||||
for w in *whitelist
|
|
||||||
@authorized[action][w] = true
|
|
||||||
|
|
||||||
game\def {"revoke $actions rights from $whitelist"}, (args)=>
|
|
||||||
with args
|
|
||||||
actions = @canonicalize(if type(.actions) == 'table' then .actions else {.actions})
|
|
||||||
whitelist = @all_aliases(if type(.whitelist) == 'table' then .whitelist else {.whitelist})
|
|
||||||
for action in *actions
|
|
||||||
if not @authorized[action]
|
|
||||||
print "#{action} is available to everyone, it can't be restricted."
|
|
||||||
continue
|
|
||||||
print("Revoking the right of #{utils.repr(action)} to use #{utils.repr(whitelist)}")
|
|
||||||
for w in *whitelist
|
|
||||||
@authorized[action][w] = nil
|
|
||||||
|
|
||||||
game\def "print callstack", (args)=>
|
|
||||||
print("Callstack:")
|
|
||||||
for fn in *@callstack
|
|
||||||
print fn
|
|
||||||
|
|
||||||
game\def {"do $action"}, (args)=>
|
|
||||||
(args.action)(@, {})
|
|
||||||
|
|
||||||
game\def {"make $who $action"}, (args)=>
|
|
||||||
with args
|
|
||||||
old_you = @you
|
|
||||||
print("Setting you=#{.who}")
|
|
||||||
rawset(@, "you", .who)
|
|
||||||
(.action)(@, {})
|
|
||||||
rawset(@, "you", old_you)
|
|
||||||
|
|
||||||
game\def "you", (args)=> @you
|
|
||||||
|
|
||||||
game\run[=[
|
|
||||||
say "===================================================="
|
|
||||||
say " NEW GAME"
|
|
||||||
say "===================================================="
|
|
||||||
"everyone approves $action" := {yes}
|
|
||||||
|
|
||||||
"sudo $action" := {
|
|
||||||
if (everyone approves $action) {
|
|
||||||
do $action
|
|
||||||
} else {
|
|
||||||
say "You do not have the will of the people! >:("
|
|
||||||
}
|
|
||||||
}
|
|
||||||
restrict "$ := $" to "sudo $"
|
|
||||||
restrict "make $ $" to "sudo $"
|
|
||||||
restrict "set all * $ = $" to "sudo $"
|
|
||||||
restrict "# $ $ = $" to "sudo $"
|
|
||||||
restrict "restrict $ to $" to "sudo $"
|
|
||||||
|
|
||||||
sudo {
|
|
||||||
"propose $action" := {
|
|
||||||
if ("pending proposal" "is" ?) {
|
|
||||||
say "Sorry, an action is already pending."
|
|
||||||
} else {
|
|
||||||
say "Proposing..."
|
|
||||||
# "pending proposal" "is" = $action
|
|
||||||
}
|
|
||||||
}
|
|
||||||
"unpropose" := {
|
|
||||||
let "pending" = ("pending proposal" "is" ?)
|
|
||||||
set all * $pending = (nil)
|
|
||||||
# "pending proposal" "is" = (nil)
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
"mark $who as approving $action" := {
|
|
||||||
# $who $action = "approved"
|
|
||||||
}
|
|
||||||
|
|
||||||
"mark $who as rejecting $action" := {
|
|
||||||
# $who $action = "rejected"
|
|
||||||
}
|
|
||||||
|
|
||||||
["approve", "vote yes", "vote yea"] := {
|
|
||||||
let "pending" = ("pending proposal" "is" ?)
|
|
||||||
mark (you) as approving $pending
|
|
||||||
say "Voted yes."
|
|
||||||
if (everyone approves $pending) {
|
|
||||||
sudo $pending
|
|
||||||
unpropose
|
|
||||||
} else {
|
|
||||||
let "approvers" = (# (* $pending = "approved"))
|
|
||||||
let "num-players" = (# (players))
|
|
||||||
printf [$approvers, "/", $num-players, " players have approved"]
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
["reject", "vote no", "vote nay", "veto", "disapprove"] := {
|
|
||||||
let "pending" = ("pending proposal" "is" ?)
|
|
||||||
mark (you) as rejecting $pending
|
|
||||||
say "Voted no."
|
|
||||||
unpropose
|
|
||||||
}
|
|
||||||
|
|
||||||
["players", "everyone", "everybody", "all players"] := {
|
|
||||||
* "is a player" = (yes)
|
|
||||||
}
|
|
||||||
|
|
||||||
"join" := {
|
|
||||||
# (you) "is a player" = (yes)
|
|
||||||
printf ["Welcome to the game, ",(you),"!"]
|
|
||||||
}
|
|
||||||
permit "unpropose" to "set all * $ = $"
|
|
||||||
permit ["join", "mark $ as approving $", "mark $ as rejecting $", "propose $", "unpropose"] to "# $ $ = $"
|
|
||||||
restrict "unpropose" to ["approve", "reject"]
|
|
||||||
restrict "mark $ as approving $" to ["propose $", "approve"]
|
|
||||||
restrict "mark $ as rejecting $" to ["propose $", "reject"]
|
|
||||||
|
|
||||||
"everyone approves $action" := {
|
|
||||||
(# (players)) == (# (* $action = "approved"))
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
join
|
|
||||||
|
|
||||||
propose {
|
|
||||||
say "fart"
|
|
||||||
}
|
|
||||||
approve
|
|
||||||
|
|
||||||
|
|
||||||
"cheat" := {
|
|
||||||
say "CHEATER!!!"
|
|
||||||
}
|
|
||||||
sudo {
|
|
||||||
say "CHEATER!!!"
|
|
||||||
}
|
|
||||||
|
|
||||||
propose {
|
|
||||||
# "democracy" "is possible" = (yes)
|
|
||||||
if ("democracy" "is possible" ?) {
|
|
||||||
say "DEMOCRACY WORKS!!!"
|
|
||||||
}
|
|
||||||
}
|
|
||||||
approve
|
|
||||||
|
|
||||||
propose {
|
|
||||||
"fart" := {
|
|
||||||
say "poot"
|
|
||||||
}
|
|
||||||
say "fart should have been defined"
|
|
||||||
}
|
|
||||||
approve
|
|
||||||
say "doop"
|
|
||||||
fart
|
|
||||||
|
|
||||||
propose {
|
|
||||||
"open election $candidates" := {
|
|
||||||
if ("candidates" "are" ?) {
|
|
||||||
say "An election is already in progress."
|
|
||||||
} else {
|
|
||||||
# "candidates" "are" = $candidates
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
"close election" := {
|
|
||||||
let "pending" = ("pending proposal" "is" ?)
|
|
||||||
set all * "votes for" = (nil)
|
|
||||||
# "candidates" "are" = (nil)
|
|
||||||
}
|
|
||||||
|
|
||||||
"vote for $candidate" := {
|
|
||||||
# (you) "votes for" = $candidate
|
|
||||||
let "vote-percent" = ((# (* "votes for" = $candidate)) / (# (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 election
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
permit ["open election $", "close election", "vote for $"] to ["# $ $ = $"]
|
|
||||||
permit ["close election"] to ["set all * $ = $"]
|
|
||||||
}
|
|
||||||
approve
|
|
||||||
|
|
||||||
propose {
|
|
||||||
"as bill: $action" := {
|
|
||||||
if ((you) == "Anonymous") {
|
|
||||||
make "bill" $action
|
|
||||||
} else {
|
|
||||||
printf ["Who do you think you are?", (you)]
|
|
||||||
}
|
|
||||||
}
|
|
||||||
permit ["as bill: $"] to ["make $ $"]
|
|
||||||
}
|
|
||||||
approve
|
|
||||||
as bill: {join}
|
|
||||||
|
|
||||||
propose {
|
|
||||||
"as dave: $action" := {
|
|
||||||
if ((you) == "Anonymous") {
|
|
||||||
make "dave" $action
|
|
||||||
} else {
|
|
||||||
printf ["Who do you think you are?", (you)]
|
|
||||||
}
|
|
||||||
}
|
|
||||||
permit ["as dave: $"] to ["make $ $"]
|
|
||||||
}
|
|
||||||
approve
|
|
||||||
as bill: {approve}
|
|
||||||
as dave: {join}
|
|
||||||
|
|
||||||
open election ["tom", "dick", "harry"]
|
|
||||||
vote for "dick"
|
|
||||||
as bill: {vote for "dick"}
|
|
||||||
|
|
||||||
propose {
|
|
||||||
"take a shit" := {say "shit taken."}
|
|
||||||
}
|
|
||||||
approve
|
|
||||||
as bill: {approve}
|
|
||||||
as dave: {approve}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
sudo {
|
|
||||||
"everyone approves" := {
|
|
||||||
(# (players)) == (# (* "votes" (yes)))
|
|
||||||
}
|
|
||||||
["approve", "vote yes", "vote yea"] := {
|
|
||||||
# (you) "votes" = (yes)
|
|
||||||
if (everyone approves) {
|
|
||||||
do pending action
|
|
||||||
}
|
|
||||||
}
|
|
||||||
["disapprove", "vote no", "vote nay", "veto"] := {
|
|
||||||
say "The proposal has failed."
|
|
||||||
# (you) "approves" = (yes)
|
|
||||||
if (everyone approves) {
|
|
||||||
do pending action
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
sudo {
|
|
||||||
"everyone approves" := {
|
|
||||||
say "Going into this code"
|
|
||||||
no
|
|
||||||
}
|
|
||||||
}
|
|
||||||
sudo {
|
|
||||||
say "BROKEN"
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
propose {
|
|
||||||
"arbitrarily define $signature := $body" := {
|
|
||||||
if ($signature == "butts") {
|
|
||||||
$signature := $body
|
|
||||||
} else {
|
|
||||||
say "Not my style."
|
|
||||||
}
|
|
||||||
}
|
|
||||||
permit "arbitrarily define $ := $" to "$ := $"
|
|
||||||
say "Arbitrary is a go."
|
|
||||||
}
|
|
||||||
as bill: {approve}
|
|
||||||
as dave: {approve}
|
|
||||||
approve
|
|
||||||
arbitrarily define "butts" := {say "BUTTS"}
|
|
||||||
butts
|
|
||||||
|
|
||||||
]=]
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
125
game2.moon
125
game2.moon
@ -1,125 +0,0 @@
|
|||||||
#!/usr/bin/env moon
|
|
||||||
utils = require 'utils'
|
|
||||||
Game = require 'nomic'
|
|
||||||
g = Game(require'core')
|
|
||||||
|
|
||||||
print("===========================================================================================")
|
|
||||||
|
|
||||||
|
|
||||||
g\run[[
|
|
||||||
|
|
||||||
say [..]
|
|
||||||
"this is a stupidly long list", "the items go way past the 80 character", "limit that older consoles"
|
|
||||||
"had.", "It just keeps going and going"
|
|
||||||
|
|
||||||
rule "dumbfunc %a %b %c %d %e":
|
|
||||||
say "doop"
|
|
||||||
|
|
||||||
dumbfunc..
|
|
||||||
"this is a stupidly long set of arguments" "the items go way past the 80 character" "limit that older consoles"
|
|
||||||
"had." "It just keeps going and going"
|
|
||||||
|
|
||||||
]]
|
|
||||||
g\run[[
|
|
||||||
rule "four": return 4
|
|
||||||
rule "say both %one and %two":
|
|
||||||
say %one
|
|
||||||
say %two
|
|
||||||
|
|
||||||
say both ..
|
|
||||||
"a list:"
|
|
||||||
and [..]
|
|
||||||
1,2,3,(four),(5)
|
|
||||||
|
|
||||||
say "done"
|
|
||||||
]]
|
|
||||||
|
|
||||||
g\run[[
|
|
||||||
rule "do %thing also %also-thing":
|
|
||||||
do %thing
|
|
||||||
do %also-thing
|
|
||||||
return 99
|
|
||||||
]]
|
|
||||||
g\run[[
|
|
||||||
do: say "one liner"
|
|
||||||
..also: say "another one liner"
|
|
||||||
]]
|
|
||||||
g\run[[
|
|
||||||
|
|
||||||
say (..)
|
|
||||||
do:
|
|
||||||
say "hi"
|
|
||||||
return 5
|
|
||||||
say "bye"
|
|
||||||
|
|
||||||
]]
|
|
||||||
g\run[[
|
|
||||||
say (do: return "wow")
|
|
||||||
if 1: say "hi1" ..else: say "bye1"
|
|
||||||
|
|
||||||
if 1: say "hi2"
|
|
||||||
..else: say "bye2"
|
|
||||||
|
|
||||||
]]
|
|
||||||
g\run[[
|
|
||||||
rule "foo %x":
|
|
||||||
if %x:
|
|
||||||
say "YES"
|
|
||||||
55
|
|
||||||
..else:
|
|
||||||
say "NO"
|
|
||||||
-99
|
|
||||||
|
|
||||||
say (foo 1)
|
|
||||||
say (foo (false))
|
|
||||||
|
|
||||||
]]
|
|
||||||
|
|
||||||
g\run[[
|
|
||||||
say (1 + (-(2 * 3)))
|
|
||||||
]]
|
|
||||||
|
|
||||||
g\run[[
|
|
||||||
for "x" in ["A","B","C"]:
|
|
||||||
say %x
|
|
||||||
]]
|
|
||||||
g\run[[
|
|
||||||
say (for "x" in [1,2,3]:%x + 100)
|
|
||||||
say (..)
|
|
||||||
for "x" in [1,2,3]:
|
|
||||||
%x + 200
|
|
||||||
]]
|
|
||||||
|
|
||||||
g\run[[
|
|
||||||
if (1 == 1):
|
|
||||||
say "Simple macros work!"
|
|
||||||
unless (1 > 2):
|
|
||||||
say "This one too!"
|
|
||||||
]]
|
|
||||||
|
|
||||||
g\simplemacro [[smet %varname = %value]],[[
|
|
||||||
lua ["vars[\"", %varname, "\"] = ", %value]
|
|
||||||
lua ["vars[\"", %varname, "\"] = 2*vars[\"", %varname, "\"]"]
|
|
||||||
]]
|
|
||||||
|
|
||||||
g\run[[
|
|
||||||
smet "fnord" = 23
|
|
||||||
say %fnord
|
|
||||||
]]
|
|
||||||
|
|
||||||
g\run[[
|
|
||||||
|
|
||||||
rule "fizz buzz":
|
|
||||||
for "i" = 1 to 100:
|
|
||||||
if ((%i mod 15) == 0):
|
|
||||||
say "fizzbuzz"
|
|
||||||
..else: if ((%i mod 3) == 0):
|
|
||||||
say "fizz"
|
|
||||||
..else: if ((%i mod 5) == 0):
|
|
||||||
say "buzz"
|
|
||||||
..else:
|
|
||||||
say %i
|
|
||||||
|
|
||||||
fizz buzz
|
|
||||||
|
|
||||||
]]
|
|
||||||
188
sample_game.nom
Normal file
188
sample_game.nom
Normal file
@ -0,0 +1,188 @@
|
|||||||
|
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) 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" ?)
|
||||||
|
mark (you) as approving %pending
|
||||||
|
say "Voted yes."
|
||||||
|
if (everyone approves %pending):
|
||||||
|
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" ?)
|
||||||
|
mark (you) as rejecting %pending
|
||||||
|
say "Voted no."
|
||||||
|
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
|
||||||
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user