thorn/kep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/kep-hack.git synced 2026-02-21 22:52:15 +13:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'master' of https://github.com/pret/pokered

Browse source
This commit is contained in:
dannye 2021-03-23 00:53:43 -05:00
commit e8dd755e18
3702 changed files with 163333 additions and 159040 deletions
Download patch file Download diff file Expand all files Collapse all files

41
scripts/VermilionDock.asm Executable file → Normal file
View file

@ -21,7 +21,7 @@ VermilionDock_Script:
ld a, $3
ld [wSimulatedJoypadStatesIndex], a
xor a
ld [wSpriteStateData2 + $06], a
ld [wSpritePlayerStateData2MovementByte1], a
ld [wOverrideSimulatedJoypadStatesMask], a
dec a
ld [wJoyIgnore], a
@ -38,31 +38,31 @@ VermilionDock_Script:
VermilionDock_1db9b:
SetEventForceReuseHL EVENT_SS_ANNE_LEFT
ld a, $ff
ld a, SFX_STOP_ALL_MUSIC
ld [wJoyIgnore], a
ld [wNewSoundID], a
call PlaySound
ld c, 0 ; BANK(Music_Surfing)
ld a, MUSIC_SURFING
call PlayMusic
callba LoadSmokeTileFourTimes
farcall LoadSmokeTileFourTimes
xor a
ld [wSpriteStateData1 + 2], a
ld [wSpritePlayerStateData1ImageIndex], a
ld c, 120
call DelayFrames
ld b, $9c
call CopyScreenTileBufferToVRAM
coord hl, 0, 10
hlcoord 0, 10
ld bc, SCREEN_WIDTH * 6
ld a, $14 ; water tile
call FillMemory
ld a, 1
ld [H_AUTOBGTRANSFERENABLED], a
ldh [hAutoBGTransferEnabled], a
call Delay3
xor a
ld [H_AUTOBGTRANSFERENABLED], a
ldh [hAutoBGTransferEnabled], a
ld [wSSAnneSmokeDriftAmount], a
ld [rOBP1], a
ldh [rOBP1], a
ld a, 88
ld [wSSAnneSmokeX], a
ld hl, wMapViewVRAMPointer
@ -78,7 +78,7 @@ VermilionDock_1db9b:
ld d, $0
ld e, $8
.asm_1dbfa
ld hl, $0002
ld hl, $2
add hl, bc
ld a, l
ld [wMapViewVRAMPointer], a
@ -104,11 +104,11 @@ VermilionDock_1db9b:
dec e
jr nz, .asm_1dbfa
xor a
ld [rWY], a
ld [hWY], a
ldh [rWY], a
ldh [hWY], a
call VermilionDock_EraseSSAnne
ld a, $90
ld [hWY], a
ldh [hWY], a
ld a, $1
ld [wUpdateSpritesEnabled], a
pop hl
@ -124,7 +124,7 @@ VermilionDock_1db9b:
VermilionDock_AnimSmokePuffDriftRight:
push bc
push de
ld hl, wOAMBuffer + $11
ld hl, wOAMBuffer + 4 * $4 + 1 ; x coord
ld a, [wSSAnneSmokeDriftAmount]
swap a
ld c, a
@ -155,6 +155,7 @@ VermilionDock_EmitSmokePuff:
ret
VermilionDockOAMBlock:
; tile id, attribute
db $fc, $10
db $fd, $10
db $fe, $10
@ -167,13 +168,13 @@ VermilionDock_1dc7c:
ld h, $0
ld l, $80
.asm_1dc86
ld a, [rLY]
ldh a, [rLY]
cp l
jr nz, .asm_1dc86
ld a, h
ld [rSCX], a
ldh [rSCX], a
.asm_1dc8e
ld a, [rLY]
ldh a, [rLY]
cp h
jr z, .asm_1dc8e
ret
@ -184,7 +185,7 @@ VermilionDock_EraseSSAnne:
ld bc, (5 * BG_MAP_WIDTH) + SCREEN_WIDTH
ld a, $14 ; water tile
call FillMemory
ld hl, vBGMap0 + 10 * BG_MAP_WIDTH
hlbgcoord 0, 10
ld de, wVermilionDockTileMapBuffer
ld bc, (6 * BG_MAP_WIDTH) / 16
call CopyVideoData
@ -194,7 +195,7 @@ VermilionDock_EraseSSAnne:
; the blocks is unnecessary because the blocks the ship occupies are south of
; the player and won't be redrawn when the player automatically walks north and
; exits the map. This code could be removed without affecting anything.
overworldMapCoord hl, 5, 2, VERMILION_DOCK_WIDTH
hlowcoord 5, 2, VERMILION_DOCK_WIDTH
ld a, $d ; water block
ld [hli], a
ld [hli], a
@ -211,5 +212,5 @@ VermilionDock_TextPointers:
dw VermilionDockText1
VermilionDockText1:
TX_FAR _VermilionDockText1
db "@"
text_far _VermilionDockText1
text_end