if (type >= 1) {
sp_state = "bid" # {new,join,bid,pass,play}
sp_broken = 0 # Whether spades are broken
+ delete sp_last # [x] The result of the last hand
delete sp_hands # [p] Each players cards
delete sp_looked # [i] Whether a player has looked a their cards
delete sp_bids # [i] Each players bid
# Per round
game["state"] = sp_state;
game["broken"] = sp_broken;
+ json_copy(game, "last", sp_last);
json_copy(game, "looked", sp_looked);
json_copy(game, "bids", sp_bids);
json_copy(game, "nil", sp_nil);
# Per round
sp_state = game["state"];
sp_broken = game["broken"];
+ sp_acopy(sp_last, game["last"]);
sp_acopy(sp_looked, game["looked"]);
sp_acopy(sp_bids, game["bids"]);
sp_acopy(sp_nil, game["nil"]);
sp_tricks[pi]++
say(sp_pile[winner] " wins with " sp_pretty(winner, FROM) \
" (" sp_pretty(sp_piles, FROM) ")")
+ sp_last["player"] = sp_pile[winner];
+ sp_last["pile"] = sp_piles;
sp_next(sp_pile[winner])
sp_reset(0)
}
say(".bid [n] -- bid for <n> tricks")
say(".pass [card] -- pass a card to your partner")
say(".play [card] -- play a card")
+ say(".last -- show who took the previous trick")
say(".turn -- check whose turn it is")
say(".bids -- check what everyone bid")
say(".tricks -- check how many trick have been taken")
if (!(_card in sp_deck)) {
reply("Invalid card")
}
- else if (!(_card in sp_hands[sp_from])) {
- reply("You do not have that card")
- }
else if (sp_suit && _card !~ sp_suit && sp_hasa(sp_from, sp_suit)) {
reply("You must follow suit (" sp_suit ")")
}
else if (_card ~ /s/ && length(sp_pile) == 0 && sp_hasa(sp_from, "[^s]$") && !sp_broken) {
reply("Spades have not been broken")
}
+ else if (!(_card in sp_hands[sp_from])) {
+ reply("You do not have that card")
+ }
else {
sp_play(_card)
if (sp_state == "play") {
}
}
+/^\.last/ && sp_state == "play" {
+ if (!isarray(sp_last))
+ say("No tricks have been taken!");
+ else
+ say(sp_last["player"] " took " \
+ sp_pretty(sp_last["hand"], FROM));
+}
+
/^\.bids/ && sp_state == "bid" ||
/^\.turn/ && sp_state ~ "(bid|pass|play)" {
_bids = sp_bidders()