X-Git-Url: http://pileus.org/git/?a=blobdiff_plain;f=spades.awk;h=2ca0e376e7fbe7e975ca67d5a78defe5c1ccddff;hb=c6a935c7f7fe2d6ce72268f9ecfe5e9469302d0a;hp=41d2ab8816b29d558fcaa869888c89a853833118;hpb=e5bb98be51d984c8c93212a2411a76f776d020ca;p=~andy%2Frhawk

diff --git a/spades.awk b/spades.awk
index 41d2ab8..2ca0e37 100644
--- 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,20 +51,26 @@ 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"
 		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)
@@ -96,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);
@@ -135,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)
@@ -161,17 +170,26 @@ function sp_next(who, prev)
 	return prev
 }
 
+function sp_shuf(i, mixed)
+{
+	sp_usort(sp_players, mixed)
+	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")
-	asorti(sp_deck, shuf, "sp_usort")
+	sp_usort(sp_deck, shuf)
 	for (i=1; i<=52; i++)
 		sp_hands[sp_order[i%4]][shuf[i]] = 1
 	sp_state  = "bid"
 	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)
@@ -197,8 +215,10 @@ function sp_type(card)
 	return substr(card, length(card))
 }
 
-function sp_usort(a,b,c,d) {
-	return rand() - 0.5
+function sp_usort(list, out) {
+	for (i in list)
+		out[i] = rand()
+	asorti(out, out, "@val_num_asc")
 }
 
 function sp_csort(i1,v1,i2,v2) {
@@ -237,6 +257,12 @@ function sp_bid(who)
 	       sp_nil[who] == 2 ? "blind"      : "n/a"
 }
 
+function sp_passer(who)
+{
+	return sp_nil[(who+0)%4] == 2 || sp_nil[(who+1)%4] != 0 ||
+	       sp_nil[(who+2)%4] == 2 || sp_nil[(who+3)%4] != 0
+}
+
 function sp_bidders(	i, turn, bid, bids)
 {
 	for (i = 0; i < 4; i++) {
@@ -279,6 +305,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)
@@ -370,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")
@@ -404,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
 }
 
@@ -417,6 +454,14 @@ AUTH == OWNER &&
 	next
 }
 
+AUTH == OWNER &&
+/^\.order (\w+) ([0-4])/ {
+	say(sp_channel, 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+)$/ {
@@ -428,7 +473,12 @@ sp_state == "play" &&
 
 
 # Setup
-/^\.newgame ?([0-9]+)?$/ {
+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 ?([1-9][0-9]*)?$/ {
 	if (sp_state != "new") {
 		reply("There is already a game in progress.")
 	} else {
@@ -470,8 +520,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+$/ {
@@ -519,10 +571,36 @@ sp_state == "play" &&
 	}
 }
 
+/^\.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)
-		say(_i " can play for " sp_share[_i]);
+		_lines[sp_share[_i]] = _lines[sp_share[_i]] " " _i
+	for (_i in _lines)
+		say(_i " allowed:" _lines[_i])
 }
 
 !sp_valid &&
@@ -536,9 +614,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
@@ -552,20 +630,20 @@ 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))
 			sp_state = "play"
 			for (i=0; i<2; i++) {
-				if (sp_nil[i] == 2 || sp_nil[i+2] == 2) {
+				if (sp_passer(i)) {
 					say(sp_team(i) ": select a card to pass " \
 					    "(/msg " NICK " .pass <card>)")
 					sp_state = "pass"
 				}
 			}
 			if (sp_state == "play")
-				say("Play starts with " sp_player "!")
+				say(sp_player ": you have the opening lead!")
 		}
 	}
 }
@@ -579,7 +657,7 @@ sp_state == "pass" &&
 	if (!(sp_from in sp_players)) {
 		say(".slap " FROM ", you are not playing.")
 	}
-	else if (sp_nil[_team] != 2 && sp_nil[_team+2] != 2) {
+	else if (!sp_passer(_team)) {
 		reply("Your team did not go blind")
 	}
 	else if (sp_pass[sp_players[sp_from]]) {
@@ -597,15 +675,16 @@ sp_state == "pass" &&
 	}
 
 	# check for end of passing
-	if (((sp_nil[0] != 2 && sp_nil[2] != 2) || (sp_pass[0] && sp_pass[2])) &&
-	    ((sp_nil[1] != 2 && sp_nil[3] != 2) || (sp_pass[1] && sp_pass[3]))) {
+	if ((!sp_passer(0) || (sp_pass[0] && sp_pass[2])) &&
+	    (!sp_passer(1) || (sp_pass[1] && sp_pass[3]))) {
 		for (i in sp_pass) {
 			_partner = (i+2)%4
 			_card    = sp_pass[i]
 			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"
@@ -656,20 +735,42 @@ 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_nil[_i%2+0]==2 || sp_nil[_i%2+2]==2) && !sp_pass[_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)" {
@@ -713,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");
 }