Abbreviate usernames in stats

[~andy/rhawk] / spades.awk

diff --git a/spades.awk b/spades.awk
index d60507546a26de3e9a57e42a366dcc778ddf7045..1330bed8f10ed027cd81a4a1fa0b015c8709e41c 100644 (file)
--- a/spades.awk
+++ b/spades.awk
@@ -62,6 +62,7 @@ function sp_reset(type)
        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
        }
 }
@@ -158,9 +159,10 @@ function sp_load(file,     game)
 
 function sp_say(msg)
 {
+       say(sp_channel, msg)
+       print msg |& sp_sock
        print strftime("%Y-%m-%d %H:%M:%S | ") msg >> "logs/" sp_log
        fflush("logs/" sp_log)
-       say(sp_channel, msg);
 }
 
 function sp_pretty(cards, who)
@@ -383,7 +385,7 @@ 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_reset(1)
@@ -397,7 +399,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 +417,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 +442,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 +478,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.")
 }
@@ -663,6 +681,15 @@ match($0, /^\.newgame ?([1-9][0-9]*) *- *([1-9][0-9]*)$/, _arr) {
        }
 }
 
+/^\.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])
@@ -692,7 +719,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 &&
@@ -838,13 +865,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)
@@ -855,23 +890,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)" {