scawful/oracle-of-secrets
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace $0DE0 with !SpriteDirection label

Browse Source
This commit is contained in:
scawful
2024-03-30 09:29:53 -04:00
parent 0f241bfddd
commit e0a20a98cd
1 changed files with 52 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
Sprites/Objects/minecart.asm
View File

@@ -219,19 +219,18 @@ Sprite_Minecart_Main:
JSL Player_HaltDashAttack ; Stop the player from dashing JSL Player_HaltDashAttack ; Stop the player from dashing
LDA #$02 : STA $02F5 ; Somaria platform and moving LDA #$02 : STA $02F5 ; Somaria platform and moving
LDA $0FDA : SEC : SBC #$0B : STA $20 ; Adjust player pos LDA $0FDA : SEC : SBC #$0B : STA $20 ; Adjust player pos
LDA #$01 : STA !LinkInCart ; Set Link in cart flag
LDA #$01 : STA !LinkInCart
; Check if the cart is facing east or west ; Check if the cart is facing east or west
LDA SprSubtype, X : CMP.b #$03 : BNE .opposite_direction LDA SprSubtype, X : CMP.b #$03 : BNE .opposite_direction
STA.w !MinecartDirection STA.w !MinecartDirection
LDA #$02 : STA $0DE0, X LDA #$02 : STA !SpriteDirection, X
%GotoAction(5) ; Minecart_MoveWest %GotoAction(5) ; Minecart_MoveWest
RTS RTS
.opposite_direction .opposite_direction
STA.w !MinecartDirection STA.w !MinecartDirection
LDA #$03 : STA $0DE0, X LDA #$03 : STA !SpriteDirection, X
%GotoAction(3) ; Minecart_MoveEast %GotoAction(3) ; Minecart_MoveEast
.not_ready .not_ready
@@ -262,13 +261,13 @@ Sprite_Minecart_Main:
; Check if the cart is facing north or south ; Check if the cart is facing north or south
LDA SprSubtype, X : BEQ .opposite_direction LDA SprSubtype, X : BEQ .opposite_direction
STA.w !MinecartDirection STA.w !MinecartDirection
LDA #$01 : STA $0DE0, X LDA #$01 : STA !SpriteDirection, X
%GotoAction(4) ; Minecart_MoveSouth %GotoAction(4) ; Minecart_MoveSouth
RTS RTS
.opposite_direction .opposite_direction
STA.w !MinecartDirection STA.w !MinecartDirection
LDA #$00 : STA $0DE0, X LDA #$00 : STA !SpriteDirection, X
%GotoAction(2) ; Minecart_MoveNorth %GotoAction(2) ; Minecart_MoveNorth
.not_ready .not_ready
@@ -458,13 +457,13 @@ HandleTileDirections:
.stop_north .stop_north
; Set the new direction to north and flip the cart's orientation ; Set the new direction to north and flip the cart's orientation
LDA.b #South : STA SprSubtype, X : STA.w !MinecartDirection LDA.b #South : STA SprSubtype, X : STA.w !MinecartDirection
LDA #$01 : STA $0DE0, X LDA #$01 : STA !SpriteDirection, X
JMP .go_vert JMP .go_vert
.stop_south .stop_south
; Set the new direction to south and flip the cart's orientation ; Set the new direction to south and flip the cart's orientation
LDA.b #North : STA SprSubtype, X : STZ.w !MinecartDirection LDA.b #North : STA SprSubtype, X : STZ.w !MinecartDirection
LDA #$00 : STA $0DE0, X LDA #$00 : STA !SpriteDirection, X
.go_vert .go_vert
%SetTimerA($40) %SetTimerA($40)
@@ -476,13 +475,13 @@ HandleTileDirections:
.stop_east .stop_east
; Set the new direction to east and flip the cart's orientation ; Set the new direction to east and flip the cart's orientation
LDA.b #West : STA SprSubtype, X : STA.w !MinecartDirection LDA.b #West : STA SprSubtype, X : STA.w !MinecartDirection
LDA #$03 : STA $0DE0, X LDA #$03 : STA !SpriteDirection, X
JMP .go_horiz JMP .go_horiz
.stop_west .stop_west
; Set the new direction to west and flip the cart's orientation ; Set the new direction to west and flip the cart's orientation
LDA.b #East : STA SprSubtype, X : STA.w !MinecartDirection LDA.b #East : STA SprSubtype, X : STA.w !MinecartDirection
LDA #$02 : STA $0DE0, X LDA #$02 : STA !SpriteDirection, X
.go_horiz .go_horiz
%SetTimerA($40) %SetTimerA($40)
%StopCart() %StopCart()
@@ -555,22 +554,22 @@ HandleTileDirections:
.move_north .move_north
LDA #$00 : STA SprSubtype, X LDA #$00 : STA SprSubtype, X
STA $0DE0, X STA !SpriteDirection, X
%GotoAction(2) ; Minecart_MoveNorth %GotoAction(2) ; Minecart_MoveNorth
RTS RTS
.move_east .move_east
LDA #$01 : STA SprSubtype, X LDA #$01 : STA SprSubtype, X
LDA #$03 : STA $0DE0, X LDA #$03 : STA !SpriteDirection, X
%GotoAction(3) ; Minecart_MoveEast %GotoAction(3) ; Minecart_MoveEast
RTS RTS
.move_south .move_south
LDA #$02 : STA SprSubtype, X LDA #$02 : STA SprSubtype, X
LDA #$01 : STA $0DE0, X LDA #$01 : STA !SpriteDirection, X
%GotoAction(4) ; Minecart_MoveSouth %GotoAction(4) ; Minecart_MoveSouth
RTS RTS
.move_west .move_west
LDA #$03 : STA SprSubtype, X LDA #$03 : STA SprSubtype, X
LDA #$02 : STA $0DE0, X LDA #$02 : STA !SpriteDirection, X
%GotoAction(5) ; Minecart_MoveWest %GotoAction(5) ; Minecart_MoveWest
.done .done
RTS RTS
@@ -625,26 +624,26 @@ HandleDynamicSwitchTileDirections:
LDA SwitchRam : BNE .go_west LDA SwitchRam : BNE .go_west
LDA #$01 : STA SprSubtype, X LDA #$01 : STA SprSubtype, X
LDA #$03 : STA $0DE0, X LDA #$03 : STA !SpriteDirection, X
%GotoAction(3) ; Minecart_MoveEast %GotoAction(3) ; Minecart_MoveEast
RTS RTS
.go_west .go_west
LDA #$03 : STA SprSubtype, X LDA #$03 : STA SprSubtype, X
LDA #$02 : STA $0DE0, X LDA #$02 : STA !SpriteDirection, X
%GotoAction(5) ; Minecart_MoveWest %GotoAction(5) ; Minecart_MoveWest
RTS RTS
.north_or_south .north_or_south
LDA SwitchRam : BNE .go_south LDA SwitchRam : BNE .go_south
LDA #$00 : STA SprSubtype, X LDA #$00 : STA SprSubtype, X
STA $0DE0, X STA !SpriteDirection, X
%GotoAction(2) ; Minecart_MoveNorth %GotoAction(2) ; Minecart_MoveNorth
RTS RTS
.go_south .go_south
LDA #$02 : STA SprSubtype, X LDA #$02 : STA SprSubtype, X
LDA #$01 : STA $0DE0, X LDA #$01 : STA !SpriteDirection, X
%GotoAction(4) ; Minecart_MoveSouth %GotoAction(4) ; Minecart_MoveSouth
RTS RTS
@@ -689,7 +688,7 @@ DragYH = $0B7D
DragPlayer: DragPlayer:
{ {
; Get direction of the cart (0 to 3) ; Get direction of the cart (0 to 3)
LDY.w $0DE0, X LDY.w !SpriteDirection, X
LDA.w .drag_x_low, Y : CLC : ADC.w DragYL : STA.w DragYL LDA.w .drag_x_low, Y : CLC : ADC.w DragYL : STA.w DragYL
LDA.w .drag_x_high, Y : ADC.w DragYH : STA DragYH LDA.w .drag_x_high, Y : ADC.w DragYH : STA DragYH
@@ -777,11 +776,11 @@ CheckForPlayerInput:
; Check for input from the user (u,d,l,r) ; Check for input from the user (u,d,l,r)
LDY $0DE0, X LDY !SpriteDirection, X
LDA $F0 : AND .d_pad_press, Y : STA $00 : AND.b #$08 : BEQ .not_pressing_up LDA $F0 : AND .d_pad_press, Y : STA $00 : AND.b #$08 : BEQ .not_pressing_up
LDA.b #$00 : STA $0DE0, X ; Moving Up LDA.b #$00 : STA !SpriteDirection, X ; Moving Up
STA SprSubtype, X STA SprSubtype, X
%GotoAction(2) ; Minecart_MoveNorth %GotoAction(2) ; Minecart_MoveNorth
@@ -791,7 +790,7 @@ CheckForPlayerInput:
LDA $00 : AND.b #$04 : BEQ .not_pressing_down LDA $00 : AND.b #$04 : BEQ .not_pressing_down
LDA.b #$01 : STA $0DE0, X LDA.b #$01 : STA !SpriteDirection, X
LDA #$02 : STA SprSubtype, X LDA #$02 : STA SprSubtype, X
%GotoAction(4) ; Minecart_MoveSouth %GotoAction(4) ; Minecart_MoveSouth
@@ -802,7 +801,7 @@ CheckForPlayerInput:
LDA $00 : AND.b #$02 : BEQ .not_pressing_left LDA $00 : AND.b #$02 : BEQ .not_pressing_left
LDA.b #$02 : STA $0DE0, X LDA.b #$02 : STA !SpriteDirection, X
LDA #$03 : STA SprSubtype, X LDA #$03 : STA SprSubtype, X
%GotoAction(5) ; Minecart_MoveWest %GotoAction(5) ; Minecart_MoveWest
@@ -813,16 +812,16 @@ CheckForPlayerInput:
LDA $00 : AND.b #$01 : BEQ .always LDA $00 : AND.b #$01 : BEQ .always
LDA.b #$03 : STA $0DE0, X LDA.b #$03 : STA !SpriteDirection, X
STA SprSubtype, X STA SprSubtype, X
%GotoAction(3) ; Minecart_MoveEast %GotoAction(3) ; Minecart_MoveEast
.always .always
; LDA $0DE0, X : CMP.b #$03 : BNE .not_going_right ; LDA !SpriteDirection, X : CMP.b #$03 : BNE .not_going_right
; ; Default heading in reaction to this tile is going up. ; ; Default heading in reaction to this tile is going up.
; ; LDA.b #$00 : STA $0DE0, X ; ; LDA.b #$00 : STA !SpriteDirection, X
; .not_going_right ; .not_going_right