X-Git-Url: http://pileus.org/git/?p=~andy%2Frhawk;a=blobdiff_plain;f=spades.awk;h=740d1b8e347003b11fc6acf764fe22719521374f;hp=1818bbd9b11d43640ab91cf78694ba4134a3bc2b;hb=HEAD;hpb=f00be486b00fba4c339b6a8a40ab0fdf1025eccd diff --git a/spades.awk b/spades.awk index 1818bbd..740d1b8 100644 --- a/spades.awk +++ b/spades.awk @@ -56,12 +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 } } @@ -105,6 +107,7 @@ function sp_save(file, game) 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; @@ -149,6 +152,7 @@ function sp_load(file, game) 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"]; @@ -158,9 +162,10 @@ function sp_load(file, game) 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) @@ -178,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 @@ -253,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) @@ -371,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 @@ -383,9 +401,9 @@ 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() } @@ -397,7 +415,7 @@ 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" + int(sec/60)%60 "m" } function sp_max(list, i, max) @@ -415,7 +433,12 @@ function sp_avg(list, i, sum) return sum / length(list) } -function sp_stats(file, line, arr, time, user, turn, start, delay) +function sp_cur(list) +{ + return list[length(list)-1] +} + +function sp_stats(file, line, arr, time, user, turn, start, delay, short, extra) { # Process log file while ((stat = getline line < file) > 0) { @@ -435,22 +458,31 @@ function sp_stats(file, line, arr, time, user, turn, start, delay) delay[turn][length(delay[turn])] = time - start turn = 0 } - if (match(arr[2], /^it is your.*$/, arr)) { + 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) { - say("latency for " user \ + 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)") + ", " sp_delay(sp_max(delay[user])) " (max)" extra) } } @@ -462,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.") } @@ -505,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") @@ -518,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") @@ -575,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 @@ -584,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/ { @@ -613,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() } @@ -663,6 +713,28 @@ 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") @@ -701,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 && @@ -739,7 +811,7 @@ sp_state == "bid" && 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" } @@ -847,13 +919,21 @@ sp_state == "play" && /^\.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) @@ -864,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)" { @@ -940,6 +1022,6 @@ sp_state == "play" && sp_stats("logs/" $2 ".log"); } -/^\.((new|end|load)game|join|look|bid|pass|play|notify)/ { +/^\.((new|end|load)game|fliptable|join|look|bid|pass|play|allow|deny|team|notify)/ { sp_save("var/sp_cur.json"); }