ref: 4d88812f40c4165e4b893a0631fa658e72d17874
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, [wOptionsInitialized] and a call z, InitOptions 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) ld c,a ld a, MUSIC_ROUTES2 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 ; possibly a debug mode bit jp nz,.skipChoosingNames ld de,ProfOakPic ld bc, (Bank(ProfOakPic) << 8) | $00 call IntroDisplayPicCenteredOrUpperRight call FadeInIntroPic ld hl,OakSpeechText1 call PrintText call GBFadeOutToWhite call ClearScreen ld a,NIDORINO ld [wd0b5],a ld [wcf91],a call GetMonHeader coord hl, 6, 4 call LoadFlippedFrontSpriteByMonIndex call MovePicLeft ld hl,OakSpeechText2 call PrintText call GBFadeOutToWhite call ClearScreen ld de,RedPicFront ld bc,(Bank(RedPicFront) << 8) | $00 call IntroDisplayPicCenteredOrUpperRight call MovePicLeft ld hl,IntroducePlayerText call PrintText call ChoosePlayerName call GBFadeOutToWhite call ClearScreen ld de,Rival1Pic ld bc,(Bank(Rival1Pic) << 8) | $00 call IntroDisplayPicCenteredOrUpperRight call FadeInIntroPic ld hl,IntroduceRivalText call PrintText call ChooseRivalName .skipChoosingNames call GBFadeOutToWhite call ClearScreen ld de,RedPicFront ld bc,(Bank(RedPicFront) << 8) | $00 call IntroDisplayPicCenteredOrUpperRight 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_SHRINK 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 IntroDisplayPicCenteredOrUpperRight ld c,4 call DelayFrames ld de,ShrinkPic2 ld bc,(BANK(ShrinkPic2) << 8) | $00 call IntroDisplayPicCenteredOrUpperRight 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 coord hl, 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 DisplayPicCenteredOrUpperRight: ; 62a1 (1:62a1) call GetPredefRegisters IntroDisplayPicCenteredOrUpperRight: ; 62a4 (1:62a4) ; b = bank ; de = address of compressed pic ; c: 0 = centred, non-zero = upper-right 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 coord hl, 15, 1 jr nz,.next coord hl, 6, 4 .next xor a ld [$FFE1],a predef_jump CopyUncompressedPicToTilemap