function sp_pretty(cards, who)
{
- if (!plain[who]) {
+ if (!nocolor[who]) {
gsub(/[0-9JQKA]*[sc]/, "\0031,00\002&\017", cards) # black
gsub(/[0-9JQKA]*[hd]/, "\0034,00\002&\017", cards) # red
+ }
+ if (!nounicode[who]) {
gsub(/s/, "\002♠", cards)
gsub(/h/, "\002♥", cards)
gsub(/d/, "\002♦", cards)
{
for (i = 0; i < 4; i++) {
turn = (sp_dealer + i) % 4
- if (sp_bids[turn] && !sp_nil[turn]) {
+ if (sp_bids[turn] && !sp_nil[turn])
bid = sp_order[turn] ":" sp_bids[turn]
- bids = bids " " bid
- }
+ 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
}
gsub(/^ +| +$/, "", bids)
return bids
}
-function sp_score( bids, tricks)
+function sp_score( bids, times, tricks)
{
for (i=0; i<2; i++) {
bids = sp_bids[i] + sp_bids[i+2]
tricks = sp_tricks[i] + sp_tricks[i+2]
bags = tricks - bids
- if (sp_bags(i) + bags >= sp_limit) {
- say(sp_team(i) " bag out")
- sp_scores[i] -= sp_limit * 10
+ times = int((sp_bags(i) + bags) / sp_limit)
+ if (times > 0) {
+ say(sp_team(i) " bag" (times>1?" way ":" ") "out")
+ sp_scores[i] -= sp_limit * 10 * times;
}
if (tricks >= bids) {
say(sp_team(i) " make their bid: " tricks "/" bids)
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 {
# Debugging
AUTH == OWNER &&
/^\.deal (\w+) (.*)/ {
+ say(sp_channel, FROM " is cheating for " $2)
delete sp_hands[$2]
for (i=3; i<=NF; i++)
sp_hands[$2][$i] = 1
+ next
+}
+
+AUTH == OWNER &&
+sp_state == "play" &&
+/^\.force (\w+) (\S+)$/ {
say(sp_channel, FROM " is cheating for " $2)
+ sp_from = $2
+ sp_play($3)
+ next
}
# 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_state ~ "(play|bid)" &&
+sp_state ~ "(bid|pass|play)" &&
/^\.look$/ {
if (!(sp_from in sp_players)) {
say(".slap " FROM ", you are not playing.")
sp_valid &&
sp_state == "play" &&
-/^\.play (\S+)$/ {
- card = $2
- if (!(card in sp_deck)) {
+/^\.play (\S+)/ {
+ _card = $2
+ gsub(/[^A-Za-z0-9]/, "", _card);
+ if (!(_card in sp_deck)) {
reply("Invalid card")
}
- else if (!(card in sp_hands[sp_from])) {
+ else if (!(_card in sp_hands[sp_from])) {
reply("You do not have that card")
}
- else if (sp_suit && card !~ sp_suit && sp_hasa(sp_from, sp_suit)) {
+ else if (sp_suit && _card !~ sp_suit && sp_hasa(sp_from, sp_suit)) {
reply("You must follow suit (" sp_suit ")")
}
- else if (card ~ /s/ && length(sp_hands[sp_from]) == 13 && sp_hasa(sp_from, "[^s]$")) {
+ else if (_card ~ /s/ && length(sp_hands[sp_from]) == 13 && sp_hasa(sp_from, "[^s]$")) {
reply("You cannot trump on the first hand")
}
- else if (card ~ /s/ && length(sp_pile) == 0 && sp_hasa(sp_from, "[^s]$") && !sp_broken) {
+ else if (_card ~ /s/ && length(sp_pile) == 0 && sp_hasa(sp_from, "[^s]$") && !sp_broken) {
reply("Spades have not been broken")
}
else {
- sp_play(card)
+ sp_play(_card)
if (sp_state == "play") {
if (length(sp_hands[sp_from]))
say(FROM, "You have: " sp_hand(FROM, sp_from))
}
}
-/^\.bids$/ && sp_state == "play" {
+/^\.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])
sp_order[3] " took " int(sp_tricks[3]) "/" int(sp_bids[3]))
}
-/^\.turn/ && sp_state ~ "(play|bid)" {
+/^\.turn/ && sp_state ~ "(bid|pass|play)" {
_bids = sp_bidders()
_pile = sp_pretty(sp_piles, FROM)
if (sp_state == "bid" && !_bids)
say("It is " sp_player "'s turn!")
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])
+ say("Waiting for " sp_order[_i] " to pass a card!")
}
(TO == NICK || DST == sp_channel) &&
sp_order[0] " " sp_order[1] " " \
sp_order[2] " " sp_order[3])
}
- if (sp_state == "bid" || sp_state == "play") {
+ 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")
projects / ~andy / rhawk / blobdiff