X-Git-Url: http://pileus.org/git/?a=blobdiff_plain;f=spades.awk;h=c043eebb579d6d942c3bff6bd4855ac177d03e49;hb=7c0cb1f9fb1b5684991570e0fcb401a0502c7ee3;hp=61b967cae98313b70f51051ab89f81de5c922663;hpb=536c61ac0da88eb94d1e271a7fcfb633ddbe298d;p=~andy%2Frhawk diff --git a/spades.awk b/spades.awk index 61b967c..c043eeb 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,6 +132,7 @@ 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"]); } @@ -158,10 +161,19 @@ 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" @@ -194,8 +206,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) { @@ -227,33 +241,34 @@ function sp_bags(i, bags) return bags } +function sp_bid(who) +{ + return sp_nil[who] == 0 ? sp_bids[who] : + sp_nil[who] == 1 ? "nil" : + sp_nil[who] == 2 ? "blind" : "n/a" +} + 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]) - bid = sp_order[turn] ":" sp_bids[turn] - 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 + if (bid = sp_bid(turn)) + bids = bids " " sp_order[turn] ":" 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) @@ -272,7 +287,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) } } @@ -312,12 +327,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 { @@ -344,7 +357,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 } @@ -369,43 +383,86 @@ AUTH == OWNER && # Help /^\.help [Ss]pades$/ { say("Spades -- play a game of spades") - say("Examples:") + say(".help game -- setup and administer the game") + say(".help play -- commands for playing spades") + say(".help auth -- control player authorization") + next +} + +/^\.help game$/ { say(".newgame [score] -- start a game to points, default 500") say(".endgame -- abort the current game") say(".savegame -- save the current game to disk") say(".loadgame -- load the previously saved game") + next +} + +/^\.help play$/ { say(".join -- join the current game") say(".look -- look at your cards") - say(".bid n -- bid for tricks") + say(".bid [n] -- bid for tricks") + say(".pass [card] -- pass a card to your partner") say(".play [card] -- play a card") - say(".score -- check the score") - say(".tricks -- check how many trick have been taken") + say(".turn -- check whose turn it is") say(".bids -- check what everyone bid") + say(".tricks -- check how many trick have been taken") + say(".score -- check the score") + next +} + +/^\.help auth$/ { + say(".auth [who] -- display authentication info for a user") + 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") next } # 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 && +/^\.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+)$/ { + say(sp_channel, FROM " is cheating for " $2) + sp_from = $2 + sp_play($3) + next } # Setup -/^\.newgame ?([0-9]+)?/ { +match($0, /^\.newgame ?([0-9]+) *- *([0-9]+)$/, _arr) { + if (_arr[2] > _arr[1]) + $0 = $1 " " int(rand() * (_arr[2]-_arr[1])+_arr[1]) +} + +/^\.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 "!") } } @@ -437,12 +494,68 @@ AUTH == OWNER && 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+$/ { + _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/ { + delete _lines + for (_i in sp_share) + _lines[sp_share[_i]] = _lines[sp_share[_i]] " " _i + for (_i in _lines) + say(_i " allowed:" _lines[_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.") @@ -474,7 +587,8 @@ sp_state == "bid" && 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_nil[(i+0)%4] == 2 || sp_nil[(i+2)%4] == 2 || + sp_nil[(i+1)%4] != 0 || sp_nil[(i+3)%4] != 0) { say(sp_team(i) ": select a card to pass " \ "(/msg " NICK " .pass )") sp_state = "pass" @@ -495,7 +609,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_nil[_team] == 1 && sp_nil[_team+2] == 1) { reply("Your team did not go blind") } else if (sp_pass[sp_players[sp_from]]) { @@ -513,8 +627,8 @@ 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_nil[0] == 1 && sp_nil[2] == 1) || (sp_pass[0] && sp_pass[2])) && + ((sp_nil[1] == 1 && sp_nil[3] == 1) || (sp_pass[1] && sp_pass[3]))) { for (i in sp_pass) { _partner = (i+2)%4 _card = sp_pass[i] @@ -540,25 +654,26 @@ sp_state ~ "(bid|pass|play)" && 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)) @@ -571,23 +686,8 @@ sp_state == "play" && } } -/^\.bids$/ && sp_state == "play" { - say(sp_order[0] " bid " sp_bids[0] ", " \ - sp_order[2] " bid " sp_bids[2] ", " \ - "total: " sp_bids[0] + sp_bids[2]) - say(sp_order[1] " bid " sp_bids[1] ", " \ - sp_order[3] " bid " sp_bids[3] ", " \ - "total: " sp_bids[1] + sp_bids[3]) -} - -/^\.tricks$/ && sp_state == "play" { - say(sp_order[0] " took " int(sp_tricks[0]) "/" int(sp_bids[0]) ", " \ - sp_order[2] " took " int(sp_tricks[2]) "/" int(sp_bids[2])) - say(sp_order[1] " took " int(sp_tricks[1]) "/" int(sp_bids[1]) ", " \ - sp_order[3] " took " int(sp_tricks[3]) "/" int(sp_bids[3])) -} - -/^\.turn/ && sp_state ~ "(play|bid)" { +/^\.bids/ && sp_state == "bid" || +/^\.turn/ && sp_state ~ "(bid|pass|play)" { _bids = sp_bidders() _pile = sp_pretty(sp_piles, FROM) if (sp_state == "bid" && !_bids) @@ -598,6 +698,25 @@ 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]!=1 || sp_nil[_i%2+2]!=1) && !sp_pass[_i]) + say("Waiting for " sp_order[_i] " to pass a card!") +} + +/^\.bids$/ && sp_state ~ "(pass|play)" { + say(sp_order[0] " bid " sp_bid(0) ", " \ + sp_order[2] " bid " sp_bid(2) ", " \ + "total: " sp_bids[0] + sp_bids[2]) + say(sp_order[1] " bid " sp_bid(1) ", " \ + sp_order[3] " bid " sp_bid(3) ", " \ + "total: " sp_bids[1] + sp_bids[3]) +} + +/^\.tricks$/ && sp_state == "play" { + say(sp_order[0] " took " int(sp_tricks[0]) "/" sp_bid(0) ", " \ + sp_order[2] " took " int(sp_tricks[2]) "/" sp_bid(2)) + say(sp_order[1] " took " int(sp_tricks[1]) "/" sp_bid(1) ", " \ + sp_order[3] " took " int(sp_tricks[3]) "/" sp_bid(3)) } (TO == NICK || DST == sp_channel) && @@ -605,15 +724,17 @@ sp_state == "play" && 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") { - say("playing to: " \ - sp_playto " points, " \ - sp_limit " bags") + if (sp_state ~ "bid|pass|play") { say(sp_team(0) ": " \ int(sp_scores[0]) " points, " \ int(sp_bags(0)) " bags") @@ -623,21 +744,6 @@ 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"); } - -# Standin -#/^\.playfor [^ ]*$/ { -#} -# -#/^\.standin [^ ]*$/ { -# if (p in sp_players) { -# } -# for (p in sp_standin) { -# if ($2 in sp_standin) -# say(here " is already playing for " sp_standin[p]); -# } -# sp_standin[away] = here -#} -#