Add Meetup polling for SFVLUG

[~andy/rhawk] / spades.awk

diff --git a/spades.awk b/spades.awk
index 5e3be7d9a031f097184065b1cfbc98c000b22ae2..50952f182b4e8f13ae13d4a641a442bcd88ed529 100644 (file)
--- a/spades.awk
+++ b/spades.awk
@@ -57,6 +57,11 @@ function sp_reset(type)
                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)
@@ -98,6 +103,7 @@ 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);
@@ -137,6 +143,7 @@ function sp_load(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)
@@ -182,7 +189,7 @@ function sp_deal(   shuf)
        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)
@@ -395,6 +402,10 @@ AUTH == OWNER &&
 }
 
 # 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")
@@ -429,6 +440,7 @@ AUTH == OWNER &&
        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
 }
 
@@ -559,6 +571,29 @@ match($0, /^\.newgame ?([1-9][0-9]*) *- *([1-9][0-9]*)$/, _arr) {
        }
 }
 
+/^\.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
@@ -579,9 +614,9 @@ sp_state ~ "(bid|pass|play)" &&
 
 sp_valid &&
 sp_state == "bid" &&
-/^\.bid [1-9][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
@@ -595,7 +630,7 @@ sp_state == "bid" &&
                        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))
@@ -608,7 +643,7 @@ sp_state == "bid" &&
                                }
                        }
                        if (sp_state == "play")
-                               say("Play starts with " sp_player "!")
+                               say(sp_player ": you have the opening lead!")
                }
        }
 }
@@ -648,7 +683,8 @@ sp_state == "pass" &&
                        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"
@@ -673,9 +709,6 @@ sp_state == "play" &&
        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 ")")
        }
@@ -685,6 +718,9 @@ sp_state == "play" &&
        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") {
@@ -721,6 +757,20 @@ sp_state == "play" &&
        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)" {
@@ -764,6 +814,6 @@ sp_state == "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");
 }