if (type >= 1) {
sp_state = "bid" # {new,join,bid,pass,play}
sp_broken = 0 # Whether spades are broken
+ 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
delete sp_nil # [i] Nil multiplier 0=regular, 1=nil, 2=blind
sp_turn = 0 # Index of who's turn it is
sp_player = "" # Who's turn it is
sp_limit = 10 # Bag out limit / nil bonus
- delete sp_hands # [p] Each players cards
delete sp_players # [p] Player names players["name"] -> i
delete sp_auths # [c] Player auth names auths["auth"] -> "name"
delete sp_share # [c] Player teammates share["friend"] -> "name"
delete sp_order # [i] Player order order[i] -> "name"
delete sp_scores # [i] Teams score
}
+
+ # Persistent
+ if (type >= 3) {
+ delete sp_notify # [p] E-mail notification address
+ }
}
function sp_acopy(dst, src, key)
{
- if (isarray(src))
+ if (isarray(src)) {
+ delete(dst)
for (key in src)
json_copy(dst, key, src[key])
+ }
}
function sp_save(file, game)
json_copy(game, "share", sp_share);
json_copy(game, "order", sp_order);
json_copy(game, "scores", sp_scores);
+ json_copy(game, "notify", sp_notify);
# Save
json_save(file, game);
sp_acopy(sp_share, game["share"]);
sp_acopy(sp_order, game["order"]);
sp_acopy(sp_scores, game["scores"]);
+ sp_acopy(sp_notify, game["notify"]);
}
function sp_pretty(cards, who)
sp_dealer = (sp_dealer+1)%4
sp_turn = sp_dealer
sp_player = sp_order[sp_turn]
- say("Bidding starts with " sp_player "!")
+ say(sp_player ": you bid first!")
}
function sp_hand(to, who, sort, str)
sp_scores[i%2] += sp_limit * 10 * sp_nil[i] * \
(sp_tricks[i] == 0 ? 1 : -1)
}
+ if (sp_scores[0] > sp_scores[1])
+ say(sp_team(0) " lead " sp_scores[0] " to " sp_scores[1] " of " sp_playto)
+ else if (sp_scores[1] > sp_scores[0])
+ say(sp_team(1) " lead " sp_scores[1] " to " sp_scores[0] " of " sp_playto)
+ else
+ say("tied at " sp_scores[0])
}
function sp_play(card, winner, pi)
}
# Help
+/^\.help$/ {
+ say(".help spades -- play a game of spades")
+}
+
/^\.help [Ss]pades$/ {
say("Spades -- play a game of spades")
say(".help game -- setup and administer the game")
say(".allow [who] -- allow another person to play on your behalf")
say(".deny [who] -- prevent a previously allowed user from playing")
say(".show -- display which users can play for which players")
+ say(".notify [addr] -- email user when it is their turn")
next
}
# Setup
-match($0, /^\.newgame ?([0-9]+) *- *([0-9]+)$/, _arr) {
+match($0, /^\.newgame ?([1-9][0-9]*) *- *([1-9][0-9]*)$/, _arr) {
if (_arr[2] > _arr[1])
$0 = $1 " " int(rand() * (_arr[2]-_arr[1])+_arr[1])
}
-/^\.newgame ?([0-9]+)?$/ {
+/^\.newgame ?([1-9][0-9]*)?$/ {
if (sp_state != "new") {
reply("There is already a game in progress.")
} else {
}
}
+/^\.notify$/ {
+ if (sp_from in sp_notify)
+ reply("Your address is " sp_notify[sp_from])
+ else
+ reply("Your address is not set")
+}
+
+/^\.notify clear$/ {
+ if (sp_from in sp_notify) {
+ reply("Removing address " sp_notify[sp_from])
+ delete sp_notify[sp_from]
+ } else {
+ reply("Your address is not set")
+ }
+}
+
+/^\.notify \S+@\S+.\S+$/ {
+ _addr = $2
+ gsub(/[^a-zA-Z0-9_+@.-]/, "", _addr)
+ sp_notify[sp_from] = _addr
+ reply("Notifying you at " _addr)
+}
+
sp_state ~ "(bid|pass|play)" &&
/^\.show/ {
delete _lines
sp_valid &&
sp_state == "bid" &&
-/^\.bid [0-9]+$/ {
+/^\.bid (0|[1-9][0-9]*)$/ {
if ($2 < 0 || $2 > 13) {
- say("You can only bid from 0 to 13")
+ reply("You can only bid from 0 to 13")
} else {
i = sp_next()
sp_bids[i] = $2
sp_nil[i] = 0
}
if (sp_turn != sp_dealer) {
- say("Bidding goes to " sp_player "!")
+ say(sp_player ": it is your bid! (" sp_bidders() ")")
} else {
for (p in sp_players)
say(p, "You have: " sp_hand(p, p))
}
}
if (sp_state == "play")
- say("Play starts with " sp_player "!")
+ say(sp_player ": you have the opening lead!")
}
}
}
delete sp_hands[sp_order[i]][_card]
sp_hands[sp_order[_partner]][_card] = 1
}
- say(sp_channel, "Cards have been passed, play starts with " sp_player "!")
+ say(sp_channel, "Cards have been passed!")
+ say(sp_channel, sp_player ": you have the opening lead!")
for (p in sp_players)
say(p, "You have: " sp_hand(p, p))
sp_state = "play"
/^\.bids/ && sp_state == "bid" ||
/^\.turn/ && sp_state ~ "(bid|pass|play)" {
- _bids = sp_bidders()
- _pile = sp_pretty(sp_piles, FROM)
+ _bids = sp_bidders()
+ _pile = sp_pretty(sp_piles, FROM)
+ _extra = ""
+
+ for (_i in sp_share)
+ if (/!/ && sp_share[_i] == sp_player)
+ _extra = _extra " " _i "!"
+
if (sp_state == "bid" && !_bids)
- say("It is " sp_player "'s bid!")
+ say("It is " sp_player "'s bid!" _extra)
if (sp_state == "bid" && _bids)
- say("It is " sp_player "'s bid! (" _bids ")")
+ say("It is " sp_player "'s bid!" _extra " (" _bids ")")
if (sp_state == "play" && !_pile)
- say("It is " sp_player "'s turn!")
+ say("It is " sp_player "'s turn!" _extra)
if (sp_state == "play" && _pile)
- say("It is " sp_player "'s turn! (" _pile ")")
+ say("It is " sp_player "'s turn!" _extra " (" _pile ")")
+
for (_i=0; sp_state == "pass" && _i<4; _i++)
if (sp_passer(_i) && !sp_pass[_i])
say("Waiting for " sp_order[_i] " to pass a card!")
+
+ if (/!!/ && (sp_state == "bid" || sp_state == "play")) {
+ if (sp_player in sp_notify) {
+ mail_send(sp_notify[sp_player], \
+ (sp_state == "bid" ? "It is your bid!" : "") \
+ (sp_state == "play" ? "It is your turn!" : ""), \
+ (sp_state == "bid" ? "Bids: " _bids : "") \
+ (sp_state == "play" ? "Pile: " _pile : ""))
+ say("Notified " sp_player " at " sp_notify[sp_player])
+ } else {
+ say("No email address for " sp_player)
+ }
+ }
}
/^\.bids$/ && sp_state ~ "(pass|play)" {
}
}
-/^\.((new|end|load)game|join|look|bid|pass|play)/ {
+/^\.((new|end|load)game|join|look|bid|pass|play|notify)/ {
sp_save("var/sp_cur.json");
}