2014-05-18 18:19:10 +00:00
|
|
|
VermilionDockScript: ; 1db52 (7:5b52)
|
|
|
|
call EnableAutoTextBoxDrawing
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wd803
|
2014-05-18 18:19:10 +00:00
|
|
|
bit 4, [hl]
|
|
|
|
jr nz, .asm_1db8d ; 0x1db5a $31
|
|
|
|
bit 0, [hl]
|
|
|
|
ret z
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wd42f]
|
2014-05-18 18:19:10 +00:00
|
|
|
cp $1
|
|
|
|
ret nz
|
|
|
|
bit 2, [hl]
|
|
|
|
jp z, VermilionDock_1db9b
|
|
|
|
set 4, [hl]
|
|
|
|
call Delay3
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wd730
|
2014-05-18 18:19:10 +00:00
|
|
|
set 7, [hl]
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wccd3
|
2014-05-18 18:19:10 +00:00
|
|
|
ld a, $40
|
|
|
|
ld [hli], a
|
|
|
|
ld [hli], a
|
|
|
|
ld [hl], a
|
|
|
|
ld a, $3
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wcd38], a
|
2014-05-18 18:19:10 +00:00
|
|
|
xor a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wSpriteStateData2 + $06], a
|
|
|
|
ld [wcd3b], a
|
2014-05-18 18:19:10 +00:00
|
|
|
dec a
|
2014-05-25 17:51:53 +00:00
|
|
|
ld [wJoyIgnore], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ret
|
|
|
|
.asm_1db8d
|
|
|
|
bit 5, [hl]
|
|
|
|
ret nz
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wcd38]
|
2014-05-18 18:19:10 +00:00
|
|
|
and a
|
|
|
|
ret nz
|
2014-05-25 17:51:53 +00:00
|
|
|
ld [wJoyIgnore], a
|
2014-05-18 18:19:10 +00:00
|
|
|
set 5, [hl]
|
|
|
|
ret
|
|
|
|
|
|
|
|
VermilionDock_1db9b: ; 1db9b (7:5b9b)
|
|
|
|
set 2, [hl]
|
|
|
|
ld a, $ff
|
2014-05-25 17:51:53 +00:00
|
|
|
ld [wJoyIgnore], a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wc0ee], a
|
2014-05-18 18:19:10 +00:00
|
|
|
call PlaySound
|
|
|
|
ld c, BANK(Music_Surfing)
|
|
|
|
ld a, MUSIC_SURFING
|
|
|
|
call PlayMusic
|
2014-05-19 14:38:20 +00:00
|
|
|
callba LoadSmokeTileFourTimes
|
2014-05-18 18:19:10 +00:00
|
|
|
xor a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wSpriteStateData1 + 2], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld c, $78
|
|
|
|
call DelayFrames
|
|
|
|
ld b, $9c
|
|
|
|
call CopyScreenTileBufferToVRAM
|
2014-06-25 20:58:27 +00:00
|
|
|
hlCoord 0, 10
|
2014-05-18 18:19:10 +00:00
|
|
|
ld bc, $0078
|
|
|
|
ld a, $14
|
|
|
|
call FillMemory
|
|
|
|
ld a, $1
|
|
|
|
ld [$ffba], a
|
|
|
|
call Delay3
|
|
|
|
xor a
|
|
|
|
ld [$ffba], a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wWhichTrade], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld [$ff49], a
|
|
|
|
ld a, $58
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wTrainerEngageDistance], a
|
|
|
|
ld hl, wd526
|
2014-05-18 18:19:10 +00:00
|
|
|
ld c, [hl]
|
|
|
|
inc hl
|
|
|
|
ld b, [hl]
|
|
|
|
push bc
|
|
|
|
push hl
|
|
|
|
ld a, (SFX_02_54 - SFX_Headers_02) / 3
|
|
|
|
call PlaySoundWaitForCurrent
|
|
|
|
ld a, $ff
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wcfcb], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld d, $0
|
|
|
|
ld e, $8
|
|
|
|
.asm_1dbfa
|
|
|
|
ld hl, $0002
|
|
|
|
add hl, bc
|
|
|
|
ld a, l
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wd526], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld a, h
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wd527], a
|
2014-05-18 18:19:10 +00:00
|
|
|
push hl
|
|
|
|
push de
|
|
|
|
call ScheduleEastColumnRedraw
|
|
|
|
call VermilionDock_1dc59
|
|
|
|
pop de
|
|
|
|
ld b, $10
|
|
|
|
.asm_1dc11
|
|
|
|
call VermilionDock_1dc42
|
|
|
|
ld c, $8
|
|
|
|
.asm_1dc16
|
|
|
|
call VermilionDock_1dc7c
|
|
|
|
dec c
|
|
|
|
jr nz, .asm_1dc16 ; 0x1dc1a $fa
|
|
|
|
inc d
|
|
|
|
dec b
|
|
|
|
jr nz, .asm_1dc11 ; 0x1dc1e $f1
|
|
|
|
pop bc
|
|
|
|
dec e
|
|
|
|
jr nz, .asm_1dbfa ; 0x1dc22 $d6
|
|
|
|
xor a
|
|
|
|
ld [$ff4a], a
|
|
|
|
ld [$ffb0], a
|
|
|
|
call VermilionDock_1dc94
|
|
|
|
ld a, $90
|
|
|
|
ld [$ffb0], a
|
|
|
|
ld a, $1
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wcfcb], a
|
2014-05-18 18:19:10 +00:00
|
|
|
pop hl
|
|
|
|
pop bc
|
|
|
|
ld [hl], b
|
|
|
|
dec hl
|
|
|
|
ld [hl], c
|
|
|
|
call LoadPlayerSpriteGraphics
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wd3ae
|
2014-05-18 18:19:10 +00:00
|
|
|
dec [hl]
|
|
|
|
ret
|
|
|
|
|
|
|
|
VermilionDock_1dc42: ; 1dc42 (7:5c42)
|
|
|
|
push bc
|
|
|
|
push de
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wOAMBuffer + $11
|
|
|
|
ld a, [wWhichTrade]
|
2014-05-18 18:19:10 +00:00
|
|
|
swap a
|
|
|
|
ld c, a
|
|
|
|
ld de, $0004
|
|
|
|
.asm_1dc50
|
|
|
|
inc [hl]
|
|
|
|
inc [hl]
|
|
|
|
add hl, de
|
|
|
|
dec c
|
|
|
|
jr nz, .asm_1dc50 ; 0x1dc54 $fa
|
|
|
|
pop de
|
|
|
|
pop bc
|
|
|
|
ret
|
|
|
|
|
|
|
|
VermilionDock_1dc59: ; 1dc59 (7:5c59)
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wTrainerEngageDistance]
|
2014-05-18 18:19:10 +00:00
|
|
|
sub $10
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wTrainerEngageDistance], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld c, a
|
|
|
|
ld b, $64
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wWhichTrade]
|
2014-05-18 18:19:10 +00:00
|
|
|
inc a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wWhichTrade], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld a, $1
|
|
|
|
ld de, VermilionDockOAMBlock
|
|
|
|
call WriteOAMBlock
|
|
|
|
ret
|
|
|
|
|
|
|
|
VermilionDockOAMBlock: ; 1dc74 (7:5c74)
|
|
|
|
db $fc, $10
|
|
|
|
db $fd, $10
|
|
|
|
db $fe, $10
|
|
|
|
db $ff, $10
|
|
|
|
|
|
|
|
VermilionDock_1dc7c: ; 1dc7c (7:5c7c)
|
|
|
|
ld h, d
|
|
|
|
ld l, $50
|
|
|
|
call .asm_1dc86
|
|
|
|
ld h, $0
|
|
|
|
ld l, $80
|
|
|
|
.asm_1dc86
|
|
|
|
ld a, [$ff44]
|
|
|
|
cp l
|
|
|
|
jr nz, .asm_1dc86 ; 0x1dc89 $fb
|
|
|
|
ld a, h
|
|
|
|
ld [$ff43], a
|
|
|
|
.asm_1dc8e
|
|
|
|
ld a, [$ff44]
|
|
|
|
cp h
|
|
|
|
jr z, .asm_1dc8e ; 0x1dc91 $fb
|
|
|
|
ret
|
|
|
|
|
|
|
|
VermilionDock_1dc94: ; 1dc94 (7:5c94)
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wcc5b
|
2014-05-18 18:19:10 +00:00
|
|
|
ld bc, $00b4
|
|
|
|
ld a, $14
|
|
|
|
call FillMemory
|
2014-05-29 08:31:46 +00:00
|
|
|
ld hl, vBGMap0 + 10 * 32
|
2014-05-26 21:04:56 +00:00
|
|
|
ld de, wcc5b
|
2014-05-18 18:19:10 +00:00
|
|
|
ld bc, $000c
|
|
|
|
call CopyVideoData
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wOverworldMap + 10 + 7 * VERMILION_DOCK_WIDTH ; 10, 7
|
2014-05-18 18:19:10 +00:00
|
|
|
ld a, $d
|
|
|
|
ld [hli], a
|
|
|
|
ld [hli], a
|
|
|
|
ld [hli], a
|
|
|
|
ld [hl], a
|
|
|
|
ld a, (SFX_02_54 - SFX_Headers_02) / 3
|
|
|
|
call PlaySound
|
|
|
|
ld c, $78
|
|
|
|
call DelayFrames
|
|
|
|
ret
|
|
|
|
|
|
|
|
VermilionDockTextPointers: ; 1dcbf (7:5cbf)
|
|
|
|
dw VermilionDockText1
|
|
|
|
|
|
|
|
VermilionDockText1: ; 1dcc1 (7:5cc1)
|
|
|
|
TX_FAR _VermilionDockText1
|
|
|
|
db "@"
|