GSCats/gamemanager.s

;
;  gamemanager
;  The manager for overall game logic
;
;  Created by Quinn Dunki on 8/15/17
;

NUMPLAYERS = 2

initGameplay:
	; Create players
	lda #56
	ldy #0
	jsr playerCreate

	lda #568
	ldy #1
	jsr playerCreate

	jsr deleteAllProjectiles
	rts

beginGameplay:
	; Initialize random numbers
	lda #1
	jsr seedRandom
	
	; Erase the screen
	ldx #$0000
	ldy #200
	jsr colorFill

	; Generate, compile, and clip terrain
	stz mapScrollPos
	stz leftScreenEdge
	stz mapScrollRequested
	lda #160-GAMEOBJECTWIDTH/4-2
	sta rightScreenEdge
	jsr generateTerrain

	jsr initGameplay
	
	jsr syncPlayerHeader
	ldy #0
	jsr renderPlayerHeader

	jsr prepareRowRendering

	jsr compileTerrain
	jsr clipTerrain
	jsr renderTerrain

	jsr renderInventory
	jsr protectPlayers
	jsr renderPlayers
	ldy #0
	jsr updateCrosshair

	; Fade in from menu
	lda #basePalette
	sta PARAML2
	jsr paletteFade

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
	ldy currentPlayer
	jsr updateCrosshair
	
gameplayLoopAngleCheck:
	lda projectileActive			; Skip interactivity during shots
	bpl gameplayLoopRenderJmp
	bra gameplayLoopAngle
gameplayLoopRenderJmp:
	jmp gameplayLoopRender

gameplayLoopAngle:
	; Update aim angle if needed
	lda angleDeltaRequested
	beq gameplayLoopPower
	jsr changeAngle

gameplayLoopAim:
	jsr unrenderCrosshair
	ldy currentPlayer
	jsr updateCrosshair
	jsr protectCrosshair
	jsr renderCrosshair

gameplayLoopPower:
	; Update power if needed
	lda powerDeltaRequested
	beq gameplayLoopFire
	jsr changePower
	jsr unrenderCrosshair
	ldy currentPlayer
	jsr renderCrosshair

gameplayLoopFire:
	lda fireRequested
	beq gameplayLoopMove
	jsr unrenderCrosshair
	jsr fire
	
gameplayLoopMove:
	lda playerMoveRequested
	beq gameplayLoopRender
	jsr move

;	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
	lda playersDirty		; Check if terrain moved since last protect
	beq gameplayLoopRenderPlayersAnyway
	jsr unrenderPlayers
	jsr protectPlayers

	lda dirtExplosionActive	; Crosshair is dirty if map scrolled and dirt is finished
	bne gameplayLoopRenderPlayersAnyway
	jsr protectCrosshair
	ldy currentPlayer
	jsr renderCrosshair

gameplayLoopRenderPlayersAnyway:
	jsr renderPlayers

gameplayLoopExplosions:
	; Render explosions
	jsr renderDirtExplosion

gameplayLoopProjectiles:

;	BORDER_COLOR #$3

	lda projectilesDirty
	beq gameplayLoopProjectilesSkip

	jsr unrenderProjectiles
	jsr updateProjectilesPhysics
	jsr unrenderPlayers			; This extra unrender...
	jsr protectProjectiles
	jsr renderPlayers			; ... rerender cycle makes fan stands overlapping cats render properly. Messy, but the engine doesn't handle overlapping sprites well
	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

	; Transition back to menu
	stz quitRequested
	lda #skyPalette
	sta PARAML2
	jsr paletteFade
	jmp titleScreen

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 syncPlayerHeader
	jsr renderPlayerHeader
	jsr renderInventory
	stz turnRequested
	rts

endTurnFocusPlayer0:
	stz mapScrollRequested
	bra endTurnHeader

endTurnWrap:
	stz currentPlayer
	bra endTurnRefresh


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; endGame
;
; Handles someone winning. Assumes "someone" is current player
;
endGame:
	SAVE_AXY

	lda currentPlayer
	beq endGame0

	lda #victoryText1
	bra endGameRender

endGame0:
	lda #victoryText0

endGameRender:
	sta PARAML0
	ldy #$48b7
	lda #2
	jsl renderStringFar

	; Play pee animation under loser (non-current player)
	lda currentPlayer
	eor #1
	tay
	PLAYERPTR_Y
	lda playerData+GO_POSX,y
	sta endGamePeePos
	lda playerData+GO_POSY,y
	dec
	dec
	sta endGamePeePos+2
	lda #endGamePeePos
	sta PARAML0
	ldy #40
	ldx #5
	lda #ANIMATION_SIZE_16x16
	jsr renderAnimationFreeze
	
	; Wait for keypress
	jsr kbdWaitForAnyKey
	lda #1
	sta quitRequested

	RESTORE_AXY
	rts

endGamePeePos:
	.word 0,0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 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
	lda #1
	sta crosshairBackgroundStale

scrollMapApplyScrolling:
	pla
;	jsr updateProjectilePhysics	; Good idea?

	sta mapScrollPos
	asl
	sta leftScreenEdge
	clc
	adc #160-GAMEOBJECTWIDTH/4-2
	sta rightScreenEdge

	jsr clipTerrain
	lda #$ffff
	sta mapScrollRequested

	lda #1
	sta playersDirty
	sta projectilesDirty
	sta terrainDirty
	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


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; move
;
; Handles moving a player
;
move:
	SAVE_AY

	; Unrender everything
	jsr unrenderCrosshair
	jsr unrenderPlayers

	; Find active player game object data
	ldy currentPlayer
	PLAYERPTR_Y
	tya
	clc
	adc #playerData
	sta PARAML0

	; Prepare parameters of move
	ldx playerMoveRequested
	lda currentPlayer
	beq moveParamsPlayer0
	lda #-1
	sta placeGameObjectRightOffset
	lda #GAMEOBJECTWIDTH-(GAMEOBJECTWIDTH/2-1)
	sta placeGameObjectLeftOffset

movePerformMove:
	jsr moveGameObjectOnTerrain
	bra moveCleanup

moveParamsPlayer0:
	lda #-(GAMEOBJECTWIDTH/2-2)
	sta placeGameObjectRightOffset
	lda #GAMEOBJECTWIDTH-2
	sta placeGameObjectLeftOffset
	bra movePerformMove

moveCleanup:
	; Handle side effects caused by move
	stz playerMoveRequested
	ldy currentPlayer
	jsr updateCrosshair

	; Re-render everything
	jsr protectPlayers
	jsr renderPlayers
	jsr protectCrosshair
	ldy currentPlayer
	jsr renderCrosshair

	RESTORE_AY
	rts


basePalette:
	.word $06af,$0072,$0072,$0861,$0c93,$0eb4,$0d66,$0f9a,$0777,$0d00,$0bbb,$ddd,$007b,$0a5b,$0000,$0fff


quitRequested:
	.word $0000
mapScrollRequested:
	.word $FFFF
angleDeltaRequested:
	.word $0000
powerDeltaRequested:
	.word $0000
fireRequested:
	.word $0000
turnRequested:
	.word $0000
playerMoveRequested:
	.word $0000
terrainDirty:
	.word 0
playersDirty:
	.word 0
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:			; Right edge minus one game object width, for easy render clipping
	.word 160-GAMEOBJECTWIDTH/4-2

victoryText0:
	pstring "SPROCKET WINS!"
victoryText1:
	pstring " TINKER WINS!"