mirror of
https://github.com/pret/pokered.git
synced 2026-04-20 14:08:41 -05:00
bd533aa79b
Using 'Coord =' doesn't like using wTileMap So use hlCoord, deCoord, bcCoord, aCoord, Coorda, or dwCoord to avoid static addresses
233 lines
4.4 KiB
NASM
Executable File
233 lines
4.4 KiB
NASM
Executable File
SetDefaultNames: ; 60ca (1:60ca)
|
|
ld a, [wd358]
|
|
push af
|
|
ld a, [W_OPTIONS] ; W_OPTIONS
|
|
push af
|
|
ld a, [wd732]
|
|
push af
|
|
ld hl, wPlayerName ; wd158
|
|
ld bc, $d8a
|
|
xor a
|
|
call FillMemory
|
|
ld hl, wSpriteStateData1
|
|
ld bc, $200
|
|
xor a
|
|
call FillMemory
|
|
pop af
|
|
ld [wd732], a
|
|
pop af
|
|
ld [W_OPTIONS], a ; W_OPTIONS
|
|
pop af
|
|
ld [wd358], a
|
|
ld a, [wd08a]
|
|
and a
|
|
call z, Func_5bff
|
|
ld hl, NintenText
|
|
ld de, wPlayerName ; wd158
|
|
ld bc, $b
|
|
call CopyData
|
|
ld hl, SonyText
|
|
ld de, W_RIVALNAME ; wd34a
|
|
ld bc, $b
|
|
jp CopyData
|
|
|
|
OakSpeech: ; 6115 (1:6115)
|
|
ld a,$FF
|
|
call PlaySound ; stop music
|
|
ld a, BANK(Music_Routes2) ; bank of song
|
|
ld c,a
|
|
ld a, MUSIC_ROUTES2 ; song #
|
|
call PlayMusic ; plays music
|
|
call ClearScreen
|
|
call LoadTextBoxTilePatterns
|
|
call SetDefaultNames
|
|
predef InitPlayerData2
|
|
ld hl,wNumBoxItems
|
|
ld a,POTION
|
|
ld [wcf91],a
|
|
ld a,1
|
|
ld [wcf96],a
|
|
call AddItemToInventory ; give one potion
|
|
ld a,[W_ANIMATIONID]
|
|
ld [wd71a],a
|
|
call Func_62ce
|
|
xor a
|
|
ld [$FFD7],a
|
|
ld a,[wd732]
|
|
bit 1,a ; XXX when is bit 1 set?
|
|
jp nz,Func_61bc ; easter egg: skip the intro
|
|
ld de,ProfOakPic
|
|
ld bc, (Bank(ProfOakPic) << 8) | $00
|
|
call IntroPredef3B ; displays Oak pic?
|
|
call FadeInIntroPic
|
|
ld hl,OakSpeechText1
|
|
call PrintText ; prints text box
|
|
call GBFadeOut2
|
|
call ClearScreen
|
|
ld a,NIDORINO
|
|
ld [wd0b5],a ; pic displayed is stored at this location
|
|
ld [wcf91],a
|
|
call GetMonHeader ; this is also related to the pic
|
|
hlCoord 6, 4 ; position on tilemap the pic is displayed
|
|
call LoadFlippedFrontSpriteByMonIndex ; displays pic?
|
|
call MovePicLeft
|
|
ld hl,OakSpeechText2
|
|
call PrintText ; Prints text box
|
|
call GBFadeOut2
|
|
call ClearScreen
|
|
ld de,RedPicFront
|
|
ld bc,(Bank(RedPicFront) << 8) | $00
|
|
call IntroPredef3B ; displays player pic?
|
|
call MovePicLeft
|
|
ld hl,IntroducePlayerText
|
|
call PrintText
|
|
call LoadDefaultNamesPlayer ; brings up NewName/Red/etc menu
|
|
call GBFadeOut2
|
|
call ClearScreen
|
|
ld de,Rival1Pic
|
|
ld bc,(Bank(Rival1Pic) << 8) | $00
|
|
call IntroPredef3B ; displays rival pic
|
|
call FadeInIntroPic
|
|
ld hl,IntroduceRivalText
|
|
call PrintText
|
|
call LoadDefaultNamesRival
|
|
|
|
Func_61bc: ; 61bc (1:61bc)
|
|
call GBFadeOut2
|
|
call ClearScreen
|
|
ld de,RedPicFront
|
|
ld bc,(Bank(RedPicFront) << 8) | $00
|
|
call IntroPredef3B
|
|
call GBFadeIn2
|
|
ld a,[wd72d]
|
|
and a
|
|
jr nz,.next
|
|
ld hl,OakSpeechText3
|
|
call PrintText
|
|
.next
|
|
ld a,[H_LOADEDROMBANK]
|
|
push af
|
|
ld a,(SFX_02_48 - SFX_Headers_02) / 3
|
|
call PlaySound
|
|
pop af
|
|
ld [H_LOADEDROMBANK],a
|
|
ld [$2000],a
|
|
ld c,4
|
|
call DelayFrames
|
|
ld de,RedSprite ; $4180
|
|
ld hl,vSprites
|
|
ld bc,(BANK(RedSprite) << 8) | $0C
|
|
call CopyVideoData
|
|
ld de,ShrinkPic1
|
|
ld bc,(BANK(ShrinkPic1) << 8) | $00
|
|
call IntroPredef3B
|
|
ld c,4
|
|
call DelayFrames
|
|
ld de,ShrinkPic2
|
|
ld bc,(BANK(ShrinkPic2) << 8) | $00
|
|
call IntroPredef3B
|
|
call ResetPlayerSpriteData
|
|
ld a,[H_LOADEDROMBANK]
|
|
push af
|
|
ld a, BANK(Music_PalletTown)
|
|
ld [wc0ef],a
|
|
ld [wc0f0],a
|
|
ld a,$A
|
|
ld [wMusicHeaderPointer],a
|
|
ld a,$FF
|
|
ld [wc0ee],a
|
|
call PlaySound ; stop music
|
|
pop af
|
|
ld [H_LOADEDROMBANK],a
|
|
ld [$2000],a
|
|
ld c,$14
|
|
call DelayFrames
|
|
hlCoord 6, 5
|
|
ld b,7
|
|
ld c,7
|
|
call ClearScreenArea
|
|
call LoadTextBoxTilePatterns
|
|
ld a,1
|
|
ld [wcfcb],a
|
|
ld c,$32
|
|
call DelayFrames
|
|
call GBFadeOut2
|
|
jp ClearScreen
|
|
OakSpeechText1: ; 6253 (1:6253)
|
|
TX_FAR _OakSpeechText1
|
|
db "@"
|
|
OakSpeechText2: ; 6258 (1:6258)
|
|
TX_FAR _OakSpeechText2A
|
|
db $14 ; play NIDORINA cry from TextCommandSounds
|
|
TX_FAR _OakSpeechText2B
|
|
db "@"
|
|
IntroducePlayerText: ; 6262 (1:6262)
|
|
TX_FAR _IntroducePlayerText
|
|
db "@"
|
|
IntroduceRivalText: ; 6267 (1:6267)
|
|
TX_FAR _IntroduceRivalText
|
|
db "@"
|
|
OakSpeechText3: ; 626c (1:626c)
|
|
TX_FAR _OakSpeechText3
|
|
db "@"
|
|
|
|
FadeInIntroPic: ; 6271 (1:6271)
|
|
ld hl,IntroFadePalettes
|
|
ld b,6
|
|
.next
|
|
ld a,[hli]
|
|
ld [rBGP],a
|
|
ld c,10
|
|
call DelayFrames
|
|
dec b
|
|
jr nz,.next
|
|
ret
|
|
|
|
IntroFadePalettes: ; 6282 (1:6282)
|
|
db %01010100
|
|
db %10101000
|
|
db %11111100
|
|
db %11111000
|
|
db %11110100
|
|
db %11100100
|
|
|
|
MovePicLeft: ; 6288 (1:6288)
|
|
ld a,119
|
|
ld [$FF4B],a
|
|
call DelayFrame
|
|
|
|
ld a,$E4
|
|
ld [rBGP],a
|
|
.next
|
|
call DelayFrame
|
|
ld a,[$FF4B]
|
|
sub 8
|
|
cp $FF
|
|
ret z
|
|
ld [$FF4B],a
|
|
jr .next
|
|
|
|
Predef3B: ; 62a1 (1:62a1)
|
|
call GetPredefRegisters
|
|
IntroPredef3B: ; 62a4 (1:62a4)
|
|
; bank of sprite given in b
|
|
push bc
|
|
ld a,b
|
|
call UncompressSpriteFromDE
|
|
ld hl,S_SPRITEBUFFER1
|
|
ld de,$A000
|
|
ld bc,$310
|
|
call CopyData
|
|
ld de,vFrontPic
|
|
call InterlaceMergeSpriteBuffers
|
|
pop bc
|
|
ld a,c
|
|
and a
|
|
hlCoord 15, 1
|
|
jr nz,.next
|
|
hlCoord 6, 4
|
|
.next
|
|
xor a
|
|
ld [$FFE1],a
|
|
predef_jump Func_3f0c6
|