ref: 07dd7056372288de7bb5b64f9416d741adb3b499
dir: /engine/oak_speech.asm/
SetDefaultNames: ; 60ca (1:60ca) ld a, [wLetterPrintingDelayFlags] push af ld a, [W_OPTIONS] push af ld a, [wd732] push af ld hl, wPlayerName 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 pop af ld [wLetterPrintingDelayFlags], a ld a, [wd08a] and a call z, Func_5bff ld hl, NintenText ld de, wPlayerName ld bc, $b call CopyData ld hl, SonyText ld de, W_RIVALNAME 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 call ClearScreen call LoadTextBoxTilePatterns call SetDefaultNames predef InitPlayerData2 ld hl,wNumBoxItems ld a,POTION ld [wcf91],a ld a,1 ld [wItemQuantity],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 [MBC1RomBank],a ld c,4 call DelayFrames ld de,RedSprite 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 [MBC1RomBank],a ld c,20 call DelayFrames hlCoord 6, 5 ld b,7 ld c,7 call ClearScreenArea call LoadTextBoxTilePatterns ld a,1 ld [wUpdateSpritesEnabled],a ld c,50 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 [rWX],a call DelayFrame ld a,$E4 ld [rBGP],a .next call DelayFrame ld a,[rWX] sub 8 cp $FF ret z ld [rWX],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 CopyUncompressedPicToTilemap