X-Git-Url: http://pileus.org/git/?p=~andy%2Frhawk;a=blobdiff_plain;f=spades.awk;h=740d1b8e347003b11fc6acf764fe22719521374f;hp=5e756f5cf3bb8a75c8c4043446e541058177d0d2;hb=HEAD;hpb=743a293fbca861183a290ddf635406af7ef1919a diff --git a/spades.awk b/spades.awk index 5e756f5..740d1b8 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} @@ -27,6 +33,8 @@ 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 delete sp_nil # [i] Nil multiplier 0=regular, 1=nil, 2=blind @@ -36,26 +44,37 @@ 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_valid = 0 # Message sent from sp_player - delete sp_hands # [p] Each players cards + sp_limit = 10 # Bag out limit / nil bonus 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 + 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 } } function sp_acopy(dst, src, key) { - if (isarray(src)) + if (isarray(src)) { + delete(dst) for (key in src) json_copy(dst, key, src[key]) + } } function sp_save(file, game) @@ -68,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); @@ -75,26 +95,34 @@ 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; 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, "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); - 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"]; @@ -104,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"]); @@ -111,24 +140,41 @@ 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"]; 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_share, game["share"]); sp_acopy(sp_order, game["order"]); sp_acopy(sp_scores, game["scores"]); - say("Game loaded.") + 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) { - 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) @@ -137,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 @@ -146,26 +202,35 @@ 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_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 sp_state = "bid" sp_dealer = (sp_dealer+1)%4 sp_turn = sp_dealer sp_player = sp_order[sp_turn] - say("Bidding starts with " sp_player "!") + sp_say(sp_player ": you bid first!") } -function sp_hand(who, sort, str) +function sp_hand(to, who, sort, str) { asorti(sp_hands[who], sort, "sp_csort") for (i=0; i13 ? "Fighting for " n-13 " trick" s "!" : "No bags!"; +} + +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 >= 10) { - say(sp_team(i) " bag out") - sp_scores[i] -= 100 + times = int((sp_bags(i) + bags) / sp_limit) + if (times > 0) { + 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!" : 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) } + if (sp_scores[0] > sp_scores[1]) + sp_say(sp_team(0) " lead " sp_scores[0] " to " sp_scores[1] " of " sp_playto) + else if (sp_scores[1] > sp_scores[0]) + sp_say(sp_team(1) " lead " sp_scores[1] " to " sp_scores[0] " of " sp_playto) + else + sp_say("tied at " sp_scores[0] " of " sp_playto) } 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() @@ -266,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) } @@ -275,31 +387,105 @@ 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(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 { - 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 max) + max = list[i] + return max +} + +function sp_avg(list, i, sum) +{ + for (i=0; i 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" @@ -308,260 +494,491 @@ BEGIN { srand(seed) sp_init() sp_reset(2) + sp_load("var/sp_cur.json") + sp_sock = "/inet/udp/0/localhost/6173" + print "starting rhawk" |& sp_sock + #if (sp_channel) + # sp_say("Game restored.") } // { - sp_valid = (FROM && FROM == sp_player) + 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 } +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 +/^\.help$/ { + say(".help spades -- play a game of spades") +} + /^\.help [Ss]pades$/ { say("Spades -- play a game of spades") - say("Examples:") - say(".newgame [score] -- start a game to points, default 500") + 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 300") 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(".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") + 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") + say(".notify [addr] -- email user when it is their turn") next } # Debugging -FROM == OWNER && +AUTH == OWNER && /^\.deal (\w+) (.*)/ { + sp_say(FROM " is cheating for " $2) delete sp_hands[$2] for (i=3; i<=NF; i++) sp_hands[$2][$i] = 1 - say(sp_channel, FROM " is cheating for " $2) + next +} + +AUTH == OWNER && +/^\.order (\w+) ([0-4])/ { + sp_say(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+)$/ { + sp_say(FROM " is cheating for " $2) + sp_from = $2 + sp_play($3) + next } # Setup -/^\.newgame ?([0-9]+)?/ { +match($0, /^\.newgame ?([1-9][0-9]*) *- *([1-9][0-9]*)$/, _arr) { + if (_arr[2] > _arr[1]) + $0 = $1 " " int(rand() * (_arr[2]-_arr[1])+_arr[1]) +} + +/^\.newgame ?([1-9][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_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 "!") - #say("#rhnoise", sp_owner " starts a game of Spades in " DST "!") + 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!") } } -(FROM == sp_owner || FROM == 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") } 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 - say(FROM " joins the game!") + if (AUTH) + sp_auths[AUTH] = FROM + sp_order[i] = FROM + sp_say(FROM " joins the game!") } - if (sp_state == "join" && sp_turn == 0) + if (sp_state == "join" && sp_turn == 0) { + sp_scores[0] = 0 + sp_scores[1] = 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 { + sp_say(_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 { + 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 + 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 (FROM in sp_players) - say(".slap " FROM ", it is not your turn.") + if (sp_from in sp_players) + 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-9]+$/ { +/^\.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("Bidding goes to " sp_player "!") + 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)) + 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) { - say(sp_team(i) ": select a card to pass " \ + if (sp_passer(i)) { + sp_say(sp_team(i,1) ": select a card to pass " \ "(/msg " NICK " .pass )") sp_state = "pass" } } if (sp_state == "play") - say("Play starts with " sp_player "!") + sp_say(sp_player ": you have the opening lead!") } } } sp_state == "pass" && /^\.pass (\S+)$/ { - card = $2 - team = sp_players[FROM] % 2 - if (!(FROM in sp_players)) { - say(".slap " FROM ", you are not playing.") + _card = $2 + _team = sp_from in sp_players ? sp_players[sp_from] % 2 : 0 + + # check validity and pass + if (!(sp_from in sp_players)) { + reply("You are not playing.") } - else if (sp_nil[team] != 2 && sp_nil[team+2] != 2) { + else if (!sp_passer(_team)) { 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 - say(sp_channel, FROM " passes a card") + sp_pass[sp_players[sp_from]] = $2 + sp_say(FROM " passes a card") } - 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]))) { + + # check for end of passing + if ((!sp_passer(0) || (sp_pass[0] && sp_pass[2])) && + (!sp_passer(1) || (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 "!") + 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)) + 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)) { - say(".slap " FROM ", you are not playing.") + if (!(sp_from in sp_players)) { + reply("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)) { +/^\.play (\S+)/ { + _card = $2 + gsub(/[^A-Za-z0-9]/, "", _card); + if (!(_card in sp_deck)) { reply("Invalid card") } - else if (!(card in sp_hands[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 if (!(_card in sp_hands[sp_from])) { + reply("You do not have that card") + } 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_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!") } } } -/^\.bids$/ && sp_state == "play" { - say(sp_order[0] " bid " sp_bids[0] ", " \ - sp_order[2] " bid " sp_bids[2] ", " \ +/^\.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 = "" + 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) + if (sp_state == "bid" && _bids) + say("It is " sp_player "'s bid!" _extra " (" _bids ")") + if (sp_state == "play" && !_pile) + say("It is " sp_player "'s turn!" _extra) + 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!") +} + +/^\.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_bids[1] ", " \ - sp_order[3] " bid " sp_bids[3] ", " \ + 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]) "/" 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)" { - if (sp_turn > 0) { - t = sp_turn - d = sp_dealer - print d, t - _bids = (t>0 ? ( sp_order[(d+0)%4] ": " sp_bids[(d+0)%4]) : "") \ - (t>1 ? (", " sp_order[(d+1)%4] ": " sp_bids[(d+1)%4]) : "") \ - (t>2 ? (", " sp_order[(d+2)%4] ": " sp_bids[(d+2)%4]) : "") \ - (t>3 ? (", " sp_order[(d+3)%4] ": " sp_bids[(d+3)%4]) : "") - _pile = sp_pretty(sp_piles, sp_player) - } - if (sp_state == "bid" && sp_turn <= 0) - say("It is " sp_player "'s bid!") - if (sp_state == "bid" && sp_turn > 0) - say("It is " sp_player "'s bid! (" _bids ")") - if (sp_state == "play" && sp_turn <= 0) - say("It is " sp_player "'s turn!") - if (sp_state == "play" && sp_turn > 0) - say("It is " sp_player "'s turn! (" _pile ")") + 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) && @@ -569,12 +986,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") { + if (sp_state ~ "bid|pass|play") { say(sp_team(0) ": " \ int(sp_scores[0]) " points, " \ int(sp_bags(0)) " bags") @@ -584,17 +1006,22 @@ sp_state == "play" && } } -# 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 -#} -# +(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"); +}