if (type >= 1) {
sp_state = "bid" # {new,join,bid,pass,play}
sp_broken = 0 # Whether spades are broken
+ sp_last = "" # 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
delete sp_order # [i] Player order order[i] -> "name"
delete sp_scores # [i] Teams score
}
+
+ # Persistent
+ if (type >= 3) {
+ sp_log = "" # Log file name
+ delete sp_notify # [p] E-mail notification address
+ }
}
function sp_acopy(dst, src, key)
# Per round
game["state"] = sp_state;
game["broken"] = sp_broken;
+ game["last"] = sp_last;
json_copy(game, "looked", sp_looked);
json_copy(game, "bids", sp_bids);
json_copy(game, "nil", sp_nil);
game["turn"] = sp_turn;
game["player"] = sp_player;
game["limit"] = sp_limit;
+ game["log"] = sp_log;
json_copy(game, "hands", sp_hands);
json_copy(game, "players", sp_players);
json_copy(game, "auths", sp_auths);
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);
# Per round
sp_state = game["state"];
sp_broken = game["broken"];
+ sp_last = game["last"];
sp_acopy(sp_looked, game["looked"]);
sp_acopy(sp_bids, game["bids"]);
sp_acopy(sp_nil, game["nil"]);
sp_turn = game["turn"];
sp_player = game["player"];
sp_limit = game["limit"];
+ sp_log = game["log"];
sp_acopy(sp_hands, game["hands"]);
sp_acopy(sp_players, game["players"]);
sp_acopy(sp_auths, game["auths"]);
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_say(msg)
+{
+ print strftime("%Y-%m-%d %H:%M:%S | ") msg >> "logs/" sp_log
+ fflush("logs/" sp_log)
+ say(sp_channel, msg);
}
function sp_pretty(cards, who)
function sp_deal( shuf)
{
- say("/me deals the cards")
+ sp_say("/me deals the cards")
sp_usort(sp_deck, shuf)
for (i=1; i<=52; i++)
sp_hands[sp_order[i%4]][shuf[i]] = 1
sp_dealer = (sp_dealer+1)%4
sp_turn = sp_dealer
sp_player = sp_order[sp_turn]
- say(sp_player ": you bid first!")
+ sp_say(sp_player ": you bid first!")
}
function sp_hand(to, who, sort, str)
bags = tricks - bids
times = int((sp_bags(i) + bags) / sp_limit)
if (times > 0) {
- say(sp_team(i) " bag" (times>1?" way ":" ") "out")
+ sp_say(sp_team(i) " bag" (times>1?" way ":" ") "out")
sp_scores[i] -= sp_limit * 10 * times;
}
if (tricks >= bids) {
- say(sp_team(i) " make their bid: " tricks "/" bids)
+ sp_say(sp_team(i) " make their bid: " tricks "/" bids)
sp_scores[i] += bids*10 + bags;
} else {
- say(sp_team(i) " go bust: " tricks "/" bids)
+ sp_say(sp_team(i) " go bust: " tricks "/" bids)
sp_scores[i] -= bids*10;
}
}
for (i=0; i<4; i++) {
if (!sp_nil[i])
continue
- say(sp_order[i] " " \
+ sp_say(sp_order[i] " " \
(sp_nil[i] == 1 && !sp_tricks[i] ? "makes nil!" :
sp_nil[i] == 1 && sp_tricks[i] ? "fails at nil!" :
sp_nil[i] == 2 && !sp_tricks[i] ? "makes blind nil!" :
(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)
+ sp_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)
+ sp_say(sp_team(1) " lead " sp_scores[1] " to " sp_scores[0] " of " sp_playto)
else
- say("tied at " sp_scores[0])
+ sp_say("tied at " sp_scores[0] " of " sp_playto)
}
function sp_play(card, winner, pi)
winner = sp_winner()
pi = sp_players[sp_pile[winner]]
sp_tricks[pi]++
- say(sp_pile[winner] " wins with " sp_pretty(winner, FROM) \
- " (" sp_pretty(sp_piles, FROM) ")")
+ sp_say(sp_pile[winner] " wins with " sp_pretty(winner, FROM) \
+ " (" sp_pretty(sp_piles, FROM) ")")
+ sp_last = sp_pile[winner] " took " sp_piles
sp_next(sp_pile[winner])
sp_reset(0)
}
# Finish round
if (sp_tricks[0] + sp_tricks[1] + \
sp_tricks[2] + sp_tricks[3] == 13) {
- say("Round over!")
+ sp_say("Round over!")
sp_score()
if (sp_scores[0] >= sp_playto || sp_scores[1] >= sp_playto &&
sp_scores[0] != sp_scores[1]) {
- say("Game over!")
+ sp_say("Game over!")
winner = sp_scores[0] > sp_scores[1] ? 0 : 1
looser = !winner
say(CHANNEL, sp_team(winner) " wins the game " \
} else {
if (sp_scores[0] == sp_scores[1] &&
sp_scores[0] >= sp_playto)
- say("It's tie! Playing an extra round!");
+ sp_say("It's tie! Playing an extra round!");
sp_reset(1)
sp_deal()
}
sp_reset(2)
sp_load("var/sp_cur.json");
#if (sp_channel)
- # say(sp_channel, "Game restored.")
+ # sp_say("Game restored.")
}
// {
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")
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
}
# Debugging
AUTH == OWNER &&
/^\.deal (\w+) (.*)/ {
- say(sp_channel, FROM " is cheating for " $2)
+ sp_say(FROM " is cheating for " $2)
delete sp_hands[$2]
for (i=3; i<=NF; i++)
sp_hands[$2][$i] = 1
AUTH == OWNER &&
/^\.order (\w+) ([0-4])/ {
- say(sp_channel, FROM " is cheating for " $2)
+ sp_say(FROM " is cheating for " $2)
sp_order[$3] = $2
sp_players[$2] = $3
sp_player = sp_order[sp_turn]
AUTH == OWNER &&
sp_state == "play" &&
/^\.force (\w+) (\S+)$/ {
- say(sp_channel, FROM " is cheating for " $2)
+ sp_say(FROM " is cheating for " $2)
sp_from = $2
sp_play($3)
next
sp_limit = sp_playto > 200 ? 10 : 5;
sp_state = "join"
sp_channel = DST
- say(sp_owner " starts a game of Spades to " sp_playto " with " sp_limit " bags!")
+ sp_log = strftime("%Y%m%d_%H%M%S.log")
+ sp_say(sp_owner " starts a game of Spades to " sp_playto " with " sp_limit " bags!")
}
}
if (sp_state == "new") {
reply("There is no game in progress.")
} else {
- say(FROM " ends the game")
+ sp_say(FROM " ends the game")
sp_reset(2)
}
}
-/^\.join$/ {
+/^\.join/ {
if (sp_state == "new") {
reply("There is no game in progress")
}
if (AUTH)
sp_auths[AUTH] = FROM
sp_order[i] = FROM
- say(FROM " joins the game!")
+ sp_say(FROM " joins the game!")
}
if (sp_state == "join" && sp_turn == 0) {
sp_shuf()
reply(_str " is already playing for " sp_share[_who])
}
else {
- reply(_str " can now play for " sp_from)
+ sp_say(_str " can now play for " sp_from)
sp_share[_who] = sp_from
}
}
reply(_str " is not playing for " sp_from)
}
else {
- reply(_str " can no longer play for " sp_from)
+ sp_say(_str " can no longer play for " sp_from)
delete sp_share[_who]
}
}
+/^\.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
for (_i in sp_share)
_lines[sp_share[_i]] = _lines[sp_share[_i]] " " _i
for (_i in _lines)
- say(_i " allowed:" _lines[_i])
+ sp_say(_i " allowed:" _lines[_i])
}
!sp_valid &&
(sp_state == "bid" || sp_state == "play") &&
/^\.(bid|play)\>/ {
if (sp_from in sp_players)
- say(".slap " FROM ", it is not your turn.")
+ reply("It is not your turn.")
else
- say(".slap " FROM ", you are not playing.")
+ reply("You are not playing.")
}
sp_valid &&
i = sp_next()
sp_bids[i] = $2
if ($2 == 0 && !sp_looked[i]) {
- say(FROM " goes blind nil!")
+ sp_say(FROM " goes blind nil!")
sp_nil[i] = 2
} else if ($2 == 0) {
- say(FROM " goes nil!")
+ sp_say(FROM " goes nil!")
sp_nil[i] = 1
} else {
sp_nil[i] = 0
}
if (sp_turn != sp_dealer) {
- say(sp_player ": it is your bid! (" sp_bidders() ")")
+ sp_say(sp_player ": it is your bid! (" sp_bidders() ")")
} else {
for (p in sp_players)
say(p, "You have: " sp_hand(p, p))
sp_state = "play"
for (i=0; i<2; i++) {
if (sp_passer(i)) {
- say(sp_team(i) ": select a card to pass " \
+ sp_say(sp_team(i) ": select a card to pass " \
"(/msg " NICK " .pass <card>)")
sp_state = "pass"
}
}
if (sp_state == "play")
- say(sp_player ": you have the opening lead!")
+ sp_say(sp_player ": you have the opening lead!")
}
}
}
# check validity and pass
if (!(sp_from in sp_players)) {
- say(".slap " FROM ", you are not playing.")
+ reply("You are not playing.")
}
else if (!sp_passer(_team)) {
reply("Your team did not go blind")
}
else {
sp_pass[sp_players[sp_from]] = $2
- say(sp_channel, FROM " passes a card")
+ sp_say(FROM " passes a card")
}
# check for end of passing
delete sp_hands[sp_order[i]][_card]
sp_hands[sp_order[_partner]][_card] = 1
}
- say(sp_channel, "Cards have been passed!")
- say(sp_channel, sp_player ": you have the opening lead!")
+ sp_say("Cards have been passed!")
+ sp_say(sp_player ": you have the opening lead!")
for (p in sp_players)
say(p, "You have: " sp_hand(p, p))
sp_state = "play"
sp_state ~ "(bid|pass|play)" &&
/^\.look$/ {
if (!(sp_from in sp_players)) {
- say(".slap " FROM ", you are not playing.")
+ reply("You are not playing.")
} else {
sp_looked[sp_players[sp_from]] = 1
say(FROM, "You have: " sp_hand(FROM, sp_from))
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") {
if (length(sp_hands[sp_from]))
say(FROM, "You have: " sp_hand(FROM, sp_from))
if (sp_piles)
- say(sp_player ": it is your turn! " \
+ sp_say(sp_player ": it is your turn! " \
"(" sp_pretty(sp_piles, sp_player) ")")
else
- say(sp_player ": it is your turn!")
+ sp_say(sp_player ": it is your turn!")
}
}
}
+/^\.last/ && sp_state == "play" {
+ if (!sp_last)
+ say("No tricks have been taken!");
+ else
+ say(sp_pretty(sp_last, FROM));
+}
+
/^\.bids/ && sp_state == "bid" ||
/^\.turn/ && sp_state ~ "(bid|pass|play)" {
_bids = sp_bidders()
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) {
+ _bids = _bids ? _bids : "none"
+ _pile = _pile ? sp_piles : "none"
+ mail_send(sp_notify[sp_player], \
+ "It is your " sp_state "!", \
+ "Bids so far: " _bids "\n" \
+ "Cards played: " _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)/ {
+(DST == sp_channel) &&
+/^\.log/ {
+ say("http://pileus.org/andy/spades/" sp_log)
+}
+
+/^\.((new|end|load)game|join|look|bid|pass|play|notify)/ {
sp_save("var/sp_cur.json");
}
projects / ~andy / rhawk / blobdiff