X-Git-Url: http://pileus.org/git/?a=blobdiff_plain;f=spades.awk;h=9f404d8cea4665fa43d0e5490610504e34aa25a7;hb=934287791f5fe72ce414a2740c47de5647586707;hp=08f2776277aebd4cf895d10c44df417e09e91c62;hpb=7d09c27cd66a272c71d407e1930f4b8bf327450e;p=~andy%2Frhawk diff --git a/spades.awk b/spades.awk index 08f2776..9f404d8 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 @@ -385,7 +403,7 @@ function sp_play(card, winner, pi) } else { 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() } @@ -420,7 +438,7 @@ function sp_cur(list) return list[length(list)-1] } -function sp_stats(file, line, arr, time, user, turn, start, delay, extra) +function sp_stats(file, line, arr, time, user, turn, start, delay, short, extra) { # Process log file while ((stat = getline line < file) > 0) { @@ -459,9 +477,10 @@ function sp_stats(file, line, arr, time, user, turn, start, delay, extra) # 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 " user \ + say("latency for " short \ ": " sp_delay(sp_avg(delay[user])) " (avg)" \ ", " sp_delay(sp_max(delay[user])) " (max)" extra) } @@ -475,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.") } @@ -518,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") @@ -531,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") @@ -588,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 @@ -676,6 +698,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") @@ -714,7 +758,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 && @@ -752,7 +796,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" } @@ -860,13 +904,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) @@ -877,23 +929,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)" { @@ -953,6 +1007,6 @@ sp_state == "play" && sp_stats("logs/" $2 ".log"); } -/^\.((new|end|load)game|join|look|bid|pass|play|notify)/ { +/^\.((new|end|load)game|join|look|bid|pass|play|allow|deny|team|notify)/ { sp_save("var/sp_cur.json"); }