; ; gamemanager ; The manager for overall game logic ; ; Created by Quinn Dunki on 8/15/17 ; NUMPLAYERS = 2 beginGameplay: ; Initialize random numbers lda #1 jsr seedRandom ; Set up palette for terrain and players lda #basePalette sta PARAML0 lda #0 jsr setPalette ; Set up palette for status bar lda #statusBarPalette sta PARAML0 lda #1 jsr setPalette lda #1 sta PARAML0 ldx #0 ldy #10 jsr setScanlinePalette ; Set up sprite rendering BITS8 lda #3 sta SpriteBankBank00+3 ; Tell compiled sprites what bank they are in BITS16 ; Set up audio jsr initSoundSystem ; Erase the screen ldx #$0000 ldy #200 jsr colorFill ; Generate, compile, and clip terrain stz leftScreenEdge jsr generateTerrain ; Create players lda #56 ldy #0 jsr playerCreate lda #568 ldy #1 jsr playerCreate ldy #0 jsr renderPlayerHeader jsr protectPlayers jsr protectProjectiles jsr prepareRowRendering jsr compileTerrain jsr clipTerrain ; Test font renderer lda #testString sta PARAML0 ldy #$3000 jsl $050000 bra gameplayLoop testString: pstring "HELLO WORLD!" gameplayLoop: lda projectileActive bpl gameplayLoopKeyboardSkip jsr kbdScanGameplay gameplayLoopKeyboardSkip: jsr kbdScanDebug ; BORDER_COLOR #$F jsr nextVBL ; BORDER_COLOR #$0 ; Check for pause lda paused beq gameplayLoopBeginUpdate jmp gameplayLoopEndFrame gameplayLoopBeginUpdate: ;;;;;;;;;;; ; Update ; lda #1 sta projectilesDirty lda projectileActive ; Skip interactivity during shots, but still allow map scrolling bpl gameplayLoopShotTracking lda dirtExplosionActive bne gameplayLoopRenderJump ; Skip interactivity during dirt explosions bra gameplayLoopScroll gameplayLoopRenderJump: jmp gameplayLoopRender gameplayLoopShotTracking: jsr trackActiveShot ; BORDER_COLOR #$1 gameplayLoopScroll: ; Scroll map if needed lda mapScrollRequested bmi gameplayLoopAngleCheck jsr scrollMap gameplayLoopAngleCheck: lda projectileActive ; Skip interactivity during shots bpl gameplayLoopRenderJmp bra gameplayLoopAngle gameplayLoopRenderJmp: jmp gameplayLoopRender gameplayLoopAngle: ; Update aim angle if needed lda angleDeltaRequested beq gameplayLoopAim jsr changeAngle gameplayLoopAim: jsr unrenderCrosshair ldy currentPlayer jsr updateCrosshair jsr renderCrosshair gameplayLoopPower: ; Update power if needed lda powerDeltaRequested beq gameplayLoopFire jsr changePower gameplayLoopFire: lda fireRequested beq gameplayLoopRender jsr unrenderCrosshair jsr fire ; BORDER_COLOR #$2 gameplayLoopRender: ; sta KBDSTROBE ;;;;;;;;;;; ; Render ; ; Render the terrain if needed lda terrainDirty beq gameplayLoopExplosions ; jsl renderTerrainSpans ; Part of the now disabled fill-mode renderer jsr renderTerrain stz terrainDirty ; Render players jsr renderPlayers gameplayLoopExplosions: ; Render explosions jsr renderDirtExplosion gameplayLoopProjectiles: ; BORDER_COLOR #$3 lda projectilesDirty beq gameplayLoopProjectilesSkip jsr unrenderProjectiles jsr updateProjectilesPhysics jsr protectProjectiles jsr renderProjectiles gameplayLoopProjectilesSkip: jsr updateProjectilesCollisions lda inventoryDirty beq gameplayLoopVictoryCondition stz inventoryDirty jsr renderInventory ; BORDER_COLOR #$4 gameplayLoopVictoryCondition: lda gameOver bmi gameplayEndTurnCondition jsr endGame gameplayEndTurnCondition: lda turnRequested beq gameplayLoopEndFrame lda dirtExplosionActive bne gameplayLoopEndFrame jsr endTurn gameplayLoopEndFrame: lda singleStep beq gameplayLoopEndFrameCont lda #1 sta paused gameplayLoopEndFrameCont: lda quitRequested beq gameplayLoopContinue jmp quitGame gameplayLoopContinue: jmp gameplayLoop ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; trackActiveShot ; ; Handles tracking the projectile with the camera ; ; Trashes SCRATCHL ; trackActiveShot: ldy projectileActive lda projectileData+JD_PRECISEX,y lsr ; Convert to integer and divide by two for byte distance lsr lsr lsr lsr sta SCRATCHL ; Save this for later lda projectileData+JD_VX,y bmi trackActiveShotNeg ; Left-to-right lda mapScrollPos cmp #VISIBLETERRAINWIDTH-VISIBLETERRAINWINDOW beq trackActiveShotDone ; Logical-right edge clamp lda SCRATCHL sec sbc #150 ; Check for moving close to right edge cmp leftScreenEdge bmi trackActiveShotDone lda #80 ; Move screen right to see shot land sta mapScrollRequested trackActiveShotNeg: ; Right-to-left lda mapScrollPos beq trackActiveShotDone ; Logical-left edge clamp lda SCRATCHL clc adc #150 ; Check for moving close to left edge cmp rightScreenEdge bpl trackActiveShotDone stz mapScrollRequested ; Move screen left to see shot land trackActiveShotDone: rts ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; endTurn ; ; Handles changing the active player ; endTurn: lda currentPlayer inc cmp #NUMPLAYERS beq endTurnWrap sta currentPlayer endTurnRefresh: jsr processTurnForProjectiles ldy currentPlayer beq endTurnFocusPlayer0 lda #VISIBLETERRAINWINDOW sta mapScrollRequested endTurnHeader: jsr renderPlayerHeader jsr renderInventory stz turnRequested rts endTurnFocusPlayer0: stz mapScrollRequested bra endTurnHeader endTurnWrap: stz currentPlayer bra endTurnRefresh ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; endGame ; ; Handles someone winning ; endGame: lda #1 sta quitRequested rts ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; scrollMap ; ; Handles updating the state of the terrain in response to scrolling ; ; A = New map scroll position ; scrollMap: jsr unclipTerrain ; jsl unrenderTerrainSpans ; Part of the now disabled fill-mode renderer jsr unrenderPlayers jsr unrenderProjectiles pha lda projectileActive ; Crosshair is visible if projectile isn't beq scrollMapApplyScrolling jsr unrenderCrosshair scrollMapApplyScrolling: pla ; jsr updateProjectilePhysics ; Good idea? sta mapScrollPos asl sta leftScreenEdge clc adc #160-GAMEOBJECTWIDTH/4-1 sta rightScreenEdge jsr clipTerrain lda #$ffff sta mapScrollRequested jsr protectPlayers jsr protectProjectiles jsr renderPlayers jsr renderProjectiles ; Prevents flicker, but ads jitter to shot tracking lda #1 sta terrainDirty stz projectilesDirty rts ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; changeAngle ; ; Handles changing a player's aim ; changeAngle: ldy currentPlayer tax jsr playerDeltaAngle ldy currentPlayer jsr renderPlayerHeader stz angleDeltaRequested rts ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; changePower ; ; Handles changing a player's power ; changePower: ldy currentPlayer tax jsr playerDeltaPower ldy currentPlayer jsr renderPlayerHeader stz powerDeltaRequested rts ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; fire ; ; Handles firing a player's weapon ; fire: stz fireRequested ldy currentPlayer jsr playerFire jsr renderPlayerHeader rts basePalette: .word $0aef,$0080,$0080,$0861,$0c93,$0eb4,$0d66,$0f9a,$0777,$0f00,$0bbb,$ddd,$007b,$0a5b,$0000,$0fff statusBarPalette: .word $0aef,$0fff,$0aef,$0aef,$0aef,$0aef,$0d66,$0aef,$0aef,$0aef,$0aef,$0aef,$0aef,$0aef,$0aef,$0000 quitRequested: .word $0000 mapScrollRequested: .word $FFFF angleDeltaRequested: .word $0000 powerDeltaRequested: .word $0000 fireRequested: .word $0000 turnRequested: .word $0000 terrainDirty: .word 1 projectilesDirty: .word 1 inventoryDirty: .word 1 currentPlayer: .word 0 gameOver: .word -1 ; Player index of winner projectileActive: .word -1 ; Y offset of active shot paused: .word 0 singleStep: .word 0 globalWind: .word 0 ; 12.4 velocity ; Position of map viewing window. Can be visualized in two ways: ; a) Word-distance from right edge of terrain data (which is in memory right-to-left) to left edge of visible screen ; b) Byte-distance from left edge of logical terrain to left edge of visible screen ; c) Byte-distance from left edge of logical terrain to right edge of visible screen minus game object width in words mapScrollPos: .word 0 ;leftScreenEdge = $6E ; Moved to zero page for speed and cross-bank convenience ; .word 0 rightScreenEdge: .word 160-GAMEOBJECTWIDTH/4-1