ref: fa5434f225ba825761d7d4292105d0364e679fb3
parent: 5e0e4a4ea07964cf4ab31cc02d56f79cdc06f4b6
author: IIMarckus <iimarckus@gmail.com>
date: Sat Apr 9 16:44:48 EDT 2011
Add the function that moves pics left in Oak's speech hg-commit-id: 1c2ca8f29fbd
--- a/pokered.asm
+++ b/pokered.asm
@@ -696,7 +696,7 @@
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
+ call MovePicLeft
ld hl,WorldFilledWithText
call PrintText ; Prints text box
call $20D8
@@ -704,7 +704,7 @@
ld de,$6EDE
ld bc,$0400 ; affects the position of the player sprite
call $62A4 ; displays player sprite?
- call $6288
+ call MovePicLeft
ld hl,FirstWhatIsYourNameText
call PrintText
call $695D ; brings up NewName/Red/etc menu
@@ -788,7 +788,7 @@
db $17,$97,$65,$22,$50 ; "Ninten! Your very own legend ..."
FadeInIntroSprite:
- ld hl,$6282
+ ld hl,IntroFadePalettes
ld b,6
.next\@
ld a,[hli]
@@ -799,7 +799,31 @@
jr nz,.next\@
ret
-INCBIN "baserom.gbc",$6282,$8000 - $6282
+IntroFadePalettes:
+ db %01010100
+ db %10101000
+ db %11111100
+ db %11111000
+ db %11110100
+ db %11100100
+
+MovePicLeft:
+ ld a,119
+ ld [$FF4B],a
+ call DelayFrame
+
+ ld a,$E4
+ ld [$FF47],a
+.next\@
+ call DelayFrame
+ ld a,[$FF4B]
+ sub 8
+ cp $FF
+ ret z
+ ld [$FF4B],a
+ jr .next\@
+
+INCBIN "baserom.gbc",$62A1,$8000 - $62A1
SECTION "bank2",DATA,BANK[$2]