mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
232 lines
4.5 KiB
NASM
Executable file
232 lines
4.5 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 [wDestinationMap],a
|
|
call SpecialWarpIn
|
|
xor a
|
|
ld [hTilesetType],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 GBFadeOutToWhite
|
|
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 GBFadeOutToWhite
|
|
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 GBFadeOutToWhite
|
|
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 GBFadeOutToWhite
|
|
call ClearScreen
|
|
ld de,RedPicFront
|
|
ld bc,(Bank(RedPicFront) << 8) | $00
|
|
call IntroPredef3B
|
|
call GBFadeInFromWhite
|
|
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 [wUpdateSpritesEnabled],a
|
|
ld c,$32
|
|
call DelayFrames
|
|
call GBFadeOutToWhite
|
|
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,S_SPRITEBUFFER0
|
|
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
|