thorn/kep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/kep-hack.git synced 2025-10-17 04:26:28 +13:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fade-in / fade-out functions (thx Sawakita)

Browse source 
hg-commit-id: fe4c5e88689d
This commit is contained in:
IIMarckus 2011-04-09 23:03:50 -06:00
parent 817e3af31b
commit 9c86722724
1 changed files with 106 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

113
pokered.asm
View file

@ -410,7 +410,106 @@ DelayFrame: ; 20AF
ret
INCBIN "baserom.gbc",$20BA,$2442 - $20BA
; These routines manage gradual fading
; (e.g., entering a doorway)
LoadGBPal: ; 20BA
ld a,[$d35d] ;tells if cur.map is dark
ld b,a ;(requires HM5_FLASH?)
ld hl,GBPalTable_00 ;16
ld a,l
sub b
ld l,a
jr nc,.jr0\@
dec h
.jr0\@
ld a,[hli]
ld [$ff47],a
ld a,[hli]
ld [$ff48],a
ld a,[hli]
ld [$ff49],a
ret
GBFadeOut1: ; 20D1
ld hl,IncGradGBPalTable_01 ;0d
ld b,$04
jr GBFadeOutCommon
GBFadeOut2: ; 20D8
ld hl,IncGradGBPalTable_02 ;1c
ld b,$03
GBFadeOutCommon:
ld a,[hli]
ld [$ff47],a
ld a,[hli]
ld [$ff48],a
ld a,[hli]
ld [$ff49],a
ld c,8
call DelayFrames
dec b
jr nz,GBFadeOutCommon
ret
GBFadeIn1: ; 20EF
ld hl,DecGradGBPalTable_01 ;18
ld b,$04
jr GBFadeInCommon
GBFadeIn2: ; 20F6
ld hl,DecGradGBPalTable_02 ;21
ld b,$03
GBFadeInCommon:
ld a,[hld]
ld [$ff49],a
ld a,[hld]
ld [$ff48],a
ld a,[hld]
ld [$ff47],a
ld c,8
call DelayFrames
dec b
jr nz,GBFadeInCommon
ret
IncGradGBPalTable_01: ; 210D
db %11111111 ;BG Pal
db %11111111 ;OBJ Pal 1
db %11111111 ;OBJ Pal 2
;and so on...
db %11111110
db %11111110
db %11111000
db %11111001
db %11100100
db %11100100
GBPalTable_00: ;16
db %11100100
db %11010000
DecGradGBPalTable_01: ;18
db %11100000
;19
db %11100100
db %11010000
db %11100000
IncGradGBPalTable_02: ;1c
db %10010000
db %10000000
db %10010000
db %01000000
db %01000000
DecGradGBPalTable_02: ;21
db %01000000
db %00000000
db %00000000
db %00000000
INCBIN "baserom.gbc",$2125,$2442 - $2125
; XXX where is the pointer to this data?
MartInventories: ; 2442
@ -688,7 +787,7 @@ OakSpeech: ; 6115
call FadeInIntroPic
ld hl,HelloWelcomeText
call PrintText ; prints text box
call $20D8
call GBFadeOut2
call ClearScreen
ld a,NIDORINO
ld [$D0B5],a ; pic displayed is stored at this location
@ -699,7 +798,7 @@ OakSpeech: ; 6115
call MovePicLeft
ld hl,WorldFilledWithText
call PrintText ; Prints text box
call $20D8
call GBFadeOut2
call ClearScreen
ld de,$6EDE
ld bc,$0400 ; affects the position of the player pic
@ -708,7 +807,7 @@ OakSpeech: ; 6115
ld hl,FirstWhatIsYourNameText
call PrintText
call $695D ; brings up NewName/Red/etc menu
call $20D8
call GBFadeOut2
call ClearScreen
ld de,$6049
ld bc,$1300
@ -718,12 +817,12 @@ OakSpeech: ; 6115
call PrintText
call $69A4
Function61BC:
call $20D8
call GBFadeOut2
call ClearScreen
ld de,$6EDE
ld bc,$0400
call IntroPredef3B
call $20F6
call GBFadeIn2
ld a,[$D72D]
and a
jr nz,.next\@
@ -775,7 +874,7 @@ Function61BC:
ld [$CFCB],a
ld c,$32
call DelayFrames
call $20D8
call GBFadeOut2
jp ClearScreen
HelloWelcomeText:
db $17,$25,$64,$22,$50 ; "Hello welcome to the world of pokemon ..."