X-Git-Url: http://pileus.org/git/?p=~andy%2Frhawk;a=blobdiff_plain;f=spades.awk;h=740d1b8e347003b11fc6acf764fe22719521374f;hp=49c44cda8d2c350f68e0bf77e3424812a975ffe2;hb=HEAD;hpb=8fd004397129679dddbb31953d372a8b169689db diff --git a/spades.awk b/spades.awk index 49c44cd..740d1b8 100644 --- a/spades.awk +++ b/spades.awk @@ -33,7 +33,7 @@ function sp_reset(type) if (type >= 1) { sp_state = "bid" # {new,join,bid,pass,play} sp_broken = 0 # Whether spades are broken - sp_last = "" # The result of the last hand + 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 @@ -44,7 +44,6 @@ function sp_reset(type) # Per game if (type >= 2) { - sp_channel = "" # channel to play in sp_state = "new" # {new,join,bid,pass,play} sp_owner = "" # Who started the game sp_playto = 0 # Score the game will go to @@ -57,11 +56,14 @@ function sp_reset(type) 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 } } @@ -85,7 +87,7 @@ function sp_save(file, game) # Per round game["state"] = sp_state; game["broken"] = sp_broken; - game["last"] = sp_last; + json_copy(game, "last", sp_last); json_copy(game, "looked", sp_looked); json_copy(game, "bids", sp_bids); json_copy(game, "nil", sp_nil); @@ -93,20 +95,23 @@ 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; - game["log"] = sp_log; 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 @@ -127,7 +132,7 @@ function sp_load(file, game) # Per round sp_state = game["state"]; sp_broken = game["broken"]; - sp_last = game["last"]; + sp_acopy(sp_last, game["last"]); sp_acopy(sp_looked, game["looked"]); sp_acopy(sp_bids, game["bids"]); sp_acopy(sp_nil, game["nil"]); @@ -135,28 +140,32 @@ 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_log = game["log"]; 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"]); + 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) { - print strftime("%Y-%m-%d %H:%M:%S | ") msg >> "logs/" sp_log + 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) - say(sp_channel, msg); } function sp_pretty(cards, who) @@ -174,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 @@ -249,10 +268,13 @@ function sp_winner( card, tmp) return tmp[1] } -function sp_team(i) +function sp_team(i, players) { #return "{" sp_order[i+0] "," sp_order[i+2] "}" - return sp_order[i+0] "/" sp_order[i+2] + if ((i in sp_teams) && !players) + return sp_teams[i] + else + return sp_order[i+0] "/" sp_order[i+2] } function sp_bags(i, bags) @@ -287,6 +309,15 @@ function sp_bidders( i, turn, bid, bids) return bids } +function sp_extra( n, s) +{ + n = sp_bids[0] + sp_bids[1] + sp_bids[2] + sp_bids[3]; + s = n == 12 || n == 14 ? "" : "s"; + + return n<13 ? "Playing with " 13-n " bag" s "!" : + n>13 ? "Fighting for " n-13 " trick" s "!" : "No bags!"; +} + function sp_score( bids, times, tricks) { for (i=0; i<2; i++) { @@ -347,7 +378,8 @@ function sp_play(card, winner, pi) sp_tricks[pi]++ sp_say(sp_pile[winner] " wins with " sp_pretty(winner, FROM) \ " (" sp_pretty(sp_piles, FROM) ")") - sp_last = sp_pile[winner] " took " sp_piles + sp_last["player"] = sp_pile[winner]; + sp_last["pile"] = sp_piles; sp_next(sp_pile[winner]) sp_reset(0) } @@ -357,8 +389,8 @@ function sp_play(card, winner, pi) sp_tricks[2] + sp_tricks[3] == 13) { sp_say("Round over!") sp_score() - if (sp_scores[0] >= sp_playto || sp_scores[1] >= sp_playto && - sp_scores[0] != sp_scores[1]) { + 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 @@ -369,15 +401,91 @@ function sp_play(card, winner, pi) sp_reset(2) } else { - if (sp_scores[0] == sp_scores[1] && + if (sp_scores[0] == sp_scores[1] && sp_scores[0] >= sp_playto) - sp_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" @@ -386,7 +494,9 @@ BEGIN { srand(seed) sp_init() sp_reset(2) - sp_load("var/sp_cur.json"); + 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.") } @@ -429,7 +539,7 @@ AUTH == OWNER && } /^\.help game$/ { - say(".newgame [score] -- start a game to points, default 500") + 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") @@ -442,6 +552,7 @@ AUTH == OWNER && say(".bid [n] -- bid for tricks") say(".pass [card] -- pass a card to your partner") say(".play [card] -- play a card") + 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") @@ -499,7 +610,7 @@ match($0, /^\.newgame ?([1-9][0-9]*) *- *([1-9][0-9]*)$/, _arr) { } 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 @@ -508,14 +619,27 @@ match($0, /^\.newgame ?([1-9][0-9]*) *- *([1-9][0-9]*)$/, _arr) { } } -(sp_from == sp_owner || AUTH == OWNER) && -/^\.endgame$/ { +/^\.(endgame|fliptable)$/ { if (sp_state == "new") { reply("There is no game in progress.") - } else { + } + 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/ { @@ -537,6 +661,8 @@ match($0, /^\.newgame ?([1-9][0-9]*) *- *([1-9][0-9]*)$/, _arr) { sp_say(FROM " joins the game!") } if (sp_state == "join" && sp_turn == 0) { + sp_scores[0] = 0 + sp_scores[1] = 0 sp_shuf() sp_deal() } @@ -587,6 +713,37 @@ match($0, /^\.newgame ?([1-9][0-9]*) *- *([1-9][0-9]*)$/, _arr) { } } +/^\.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]) @@ -616,7 +773,7 @@ sp_state ~ "(bid|pass|play)" && for (_i in sp_share) _lines[sp_share[_i]] = _lines[sp_share[_i]] " " _i for (_i in _lines) - sp_say(_i " allowed:" _lines[_i]) + say(_i " allowed:" _lines[_i]) } !sp_valid && @@ -648,12 +805,13 @@ sp_state == "bid" && if (sp_turn != sp_dealer) { 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, p)) sp_state = "play" for (i=0; i<2; i++) { if (sp_passer(i)) { - sp_say(sp_team(i) ": select a card to pass " \ + sp_say(sp_team(i,1) ": select a card to pass " \ "(/msg " NICK " .pass )") sp_state = "pass" } @@ -752,21 +910,30 @@ sp_state == "play" && } /^\.last/ && sp_state == "play" { - if (!sp_last) + if (!isarray(sp_last)) say("No tricks have been taken!"); else - say(sp_pretty(sp_last, FROM)); + 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 = "" - - for (_i in sp_share) - if (/!/ && sp_share[_i] == sp_player) + _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) @@ -777,23 +944,25 @@ sp_state == "play" && 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!") - - if (/!!/ && (sp_state == "bid" || sp_state == "play")) { - if (sp_player in sp_notify) { - _bids = _bids ? _bids : "none" - _pile = _pile ? sp_piles : "none" - mail_send(sp_notify[sp_player], \ - "It is your " sp_state "!", \ - "Bids so far: " _bids "\n" \ - "Cards played: " _pile) - say("Notified " sp_player " at " sp_notify[sp_player]) - } else { - say("No email address for " sp_player) - } - } } /^\.bids$/ && sp_state ~ "(pass|play)" { @@ -837,11 +1006,22 @@ sp_state == "play" && } } -(DST == sp_channel) && +(TO == NICK || DST == sp_channel) && /^\.log/ { say("http://pileus.org/andy/spades/" sp_log) } -/^\.((new|end|load)game|join|look|bid|pass|play|notify)/ { +(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"); }