; Yatzee for TI-83+/84+
; Version 1.0
; by ACagliano (http://clrhome.org)

.nolist
#include "ti83plus.inc"
#include "dcs7.inc"
.list
; defines/equates
#define diceOne 0
#define diceTwo 1
#define diceThree 2
#define diceFour 3
#define diceFive 4
#define diceSix 5
#define comboScores saferam1
 #define threeOnes 0
 #define threeTwos 1
 #define threeThrees 2
 #define threeFours 3
 #define threeFives 4
 #define threeSixes 5
 #define threeOfaKind 6
 #define fourOfaKind 7
 #define fullHouse 8
 #define smStraight 9
 #define lgStraight 10
 #define chance 11
 #define yatzee 12
#define gameScore comboScores+yatzee
#define highScore gameScore+2
#define curRolls highScore+2
#define dieValues curRolls+1
#define dieHoldFlags dieValues+5
#define threesPoints dieHoldFlags+1
#define saveSize threesPoints-comboFlags

#define selectedCombo dieHoldFlags+1
#define ptsforSelected selectedCombo+1
#define rollBonuses ptsforSelected+2
#define ctOnes rollBonuses+1
#define ctTwos ctOnes+1
#define ctThrees ctTwos+1
#define ctFours ctThrees+1
#define ctFives ctFours+1
#define ctSixes ctFives+1


.db $BB,$6D
.org progstart

Start:
	bcall(_ClrLCDFull)
	ld a,r          ;\
  	ld h,a          ; |
    	xor 77          ; |Seed the RNG
    	ld l,a          ; |
    	ld (seed1),hl   ; |
    	ld (seed2),hl   ;/

	push iy \ ld iy,comboScores		; push system flags location, set IY to comboScores address
	ld ix,dieValues				; set IX to 5-byte die roll values

	ld hl,gameScore \ ld b,ctSixes-comboScores \ call zeroData	; zero the RAM savestate

	ld hl,GameSave \ rst 20h \ bcall(_ChkFindSym)	; \
	jr c,StartGame					;  | check whether save file exists
	ld b,a \ or a \ jr z,{1@}			;  | if it doesn't skip to game start
	bcall(_Arc_Unarc) \ bcall(_ChkFindSym)		;  | if it does and is unarchived, skip to loading
@:	ex de,hl \ ld de,comboFlags			;  | if it does and is archived, unarchive it
	inc hl \ inc hl					;  | load the savestate into RAM
	ld bc,saveSize					;  |
	ldir						; /
StartGame:
	call renderDie
	call renderStats
KeywaitLoop:
	ld a,(kbdScanCode) \ or a \ jr z,waitloop
	sub 54 \ add a,5 \ jp c,holdDice
	add a,49
	cp skMode \ jp renderInstr
	cp skYEqu \ jp holdDice1
	cp skWindow \ jp holdDice2
	cp skZoom \ jp holdDice3
	cp skTrace \ jp holdDice4
	cp skGraph \ jp holdDice5
	cp sk2nd \ jp throwDie
	cp skLeft \ jp cycleLeftCombos
	cp skRight \ jp cycleRightCombos
	cp skEnter \ jp EnterScore
	cp skClear \ jp QuitGame
	jr KeywaitLoop

holdDice:
	ld hl,dieValues
	add a,l \ ld l,a \ jr nc,$+3
	inc h \ ld a,(hl)
	xor 80h \ ld (hl),a
	jp KeywaitLoop


; ### Select Combo and Compute Score ###

cycleLeftCombos:
	ld hl,selectedCombo \ dec (hl)
	call calcScore
	jp KeywaitLoop
cycleRightCombos:
	ld hl,selectedCombo \ inc (hl)
	call calcScore
	jp KeywaitLoop

calcScore:
#define checkQuantity inc hl \ sub (hl)
	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
	call rendertPoints
	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
	checkQuantity \ jr c,sumtheDie
	checkQuantity \ jr c,sumtheDie
	checkQuantity \ jr c,sumtheDie
	checkQuantity \ jr c,sumtheDie
	checkQuantity \ jr c,sumtheDie
	ld a,0
	ret
isFullHouse:
	; check and see if 3 of one number and 2 of another
	ret
isSmStraight:
	; check and see if 4 numbers in a row
	ret
isLgStraight
	; check and see if 5 numbers in a row
	ret
isYatzee:
	ld hl,ctOnes-1 \ ld a,4
	checkQuantity \ jr c,{1@}
	checkQuantity \ jr c,{1@}
	checkQuantity \ jr c,{1@}
	checkQuantity \ jr c,{1@}
	checkQuantity \ jr c,{1@}
	ld a,0 \ ret
@:	ld a,50 \ 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
	ret




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





throwDie:
; randomize the value of each die, if the hold flag for that die is not set
	ld hl,dieValues-1
    	call roll
    	call roll
    	call roll
   	call roll
    	call roll
    	call renderDie
    	jr KeywaitLoop


EnterScore:
	ld hl,(gameScore)
	ld bc,(ptsforSelected)
	add hl,bc
	ld a,(selectedCombo)
	cp 5 \ jr c,{1@}
	ld hl,(threesPoints)
	add hl,bc \ ld (threesPoints),hl
	ld bc,0
	ld a,(threesPoints)
	cp 12 \ jr nz,{1@}	; check for yatzee
	ld bc,50 \ jr addbonus
@:	cp 5 \ jr c,{1@}	; check for scoring against a 3 of combo
	ld a,(threesPoints) \ cp 63 \ jr c,addbonus \ ld bc,35	; if total of three of combos is 63 or greater, add 35
addbonus:
	add hl,bc
	ld (gameScore),hl
	jp KeywaitLoop

QuitGame:
	ld hl,GameSave \ rst 20h \ bcall(_ChkFindSym)
	jr nc,{1@}					; if save exists already, skip to saving
	ld hl,saveSize \ bcall(_CreateAppVar)		; if it doesn't, create it
@:	ld hl,comboFlags \ inc de \ inc de		; set read address to RAM state, set write address to after size word
	ld bc,saveSize \ ldir				; set size, load
	bcall(_ClrLCDFull)				; clear screen
	pop iy						; restore system flags
	ret						; exit game

renderDie:
	ld hl,Sprites

	ret

renderStats:

	ret



rendertPoints:
	ld a,(selectedCombo)
	ld hl,ComboNameText \ ld b,a
	or a \ jr z,{2@}
@:	add hl,7
	djnz {-1@}
@:	; set penCol and penRow
	bcall(_vPutS)
	ld a,(ptsforSelected)
	; convert byte value into text string
	ret

die_setZero:
	ld hl,dieValues		; set read address to dieValues
	ld a,0 \ ld (hl),a	; set dieValues to 0
	ld de,dieValues+1	; set write address to dieValues+1
	ld bc,4 \ ldir		; copy 4 bytes from read address to write address
	ret

zeroData:
	ld a,0
	ld (hl),a \ inc hl
	djnz zeroData
	ret

; ########################
; Random Number Generator
; ########################

prng16:
;collab with Runer112
;;Output:
;;    HL is a pseudo-random int
;;    A and BC are also, but much weaker and smaller cycles
;;    Preserves DE
;;148cc, super fast
;;26 bytes
;;period length: 4,294,901,760
seed1=$+1
    ld hl,9999
    ld b,h
    ld c,l
    add hl,hl
    add hl,hl
    inc l
    add hl,bc
    ld (seed1),hl
seed2=$+1
    ld hl,987
    add hl,hl
    sbc a,a
    and %00101101
    xor l
    ld l,a
    ld (seed2),hl
    add hl,bc
    ret
roll:
;;Input: A is the range.
;;Output: Returns in A a random number from 0 to B-1.
;;  B=0
;;  DE is not changed
;;Destroys:
;;  HL
;;Speed:
;;  322cc to 373cc, 347.5cc average
     inc hl
     ld a,(hl) \ add a,a
     ret nc
     push hl
     call prng16
     ld l,h \ ld h,0
     ld b,h \ ld c,l
     add hl,hl \ add hl,bc \ add hl,hl
     inc h \ ld a,h
     pop hl
     ld (hl),a
     ret

; ########################
; ## Rendering Routines ##
; ########################

drawSprite_6_Bit:
	ld a,d \ add a,$79	; Y coord into A
	ld b,12			; Loop this 12 times
drawSprite_outerloop:
	inc a \ push af
	out ($10),a \ call lcdwait
	ld a,e \ add a,$20
	out ($10),a \ call lcdwait	; use outi instead
	ld c,$11
	outi \ call lcdwait
	outi \ call lcdwait
	pop bc \ pop af
	djnz drawSprite_outerloop








lcdwait:
	in a,($10) ;bit 7 set if LCD is busy
	rla \ jr c,lcdwait
	ret



GameSave:
.db AppVarObj,"YatSave",0

ComboNameText:
.db "Ones  ",0
.db "Twos  ",0
.db "Threes",0
.db "Fours ",0
.db "Fives ",0
.db "Sixes ",0
.db "3.of.a",0
.db "4.of.a.",0
.db "F.Hse.",0
.db "Sm.St.",0
.db "Lg.St.",0
.db "Chance",0
.db "Yatzee",0


Sprites:
; empty die
.db %11111111,%11110000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %11111111,%11110000
; one die
.db %11111111,%11110000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000110,%00010000
.db %10000110,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %11111111,%11110000
; two die
.db %11111111,%11110000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000110,%00010000
.db %10000110,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000110,%00010000
.db %10000110,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %11111111,%11110000
; three die
.db %11111111,%11110000
.db %10000000,%00010000
.db %10000000,%11010000
.db %10000000,%11010000
.db %10000000,%00010000
.db %10000110,%00010000
.db %10000110,%00010000
.db %10000000,%00010000
.db %10110000,%00010000
.db %10110000,%00010000
.db %10000000,%00010000
.db %11111111,%11110000
; four die
.db %11111111,%11110000
.db %10000000,%00010000
.db %10110000,%11010000
.db %10110000,%11010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10000000,%00010000
.db %10110000,%11010000
.db %10110000,%11010000
.db %10000000,%00010000
.db %11111111,%11110000
; five die
.db %11111111,%11110000
.db %10000000,%00010000
.db %10011001,%10010000
.db %10011001,%10010000
.db %10000000,%00010000
.db %10000110,%00010000
.db %10000110,%00010000
.db %10000000,%00010000
.db %10011001,%10010000
.db %10011001,%10010000
.db %10000000,%00010000
.db %11111111,%11110000
; six die
.db %11111111,%11110000
.db %10000000,%00010000
.db %10011001,%10010000
.db %10011001,%10010000
.db %10000000,%00010000
.db %10011001,%10010000
.db %10011001,%10010000
.db %10000000,%00010000
.db %10011001,%10010000
.db %10011001,%10010000
.db %10000000,%00010000
.db %11111111,%11110000