ref: c7737ee3d3cf0f9d284198400befad1ff101a8d1
parent: dd3d39418bed487b2db580f7f1045c2c2df75aaa
author: IIMarckus <[email protected]>
date: Sat Apr 9 16:12:51 EDT 2011
add in a function from Oak's speech hg-commit-id: 393c2c38d860
--- a/pokered.asm
+++ b/pokered.asm
@@ -684,7 +684,7 @@
ld de,$615F
ld bc,$1300
call $62A4 ; displays Oak sprite?
- call $6271 ; fades in the sprite?
+ call FadeInIntroSprite ; fades in the sprite?
ld hl,HelloWelcomeText
call PrintText ; prints text box
call $20D8
@@ -712,7 +712,7 @@
ld de,$6049
ld bc,$1300
call $62A4 ; displays rival sprite
- call $6271
+ call FadeInIntroSprite
ld hl,ThisIsMyGrandsonText
call PrintText
call $69A4
@@ -785,7 +785,20 @@
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
+
+FadeInIntroSprite:
+ ld hl,$6282
+ ld b,6
+.next\@
+ ld a,[hli]
+ ld [$FF47],a
+ ld c,$A
+ call Delay
+ dec b
+ jr nz,.next\@
+ ret
+
+INCBIN "baserom.gbc",$6282,$8000 - $6282
SECTION "bank2",DATA,BANK[$2]