Add player shuffling

[~andy/rhawk] / spades.awk

diff --git a/spades.awk b/spades.awk
index 41d2ab8816b29d558fcaa869888c89a853833118..1686806fc031cd0ee7996576147587845f5bb039 100644 (file)
--- a/spades.awk
+++ b/spades.awk
@@ -161,6 +161,15 @@ function sp_next(who, prev)
        return prev
 }
 
+function sp_shuf(i, mixed)
+{
+       asorti(sp_players, mixed, "sp_usort")
+       for (i in mixed) {
+               sp_order[i-1] = mixed[i]
+               sp_players[mixed[i]] = i-1
+       }
+}
+
 function sp_deal(      shuf)
 {
        say("/me deals the cards")
@@ -470,8 +479,10 @@ sp_state == "play" &&
                sp_order[i] = FROM
                say(FROM " joins the game!")
        }
-       if (sp_state == "join" && sp_turn == 0)
+       if (sp_state == "join" && sp_turn == 0) {
+               sp_shuf()
                sp_deal()
+       }
 }
 
 /^\.allow \S+$/ {