Say global help message

[~andy/rhawk] / spades.awk

diff --git a/spades.awk b/spades.awk
index 8feb8ea96838bd92ffd849026b1b3594978f940d..a010c0f0d610fd6ff31b863996d136ce2c50a427 100644 (file)
--- a/spades.awk
+++ b/spades.awk
@@ -33,6 +33,7 @@ function sp_reset(type)
        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
@@ -50,7 +51,6 @@ function sp_reset(type)
                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"
@@ -61,9 +61,11 @@ function sp_reset(type)
 
 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)
@@ -180,7 +182,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)
@@ -296,6 +298,12 @@ function sp_score( bids, times, tricks)
                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)
@@ -387,6 +395,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")
@@ -453,12 +465,12 @@ sp_state == "play" &&
 
 
 # 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 {
@@ -571,9 +583,9 @@ sp_state ~ "(bid|pass|play)" &&
 
 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
@@ -587,7 +599,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))
@@ -600,7 +612,7 @@ sp_state == "bid" &&
                                }
                        }
                        if (sp_state == "play")
-                               say("Play starts with " sp_player "!")
+                               say(sp_player ": you have the opening lead!")
                }
        }
 }
@@ -640,7 +652,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"
@@ -693,16 +706,23 @@ 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!")