Mine

;ROOMMATES IN A HAT
[riah]
;who are the roommates?
exten => s,1,set(__ROWS=6)
exten => s,n,set(__ROOMMATE1=Brad)
exten => s,n,set(__ROOMMATE2=Brian)
exten => s,n,set(__ROOMMATE3=James)
exten => s,n,set(__ROOMMATE4=Jeff)
exten => s,n,set(__ROOMMATE5=Marc)
exten => s,n,set(__ROOMMATE6=Aubrey)
exten => s,n,set(__PRIZES=2)
exten => s,n,set(__TRUNC=0)
exten => s,n,set(__CROP=0)
exten => s,n,set(__COUNT=1)
exten => s,n,set(__TOTALSCORE=0)
exten => s,n,set(__EXITLOOP=0)
exten => s,n,set(__LAST=0)
 
;for each roommate prompt for a weight
exten => s,n,set(__COUNT=$[${TRUNC} + 1])                       ;set roommate counter
exten => s,n,while($[${COUNT} <= $[${ROWS} - ${CROP}]])      ;while we havent assigned a weight...
        exten => s,n(reask),background(beep)                ;prompt with a tone...
        exten => s,n,waitexten(5)              ;and givem five seconds to enter an extension 0-9
        exten => s,n(incr),set(__COUNT=$[${COUNT}+1])                ;then increment the counter
exten => s,n,endwhile
 
exten => s,n(dontask),set(__ROWS=$[${ROWS} - ${CROP}])
 
exten => s,n(repeat),set(__COUNT=$[${TRUNC} + 1])
exten => s,n,while($[${COUNT} <= ${ROWS}])
        exten => s,n,set(__MATEWEIGHT${COUNT}=${MATH(${MATEWEIGHT${COUNT}}*100,int)})
        exten => s,n,set(__MATEWEIGHT${COUNT}=${MATH(${MATEWEIGHT${COUNT}}/${TOTALSCORE},int)})
        exten => s,n,set(__COUNT=$[${COUNT} + 1])
exten => s,n,endwhile
 
 
exten => s,n,set(__COUNT=$[${TRUNC} + 1])
exten => s,n,while($[${COUNT} <= ${ROWS}] & $[${PRIZES} > $[${ROWS} - ${CROP}]])
        exten => s,n(iloop),while($[${EXITLOOP} != 1])
                exten => s,n,random(${MATEWEIGHT${COUNT}}:s,finalscore)
                exten => s,n,set(__TRIES=$[${TRIES} + 1])
                exten => s,n,goto(iloop)
                exten => s,n(finalscore),set(__MATEWEIGHT${COUNT}=${TRIES})
                exten => s,n,set(__EXITLOOP=1)
        exten => s,n,endwhile
        exten => s,n,set(EXITLOOP=0)
        exten => s,n,set(__COUNT=$[${COUNT}+1])
        exten => s,n,set(__TRIES=1)
exten => s,n,endwhile
 
exten => s,n,set(__COUNT=$[${TRUNC} + 1])
exten => s,n,set(__SUBCOUNT=1)
exten => s,n,while($[${COUNT} < ${ROWS}])
        exten => s,n,while($[${SUBCOUNT} < $[${ROWS} - $[${COUNT} - 1]]])
                exten => s,n,macroif($[${MATEWEIGHT${SUBCOUNT}} < ${MATEWEIGHT$[${SUBCOUNT} + 1]}]?sort|${MATEWEIGHT${SUBCOUNT}},${MATEWEIGHT$[${SUBCOUNT} + 1]},${ROOMMATE${SUBCOUNT}},${ROOMMATE$[${SUBCOUNT} + 1]},${SUBCOUNT},1)
                exten => s,n(incr2),set(__SUBCOUNT=$[${SUBCOUNT} + 1])
        exten => s,n,endwhile
        exten => s,n,set(__COUNT=$[${COUNT} + 1])
        exten => s,n,set(__SUBCOUNT=1)
exten => s,n,endwhile
 
 
 
exten => s,n,set(__COUNT=${PRIZES})
exten => s,n,gotoif($[${MATEWEIGHT${COUNT}} != ${MATEWEIGHT$[${COUNT} + 1]}] | $[${PRIZES} >= $[${ROWS} - ${CROP}]]?winners,1:trunc,1)  
exten => s,n,wait(5)
 
exten => winners,1,while($[${COUNT} > 0])
exten => winners,n,noop(${ROOMMATE${COUNT}} is a winner)
exten => winners,n,set(__COUNT=$[${COUNT} -1])
exten => winners,n,endwhile
exten => winners,n,hangup
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;take the weight and build the array;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
exten => _X,1,set(__MATEWEIGHT${COUNT}=${EXTEN})   ;give each roommate a relative weight using the counter
exten => _X,n,set(__TOTALSCORE=$[${TOTALSCORE} + ${MATEWEIGHT${COUNT}}])
exten => _X,n,set(__LAST=$[${LAST} + 1])
exten => _X,n,gotoif($[${MATEWEIGHT${COUNT}} = 0]?zerocrop)
exten => _X,n,goto(s,incr)
exten => _X,n(zerocrop),macro(sort|${MATEWEIGHT${COUNT}},${MATEWEIGHT$[${ROWS} - ${CROP}]},${ROOMMATE${COUNT}},${ROOMMATE$[${ROWS} - ${CROP}]},${COUNT},1)
exten => _X,n,set(__CROP=$[${CROP} + 1])
exten => _X,n,gotoif($[${LAST} = ${ROWS}]?s,dontask)
exten => _X,n,goto(s,reask)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
exten => trunc,1,while($[${COUNT} > 1])
exten => trunc,n,gotoif($[${MATEWEIGHT${COUNT}} != ${MATEWEIGHT$[${COUNT} - 1]}]?posttrunc)
exten => trunc,n,set(__COUNT=$[${COUNT} - 1])
exten => trunc,n,endwhile
exten => trunc,n(posttrunc),set(__TRUNC=$[${PRIZES} - ${COUNT}])
exten => trunc,n,set(__COUNT=${PRIZES}+1)
exten => trunc,n,while($[${COUNT} < ${ROWS}])
exten => trunc,n,gotoif($[${MATEWEIGHT${COUNT}} != ${MATEWEIGHT$[${COUNT} + 1]}]?postcrop)
exten => trunc,n,set(__COUNT=$[${COUNT} + 1])
exten => trunc,n,endwhile
exten => trunc,n(postcrop),set(__CROP=$[${ROWS} - ${COUNT}])
exten => trunc,n,goto(s,repeat)
 
[macro-sort]
exten => s,1,set(__TEMP=${ARG2})
exten => s,n,set(__MATEWEIGHT$[${ARG5} + ${ARG6}]=${ARG1})
exten => s,n,set(__MATEWEIGHT${ARG5}=${TEMP})
exten => s,n,set(__TEMP=${ARG4})
exten => s,n,set(__ROOMMATE$[${ARG5} + ${ARG6}]=${ARG3})
exten => s,n,set(__ROOMMATE${ARG5}=${TEMP})