# Per game
if (type >= 2) {
sp_channel = "" # channel to play in
- sp_state = "new" # {new,join,bid,play}
+ sp_state = "new" # {new,join,bid,pass,play}
sp_owner = "" # Who started the game
sp_playto = 0 # Score the game will go to
sp_dealer =-1 # Who is dealing this round
sp_turn = 0 # Index of who's turn it is
sp_player = "" # Who's turn it is
- sp_limit = 10 # Bag out limit
+ sp_limit = 10 # Bag out limit / nil bonus
delete sp_hands # [p] Each players cards
delete sp_players # [p] Player names players["name"] -> i
delete sp_auths # [c] Player auth names auths["auth"] -> "name"
+ delete sp_share # [c] Player teammates share["friend"] -> "name"
delete sp_order # [i] Player order order[i] -> "name"
delete sp_scores # [i] Teams score
}
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);
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"]);
}
return bags
}
+function sp_bid(who)
+{
+ return sp_nil[who] == 0 ? sp_bids[who] :
+ sp_nil[who] == 1 ? "nil" :
+ sp_nil[who] == 2 ? "blind" : "n/a"
+}
+
function sp_bidders( i, turn, bid, bids)
{
for (i = 0; i < 4; i++) {
turn = (sp_dealer + i) % 4
- if (sp_bids[turn] && !sp_nil[turn])
- bid = sp_order[turn] ":" sp_bids[turn]
- else if (sp_nil[turn] == 1)
- bid = sp_order[turn] ":" "nil"
- else if (sp_nil[turn] == 2)
- bid = sp_order[turn] ":" "blind"
- else
- continue
- bids = bids " " bid
+ if (bid = sp_bid(turn))
+ bids = bids " " sp_order[turn] ":" bid
}
gsub(/^ +| +$/, "", bids)
return bids
sp_nil[i] == 2 && !sp_tricks[i] ? "makes blind nil!" :
sp_nil[i] == 2 && sp_tricks[i] ? "fails miserably at blind nil!" :
"unknown"))
- sp_scores[i%2] += 100 * sp_nil[i] * \
+ sp_scores[i%2] += sp_limit * 10 * sp_nil[i] * \
(sp_tricks[i] == 0 ? 1 : -1)
}
}
say("Game over!")
winner = sp_scores[0] > sp_scores[1] ? 0 : 1
looser = !winner
- say(sp_team(winner) " wins the game " \
+ say(CHANNEL, sp_team(winner) " wins the game " \
sp_scores[winner] " to " sp_scores[looser])
- say(sp_order[winner+0] "++")
- say(sp_order[winner+2] "++")
- say(sp_order[looser+0] "--")
- say(sp_order[looser+2] "--")
+ say(CHANNEL, sp_order[winner+0] "++")
+ say(CHANNEL, sp_order[winner+2] "++")
sp_reset(2)
} else {
}
// {
- sp_from = AUTH in sp_auths ? sp_auths[AUTH] : FROM
+ sp_from = AUTH in sp_auths ? sp_auths[AUTH] : \
+ AUTH in sp_share ? sp_share[AUTH] : FROM
sp_valid = sp_from && sp_from == sp_player
}
# Help
/^\.help [Ss]pades$/ {
say("Spades -- play a game of spades")
- say("Examples:")
+ say(".help game -- setup and administer the game")
+ say(".help play -- commands for playing spades")
+ say(".help auth -- control player authorization")
+ next
+}
+
+/^\.help game$/ {
say(".newgame [score] -- start a game to <score> points, default 500")
say(".endgame -- abort the current game")
say(".savegame -- save the current game to disk")
say(".loadgame -- load the previously saved game")
+ next
+}
+
+/^\.help play$/ {
say(".join -- join the current game")
say(".look -- look at your cards")
- say(".bid n -- bid for <n> tricks")
+ say(".bid [n] -- bid for <n> tricks")
+ say(".pass [card] -- pass a card to your partner")
say(".play [card] -- play a card")
- say(".score -- check the score")
- say(".tricks -- check how many trick have been taken")
+ say(".turn -- check whose turn it is")
say(".bids -- check what everyone bid")
+ say(".tricks -- check how many trick have been taken")
+ say(".score -- check the score")
+ next
+}
+
+/^\.help auth$/ {
+ say(".auth [who] -- display authentication info for a user")
+ say(".allow [who] -- allow another person to play on your behalf")
+ say(".deny [who] -- prevent a previously allowed user from playing")
+ say(".show -- display which users can play for which players")
next
}
AUTH == OWNER &&
sp_state == "play" &&
-/^\.play (\w+) (\S+)$/ {
+/^\.force (\w+) (\S+)$/ {
say(sp_channel, FROM " is cheating for " $2)
sp_from = $2
sp_play($3)
# Setup
-/^\.newgame ?([0-9]+)?/ {
+/^\.newgame ?([0-9]+)?$/ {
if (sp_state != "new") {
reply("There is already a game in progress.")
} else {
+ $1 = ".join"
sp_owner = FROM
sp_playto = $2 ? $2 : 200
sp_limit = sp_playto > 200 ? 10 : 5;
sp_state = "join"
sp_channel = DST
say(sp_owner " starts a game of Spades to " sp_playto " with " sp_limit " bags!")
- #say("#rhnoise", sp_owner " starts a game of Spades in " DST "!")
}
}
sp_deal()
}
+/^\.allow \S+$/ {
+ _who = $2 in USERS ? USERS[$2]["auth"] : ""
+ _str = _who && _who != $2 ? $2 " (" _who ")" : $2
+ 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 (!_who) {
+ reply(_str " is not logged in")
+ }
+ else if (_who in sp_players || _who in sp_auths) {
+ reply(_str " is a primary player")
+ }
+ else if (_who in sp_share) {
+ reply(_str " is already playing for " sp_share[_who])
+ }
+ else {
+ reply(_str " can now play for " sp_from)
+ sp_share[_who] = sp_from
+ }
+}
+
+/^\.deny \S+$/ {
+ _who = $2 in USERS ? USERS[$2]["auth"] : $2
+ _str = _who && _who != $2 ? $2 " (" _who ")" : $2
+ 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 (_who in sp_players || _who in sp_auths) {
+ reply(_str " is a primary player")
+ }
+ else if (!(_who in sp_share) || sp_share[_who] != sp_from) {
+ reply(_str " is not playing for " sp_from)
+ }
+ else {
+ reply(_str " can no longer play for " sp_from)
+ delete sp_share[_who]
+ }
+}
+
+sp_state ~ "(bid|pass|play)" &&
+/^\.show/ {
+ for (_i in sp_share)
+ say(_i " can play for " sp_share[_i]);
+}
+
!sp_valid &&
-(sp_state "bid" || sp_state == "play") &&
+(sp_state == "bid" || sp_state == "play") &&
/^\.(bid|play)\>/ {
if (sp_from in sp_players)
say(".slap " FROM ", it is not your turn.")
sp_valid &&
sp_state == "play" &&
-/^\.play (\S+)$/ {
+/^\.play (\S+)/ {
_card = $2
+ gsub(/[^A-Za-z0-9]/, "", _card);
if (!(_card in sp_deck)) {
reply("Invalid card")
}
}
}
-/^\.bids$/ && sp_state ~ "(pass|play)" {
- say(sp_order[0] " bid " sp_bids[0] ", " \
- sp_order[2] " bid " sp_bids[2] ", " \
- "total: " sp_bids[0] + sp_bids[2])
- say(sp_order[1] " bid " sp_bids[1] ", " \
- sp_order[3] " bid " sp_bids[3] ", " \
- "total: " sp_bids[1] + sp_bids[3])
-}
-
-/^\.tricks$/ && sp_state == "play" {
- say(sp_order[0] " took " int(sp_tricks[0]) "/" int(sp_bids[0]) ", " \
- sp_order[2] " took " int(sp_tricks[2]) "/" int(sp_bids[2]))
- say(sp_order[1] " took " int(sp_tricks[1]) "/" int(sp_bids[1]) ", " \
- sp_order[3] " took " int(sp_tricks[3]) "/" int(sp_bids[3]))
-}
-
/^\.turn/ && sp_state ~ "(bid|pass|play)" {
_bids = sp_bidders()
_pile = sp_pretty(sp_piles, FROM)
say("Waiting for " sp_order[_i] " to pass a card!")
}
+/^\.bids$/ && sp_state ~ "(pass|play)" {
+ say(sp_order[0] " bid " sp_bid(0) ", " \
+ sp_order[2] " bid " sp_bid(2) ", " \
+ "total: " sp_bids[0] + sp_bids[2])
+ say(sp_order[1] " bid " sp_bid(1) ", " \
+ sp_order[3] " bid " sp_bid(3) ", " \
+ "total: " sp_bids[1] + sp_bids[3])
+}
+
+/^\.tricks$/ && sp_state == "play" {
+ say(sp_order[0] " took " int(sp_tricks[0]) "/" sp_bid(0) ", " \
+ sp_order[2] " took " int(sp_tricks[2]) "/" sp_bid(2))
+ say(sp_order[1] " took " int(sp_tricks[1]) "/" sp_bid(1) ", " \
+ sp_order[3] " took " int(sp_tricks[3]) "/" sp_bid(3))
+}
+
(TO == NICK || DST == sp_channel) &&
/^\.(score|status)$/ {
if (sp_state == "new") {
say("There is no game in progress")
}
+ if (sp_state ~ "join|bid|pass|play") {
+ say("Playing to: " \
+ sp_playto " points, " \
+ sp_limit " bags")
+ }
if (sp_state == "join") {
say("Waiting for players: " \
sp_order[0] " " sp_order[1] " " \
sp_order[2] " " sp_order[3])
}
if (sp_state ~ "bid|pass|play") {
- say("Playing to: " \
- sp_playto " points, " \
- sp_limit " bags")
say(sp_team(0) ": " \
int(sp_scores[0]) " points, " \
int(sp_bags(0)) " bags")
}
}
-/^\.((new|end|load)game|join|look|bid|play)/ {
+/^\.((new|end|load)game|join|look|bid|pass|play)/ {
sp_save("var/sp_cur.json");
}
-
-# Standin
-#/^\.playfor [^ ]*$/ {
-#}
-#
-#/^\.standin [^ ]*$/ {
-# if (p in sp_players) {
-# }
-# for (p in sp_standin) {
-# if ($2 in sp_standin)
-# say(here " is already playing for " sp_standin[p]);
-# }
-# sp_standin[away] = here
-#}
-#
projects / ~andy / rhawk / blobdiff