Also, that code doesn't output a message to the channel saying what the user voted for as a confirmation.
In fact the code is there: "msg $chan nick Voted $1" but it should be '$nick', not 'nick', obviously.
For the rest, after sending the message with the winner, just add:
sendkey {F $+ $calc($findtok(A B C D,$2,32) + 6) $+ $chr(125)
and add the alias in your code accordingly:
alias sendkey .comopen a WScript.Shell | .comclose a $com(a,SendKeys,3,bstr,$1-)
