4 print ":" who"!u@h PRIVMSG #rhtest :" msg
7 function auth(user, nick)
9 print ":" nick "!u@c ACCOUNT " user
14 print "error: " msg > "/dev/stderr"
19 print msg > "/dev/stderr"
22 function command(who, cmd)
25 gsub(/\<[nbpYNS]|[+-]/, "", arg)
26 if (cmd ~ /^\./) 0 # nop
27 else if (cmd ~ /^n/) say(who, ".newgame " arg)
28 else if (cmd ~ /^e/) say(who, ".endgame ")
29 else if (cmd ~ /^j/) say(who, ".join")
30 else if (cmd ~ /^Y/) say(who, ".allow " arg)
31 else if (cmd ~ /^N/) say(who, ".deny " arg)
32 else if (cmd ~ /^S/) say(who, ".show ")
33 else if (cmd ~ /^d/) say("andy753421", ".deal " who " " hand[who])
34 else if (cmd ~ /^l/) say(who, ".look")
35 else if (cmd ~ /^b/) say(who, ".bid " arg)
36 else if (cmd ~ /^s/) say(who, ".score")
37 else if (cmd ~ /^B/) say(who, ".bids")
38 else if (cmd ~ /^t/) say(who, ".tricks")
39 else if (cmd ~ /^T/) say(who, ".turn")
40 else if (cmd ~ /^p/) say(who, ".pass " arg)
41 else if (arg ~ /[shdc]$/) say(who, ".play " arg)
42 else error("unknown cmd '" cmd "'")
48 delete players # players[i] -> "name"
49 delete turns # turns[pi][i] -> "cmd"
54 auth("andy753421", "andy753421")
58 // { gsub(/#.*/, "") }
62 split($1, parts, "/");
69 players[pi] = parts[1]
72 gsub(/^\w*(\/\w*)?|[nbpYN-]\w+|\<[nejadwlbsBtpdS]\>|[.+]/, "", hand[who])
73 gsub(/^ */, "", hand[who])
74 print who ": " hand[who] > "/dev/stderr"
75 say(who, "unicode :(")
80 for (pi=0; pi<length(players); pi++)
82 auth(auths[pi], players[pi])
83 for (ti=0; ti<nturns; ti++)
84 for (pi=0; pi<length(players); pi++)
85 command(players[pi], turns[pi][ti])