X-Git-Url: http://pileus.org/git/?a=blobdiff_plain;f=spades.awk;h=3503f1e03e9c719ef047fd0968f83bfa08a60445;hb=04c91944b336aeda3df629cb0baf6ee14699ff1d;hp=38d51bec7407d19019ace1b35b42ebc9c9ffba63;hpb=c42e5119c690edc1bd35d2af8783f2c60bf41972;p=~andy%2Frhawk

diff --git a/spades.awk b/spades.awk
index 38d51be..3503f1e 100644
--- a/spades.awk
+++ b/spades.awk
@@ -43,16 +43,17 @@ function sp_reset(type)
 	# Per game
 	if (type >= 2) {
 		sp_channel  = ""    #     channel to play in
-		sp_state    = "new" #     {new,join,bid,play}
+		sp_state    = "new" #     {new,join,bid,pass,play}
 		sp_owner    = ""    #     Who started the game
 		sp_playto   = 0     #     Score the game will go to
 		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_limit    = 10    #     Bag out limit
+		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
 	}
@@ -92,6 +93,7 @@ function sp_save(file,	game)
 	json_copy(game, "hands",   sp_hands);
 	json_copy(game, "players", sp_players);
 	json_copy(game, "auths",   sp_auths);
+	json_copy(game, "share",   sp_share);
 	json_copy(game, "order",   sp_order);
 	json_copy(game, "scores",  sp_scores);
 
@@ -130,15 +132,18 @@ function sp_load(file,	game)
 	sp_acopy(sp_hands,   game["hands"]);
 	sp_acopy(sp_players, game["players"]);
 	sp_acopy(sp_auths,   game["auths"]);
+	sp_acopy(sp_share,   game["share"]);
 	sp_acopy(sp_order,   game["order"]);
 	sp_acopy(sp_scores,  game["scores"]);
 }
 
 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)
@@ -229,24 +234,30 @@ 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
 }
 
-function sp_score(	bids, tricks)
+function sp_score(	bids, times, tricks)
 {
 	for (i=0; i<2; i++) {
 		bids   = sp_bids[i]   + sp_bids[i+2]
 		tricks = sp_tricks[i] + sp_tricks[i+2]
 		bags   = tricks - bids
-		if (sp_bags(i) + bags >= sp_limit) {
-			say(sp_team(i) " bag out")
-			sp_scores[i] -= sp_limit * 10
+		times  = int((sp_bags(i) + bags) / sp_limit)
+		if (times > 0) {
+			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)
@@ -265,7 +276,7 @@ function sp_score(	bids, tricks)
 		     sp_nil[i] == 2 && !sp_tricks[i] ? "makes blind nil!" :
 		     sp_nil[i] == 2 &&  sp_tricks[i] ? "fails miserably at blind nil!" :
 		                                       "unknown"))
-		sp_scores[i%2] += 100 * sp_nil[i] * \
+		sp_scores[i%2] += sp_limit * 10 * sp_nil[i] * \
 			(sp_tricks[i] == 0 ? 1 : -1)
 	}
 }
@@ -305,12 +316,10 @@ function sp_play(card,	winner, pi)
 			say("Game over!")
 			winner = sp_scores[0] > sp_scores[1] ? 0 : 1
 			looser = !winner
-			say(sp_team(winner) " wins the game " \
+			say(CHANNEL, sp_team(winner) " wins the game " \
 			    sp_scores[winner] " to " sp_scores[looser])
-			say(sp_order[winner+0] "++")
-			say(sp_order[winner+2] "++")
-			say(sp_order[looser+0] "--")
-			say(sp_order[looser+2] "--")
+			say(CHANNEL, sp_order[winner+0] "++")
+			say(CHANNEL, sp_order[winner+2] "++")
 			sp_reset(2)
 
 		} else {
@@ -337,7 +346,8 @@ BEGIN {
 }
 
 // {
-	sp_from  = AUTH in sp_auths ? sp_auths[AUTH] : FROM
+	sp_from  = AUTH in sp_auths ? sp_auths[AUTH] : \
+	           AUTH in sp_share ? sp_share[AUTH] : FROM
 	sp_valid = sp_from && sp_from == sp_player
 }
 
@@ -380,25 +390,35 @@ AUTH == OWNER &&
 # Debugging
 AUTH == OWNER &&
 /^\.deal (\w+) (.*)/ {
+	say(sp_channel, FROM " is cheating for " $2)
 	delete sp_hands[$2]
 	for (i=3; i<=NF; i++)
 		sp_hands[$2][$i] = 1
+	next
+}
+
+AUTH == OWNER &&
+sp_state == "play" &&
+/^\.force (\w+) (\S+)$/ {
 	say(sp_channel, FROM " is cheating for " $2)
+	sp_from = $2
+	sp_play($3)
+	next
 }
 
 
 # Setup
-/^\.newgame ?([0-9]+)?/ {
+/^\.newgame ?([0-9]+)?$/ {
 	if (sp_state != "new") {
 		reply("There is already a game in progress.")
 	} else {
+		$1         = ".join"
 		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 " with " sp_limit " bags!")
-		#say("#rhnoise", sp_owner " starts a game of Spades in " DST "!")
 	}
 }
 
@@ -434,8 +454,59 @@ AUTH == OWNER &&
 		sp_deal()
 }
 
+/^\.allow \S+$/ {
+	_who = $2 in USERS ? USERS[$2]["auth"] : ""
+	_str = _who && _who != $2 ? $2 " (" _who ")" : $2
+	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 (!_who) {
+		reply(_str " is not logged in")
+	}
+	else if (_who in sp_players || _who in sp_auths) {
+		reply(_str " is a primary player")
+	}
+	else if (_who in sp_share) {
+		reply(_str " is already playing for " sp_share[_who])
+	}
+	else {
+		reply(_str " can now play for " sp_from)
+		sp_share[_who] = sp_from
+	}
+}
+
+/^\.deny \S+$/ {
+	_who = $2 in USERS ? USERS[$2]["auth"] : $2
+	_str = _who && _who != $2 ? $2 " (" _who ")" : $2
+	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 (_who in sp_players || _who in sp_auths) {
+		reply(_str " is a primary player")
+	}
+	else if (!(_who in sp_share) || sp_share[_who] != sp_from) {
+		reply(_str " is not playing for " sp_from)
+	}
+	else {
+		reply(_str " can no longer play for " sp_from)
+		delete sp_share[_who]
+	}
+}
+
+sp_state ~ "(bid|pass|play)" &&
+/^\.show/ {
+	for (_i in sp_share)
+		say(_i " can play for " sp_share[_i]);
+}
+
 !sp_valid &&
-(sp_state "bid" || sp_state == "play") &&
+(sp_state == "bid" || sp_state == "play") &&
 /^\.(bid|play)\>/ {
 	if (sp_from in sp_players)
 		say(".slap " FROM ", it is not your turn.")
@@ -521,7 +592,7 @@ sp_state == "pass" &&
 	}
 }
 
-sp_state ~ "(play|bid)" &&
+sp_state ~ "(bid|pass|play)" &&
 /^\.look$/ {
 	if (!(sp_from in sp_players)) {
 		say(".slap " FROM ", you are not playing.")
@@ -533,25 +604,26 @@ sp_state ~ "(play|bid)" &&
 
 sp_valid &&
 sp_state == "play" &&
-/^\.play (\S+)$/ {
-	card = $2
-	if (!(card in sp_deck)) {
+/^\.play (\S+)/ {
+	_card = $2
+	gsub(/[^A-Za-z0-9]/, "", _card);
+	if (!(_card in sp_deck)) {
 		reply("Invalid card")
 	}
-	else if (!(card in sp_hands[sp_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(sp_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[sp_from]) == 13 && sp_hasa(sp_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(sp_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)
+		sp_play(_card)
 		if (sp_state == "play") {
 			if (length(sp_hands[sp_from]))
 				say(FROM, "You have: " sp_hand(FROM, sp_from))
@@ -564,7 +636,23 @@ sp_state == "play" &&
 	}
 }
 
-/^\.bids$/ && sp_state == "play" {
+/^\.turn/ && sp_state ~ "(bid|pass|play)" {
+	_bids = sp_bidders()
+	_pile = sp_pretty(sp_piles, FROM)
+	if (sp_state == "bid" && !_bids)
+		say("It is " sp_player "'s bid!")
+	if (sp_state == "bid" && _bids)
+		say("It is " sp_player "'s bid! (" _bids ")")
+	if (sp_state == "play" && !_pile)
+		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!")
+}
+
+/^\.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])
@@ -580,30 +668,22 @@ sp_state == "play" &&
 	    sp_order[3] " took " int(sp_tricks[3]) "/" int(sp_bids[3]))
 }
 
-/^\.turn/ && sp_state ~ "(play|bid)" {
-	_bids = sp_bidders()
-	_pile = sp_pretty(sp_piles, FROM)
-	if (sp_state == "bid" && !_bids)
-		say("It is " sp_player "'s bid!")
-	if (sp_state == "bid" && _bids)
-		say("It is " sp_player "'s bid! (" _bids ")")
-	if (sp_state == "play" && !_pile)
-		say("It is " sp_player "'s turn!")
-	if (sp_state == "play" && _pile)
-		say("It is " sp_player "'s turn! (" _pile ")")
-}
-
 (TO == NICK || DST == sp_channel) &&
 /^\.(score|status)$/ {
 	if (sp_state == "new") {
 		say("There is no game in progress")
 	}
+	if (sp_state ~ "join|bid|pass|play") {
+		say("Playing to: " \
+		    sp_playto " points, " \
+		    sp_limit  " bags")
+	}
 	if (sp_state == "join") {
 		say("Waiting for players: " \
 		    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(sp_team(0) ": " \
 		    int(sp_scores[0]) " points, " \
 		    int(sp_bags(0))   " bags")
@@ -613,7 +693,7 @@ sp_state == "play" &&
 	}
 }
 
-/^\.((new|end|load)game|join|look|bid|play)/ {
+/^\.((new|end|load)game|join|look|bid|pass|play)/ {
 	sp_save("var/sp_cur.json");
 }