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_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)
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) {
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)
}
}
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.")
}
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 &&
/^\.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)
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)" {