[riah]
;who are the roommates?
exten => s,1,set(__ROWS=6)              ;the number of players
exten => s,n,set(__TRIES=1)
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)		;how many winners we can have
exten => s,n,set(__TRUNC=0)		;in the event of a tie, can i trim of the front of the sorted list?
exten => s,n,set(__CROP=0)		;.... " .... can i trim of the back?
exten => s,n,set(__COUNT=0)		;dont need to do this
exten => s,n,set(__TOTALSCORE=0)	;or this
exten => s,n,set(__EXITLOOP=0)		;this is probably ok


;;;;;;;;;;;;;;;;;;;;;;;;;;GET THE WEIGHT OF EACH PLAYER OR SET THEM ALL TO THE SAME;;;;;;;;;;;;;;;;;;;;;;
exten => s,n,set(__COUNT=$[${TRUNC} + 1])               ;set roommate counter
exten => s,n,while($[${COUNT} <= ${ROWS}]) 		;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),noop() 	;(break:  dontask if we are on the last player)  set the number of players 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CALIBRATE SCORES;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
exten => s,n(repeat),set(__COUNT=$[${TRUNC} + 1])	;Start a counter
				;**CALIBRATE ARRAY TO 100 AND INCREMENT**;
exten => s,n,while($[${COUNT} <= ${ROWS}])		;while we havent counted all the players
	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])   	;**CALIBRATE ARRAY TO 100 & INCREMENT**;
exten => s,n,endwhile


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;DRAW RANDOMLY & USE # OF TRIES TO PICK A WINNER;;;;;;;;;;;;;;;;;;;;;;;;
exten => s,n,set(__COUNT=$[${TRUNC} + 1])						;RESET COUNT
	;**WHILE WE HAVENT CHECKED EVERYONE WELL START TO DRAW**;
exten => s,n,while($[${COUNT} <= ${ROWS}])

	exten => s,n(iloop),while($[${EXITLOOP} != 1])			;start a boolean loop
		exten => s,n,random(${MATEWEIGHT${COUNT}}:s,finalscore)	;draw based on score till you win
		exten => s,n,set(__TRIES=$[${TRIES} + 1])		;if failed draw again	
		exten => s,n,goto(iloop)				;and end loop
		exten => s,n(finalscore),set(__MATEWEIGHT${COUNT}=${TRIES})	;score based on tries
		exten => s,n,set(__EXITLOOP=1)					;exit the loop
	exten => s,n,endwhile						
	exten => s,n,set(EXITLOOP=0)					;reset boolean var
	exten => s,n,set(__COUNT=$[${COUNT}+1])				;increment parent count
	exten => s,n,set(__TRIES=1)					;reset tries
exten => s,n,endwhile							;check next roomate


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;BUBBLE SORT THE ARRAY, "WINNERS" FIRST;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
exten => s,n,set(__COUNT=$[${TRUNC} + 1])					;a counter
exten => s,n,set(__SUBCOUNT=1)							;a subcounter
exten => s,n,while($[${COUNT} < ${ROWS}])					;checked every spot
	exten => s,n,while($[${SUBCOUNT} < $[${ROWS} - $[${COUNT} - 1]]])	;as few times as possible
				     ;**HANDY DANDY SORT MACRO**;
		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])         	;increment subroutine
	exten => s,n,endwhile
	exten => s,n,set(__COUNT=$[${COUNT} + 1])				;increment parent loop
	exten => s,n,set(__SUBCOUNT=1)						;reset subroutine counter
exten => s,n,endwhile

exten => s,n,set(__COUNT=${PRIZES})		;Set the counter to the last winning spot
;**DO WE ALREADY HAVE WINNERS?  ELSE TRIM IF SOMEONE ISNT TIED FOR A SPOT OR SOMEONE IS DEFINATELY OUT**;
exten => s,n,gotoif($[$[${MATEWEIGHT${COUNT}} != ${MATEWEIGHT$[${COUNT} + 1]}] | $[${PRIZES} >= ${ROWS}]]?winners,1:trunc,1)


;;;;;;;;;;;:;;;LEAVE THE COUNTER AND COUNT BACKWARDS TO SPIT OUT THE WINNERS WHEN WE WIN;;;;;;;;;;;;;;;;;;
exten => winners,1,while($[${COUNT} > 0])		  	;Count backwards

exten => winners,n,noop(${ROOMMATE${COUNT}} is a winner)	;Spit out winner.  Festival instead?
exten => winners,n,set(__COUNT=$[${COUNT} -1])			;Check the next winning spot
exten => winners,n,endwhile
exten => winners,n,hangup					;beautiful friend, the end


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GET WEIGHT AND CHECK TOTAL;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
exten => _X,1,set(__MATEWEIGHT${COUNT}=${EXTEN})   ;give each roommate a relative weight using the counter
exten => _X,n,set(__TOTALSCORE=$[${TOTALSCORE} + ${MATEWEIGHT${COUNT}}])	;increment totalscore
exten => _X,n,gotoif($[${MATEWEIGHT${COUNT}} = 0]?zerocrop)			;to count 0's (no chance)
exten => _X,n,goto(s,incr)							;else go to next roommate

  ;*IF WE GET A ZERO STICK IT AT THE BACK OF THE LIST AND INCREMENT CROP VAR SO WE DONT TEST 0% CHANCE*; 
  ;*USE HANDY MACRO TO REARRANGE LIST STICKING PLAYERS WITH NO CHANCE AT THE BACK CROP THEM OFF ARRAY*;
exten => _X,n(zerocrop),macro(sort|${MATEWEIGHT${COUNT}},${MATEWEIGHT${ROWS}},${ROOMMATE${COUNT}},${ROOMMATE${ROWS}},${COUNT},0)
exten => _X,n,set(__CROP=$[${CROP} + 1])
exten => _X,n,set(__ROWS=$[${ROWS} - 1])			;then keep track of places to crop	
exten => _X,n,noop(${ROOMMATE1} ${ROOMMATE2} ${ROOMMATE3} ${ROOMMATE4} ${ROOMMATE5} ${ROOMMATE6})
exten => _X,n,wait(3)
exten => _X,n,gotoif($[${COUNT} > ${ROWS}]?s,dontask) ;the last guy is already in the right spot
exten => _X,n,goto(s,reask)					;fill this spot with a # other than zero


exten => trunc,1,while($[${COUNT} > 1])					;Count for definate winners
exten => trunc,n,gotoif($[${MATEWEIGHT${COUNT}} != ${MATEWEIGHT$[${COUNT} - 1]}]?posttrunc)  ;check = next
exten => trunc,n,set(__COUNT=$[${COUNT} - 1])				;else keep looking for definites
exten => trunc,n,endwhile
exten => trunc,n(posttrunc),set(__TRUNC=$[${PRIZES} - ${COUNT}])	;dont test actual winners again
exten => trunc,n,set(__COUNT=${PRIZES}+1)				;start from spot we haven't checked
exten => trunc,n,while($[${COUNT} <= ${ROWS}])				;count up
exten => trunc,n,gotoif($[${MATEWEIGHT${COUNT}} != ${MATEWEIGHT$[${COUNT} + 1]}]?postcrop) ;!=? we can crop
exten => trunc,n,set(__COUNT=$[${COUNT} + 1])				;if no count up and check again
exten => trunc,n,endwhile
exten => trunc,n(postcrop),set(__ROWS=$[${ROWS} - ${COUNT}])		;if so less players for next round
exten => trunc,n,goto(s,repeat)						;do it again


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;HANDY DANDY SORT MACRO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[macro-sort]
exten => s,1,set(__TEMP=${ARG2})				;move
exten => s,n,set(__MATEWEIGHT$[${ARG5} + ${ARG6}]=${ARG1})	;the
exten => s,n,set(__MATEWEIGHT${ARG5}=${TEMP})			;scores
exten => s,n,set(__TEMP=${ARG4})				;move
exten => s,n,set(__ROOMMATE$[${ARG5} + ${ARG6}]=${ARG3})	;the
exten => s,n,set(__ROOMMATE${ARG5}=${TEMP})			;names
;(ARG6 will allow us to count backwards);