calcScore:
	ld hl,dieValues-1
	call getDieValue
	call getDieValue
	call getDieValue
	call getDieValue
	call getDieValue
	; now we test the combo that is active. Score is either returned, or 0.
	ld hl,calcBonuses \ push hl	; we do this so we can use ret at the end of the routines ahead and it acts like a jump
	ld a,(selectedCombo)
	or a \ jr z,isThreeOnes
	cp threeTwos \ jr z,isThreeTwos
	cp threeThrees \ jr z,isThreeThrees
	cp threeFours \ jr z,isThreeFours
	cp threeFives \ jr z,isThreeFives
	cp threeSixes \ jr z,isThreeSixes
	cp threeOfaKind \ jr z,isThreeOfaKind
	cp fourOfaKind \ jr z,isFourOfaKind
	cp fullHouse \ jr z,isFullHouse
	cp smStraight \ jr z,isSmStraight
	cp lgStraight \ jr z,isLgStraight
	cp chance \ jr z,isChance
	cp yatzee \ jr z,isYatzee
calcBonuses:
	ld (ptsforSelected),a
	; render the possible score for this combo
	ret

isThreeOnes:
	ld a,(ctOnes) \ ret
isThreeTwos:
	ld a,(ctTwos)
	rla \ ret
isThreeThrees:
	ld a,(ctThrees)
	ld b,a \ rla \ add a,b
	ret
isThreeFours:
	ld a,(ctFours)
	rla \ rla
	ret
isThreeFives:
	ld a,(ctFives)
	ld b,a \ rla \ rla \ add a,b
	ret
isThreeSixes:
	ld a,(ctSixes)
	rla \ rla \ rla
	ret
isThreeOfaKind:
	ld a,2 \ jr {1@}
isFourOfaKind:
	ld a,3
@:	ld hl,ctOnes-1
	call checkQuantity


isYatzee:
	ld hl,ctOnes-1 \ ld a,4
	call checkQuantity \ jr c,{1@}
	call checkQuantity \ jr c,{1@}
	call checkQuantity \ jr c,{1@}
	call checkQuantity \ jr c,{1@}
	call checkQuantity \ jr c,{1@}
	ld a,0 \ ret
@:	ld a,50 \ ret


checkQuantity:
	inc hl
	cp (hl)
	ret




isChance:
	call sumtheDie
	jr showScore




sumtheDie:
	ld hl,0 \ push ix \ dec ix \ ld b,5
@:	inc ix
	push bc \ ld b,0
	ld a,(iy) \ ld c,a \ add hl,bc
	pop bc \ djnz {-1@}
	pop ix \ ld a,l




getDieValue:
	inc hl
	ld a,(hl) \ and %01111111	; reset high byte in A, not in memory
	cp 1 \ jr nz,{1@}
	ld a,(ctOnes) \ inc a \ ld (ctOnes),a \ ret
@:	cp 2 \ jr nz,{1@}
	ld a,(ctTwos) \ inc a \ ld (ctTwos),a \ ret
@:	cp 3 \ jr nz,{1@}
	ld a,(ctThrees) \ inc a \ ld (ctThrees),a \ ret
@:	cp 4 \ jr nz,{1@}
	ld a,(ctFours) \ inc a \ ld (ctFours),a \ ret
@:	cp 5 \ jr nz,{1@}
	ld a,(ctFives) \ inc a \ ld (ctFives),a \ ret
@:	cp 6 \ ret nz
	ld a,(ctSixes) \ inc a \ ld (ctSixes),a \ ret