# 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
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
}
}
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
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)
{
+ 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 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)
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++) {
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
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<length(list); i++)
+ if (max == "" || list[i] > max)
+ max = list[i]
+ return max
+}
+
+function sp_avg(list, i, sum)
+{
+ for (i=0; i<length(list); i++)
+ sum += list[i]
+ return sum / length(list)
+}
+
+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) {
+ # 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"
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.")
}
}
/^\.help game$/ {
- say(".newgame [score] -- start a game to <score> points, default 500")
+ say(".newgame [score] -- start a game to <score> points, default 300")
say(".endgame -- abort the current game")
say(".savegame -- save the current game to disk")
say(".loadgame -- load the previously saved game")
say(".bid [n] -- bid for <n> 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")
} 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
}
}
+/^\.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])
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 &&
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 <card>)")
sp_state = "pass"
}
/^\.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)" {
}
}
-(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|join|look|bid|pass|play|allow|deny|team|notify)/ {
sp_save("var/sp_cur.json");
}