I'm trying to make a poker probability calculator with the help of

http://www.mircscripts.org/showdoc.php?type=code&id=3002 (I've only written the odds alias of the code below).

I get an error with line too long referring to

var %a = $1,%b = 1 . There's something wrong with $3 and $4 when I use the odds alias, the calculations are only correct when they are set to 1

alias factorial {

var %a = $1,%b = 1

while (%a) {

var %b = %b * %a

dec %a

}

return %b

}

alias nCr {

return $calc($factorial($1) / ($factorial($$2) * $factorial($calc($1 - $2))))

msg $chan $calc($factorial($1) / ($factorial($$2) * $factorial($calc($1 - $2))))

}

alias odds { msg $chan $calc(($nCr($3,$4) * $nCr($calc($1 - $3),$calc($2 - $4))) / $nCr($1,$2))

}

;; $1 is total cards left in deck

;; $2 is number of cards drawn

;; $3 is number of outs in deck

;; $4 is outs required