X-Git-Url: http://pileus.org/git/?p=~andy%2Frhawk;a=blobdiff_plain;f=spades.awk;h=740d1b8e347003b11fc6acf764fe22719521374f;hp=e71b623467e52c989f3540375ac0bcced781a3d3;hb=HEAD;hpb=c446410dce2ca6184c55c5efeb1a48f253078341

diff --git a/spades.awk b/spades.awk
index e71b623..740d1b8 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_last      # [x] 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
@@ -43,7 +44,6 @@ function sp_reset(type)
 
 	# Per game
 	if (type >= 2) {
-		sp_channel  = ""    #     channel to play in
 		sp_state    = "new" #     {new,join,bid,pass,play}
 		sp_owner    = ""    #     Who started the game
 		sp_playto   = 0     #     Score the game will go to
@@ -56,6 +56,15 @@ function sp_reset(type)
 		delete sp_share     # [c] Player teammates share["friend"] -> "name"
 		delete sp_order     # [i] Player order order[i] -> "name"
 		delete sp_scores    # [i] Teams score
+		delete sp_teams     # [i] Teams names
+	}
+
+	# Persistent
+	if (type >= 3) {
+		sp_channel  = ""    #     channel to play in
+		sp_log      = ""    #     Log file name
+		sp_sock     = ""    #     UDP log socket
+		delete sp_notify    # [p] E-mail notification address
 	}
 }
 
@@ -78,6 +87,7 @@ function sp_save(file,	game)
 	# Per round
 	game["state"]   = sp_state;
 	game["broken"]  = sp_broken;
+	json_copy(game, "last",    sp_last);
 	json_copy(game, "looked",  sp_looked);
 	json_copy(game, "bids",    sp_bids);
 	json_copy(game, "nil",     sp_nil);
@@ -85,7 +95,6 @@ function sp_save(file,	game)
 	json_copy(game, "tricks",  sp_tricks);
 
 	# Per game
-	game["channel"] = sp_channel;
 	game["owner"]   = sp_owner;
 	game["playto"]  = sp_playto;
 	game["dealer"]  = sp_dealer;
@@ -98,6 +107,12 @@ 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, "teams",   sp_teams);
+
+	# Persistent
+	game["channel"] = sp_channel;
+	game["log"]     = sp_log;
+	json_copy(game, "notify",  sp_notify);
 
 	# Save
 	json_save(file, game);
@@ -117,6 +132,7 @@ function sp_load(file,	game)
 	# Per round
 	sp_state   = game["state"];
 	sp_broken  = game["broken"];
+	sp_acopy(sp_last,    game["last"]);
 	sp_acopy(sp_looked,  game["looked"]);
 	sp_acopy(sp_bids,    game["bids"]);
 	sp_acopy(sp_nil,     game["nil"]);
@@ -124,7 +140,6 @@ function sp_load(file,	game)
 	sp_acopy(sp_tricks,  game["tricks"]);
 
 	# Per game
-	sp_channel = game["channel"];
 	sp_owner   = game["owner"];
 	sp_playto  = game["playto"];
 	sp_dealer  = game["dealer"];
@@ -137,6 +152,20 @@ 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_teams,   game["teams"]);
+
+	# Persistent
+	sp_channel = game["channel"];
+	sp_log     = game["log"];
+	sp_acopy(sp_notify,  game["notify"]);
+}
+
+function sp_say(msg)
+{
+	say(sp_channel, msg)
+	print msg |& sp_sock
+	print strftime("%Y-%m-%d %H:%M:%S | ") sp_ugly(msg) >> "logs/" sp_log
+	fflush("logs/" sp_log)
 }
 
 function sp_pretty(cards, who)
@@ -154,6 +183,16 @@ function sp_pretty(cards, who)
 	return cards
 }
 
+function sp_ugly(cards, who)
+{
+	gsub(/[\2\17]|\3[14],00|/, "", cards)
+	gsub(/♠/, "s", cards)
+	gsub(/♥/, "h", cards)
+	gsub(/♦/, "d", cards)
+	gsub(/♣/, "c", cards)
+	return cards
+}
+
 function sp_next(who, prev)
 {
 	prev      = sp_turn
@@ -174,7 +213,7 @@ function sp_shuf(i, mixed)
 
 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
@@ -182,7 +221,7 @@ function sp_deal(	shuf)
 	sp_dealer = (sp_dealer+1)%4
 	sp_turn   =  sp_dealer
 	sp_player =  sp_order[sp_turn]
-	say(sp_player ": bidding starts with you!")
+	sp_say(sp_player ": you bid first!")
 }
 
 function sp_hand(to, who,	sort, str)
@@ -229,10 +268,13 @@ function sp_winner(	card, tmp)
 	return tmp[1]
 }
 
-function sp_team(i)
+function sp_team(i, players)
 {
 	#return "{" sp_order[i+0] "," sp_order[i+2] "}"
-	return sp_order[i+0] "/" sp_order[i+2]
+	if ((i in sp_teams) && !players)
+		return sp_teams[i]
+	else
+		return sp_order[i+0] "/" sp_order[i+2]
 }
 
 function sp_bags(i,	bags)
@@ -267,6 +309,15 @@ function sp_bidders(	i, turn, bid, bids)
 	return bids
 }
 
+function sp_extra(	n, s)
+{
+	n = sp_bids[0] + sp_bids[1] + sp_bids[2] + sp_bids[3];
+	s = n == 12 || n == 14 ? "" : "s";
+
+	return n<13 ? "Playing with " 13-n " bag"   s "!" :
+	       n>13 ? "Fighting for " n-13 " trick" s "!" : "No bags!";
+}
+
 function sp_score(	bids, times, tricks)
 {
 	for (i=0; i<2; i++) {
@@ -275,21 +326,21 @@ function sp_score(	bids, times, tricks)
 		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!" :
@@ -299,11 +350,11 @@ function sp_score(	bids, times, tricks)
 			(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)
@@ -325,8 +376,10 @@ 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["player"] = sp_pile[winner];
+		sp_last["pile"]   = sp_piles;
 		sp_next(sp_pile[winner])
 		sp_reset(0)
 	}
@@ -334,11 +387,11 @@ function sp_play(card,	winner, pi)
 	# 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!")
+		if ((sp_scores[0] >= sp_playto || sp_scores[1] >= sp_playto) &&
+		    (sp_scores[0]              != sp_scores[1])) {
+			sp_say("Game over!")
 			winner = sp_scores[0] > sp_scores[1] ? 0 : 1
 			looser = !winner
 			say(CHANNEL, sp_team(winner) " wins the game " \
@@ -348,15 +401,91 @@ function sp_play(card,	winner, pi)
 			sp_reset(2)
 
 		} else {
-			if (sp_scores[0] == sp_scores[1] && 
+			if (sp_scores[0] == sp_scores[1] &&
 			    sp_scores[0] >= sp_playto)
-				say("It's tie! Playing an extra round!");
+				sp_say("It's a tie! Playing an extra round!");
 			sp_reset(1)
 			sp_deal()
 		}
 	}
 }
 
+# Statistics
+function sp_delay(sec)
+{
+	return (sec > 60*60*24 ? int(sec/60/60/24) "d " : "") \
+	       (sec > 60*60    ? int(sec/60/60)%24 "h " : "") \
+	                         int(sec/60)%60    "m"
+}
+
+function sp_max(list,    i, max)
+{
+	for (i=0; i<length(list); i++)
+		if (max == "" || list[i] > max)
+			max = list[i]
+	return max
+}
+
+function sp_avg(list,    i, sum)
+{
+	for (i=0; i<length(list); i++)
+		sum += list[i]
+	return sum / length(list)
+}
+
+function sp_cur(list)
+{
+	return list[length(list)-1]
+}
+
+function sp_stats(file,   line, arr, time, user, turn, start, delay, short, extra)
+{
+	# Process log file
+	while ((stat = getline line < file) > 0) {
+		# Parse date
+		if (!match(line, /^([0-9\- \:]*) \| (.*)$/, arr))
+			continue
+		gsub(/[:-]/, " ", arr[1])
+		time = mktime(arr[1])
+
+		# Parse user
+		if (!match(arr[2], /^([^:]*): (.*)$/, arr))
+			continue
+		user = arr[1]
+
+		# Record user latency
+		if (turn) {
+			delay[turn][length(delay[turn])] = time - start
+			turn  = 0
+		}
+		if (match(arr[2], /^(it is your|you .*(first|lead)!$)/, arr)) {
+			turn  = user
+			start = time
+		}
+	}
+	close(file)
+
+	# Add current latency
+	if (turn) {
+		delay[turn][length(delay[turn])] = systime() - start
+		debug("time: " (systime() - start))
+	}
+
+	# Check for error
+	if (stat < 0)
+		reply("File does not exist: " file);
+
+	# Output statistics
+	for (user in delay) {
+		short = length(user) <= 4 ? user : substr(user, 0, 4)
+		extra = (user != turn) ? "" : \
+			", " sp_delay(sp_cur(delay[user])) " (cur)";
+		say("latency for " short \
+			": " sp_delay(sp_avg(delay[user])) " (avg)" \
+			", " sp_delay(sp_max(delay[user])) " (max)" extra)
+	}
+}
+
 # Misc
 BEGIN {
 	cmd = "od -An -N4 -td4 /dev/random"
@@ -365,9 +494,11 @@ BEGIN {
 	srand(seed)
 	sp_init()
 	sp_reset(2)
-	sp_load("var/sp_cur.json");
+	sp_load("var/sp_cur.json")
+	sp_sock = "/inet/udp/0/localhost/6173"
+	print "starting rhawk" |& sp_sock
 	#if (sp_channel)
-	#	say(sp_channel, "Game restored.")
+	#	sp_say("Game restored.")
 }
 
 // {
@@ -395,6 +526,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,7 +539,7 @@ AUTH == OWNER &&
 }
 
 /^\.help game$/ {
-	say(".newgame [score] -- start a game to <score> points, default 500")
+	say(".newgame [score] -- start a game to <score> points, default 300")
 	say(".endgame -- abort the current game")
 	say(".savegame -- save the current game to disk")
 	say(".loadgame -- load the previously saved game")
@@ -417,6 +552,8 @@ AUTH == OWNER &&
 	say(".bid [n] -- bid for <n> tricks")
 	say(".pass [card] -- pass a card to your partner")
 	say(".play [card] -- play a card")
+	say(".team [name] -- set your team name")
+	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")
@@ -429,13 +566,14 @@ 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
 }
 
 # 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
@@ -444,7 +582,7 @@ AUTH == OWNER &&
 
 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]
@@ -453,7 +591,7 @@ AUTH == OWNER &&
 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
@@ -472,25 +610,39 @@ match($0, /^\.newgame ?([1-9][0-9]*) *- *([1-9][0-9]*)$/, _arr) {
 	} else {
 		$1         = ".join"
 		sp_owner   = FROM
-		sp_playto  = $2 ? $2 : 200
+		sp_playto  = $2 ? $2 : 300
 		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!")
 	}
 }
 
-(sp_from == sp_owner || AUTH == OWNER) &&
-/^\.endgame$/ {
+/^\.(endgame|fliptable)$/ {
 	if (sp_state == "new") {
 		reply("There is no game in progress.")
-	} else {
-		say(FROM " ends the game")
+	}
+	else if (!(sp_from in sp_players)) {
+		reply("You are not playing")
+	}
+	else if (sp_state == "join") {
+		sp_say(FROM " ends the game")
+		sp_reset(2)
+	}
+	else {
+		_looser = (sp_players[sp_from]+0) % 2;
+		_winner = (sp_players[sp_from]+1) % 2;
+		sp_say(FROM " goes on a rampage")
+		say(CHANNEL, sp_team(_winner) " wins the game " \
+		    sp_scores[_winner] " to " sp_scores[_looser])
+		say(CHANNEL, sp_order[_winner+0] "++")
+		say(CHANNEL, sp_order[_winner+2] "++")
 		sp_reset(2)
 	}
 }
 
-/^\.join$/ {
+/^\.join/ {
 	if (sp_state == "new") {
 		reply("There is no game in progress")
 	}
@@ -506,9 +658,11 @@ match($0, /^\.newgame ?([1-9][0-9]*) *- *([1-9][0-9]*)$/, _arr) {
 		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_scores[0] = 0
+		sp_scores[1] = 0
 		sp_shuf()
 		sp_deal()
 	}
@@ -533,7 +687,7 @@ match($0, /^\.newgame ?([1-9][0-9]*) *- *([1-9][0-9]*)$/, _arr) {
 		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
 	}
 }
@@ -554,11 +708,65 @@ match($0, /^\.newgame ?([1-9][0-9]*) *- *([1-9][0-9]*)$/, _arr) {
 		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]
 	}
 }
 
+/^\.team/ {
+	gsub(/^\.team */, "")
+	_team = sp_from in sp_players ? sp_players[sp_from] % 2 : 0
+	if (sp_state ~ "new|join") {
+		reply("The game has not yet started")
+	}
+	else if (!(sp_from in sp_players)) {
+		reply("You are not playing")
+	}
+	else if ($0 ~ /^[^a-zA-Z0-9]/) {
+		reply("Invalid team name")
+	}
+	else if ($0 ~ /^./) {
+		sp_teams[_team] = substr($0, 0, 32)
+		sp_say(sp_team(_team,1) " are now known as " sp_team(_team))
+	}
+	else {
+		delete sp_teams[_team]
+		sp_say(sp_team(_team,1) " are boring")
+	}
+}
+
+/^\.whoami/ {
+	if (!(sp_from in sp_players))
+		reply("You are not playing")
+	else if (sp_from == FROM)
+		say(FROM " has an existential crisis")
+	else
+		reply("You are playing for " sp_from);
+}
+
+/^\.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
@@ -572,43 +780,44 @@ sp_state ~ "(bid|pass|play)" &&
 (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 &&
 sp_state == "bid" &&
 /^\.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
 		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 ": bidding goes to you! (" sp_bidders() ")")
+			sp_say(sp_player ": it is your bid! (" sp_bidders() ")")
 		} else {
+			sp_say(sp_extra() " (" sp_bidders() ")")
 			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,1) ": select a card to pass " \
 					    "(/msg " NICK " .pass <card>)")
 					sp_state = "pass"
 				}
 			}
 			if (sp_state == "play")
-				say(sp_player ": play starts with you!")
+				sp_say(sp_player ": you have the opening lead!")
 		}
 	}
 }
@@ -620,7 +829,7 @@ sp_state == "pass" &&
 
 	# 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")
@@ -636,7 +845,7 @@ sp_state == "pass" &&
 	}
 	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
@@ -648,7 +857,8 @@ sp_state == "pass" &&
 			delete sp_hands[sp_order[i]][_card]
 			sp_hands[sp_order[_partner]][_card] = 1
 		}
-		say(sp_channel, sp_player ": cards have been passed, play starts with you!")
+		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"
@@ -658,7 +868,7 @@ sp_state == "pass" &&
 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))
@@ -673,9 +883,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,29 +892,48 @@ 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") {
 			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 (!isarray(sp_last))
+		say("No tricks have been taken!");
+	else
+		say(sp_last["player"] " took " \
+		    sp_pretty(sp_last["pile"], FROM));
+}
+
 /^\.bids/ && sp_state == "bid" ||
 /^\.turn/ && sp_state ~ "(bid|pass|play)" {
-	_bids  = sp_bidders()
-	_pile  = sp_pretty(sp_piles, FROM)
-	_extra = ""
-
-	for (_i in sp_share)
-		if (/!/ && sp_share[_i] == sp_player)
+	_bids   = sp_bidders()
+	_pile   = sp_pretty(sp_piles, FROM)
+	_extra  = ""
+	delete _notify
+
+	if (/!!/)
+		_notify[0] = sp_player
+	for (_i in sp_share) {
+		if (sp_share[_i] != sp_player)
+			continue
+		if (/!/)
 			_extra = _extra " " _i "!"
+		if (/!!!/)
+			_notify[length(_notify)] = _i
+	}
 
 	if (sp_state == "bid" && !_bids)
 		say("It is " sp_player "'s bid!" _extra)
@@ -718,6 +944,22 @@ sp_state == "play" &&
 	if (sp_state == "play" && _pile)
 		say("It is " sp_player "'s turn!" _extra " (" _pile ")")
 
+	if (sp_state == "bid" || sp_state == "play") {
+		for (_i in _notify) {
+			if (_notify[_i] in sp_notify) {
+				_bids = _bids ? _bids    : "none"
+				_pile = _pile ? sp_piles : "none"
+				mail_send(sp_notify[_notify[_i]],     \
+					"It is your " sp_state "!", \
+					"Bids so far:  " _bids "\n" \
+					"Cards played: " _pile)
+				say("Notified " _notify[_i] " at " sp_notify[_notify[_i]])
+			} else {
+				say("No email address for " _notify[_i])
+			}
+		}
+	}
+
 	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!")
@@ -764,6 +1006,22 @@ sp_state == "play" &&
 	}
 }
 
-/^\.((new|end|load)game|join|look|bid|pass|play)/ {
+(TO == NICK || DST == sp_channel) &&
+/^\.log/ {
+	say("http://pileus.org/andy/spades/" sp_log)
+}
+
+(TO == NICK || DST == sp_channel) &&
+/^\.stats$/ {
+	sp_stats("logs/" sp_log);
+}
+
+(TO == NICK || DST == sp_channel) &&
+/^\.stats ([0-9]+_[0-9]+)(\.log)$/ {
+	gsub(/\.log$/, "", $2);
+	sp_stats("logs/" $2 ".log");
+}
+
+/^\.((new|end|load)game|fliptable|join|look|bid|pass|play|allow|deny|team|notify)/ {
 	sp_save("var/sp_cur.json");
 }