X-Git-Url: http://pileus.org/git/?a=blobdiff_plain;f=spades.awk;h=5cf5c05ec98d8dd6134fd00eadad965a482f7f05;hb=40e8270fcd07bddaf00d5e0c09b1b942b4ab4470;hp=fe0142fd99a4c979f7d61d247c83eec85a54be41;hpb=45ab9031eff11194847f07904b8f4b7aa31097bb;p=~andy%2Frhawk diff --git a/spades.awk b/spades.awk index fe0142f..5cf5c05 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= 10) { - say(sp_team(i) " bag out") - sp_scores[i] -= 100 + 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) @@ -249,7 +280,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() @@ -308,25 +339,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 @@ -348,12 +386,22 @@ FROM == OWNER && } # Debugging -FROM == OWNER && +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" && +/^\.play (\w+) (\S+)$/ { say(sp_channel, FROM " is cheating for " $2) + sp_from = $2 + sp_play($3) + next } @@ -362,16 +410,17 @@ FROM == OWNER && 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 "!") - #say("#rhnoise", sp_owner " starts a game of Spades in " DST "!") + say(sp_owner " starts a game of Spades to " sp_playto " with " sp_limit " bags!") } } -(FROM == sp_owner || FROM == OWNER) && +(sp_from == sp_owner || AUTH == OWNER) && /^\.endgame$/ { if (sp_state == "new") { reply("There is no game in progress.") @@ -388,13 +437,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) @@ -404,7 +455,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.") @@ -431,7 +482,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) { @@ -448,76 +499,80 @@ 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)) } } sp_valid && sp_state == "play" && /^\.play (\S+)$/ { - card = $2 - if (!(card in sp_deck)) { + _card = $2 + 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) + 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) ")") @@ -527,7 +582,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]) @@ -543,9 +598,20 @@ sp_state == "play" && sp_order[3] " took " int(sp_tricks[3]) "/" int(sp_bids[3])) } -/\.turn/ { - if (sp_state == "bid" || sp_state == "play") - say("It is " sp_player "'s turn."); +/^\.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!") } (TO == NICK || DST == sp_channel) && @@ -558,7 +624,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") @@ -568,6 +637,10 @@ sp_state == "play" && } } +/^\.((new|end|load)game|join|look|bid|play)/ { + sp_save("var/sp_cur.json"); +} + # Standin #/^\.playfor [^ ]*$/ { #}