X-Git-Url: http://pileus.org/git/?a=blobdiff_plain;f=spades.awk;h=418b238222803510815bbc2e04f5e7c4ebbee4c6;hb=511a9c15b13339cc6005e1dbb7b4bb0282356efc;hp=fe4af0631f04fb91f402419dc0a2f16b4472c7d6;hpb=edf479cf2384c73302b9d35cf4c0fd6ba8f7b9f7;p=~andy%2Frhawk

diff --git a/spades.awk b/spades.awk
index fe4af06..418b238 100644
--- a/spades.awk
+++ b/spades.awk
@@ -16,6 +16,12 @@ function sp_init(cards, tmp0, tmp1)
 
 function sp_reset(type)
 {
+	# Per message
+	if (type <  0) {
+		sp_from     = ""    #    The speakers player name
+		sp_valid    = ""    #    It is the speaker turn
+	}
+
 	# Per hand
 	if (type >= 0) {
 		sp_suit     = ""    #     The lead suit {s,h,d,c}
@@ -43,9 +49,10 @@ function sp_reset(type)
 		sp_dealer   =-1     #     Who is dealing this round
 		sp_turn     = 0     #     Index of who's turn it is
 		sp_player   = ""    #     Who's turn it is
-		sp_valid    = 0     #     Message sent from sp_player
+		sp_limit    = 10    #     Bag out limit
 		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_order     # [i] Player order order[i] -> "name"
 		delete sp_scores    # [i] Teams score
 	}
@@ -81,20 +88,22 @@ function sp_save(file,	game)
 	game["dealer"]  = sp_dealer;
 	game["turn"]    = sp_turn;
 	game["player"]  = sp_player;
+	game["limit"]   = sp_limit;
 	json_copy(game, "hands",   sp_hands);
 	json_copy(game, "players", sp_players);
+	json_copy(game, "auths",   sp_auths);
 	json_copy(game, "order",   sp_order);
 	json_copy(game, "scores",  sp_scores);
 
 	# Save
 	json_save(file, game);
-	say("Game saved.")
 }
 
 function sp_load(file,	game)
 {
 	# Load
-	json_load(file, game);
+	if (!json_load(file, game))
+		return
 
 	# Per hand
 	sp_suit    = game["suit"];
@@ -117,18 +126,21 @@ function sp_load(file,	game)
 	sp_dealer  = game["dealer"];
 	sp_turn    = game["turn"];
 	sp_player  = game["player"];
+	sp_limit   = game["limit"];
 	sp_acopy(sp_hands,   game["hands"]);
 	sp_acopy(sp_players, game["players"]);
+	sp_acopy(sp_auths,   game["auths"]);
 	sp_acopy(sp_order,   game["order"]);
 	sp_acopy(sp_scores,  game["scores"]);
-	say("Game loaded.")
 }
 
 function sp_pretty(cards, who)
 {
-	if (!plain[who]) {
+	if (!nocolor[who]) {
 		gsub(/[0-9JQKA]*[sc]/, "\0031,00\002&\017", cards) # black
 		gsub(/[0-9JQKA]*[hd]/, "\0034,00\002&\017", cards) # red
+	}
+	if (!nounicode[who]) {
 		gsub(/s/, "\002♠", cards)
 		gsub(/h/, "\002♥", cards)
 		gsub(/d/, "\002♦", cards)
@@ -159,13 +171,13 @@ function sp_deal(	shuf)
 	say("Bidding starts with " sp_player "!")
 }
 
-function sp_hand(who,	sort, str)
+function sp_hand(to, who,	sort, str)
 {
 	asorti(sp_hands[who], sort, "sp_csort")
 	for (i=0; i<length(sort); i++)
 		str = str "" sprintf("%4s", sort[i])
 	gsub(/^ +| +$/, "", str)
-	return sp_pretty(str, who)
+	return sp_pretty(str, to)
 }
 
 function sp_hasa(who, expr)
@@ -209,9 +221,9 @@ function sp_team(i)
 
 function sp_bags(i,	bags)
 {
-	bags = sp_scores[i] % 10
+	bags = sp_scores[i] % sp_limit
 	if (bags < 0)
-		bags += 10
+		bags += sp_limit
 	return bags
 }
 
@@ -219,10 +231,15 @@ function sp_bidders(	i, turn, bid, bids)
 {
 	for (i = 0; i < 4; i++) {
 		turn = (sp_dealer + i) % 4
-		if (sp_bids[turn] && !sp_nil[turn]) {
+		if (sp_bids[turn] && !sp_nil[turn])
 			bid  = sp_order[turn] ":" sp_bids[turn]
-			bids = bids " " bid
-		}
+		else if (sp_nil[turn] == 1)
+			bid  = sp_order[turn] ":" "nil"
+		else if (sp_nil[turn] == 2)
+			bid  = sp_order[turn] ":" "blind"
+		else
+			continue
+		bids = bids " " bid
 	}
 	gsub(/^ +| +$/, "", bids)
 	return bids
@@ -234,9 +251,9 @@ function sp_score(	bids, tricks)
 		bids   = sp_bids[i]   + sp_bids[i+2]
 		tricks = sp_tricks[i] + sp_tricks[i+2]
 		bags   = tricks - bids
-		if (sp_bags(i) + bags >= 10) {
+		if (sp_bags(i) + bags >= sp_limit) {
 			say(sp_team(i) " bag out")
-			sp_scores[i] -= 100
+			sp_scores[i] -= sp_limit * 10
 		}
 		if (tricks >= bids) {
 			say(sp_team(i) " make their bid: " tricks "/" bids)
@@ -262,7 +279,7 @@ function sp_score(	bids, tricks)
 
 function sp_play(card,	winner, pi)
 {
-	delete sp_hands[FROM][card]
+	delete sp_hands[sp_from][card]
 	sp_pile[card] = sp_player
 	sp_piles      = sp_piles (sp_piles?",":"") card
 	sp_next()
@@ -321,25 +338,32 @@ BEGIN {
 	srand(seed)
 	sp_init()
 	sp_reset(2)
+	sp_load("var/sp_cur.json");
+	#if (sp_channel)
+	#	say(sp_channel, "Game restored.")
 }
 
 // {
-	sp_valid = (FROM && FROM == sp_player)
+	sp_from  = AUTH in sp_auths ? sp_auths[AUTH] : FROM
+	sp_valid = sp_from && sp_from == sp_player
 }
 
+CMD == "PRIVMSG" &&
 ! /help/ &&
 /[Ss]pades/ {
 	say("Spades! " sp_pretty("As,Ah,Ad,Ac", FROM))
 }
 
-FROM == OWNER &&
+AUTH == OWNER &&
 /^\.savegame/ {
-	sp_save("var/spades.json");
+	sp_save("var/sp_save.json");
+	say("Game saved.")
 }
 
-FROM == OWNER &&
+AUTH == OWNER &&
 /^\.loadgame/ {
-	sp_load("var/spades.json");
+	sp_load("var/sp_save.json");
+	say("Game loaded.")
 }
 
 # Help
@@ -361,7 +385,7 @@ FROM == OWNER &&
 }
 
 # Debugging
-FROM == OWNER &&
+AUTH == OWNER &&
 /^\.deal (\w+) (.*)/ {
 	delete sp_hands[$2]
 	for (i=3; i<=NF; i++)
@@ -377,14 +401,15 @@ FROM == OWNER &&
 	} else {
 		sp_owner   = FROM
 		sp_playto  = $2 ? $2 : 200
+		sp_limit   = sp_playto > 200 ? 10 : 5;
 		sp_state   = "join"
 		sp_channel = DST
-		say(sp_owner " starts a game of Spades to " sp_playto "!")
+		say(sp_owner " starts a game of Spades to " sp_playto " with " sp_limit " bags!")
 		#say("#rhnoise", sp_owner " starts a game of Spades in " DST "!")
 	}
 }
 
-(FROM == sp_owner || FROM == OWNER) &&
+(sp_from == sp_owner || AUTH == OWNER) &&
 /^\.endgame$/ {
 	if (sp_state == "new") {
 		reply("There is no game in progress.")
@@ -401,13 +426,15 @@ FROM == OWNER &&
 	else if (sp_state == "play") {
 		reply("The game has already started")
 	}
-	else if (sp_state == "join" && FROM in sp_players) {
+	else if (sp_state == "join" && sp_from in sp_players) {
 		reply("You are already playing")
 	}
 	else if (sp_state == "join") {
 		i = sp_next()
-		sp_order[i] = FROM
 		sp_players[FROM] = i
+		if (AUTH)
+			sp_auths[AUTH] = FROM
+		sp_order[i] = FROM
 		say(FROM " joins the game!")
 	}
 	if (sp_state == "join" && sp_turn == 0)
@@ -417,7 +444,7 @@ FROM == OWNER &&
 !sp_valid &&
 (sp_state "bid" || sp_state == "play") &&
 /^\.(bid|play)\>/ {
-	if (FROM in sp_players)
+	if (sp_from in sp_players)
 		say(".slap " FROM ", it is not your turn.")
 	else
 		say(".slap " FROM ", you are not playing.")
@@ -444,7 +471,7 @@ sp_state == "bid" &&
 			say("Bidding goes to " sp_player "!")
 		} else {
 			for (p in sp_players)
-				say(p, "You have: " sp_hand(p))
+				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) {
@@ -461,49 +488,53 @@ sp_state == "bid" &&
 
 sp_state == "pass" &&
 /^\.pass (\S+)$/ {
-	card = $2
-	team = sp_players[FROM] % 2
-	if (!(FROM in sp_players)) {
+	_card = $2
+	_team = sp_from in sp_players ? sp_players[sp_from] % 2 : 0
+
+	# check validity and 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_nil[_team] != 2 && sp_nil[_team+2] != 2) {
 		reply("Your team did not go blind")
 	}
-	else if (sp_pass[sp_players[FROM]]) {
+	else if (sp_pass[sp_players[sp_from]]) {
 		reply("You have already passed a card")
 	}
-	else if (!(card in sp_deck)) {
+	else if (!(_card in sp_deck)) {
 		reply("Invalid card")
 	}
-	else if (!(card in sp_hands[FROM])) {
+	else if (!(_card in sp_hands[sp_from])) {
 		reply("You do not have that card")
 	}
 	else {
-		sp_pass[sp_players[FROM]] = $2
+		sp_pass[sp_players[sp_from]] = $2
 		say(sp_channel, FROM " passes a card")
 	}
+
+	# 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]))) {
 		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
+			_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 "!")
 		for (p in sp_players)
-			say(p, "You have: " sp_hand(p))
+			say(p, "You have: " sp_hand(p, p))
 		sp_state = "play"
 	}
 }
 
-sp_state ~ "(play|bid)" &&
+sp_state ~ "(bid|pass|play)" &&
 /^\.look$/ {
-	if (!(FROM in sp_players)) {
+	if (!(sp_from in sp_players)) {
 		say(".slap " FROM ", you are not playing.")
 	} else {
-		sp_looked[sp_players[FROM]] = 1
-		say(FROM, "You have: " sp_hand(FROM))
+		sp_looked[sp_players[sp_from]] = 1
+		say(FROM, "You have: " sp_hand(FROM, sp_from))
 	}
 }
 
@@ -514,23 +545,23 @@ sp_state == "play" &&
 	if (!(card in sp_deck)) {
 		reply("Invalid card")
 	}
-	else if (!(card in sp_hands[FROM])) {
+	else if (!(card in sp_hands[sp_from])) {
 		reply("You do not have that card")
 	}
-	else if (sp_suit && card !~ sp_suit && sp_hasa(FROM, sp_suit)) {
+	else if (sp_suit && card !~ sp_suit && sp_hasa(sp_from, sp_suit)) {
 		reply("You must follow suit (" sp_suit ")")
 	}
-	else if (card ~ /s/ && length(sp_hands[FROM]) == 13 && sp_hasa(FROM, "[^s]$")) {
+	else if (card ~ /s/ && length(sp_hands[sp_from]) == 13 && sp_hasa(sp_from, "[^s]$")) {
 		reply("You cannot trump on the first hand")
 	}
-	else if (card ~ /s/ && length(sp_pile) == 0 && sp_hasa(FROM, "[^s]$") && !sp_broken) {
+	else if (card ~ /s/ && length(sp_pile) == 0 && sp_hasa(sp_from, "[^s]$") && !sp_broken) {
 		reply("Spades have not been broken")
 	}
 	else {
 		sp_play(card)
 		if (sp_state == "play") {
-			if (length(sp_hands[FROM]))
-				say(FROM, "You have: " sp_hand(FROM))
+			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_pretty(sp_piles, sp_player) ")")
@@ -540,7 +571,7 @@ sp_state == "play" &&
 	}
 }
 
-/^\.bids$/ && sp_state == "play" {
+/^\.bids$/ && sp_state ~ "(pass|play)" {
 	say(sp_order[0] " bid " sp_bids[0] ", " \
 	    sp_order[2] " bid " sp_bids[2] ", " \
 	    "total: " sp_bids[0] + sp_bids[2])
@@ -556,7 +587,7 @@ sp_state == "play" &&
 	    sp_order[3] " took " int(sp_tricks[3]) "/" int(sp_bids[3]))
 }
 
-/^\.turn/ && sp_state ~ "(play|bid)" {
+/^\.turn/ && sp_state ~ "(bid|pass|play)" {
 	_bids = sp_bidders()
 	_pile = sp_pretty(sp_piles, FROM)
 	if (sp_state == "bid" && !_bids)
@@ -567,6 +598,9 @@ sp_state == "play" &&
 		say("It is " sp_player "'s turn!")
 	if (sp_state == "play" && _pile)
 		say("It is " sp_player "'s turn! (" _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])
+			say("Waiting for " sp_order[_i] " to pass a card!")
 }
 
 (TO == NICK || DST == sp_channel) &&
@@ -579,7 +613,10 @@ sp_state == "play" &&
 		    sp_order[0] " " sp_order[1] " " \
 		    sp_order[2] " " sp_order[3])
 	}
-	if (sp_state == "bid" || sp_state == "play") {
+	if (sp_state ~ "bid|pass|play") {
+		say("Playing to: " \
+		    sp_playto " points, " \
+		    sp_limit  " bags")
 		say(sp_team(0) ": " \
 		    int(sp_scores[0]) " points, " \
 		    int(sp_bags(0))   " bags")
@@ -589,6 +626,10 @@ sp_state == "play" &&
 	}
 }
 
+/^\.((new|end|load)game|join|look|bid|play)/ {
+	sp_save("var/sp_cur.json");
+}
+
 # Standin
 #/^\.playfor [^ ]*$/ {
 #}