Apple-2-SW/mminer-apple2
1
0
Fork 0
mirror of https://github.com/StewBC/mminer-apple2.git synced 2024-09-29 22:57:48 +00:00
Code Issues Projects Releases Wiki Activity

Game delay based on rendering, render Willy twice

Browse Source
This commit is contained in:
StewBC 2021-04-30 14:14:12 -07:00
parent 68e9db4f51
commit 7909d6e051
1 changed files with 118 additions and 91 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/apple2/game.inc
View File

@ -24,11 +24,11 @@ playLoop:
lda demoMode ; check for demo mode lda demoMode ; check for demo mode
beq :+ ; if not demo, move willy beq :+ ; if not demo, move willy
jsr gameDemoTick ; tick the demo if demo mode jsr gameDemoTick ; demo mode so run demo
jmp :++ ; skip moving willy jmp ai ; skip moving willy
: :
jsr willyMove ; move the main character based on user input (or conveyor or gravity) jsr willyMove ; move the main character based on user input (or conveyor or gravity)
: ai:
jsr gameAI ; run all the monster AI jsr gameAI ; run all the monster AI
ldx fullScreenClearCount ; get the flag for what level of screen clear is needed ldx fullScreenClearCount ; get the flag for what level of screen clear is needed
@ -40,15 +40,21 @@ playLoop:
jsr screenDrawSprites ; draw all the enemies jsr screenDrawSprites ; draw all the enemies
lda demoMode ; get the event state lda demoMode ; get the event state
bne :+ ; if so skip showing willy beq :+ ; 0 - not demo, full flow
jsr screenDrawLevel ; show all the tiles in demo mode
jmp ui
:
lda #$ff ; Enable Collision detection
jsr screenDrawWilly ; not demo - draw willy with collision detection jsr screenDrawWilly ; not demo - draw willy with collision detection
bcc :+ ; carry set is a collision, clear is no problem bcc level ; carry set is a collision, clear is no problem
lda eventState ; on collision, set the die event lda eventState ; on collision, set the die event
ora #EVENT_DIED ora #EVENT_DIED
sta eventState sta eventState
: level:
jsr screenDrawLevel ; show all the tiles jsr screenDrawLevel ; show all the tiles
lda #0 ; No collision detection
jsr screenDrawWilly ; Now draw willy over self and level, no collision
ui:
lda updateUICount ; see if the UI needs an update lda updateUICount ; see if the UI needs an update
beq :+ beq :+
jsr uiUpdate ; if needed, update the appropriate UI components jsr uiUpdate ; if needed, update the appropriate UI components
@ -59,6 +65,7 @@ playLoop:
jsr screenSwap ; swap to the newly rendered screen jsr screenSwap ; swap to the newly rendered screen
jsr audioPlayNote ; play in-game music if needed jsr audioPlayNote ; play in-game music if needed
jsr gameDelay ; waste time to get all screens to run at same rate
lda eventState ; see if any events fired lda eventState ; see if any events fired
beq playLoop ; keep looping while no events beq playLoop ; keep looping while no events
@ -79,6 +86,26 @@ playLoop:
.endproc .endproc
;-----------------------------------------------------------------------------
.proc gameDelay
lda #$80 ; max tiles ever visible is $CD, but delay only up to $80
sec
sbc tilesRendered ; how many were shown
bcc done
tax ; delta in x
:
ldy #49 ; delay 246 cycles per non-rendered tile
:
dey
bne :-
dex ; and do it for all tiles not rendered (<$80)
bne :--
done:
rts
.endproc
;----------------------------------------------------------------------------- ;-----------------------------------------------------------------------------
.proc gameNewGame .proc gameNewGame