4 print ":" who"!u@h PRIVMSG #rhtest :" msg
9 print "error: " msg > "/dev/stderr"
14 print msg > "/dev/stderr"
17 function command(who, cmd)
20 gsub(/\<[nbp]|[+-]/, "", arg)
21 if (cmd ~ /^\./) 0 # nop
22 else if (cmd ~ /^n/) say(who, ".newgame " arg)
23 else if (cmd ~ /^e/) say(who, ".endgame ")
24 else if (cmd ~ /^j/) say(who, ".join")
25 else if (cmd ~ /^d/) say("andy753421", ".deal " who " " hand[who])
26 else if (cmd ~ /^l/) say(who, ".look")
27 else if (cmd ~ /^b/) say(who, ".bid " arg)
28 else if (cmd ~ /^s/) say(who, ".score")
29 else if (cmd ~ /^B/) say(who, ".bids")
30 else if (cmd ~ /^t/) say(who, ".tricks")
31 else if (cmd ~ /^T/) say(who, ".turn")
32 else if (cmd ~ /^p/) say(who, ".pass " arg)
33 else if (arg ~ /[shdc]$/) say(who, ".play " arg)
34 else error("unknown cmd '" cmd "'")
40 delete players # players[i] -> "name"
41 delete turns # turns[pi][i] -> "cmd"
47 // { gsub(/#.*/, "") }
58 gsub(/^\w*|[nbp-]\w+|\<[nejlbsBtpd]\>|[.+]/, "", hand[$1])
59 gsub(/^ */, "", hand[$1])
60 print $1 ": " hand[$1] > "/dev/stderr"
65 for (ti=0; ti<nturns; ti++)
66 for (pi=0; pi<length(players); pi++)
67 command(players[pi], turns[pi][ti])