if (type >= 1) {
sp_state = "bid" # {new,join,bid,pass,play}
sp_broken = 0 # Whether spades are broken
+ delete sp_hands # [p] Each players cards
delete sp_looked # [i] Whether a player has looked a their cards
delete sp_bids # [i] Each players bid
delete sp_nil # [i] Nil multiplier 0=regular, 1=nil, 2=blind
sp_turn = 0 # Index of who's turn it is
sp_player = "" # Who's turn it is
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"
function sp_acopy(dst, src, key)
{
- if (isarray(src))
+ if (isarray(src)) {
+ delete(dst)
for (key in src)
json_copy(dst, key, src[key])
+ }
}
function sp_save(file, game)
return prev
}
+function sp_shuf(i, mixed)
+{
+ sp_usort(sp_players, mixed)
+ for (i in mixed) {
+ sp_order[i-1] = mixed[i]
+ sp_players[mixed[i]] = i-1
+ }
+}
+
function sp_deal( shuf)
{
say("/me deals the cards")
- asorti(sp_deck, shuf, "sp_usort")
+ sp_usort(sp_deck, shuf)
for (i=1; i<=52; i++)
sp_hands[sp_order[i%4]][shuf[i]] = 1
sp_state = "bid"
return substr(card, length(card))
}
-function sp_usort(a,b,c,d) {
- return rand() - 0.5
+function sp_usort(list, out) {
+ for (i in list)
+ out[i] = rand()
+ asorti(out, out, "@val_num_asc")
}
function sp_csort(i1,v1,i2,v2) {
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_passer(who)
+{
+ return sp_nil[(who+0)%4] == 2 || sp_nil[(who+1)%4] != 0 ||
+ sp_nil[(who+2)%4] == 2 || sp_nil[(who+3)%4] != 0
+}
+
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
# 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
}
next
}
+AUTH == OWNER &&
+/^\.order (\w+) ([0-4])/ {
+ say(sp_channel, FROM " is cheating for " $2)
+ sp_order[$3] = $2
+ sp_players[$2] = $3
+ sp_player = sp_order[sp_turn]
+}
+
AUTH == OWNER &&
sp_state == "play" &&
/^\.force (\w+) (\S+)$/ {
# Setup
+match($0, /^\.newgame ?([0-9]+) *- *([0-9]+)$/, _arr) {
+ if (_arr[2] > _arr[1])
+ $0 = $1 " " int(rand() * (_arr[2]-_arr[1])+_arr[1])
+}
+
/^\.newgame ?([0-9]+)?$/ {
if (sp_state != "new") {
reply("There is already a game in progress.")
sp_order[i] = FROM
say(FROM " joins the game!")
}
- if (sp_state == "join" && sp_turn == 0)
+ if (sp_state == "join" && sp_turn == 0) {
+ sp_shuf()
sp_deal()
+ }
}
/^\.allow \S+$/ {
sp_state ~ "(bid|pass|play)" &&
/^\.show/ {
+ delete _lines
for (_i in sp_share)
- say(_i " can play for " sp_share[_i]);
+ _lines[sp_share[_i]] = _lines[sp_share[_i]] " " _i
+ for (_i in _lines)
+ say(_i " allowed:" _lines[_i])
}
!sp_valid &&
say(p, "You have: " sp_hand(p, p))
sp_state = "play"
for (i=0; i<2; i++) {
- if (sp_nil[i] == 2 || sp_nil[i+2] == 2) {
+ if (sp_passer(i)) {
say(sp_team(i) ": select a card to pass " \
"(/msg " NICK " .pass <card>)")
sp_state = "pass"
if (!(sp_from in sp_players)) {
say(".slap " FROM ", you are not playing.")
}
- else if (sp_nil[_team] != 2 && sp_nil[_team+2] != 2) {
+ else if (!sp_passer(_team)) {
reply("Your team did not go blind")
}
else if (sp_pass[sp_players[sp_from]]) {
}
# check for end of passing
- if (((sp_nil[0] != 2 && sp_nil[2] != 2) || (sp_pass[0] && sp_pass[2])) &&
- ((sp_nil[1] != 2 && sp_nil[3] != 2) || (sp_pass[1] && sp_pass[3]))) {
+ if ((!sp_passer(0) || (sp_pass[0] && sp_pass[2])) &&
+ (!sp_passer(1) || (sp_pass[1] && sp_pass[3]))) {
for (i in sp_pass) {
_partner = (i+2)%4
_card = sp_pass[i]
}
}
+/^\.bids/ && sp_state == "bid" ||
/^\.turn/ && sp_state ~ "(bid|pass|play)" {
_bids = sp_bidders()
_pile = sp_pretty(sp_piles, FROM)
if (sp_state == "play" && _pile)
say("It is " sp_player "'s turn! (" _pile ")")
for (_i=0; sp_state == "pass" && _i<4; _i++)
- if ((sp_nil[_i%2+0]==2 || sp_nil[_i%2+2]==2) && !sp_pass[_i])
+ if (sp_passer(_i) && !sp_pass[_i])
say("Waiting for " sp_order[_i] " to pass a card!")
}
/^\.bids$/ && sp_state ~ "(pass|play)" {
- say(sp_order[0] " bid " sp_bids[0] ", " \
- sp_order[2] " bid " sp_bids[2] ", " \
+ 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_bids[1] ", " \
- sp_order[3] " bid " sp_bids[3] ", " \
+ 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]) "/" 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]))
+ 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) &&
}
}
-/^\.((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
-#}
-#