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

Cleanup Kydreeok and Kydreeok Head

Browse Source
This commit is contained in:
scawful
2024-10-06 23:38:43 -04:00
parent 80828790c9
commit 8060b82251
2 changed files with 235 additions and 267 deletions
Download Patch File Download Diff File Expand all files Collapse all files

240
Sprites/Bosses/kydreeok.asm
View File

@@ -11,7 +11,7 @@
!DeathAnimation = 00 ; 00 = normal death, 01 = no death animation
!ImperviousAll = 00 ; 00 = Can be attack, 01 = attack will clink on it
!SmallShadow = 00 ; 01 = small shadow, 00 = no shadow
!Shadow = 00 ; 00 = don't draw shadow, 01 = draw a shadow
!Shadow = 00 ; 00 = don't draw shadow, 01 = draw a shadow
!Palette = 00 ; Unused in this template (can be 0 to 7)
!Hitbox = $07 ; 00 to 31, can be viewed in sprite draw tool
!Persist = 00 ; 01 = your sprite continue to live offscreen
@@ -29,27 +29,23 @@
!ImperviousArrow = 00 ; 01 = Impervious to arrows
!ImpervSwordHammer = 00 ; 01 = Impervious to sword and hammer attacks
!Boss = 01 ; 00 = normal sprite, 01 = sprite is a boss
%Set_Sprite_Properties(Sprite_Kydreeok_Prep, Sprite_Kydreeok_Long);
; =========================================================
%Set_Sprite_Properties(Sprite_Kydreeok_Prep, Sprite_Kydreeok_Long)
Sprite_Kydreeok_Long:
{
PHB : PHK : PLB
JSR Sprite_Kydreeok_Draw
JSL Sprite_CheckActive : BCC .SpriteIsNotActive
JSR Sprite_Kydreeok_Main
JSR Sprite_Kydreeok_CheckIfDead
JSR MaybeRespawnHead
.SpriteIsNotActive
LDA.w SprState, X : BNE .not_inactive
JSR ApplyEndPalette
.not_inactive
PLB ; Get back the databank we stored previously
RTL ; Go back to original code
PHB : PHK : PLB
JSR Sprite_Kydreeok_Draw
JSL Sprite_CheckActive : BCC .SpriteIsNotActive
JSR Sprite_Kydreeok_Main
JSR Sprite_Kydreeok_CheckIfDead
JSR MaybeRespawnHead
.SpriteIsNotActive
LDA.w SprState, X : BNE .not_inactive
JSR ApplyEndPalette
.not_inactive
PLB
RTL
}
; =========================================================
@@ -57,17 +53,16 @@ Sprite_Kydreeok_Long:
Sprite_Kydreeok_Prep:
{
PHB : PHK : PLB
LDA #$40 : STA.w SprTimerA, X
LDA.b #$08 : STA $36 ; Stores initial movement speeds
LDA.b #$06 : STA $0428 ; Allows BG1 to move
LDA.b #$09 : STA.w SprBump, X ; bump damage type
; Cache the origin position of the sprite.
LDA.w SprX, X : STA.w SprMiscA, X
LDA.w SprX, X : STA.w SprMiscA, X
LDA.w SprY, X : STA.w SprMiscB, X
JSR SpawnLeftHead
JSR SpawnLeftHead
; JSR SpawnCenterHead
JSR SpawnRightHead
@@ -77,7 +72,7 @@ Sprite_Kydreeok_Prep:
JSR ApplyPalette
; Final Boss theme 1F
; Final Boss theme 1F
LDA #$1F : STA $012C
PLB
@@ -99,7 +94,7 @@ Sprite_Kydreeok_CheckIfDead:
LDA.w SprMiscD, X : CMP.b #$02 : BEQ .dead
LDA.b #$02 : STA.w SprMiscD, X
LDY.b #$01 : JSR ApplyKydreeokGraphics
JSR SpawnLeftHead
JSR SpawnLeftHead
JSR SpawnRightHead
RTS
.dead
@@ -110,10 +105,10 @@ Sprite_Kydreeok_CheckIfDead:
RTS
}
; Head may respawn if the other isn't killed in time
; Head may respawn if the other isn't killed in time
MaybeRespawnHead:
{
LDA.w Offspring1_Id : TAY
LDA.w Offspring1_Id : TAY
LDA.w SprState, Y : BNE .offspring1_alive
JSL GetRandomInt : AND.b #$7F : BNE .offspring1_alive
JSR SpawnLeftHead
@@ -240,14 +235,14 @@ Sprite_Kydreeok_Main:
PHX
REP #$20
; Use a range of + 0x05 because being exact equal didnt trigger consistently
; Use a range of + 0x05 because being exact equal didnt trigger consistently
LDA $20 : SBC.w SprCachedY : CMP.w #$FFFB : BCC .notEqualY
SEP #$20
%GotoAction(2) ; Kydreeok_MoveXandY
BRA .notEqualX
.notEqualY
; Use a range of + 0x05 because being exact equal didnt trigger consistently
; Use a range of + 0x05 because being exact equal didnt trigger consistently
LDA $22 : SBC.w SprCachedX : CMP.w #$FFFB : BCC .notEqualX
SEP #$20
%GotoAction(2) ; Kydreeok_MoveXandY
@@ -274,41 +269,31 @@ Sprite_Kydreeok_Main:
Kydreeok_Dead:
{
LDA $1C : ORA.b #$01 : STA $1C ;turn on BG2 (Body)
; Flicker the body every other frame using the timer
; Flicker the body every other frame using the timer
LDA.w SprTimerA, X : AND.b #$01 : BEQ .flicker
LDA $1C : AND.b #$FE : STA $1C ;turn off BG2 (Body)
.flicker
; Spawn the explosion
LDA.b #$00 ; SPRITE 00
JSL Sprite_SpawnDynamically
BMI .no_space
LDA.b #$0B : STA.w $0AAA
LDA.b #$04 : STA.w $0DD0,Y
LDA.b #$03 : STA.w $0E40,Y
LDA.b #$0C : STA.w $0F50,Y
LDA.w $0FD8 : STA.w SprX,Y
LDA.w $0FD9 : STA.w SprXH,Y
LDA.w $0FDA : STA.w SprY,Y
LDA.w $0FDB : STA.w SprYH,Y
LDA.b #$1F
STA.w $0DF0,Y
STA.w $0D90,Y
LDA.b #$02 : STA.w $0F20,Y
LDA.b #$00
JSL Sprite_SpawnDynamically : BMI .no_space
LDA.b #$0B : STA.w $0AAA
LDA.b #$04 : STA.w $0DD0,Y
LDA.b #$03 : STA.w $0E40,Y
LDA.b #$0C : STA.w $0F50,Y
LDA.w $0FD8 : STA.w SprX,Y
LDA.w $0FD9 : STA.w SprXH,Y
LDA.w $0FDA : STA.w SprY,Y
LDA.w $0FDB : STA.w SprYH,Y
LDA.b #$1F : STA.w $0DF0,Y : STA.w $0D90,Y
LDA.b #$02 : STA.w $0F20,Y
.no_space
LDA.w SprTimerA, X : BNE .continue
STZ.w $0422
STZ.w $0424
LDA $1C : ORA.b #$01 : STA $1C ;turn on BG2 (Body)
STZ.w $0DD0, X ; GG
.continue
RTS
}
@@ -333,7 +318,6 @@ Sprite_Kydreeok_Main:
%GotoAction(2)
.continue
RTS
}
}
@@ -367,12 +351,10 @@ Offspring3_Neck3_Y = $1A7D
SpawnLeftHead:
{
LDA #$CF
JSL Sprite_SpawnDynamically : BMI .return
TYA : STA.w Offspring1_Id
;store the sub-type
LDA.b #$00 : STA $0E30, Y
PHX
; code that controls where to spawn the offspring.
REP #$20
@@ -395,7 +377,6 @@ SpawnLeftHead:
STZ.w SprYRound, X
STZ.w SprXRound, X
PLX
.return
RTS
}
@@ -513,10 +494,10 @@ MoveBody:
LDA.w SprY, X : SEC : SBC.b #$0C : STA.w $0DB0, X
LDA.w $0B08 : SEC : SBC.w SprX, X
CLC : ADC.b #$02
CLC : ADC.b #$02
CMP.b #$04 : BCS .not_at_target
LDA.w $0B09 : SEC : SBC.w SprY, X
LDA.w $0B09 : SEC : SBC.w SprY, X
CLC : ADC.b #$02
CMP.b #$04 : BCS .not_at_target
@@ -588,17 +569,17 @@ StopIfOutOfBounds:
LDA.w SprCachedY : CMP.w #$00D0 : BCC .not_out_of_bounds_Down
SEP #$20
LDA.w SprYSpeed : CMP.b #$80 : BCS .not_out_of_bounds_Down
LDA.b #-10 : STA.w SprYSpeed : STA.w SprYRound ; Reverse the direction
LDA.b #-10 : STA.w SprYSpeed : STA.w SprYRound ; Reverse the direction
; Modify the neck position
; Makes them move away from each other a bit
LDA $19EA : SEC : SBC #$04 : STA $19EA
LDA $19EC : SEC : SBC #$04 : STA $19EC
LDA $19EE : SEC : SBC #$04 : STA $19EE
; Modify the neck position
; Makes them move away from each other a bit
LDA $19EA : SEC : SBC #$04 : STA $19EA
LDA $19EC : SEC : SBC #$04 : STA $19EC
LDA $19EE : SEC : SBC #$04 : STA $19EE
LDA $19F0 : CLC : ADC #$04 : STA $19F0
LDA $19F2 : CLC : ADC #$04 : STA $19F2
LDA $19F4 : CLC : ADC #$04 : STA $19F4
LDA $19F0 : CLC : ADC #$04 : STA $19F0
LDA $19F2 : CLC : ADC #$04 : STA $19F2
LDA $19F4 : CLC : ADC #$04 : STA $19F4
.not_out_of_bounds_Down
SEP #$20
@@ -612,7 +593,7 @@ ApplyPalette:
{
REP #$20 ;Set A in 16bit mode
;note, this uses adresses like 7EC300 and not 7EC500 because the game
;note, this uses adresses like 7EC300 and not 7EC500 because the game
;will fade the colors into 7EC500 based on the colors found in 7EC300
LDA #$7FFF : STA $7EC5E2 ;BG2
@@ -623,11 +604,11 @@ ApplyPalette:
LDA #$7E56 : STA $7EC5EC
LDA #$65CA : STA $7EC5EE
; LDA #$14A5 : STA $7EC5F0
; LDA #$7E56 : STA $7EC5F2
; LDA #$7E56 : STA $7EC5F2
; LDA #$65CA : STA $7EC5F4
INC $15
SEP #$20 ;Set A in 8bit mode
RTS
@@ -637,7 +618,7 @@ ApplyEndPalette:
{
REP #$20 ;Set A in 16bit mode
;note, this uses adresses like 7EC300 and not 7EC500 because the game
;note, this uses adresses like 7EC300 and not 7EC500 because the game
;will fade the colors into 7EC500 based on the colors found in 7EC300
LDA #$1084 : STA $7EC5E2 ;BG2
@@ -648,11 +629,11 @@ ApplyEndPalette:
LDA #$7E56 : STA $7EC5EC
LDA #$65CA : STA $7EC5EE
; LDA #$14A5 : STA $7EC5F0
; LDA #$7E56 : STA $7EC5F2
; LDA #$7E56 : STA $7EC5F2
; LDA #$65CA : STA $7EC5F4
INC $15
SEP #$20 ;Set A in 8bit mode
RTS
@@ -662,60 +643,55 @@ ApplyEndPalette:
Sprite_Kydreeok_Draw:
{
JSL Sprite_PrepOamCoord
; JSL Sprite_OAM_AllocateDeferToPlayer
LDA.b #$08
JSL OAM_AllocateFromRegionE
JSL Sprite_PrepOamCoord
; JSL Sprite_OAM_AllocateDeferToPlayer
LDA.b #$08
JSL OAM_AllocateFromRegionE
LDA $0DC0, X : CLC : ADC $0D90, X : TAY;Animation Frame
LDA .start_index, Y : STA $06
LDA $0DC0, X : CLC : ADC $0D90, X : TAY;Animation Frame
LDA .start_index, Y : STA $06
PHX
LDX .nbr_of_tiles, Y ;amount of tiles -1
LDY.b #$00
PHX
LDX .nbr_of_tiles, Y ;amount of tiles -1
LDY.b #$00
.next_tile
PHX ; Save current Tile Index?
TXA : CLC : ADC $06 ; Add Animation Index Offset
PHX ; Save current Tile Index?
TXA : CLC : ADC $06 ; Add Animation Index Offset
PHA ; Keep the value with animation index offset?
PHA ; Keep the value with animation index offset?
ASL A : TAX
ASL A : TAX
REP #$20
REP #$20
LDA $00 : CLC : ADC .x_offsets, X : STA ($90), Y
AND.w #$0100 : STA $0E
INY
LDA $02 : CLC : ADC .y_offsets, X : STA ($90), Y
CLC : ADC #$0010 : CMP.w #$0100
SEP #$20
BCC .on_screen_y
LDA $00 : CLC : ADC .x_offsets, X : STA ($90), Y
AND.w #$0100 : STA $0E
INY
LDA $02 : CLC : ADC .y_offsets, X : STA ($90), Y
CLC : ADC #$0010 : CMP.w #$0100
SEP #$20
BCC .on_screen_y
LDA.b #$F0 : STA ($90), Y ;Put the sprite out of the way
STA $0E
LDA.b #$F0 : STA ($90), Y ;Put the sprite out of the way
STA $0E
.on_screen_y
PLX ; Pullback Animation Index Offset (without the *2 not 16bit anymore)
INY
LDA .chr, X : STA ($90), Y
INY
LDA .properties, X : STA ($90), Y
PLX ; Pullback Animation Index Offset (without the *2 not 16bit anymore)
INY
LDA .chr, X : STA ($90), Y
INY
LDA .properties, X : STA ($90), Y
PHY
TYA : LSR #2 : TAY
LDA.b #$02 : ORA $0F : STA ($92), Y ; store size in oam buffer
PLY : INY
PLX : DEX : BPL .next_tile
PHY
TYA : LSR #2 : TAY
LDA.b #$02 : ORA $0F : STA ($92), Y ; store size in oam buffer
PLY : INY
PLX : DEX : BPL .next_tile
PLX
PLX
RTS
RTS
.start_index
db $00, $08, $10
@@ -741,27 +717,27 @@ Sprite_Kydreeok_Draw:
ApplyKydreeokGraphics:
{
PHX
REP #$20 ; A = 16, XY = 8
LDX #$80 : STX $2100 ; turn the screen off (required)
LDX #$80 : STX $2115 ; Set the video port register every time we write it increase by 1
LDA #$5000 : STA $2116 ; Destination of the DMA $5800 in vram <- this need to be divided by 2
LDA #$1801 : STA $4300 ; DMA Transfer Mode and destination register
; "001 => 2 registers write once (2 bytes: p, p+1)"
CPY #$01 : BEQ .phase2
LDA.w #KydreeokGraphics : STA $4302
LDX.b #KydreeokGraphics>>16 : STX $4304
JMP .continue
.phase2
LDA.w #KydreeokPhase2Graphics : STA $4302
LDX.b #KydreeokPhase2Graphics>>16 : STX $4304
.continue
LDA #$2000 : STA $4305 ; Size of the transfer 4 sheets of $800 each
LDX #$01 : STX $420B ; Do the DMA
LDX #$0F : STX $2100 ; Turn the screen back on
SEP #$30
PLX
RTS
PHX
REP #$20 ; A = 16, XY = 8
LDX #$80 : STX $2100 ; turn the screen off (required)
LDX #$80 : STX $2115 ; Set the video port register every time we write it increase by 1
LDA #$5000 : STA $2116 ; Destination of the DMA $5800 in vram <- this need to be divided by 2
LDA #$1801 : STA $4300 ; DMA Transfer Mode and destination register
; "001 => 2 registers write once (2 bytes: p, p+1)"
CPY #$01 : BEQ .phase2
LDA.w #KydreeokGraphics : STA $4302
LDX.b #KydreeokGraphics>>16 : STX $4304
JMP .continue
.phase2
LDA.w #KydreeokPhase2Graphics : STA $4302
LDX.b #KydreeokPhase2Graphics>>16 : STX $4304
.continue
LDA #$2000 : STA $4305 ; Size of the transfer 4 sheets of $800 each
LDX #$01 : STX $420B ; Do the DMA
LDX #$0F : STX $2100 ; Turn the screen back on
SEP #$30
PLX
RTS
KydreeokGraphics:
incbin kydreeok.bin

262
Sprites/Bosses/kydreeok_head.asm
View File

@@ -12,7 +12,7 @@
!DeathAnimation = 00 ; 00 = normal death, 01 = no death animation
!ImperviousAll = 00 ; 00 = Can be attack, 01 = attack will clink on it
!SmallShadow = 00 ; 01 = small shadow, 00 = no shadow
!Shadow = 00 ; 00 = don't draw shadow, 01 = draw a shadow
!Shadow = 00 ; 00 = don't draw shadow, 01 = draw a shadow
!Palette = 00 ; Unused in this template (can be 0 to 7)
!Hitbox = 09 ; 00 to 31, can be viewed in sprite draw tool
!Persist = 00 ; 01 = your sprite continue to live offscreen
@@ -30,9 +30,7 @@
!ImperviousArrow = 00 ; 01 = Impervious to arrows
!ImpervSwordHammer = 00 ; 01 = Impervious to sword and hammer attacks
!Boss = 00 ; 00 = normal sprite, 01 = sprite is a boss
%Set_Sprite_Properties(Sprite_KydreeokHead_Prep, Sprite_KydreeokHead_Long);
; =========================================================
%Set_Sprite_Properties(Sprite_KydreeokHead_Prep, Sprite_KydreeokHead_Long)
Sprite_KydreeokHead_Long:
{
@@ -57,7 +55,7 @@ Sprite_KydreeokHead_Prep:
PHB : PHK : PLB
LDA.b #$C0 : STA.w SprHealth, X
LDA.b #$09 : STA.w SprBump, X ; bump damage type
LDA.b #$09 : STA.w SprBump, X ; bump damage type
STZ.w SprMiscE, X
PLB
@@ -86,54 +84,54 @@ Sprite_KydreeokHead_Main:
; 0x00
KydreeokHead_ForwardAnim:
{
%StartOnFrame(0)
%PlayAnimation(0,2,10)
%StartOnFrame(0)
%PlayAnimation(0,2,10)
PHX
JSL Sprite_CheckDamageFromPlayer
%DoDamageToPlayerSameLayerOnContact()
PLX
PHX
JSL Sprite_CheckDamageFromPlayer
%DoDamageToPlayerSameLayerOnContact()
PLX
JSR KydreeokHead_RotationMove
JSR RandomlyAttack
JSR KydreeokHead_RotationMove
JSR RandomlyAttack
LDA.b #$20 : STA.w SprTimerA, X
JSL Sprite_IsToRightOfPlayer : TYA : BNE .not_right
JSR GetDistance8bit : CMP #$0B : BCC .not_far
%GotoAction(3)
RTS
.not_far
%GotoAction(1)
LDA.b #$20 : STA.w SprTimerA, X
JSL Sprite_IsToRightOfPlayer : TYA : BNE .not_right
JSR GetDistance8bit : CMP #$0B : BCC .not_far
%GotoAction(3)
RTS
.not_right
JSR GetDistance8bit : CMP #$0B : BCC .not_far2
%GotoAction(4)
RTS
.not_far2
%GotoAction(2)
.not_far
%GotoAction(1)
RTS
.not_right
JSR GetDistance8bit : CMP #$0B : BCC .not_far2
%GotoAction(4)
RTS
.not_far2
%GotoAction(2)
RTS
}
; -------------------------------------------------------
; 0x01
KydreeokHead_RightAnim:
{
%StartOnFrame(3)
%PlayAnimation(3,5,10)
%StartOnFrame(3)
%PlayAnimation(3,5,10)
PHX
JSL Sprite_CheckDamageFromPlayer
%DoDamageToPlayerSameLayerOnContact()
PLX
JSR KydreeokHead_RotationMove
JSR RandomlyAttack
PHX
JSL Sprite_CheckDamageFromPlayer
%DoDamageToPlayerSameLayerOnContact()
PLX
JSL Sprite_IsToRightOfPlayer : TYA : BNE .not_right
RTS
.not_right
%GotoAction(0)
JSR KydreeokHead_RotationMove
JSR RandomlyAttack
JSL Sprite_IsToRightOfPlayer : TYA : BNE .not_right
RTS
.not_right
%GotoAction(0)
RTS
}
; -------------------------------------------------------
@@ -203,7 +201,7 @@ Sprite_KydreeokHead_Main:
JSR Sprite_Twinrova_FireAttack
JSL Sprite_Move
LDA.w SprTimerA, X : BNE .not_done
LDA #$00 : STA $0DD0, X
.not_done
@@ -241,7 +239,6 @@ KydreeokHead_RotationMove:
; LDA.b #$01 : STA.w SprMiscE, X
; LDA.b #$10 : STA.w SprTimerE, X
; .no_independent
RTS
}
@@ -251,15 +248,14 @@ Sprite_KydreeokHead_Damage_Flash:
; Change the palette to the next in the cycle
LDA.w $0EB0, X : INC : CMP.b #$08 : BNE .dontReset
LDA.b #$00
.dontReset
STA.w $0EB0, X
BRA .flash
.dontFlash
.dontFlash
STZ.w $0EB0, X
.flash
.flash
RTS
}
@@ -267,21 +263,21 @@ Sprite_KydreeokHead_Damage_Flash:
CoordinateBasedRotation:
{
LDA.w Neck_Index : TAY
; JSL GetRandomInt : AND #$04 : TAY
LDA.w X_Coords, Y : STA.w Neck1_OffsetX
LDA.w X_Coords, Y : STA.w Neck2_OffsetX
LDA.w X_Coords, Y : STA.w Neck3_OffsetX
LDA.w Y_Coords, Y : STA.w Neck1_OffsetY
LDA.w Y_Coords, Y : STA.w Neck2_OffsetY
LDA.w Y_Coords, Y : STA.w Neck3_OffsetY
JSL GetRandomInt : AND #$3F : BNE .dont_increment
INC.w Neck_Index
LDA.w Neck_Index : TAY
; JSL GetRandomInt : AND #$04 : TAY
LDA.w X_Coords, Y : STA.w Neck1_OffsetX
LDA.w X_Coords, Y : STA.w Neck2_OffsetX
LDA.w X_Coords, Y : STA.w Neck3_OffsetX
LDA.w Y_Coords, Y : STA.w Neck1_OffsetY
LDA.w Y_Coords, Y : STA.w Neck2_OffsetY
LDA.w Y_Coords, Y : STA.w Neck3_OffsetY
JSL GetRandomInt : AND #$3F : BNE .dont_increment
INC.w Neck_Index
.dont_increment
CPY #15 : BNE .not_full
LDA #0 : STA.w Neck_Index
CPY #15 : BNE .not_full
LDA #0 : STA.w Neck_Index
.not_full
RTS
RTS
}
; Table for X coordinates (based on a radius of 8)
@@ -308,7 +304,6 @@ RotateHeadUsingSpeedValues:
.not_full
STY.w Neck_Index
JSL Sprite_MoveLong
RTS
}
@@ -364,14 +359,14 @@ MoveWithBody:
STA.w SprMiscA, X
STA.w $19EA : DEC
STA.w $19EC : DEC
STA.w $19EE
STA.w $19EE
; STA.w SprX, X
LDA.w SprY, Y : SEC : SBC #$0F
STA.w SprMiscB, X
STA.w $19EB
; STA.w $19ED
; STA.w $19EF
; STA.w $19EF
; STA.w SprY, X
RTS
@@ -380,11 +375,10 @@ MoveWithBody:
STA.w SprMiscA, X
STA.w $19F0 : INC
STA.w $19F2 : INC
STA.w $19F4
STA.w $19F4
; STA.w SprX, X
LDA.w SprY, Y : SEC : SBC #$0F
; STA.w SprY, X
STA.w SprMiscB, X
STA.w $19F1
@@ -419,8 +413,8 @@ Neck1_Control:
LDA.w SprXH, X : STA $05 ; dest XH
LDA.w SprY, X : STA $06 ; dest Y
LDA.w SprYH, X : STA $07 ; dest YH
;load body position into sprite position
; load body position into sprite position
LDA.w $19EA : STA.w SprX, X
LDA.w $19EB : STA.w SprY, X
@@ -429,7 +423,7 @@ Neck1_Control:
LDA.b $01 : STA.w SprXSpeed, X
LDA.b $00 : STA.w SprYSpeed, X
JSL Sprite_MoveLong
LDA.w SprX, X : STA.w $19EA
LDA.w SprY, X : STA.w $19EB
@@ -439,7 +433,7 @@ Neck1_Control:
LDA.w $19EC : STA $02 ; x
LDA.w $19ED : STA $03 ; y
LDA.w $19EA : STA $04
LDA.w $19EB : STA $05
JSR GetDistance8bit : CMP #$0D : BCC .TooCloseToBodyPart1 ; is body1 too close to the head?
@@ -448,7 +442,7 @@ Neck1_Control:
LDA.w SprXH, X : STA $05 ; dest XH
LDA.w $19EB : STA $06 ; dest Y
LDA.w SprYH, X : STA $07 ; dest YH
;load body position into sprite position
LDA.w $19EC : STA.w SprX, X
LDA.w $19ED : STA.w SprY, X
@@ -502,38 +496,38 @@ Neck1_Control:
Neck2_Control:
{
; Set head pos
LDA $19F4 : STA.w SprX, X
LDA $19F5 : STA.w SprY, X
; Set head pos
LDA $19F4 : STA.w SprX, X
LDA $19F5 : STA.w SprY, X
LDA.w SprX, X : STA.w SprMiscC, X
LDA.w SprY, X : STA.w SprMiscD, X
LDA.w SprXSpeed, X : STA $08
LDA.w SprYSpeed, X : STA $09
LDA.w SprX, X : STA.w SprMiscC, X
LDA.w SprY, X : STA.w SprMiscD, X
LDA.w SprXSpeed, X : STA $08
LDA.w SprYSpeed, X : STA $09
LDA.w $19F0 : STA $02 ; x
LDA.w $19F1 : STA $03 ; y
LDA.w SprX, X : STA $04
LDA.w SprY, X : STA $05
JSR GetDistance8bit : CMP #$08 : BCC .TooCloseToHead2 ; is body1 too close to the head?
LDA.w SprX, X : STA $04 ; dest X
LDA.w SprXH, X : STA $05 ; dest XH
LDA.w SprY, X : STA $06 ; dest Y
LDA.w SprYH, X : STA $07 ; dest YH
; load body position into sprite position
LDA.w $19F0 : STA.w SprX, X
LDA.w $19F1 : STA.w SprY, X
LDA.w $19F0 : STA $02 ; x
LDA.w $19F1 : STA $03 ; y
LDA #$08
JSL Sprite_ProjectSpeedTowardsEntityLong
LDA.b $01 : STA.w SprXSpeed, X
LDA.b $00 : STA.w SprYSpeed, X
JSL Sprite_MoveLong
LDA.w SprX, X : STA.w $19F0
LDA.w SprY, X : STA.w $19F1
LDA.w SprX, X : STA $04
LDA.w SprY, X : STA $05
JSR GetDistance8bit : CMP #$08 : BCC .TooCloseToHead2 ; is body1 too close to the head?
LDA.w SprX, X : STA $04 ; dest X
LDA.w SprXH, X : STA $05 ; dest XH
LDA.w SprY, X : STA $06 ; dest Y
LDA.w SprYH, X : STA $07 ; dest YH
; load body position into sprite position
LDA.w $19F0 : STA.w SprX, X
LDA.w $19F1 : STA.w SprY, X
.TooCloseToHead2
LDA #$08
JSL Sprite_ProjectSpeedTowardsEntityLong
LDA.b $01 : STA.w SprXSpeed, X
LDA.b $00 : STA.w SprYSpeed, X
JSL Sprite_MoveLong
LDA.w SprX, X : STA.w $19F0
LDA.w SprY, X : STA.w $19F1
.TooCloseToHead2
LDA.w $19F2 : STA $02 ; x
LDA.w $19F3 : STA $03 ; y
@@ -563,7 +557,7 @@ Neck2_Control:
; Do body part 2
LDA.w $19F4 : STA $02 ; x
LDA.w $19F5 : STA $03 ; y
LDA.w $19F2 : STA $04
LDA.w $19F3 : STA $05
JSR GetDistance8bit : CMP #$14 : BCC .TooCloseToBodyPart22 ; is body1 too close to the head?
@@ -595,11 +589,11 @@ Neck2_Control:
KydreeokHead_NeckControl:
{
LDA.w SprSubtype, X : BEQ .DoNeck1
LDA.w SprSubtype, X : BEQ .DoNeck1
JMP .DoNeck2
.DoNeck1
JSR Neck1_Control
RTS
JSR Neck1_Control
RTS
.DoNeck2
JSR Neck2_Control
@@ -669,11 +663,11 @@ Sprite_KydreeokHead_DrawNeck:
STA $0E
.on_screen_y2
INY
LDA #$2E : STA ($90), Y ; Set the Char
LDA #$2E : STA ($90), Y ; Set the Char
INY
LDA #$39 : ORA $08 : STA ($90), Y ; Set the Properties
PHY
PHY
TYA : LSR #2 : TAY
LDA #$02 : ORA $0F : STA ($92), Y ; store size in oam buffer
PLY : INY
@@ -685,54 +679,52 @@ Sprite_KydreeokHead_DrawNeck:
Sprite_KydreeokHead_Draw:
{
JSL Sprite_PrepOamCoord
JSL Sprite_OAM_AllocateDeferToPlayer
JSL Sprite_PrepOamCoord
JSL Sprite_OAM_AllocateDeferToPlayer
LDA $0DC0, X : CLC : ADC $0D90, X : TAY;Animation Frame
LDA .start_index, Y : STA $06
LDA $0DC0, X : CLC : ADC $0D90, X : TAY;Animation Frame
LDA .start_index, Y : STA $06
LDA.w $0EB0, X : STA $08
LDA.w $0EB0, X : STA $08
PHX
; amount of tiles - 1
LDX .nbr_of_tiles, Y : LDY.b #$00
PHX
; amount of tiles - 1
LDX .nbr_of_tiles, Y : LDY.b #$00
.next_tile
PHX ; Save current Tile Index?
; Add Animation Index Offset
TXA : CLC : ADC $06
PHX ; Save current Tile Index?
; Add Animation Index Offset
TXA : CLC : ADC $06
; Keep the value with animation index offset?
PHA : ASL A : TAX
; Keep the value with animation index offset?
PHA : ASL A : TAX
REP #$20
REP #$20
LDA $00 : CLC : ADC .x_offsets, X : STA ($90), Y
AND.w #$0100 : STA $0E : INY
LDA $02 : CLC : ADC .y_offsets, X : STA ($90), Y
CLC : ADC #$0010 : CMP.w #$0100
SEP #$20
BCC .on_screen_y
LDA $00 : CLC : ADC .x_offsets, X : STA ($90), Y
AND.w #$0100 : STA $0E : INY
LDA $02 : CLC : ADC .y_offsets, X : STA ($90), Y
CLC : ADC #$0010 : CMP.w #$0100
SEP #$20
BCC .on_screen_y
LDA.b #$F0 : STA ($90), Y ;Put the sprite out of the way
STA $0E
LDA.b #$F0 : STA ($90), Y ;Put the sprite out of the way
STA $0E
.on_screen_y
PLX ; Pullback Animation Index Offset (without the *2 not 16bit anymore)
INY : LDA .chr, X : STA ($90), Y : INY
LDA .properties, X : ORA $08 : STA ($90), Y
PLX ; Pullback Animation Index Offset (without the *2 not 16bit anymore)
INY : LDA .chr, X : STA ($90), Y : INY
LDA .properties, X : ORA $08 : STA ($90), Y
PHY
TYA : LSR #2 : TAY
LDA .sizes, X : ORA $0F : STA ($92), Y ; store size in oam buffer
PLY : INY
PLX : DEX : BPL .next_tile
PHY
TYA : LSR #2 : TAY
LDA .sizes, X : ORA $0F : STA ($92), Y ; store size in oam buffer
PLY : INY
PLX : DEX : BPL .next_tile
PLX
PLX
JMP Sprite_KydreeokHead_DrawNeck
JMP Sprite_KydreeokHead_DrawNeck
.start_index
db $00, $02, $04, $06, $0A, $0E, $12, $16, $1A, $1E, $22, $26, $2A, $2E, $32, $36