ref: 0675a871ba45fd9f10efeb4f6dd0f88f745fdea7
parent: da200058da4717eaca09b979aeb43e1612ac6180
author: IIMarckus <iimarckus@gmail.com>
date: Fri Nov 19 18:40:32 EST 2010
add oak's speech hg-commit-id: 5054b6222332
--- a/pokered.asm
+++ b/pokered.asm
@@ -614,7 +614,140 @@
INCBIN "baserom.gbc",$3E94,$4000 - $3E94
SECTION "bank1",DATA,BANK[$1]
-INCBIN "baserom.gbc",$4000,$4000
+INCBIN "baserom.gbc",$4000,$2115
+
+OakSpeech: ; 6115
+ ld a,$FF
+ call $23B1
+ ld a,2
+ ld c,a
+ ld a,$EF ; song #
+ call $23A1 ; plays music?
+ call ClearScreen
+ call $36A0
+ call $60CA
+ ld a,$18
+ call Predef
+ ld hl,$D53A
+ ld a,$14
+ ld [$CF91],a
+ ld a,1
+ ld [$CF96],a
+ call $2BCF
+ ld a,[$D07C]
+ ld [$D71A],a
+ call $62CE
+ xor a
+ ld [$FFD7],a
+ ld a,[$D732]
+ bit 1,a
+ jp nz,$61BC
+ ld de,$615F
+ ld bc,$1300
+ call $62A4 ; displays Oak sprite?
+ call $6271 ; fades in the sprite?
+ ld hl,HelloWelcomeText
+ call PrintText ; prints text box
+ call $20D8
+ call ClearScreen
+ ld a,NIDORINO
+ ld [$D0B5],a ; sprite displayed is stored at this location
+ ld [$CF91],a
+ call $1537 ; this is also related to the sprite
+ ld hl,$C3F6 ; position on tilemap the sprite is displayed
+ call $1384 ; displays sprite?
+ call $6288
+ ld hl,WorldFilledWithText
+ call PrintText ; Prints text box
+ call $20D8
+ call ClearScreen
+ ld de,$6EDE
+ ld bc,$0400 ; affects the position of the player sprite
+ call $62A4 ; displays player sprite?
+ call $6288
+ ld hl,FirstWhatIsYourNameText
+ call PrintText
+ call $695D ; brings up NewName/Red/etc menu
+ call $20D8
+ call ClearScreen
+ ld de,$6049
+ ld bc,$1300
+ call $62A4 ; displays rival sprite
+ call $6271
+ ld hl,ThisIsMyGrandsonText
+ call PrintText
+ call $69A4
+ call $20D8
+ call ClearScreen
+ ld de,$6EDE
+ ld bc,$0400
+ call $62A4
+ call $20F6
+ ld a,[$D72D]
+ and a
+ jr nz,.next\@
+ ld hl,YourOwnLegendText
+ call PrintText
+.next\@ ld a,[$FFB8]
+ push af
+ ld a,$9C
+ call $23B1
+ pop af
+ ld [$FFB8],a
+ ld [$2000],a
+ ld c,4
+ call Delay
+ ld de,$4180
+ ld hl,$8000
+ ld bc,$050C
+ call $1848
+ ld de,$6FE8
+ ld bc,$0400
+ call $62A4
+ ld c,4
+ call Delay
+ ld de,$7042
+ ld bc,$0400
+ call $62A4
+ call $28A6
+ ld a,[$FFB8]
+ push af
+ ld a,2
+ ld [$C0EF],a
+ ld [$C0F0],a
+ ld a,$A
+ ld [$CFC7],a
+ ld a,$FF
+ ld [$C0EE],a
+ call $23B1
+ pop af
+ ld [$FFB8],a
+ ld [$2000],a
+ ld c,$14
+ call Delay
+ ld hl,$C40A
+ ld b,7
+ ld c,7
+ call $18C4
+ call $36A0
+ ld a,1
+ ld [$CFCB],a
+ ld c,$32
+ call Delay
+ call $20D8
+ jp ClearScreen
+HelloWelcomeText:
+ db $17,$25,$64,$22,$50 ; "Hello welcome to the world of pokemon ..."
+WorldFilledWithText:
+ db $17,$7F,$64,$22,$14,$17,$B3,$64,$22,$50 ; "This world is filled with creatures ..."
+FirstWhatIsYourNameText:
+ db $17,$19,$65,$22,$50 ; "First, what is your name?"
+ThisIsMyGrandsonText:
+ db $17,$34,$65,$22,$50 ; "This is my grandson ..."
+YourOwnLegendText:
+ db $17,$97,$65,$22,$50 ; "Ninten! Your very own legend ..."
+INCBIN "baserom.gbc",$6271,$1D8F
+
SECTION "bank2",DATA,BANK[$2]
INCBIN "baserom.gbc",$8000,$4000