thorn/kep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/kep-hack.git synced 2025-09-17 02:40:50 +12:00
Code Issues Actions Packages Projects Releases Wiki Activity

TitleMon scrolling

Browse source
This commit is contained in:
yenatch 2014-01-04 04:00:14 -05:00
parent 842bf15b5f
commit b926d25c39
1 changed files with 96 additions and 59 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

155
main.asm
View file

@ -11061,46 +11061,55 @@ Func_448e: ; 448e (1:448e)
Func_4496: ; 4496 (1:4496) Func_4496: ; 4496 (1:4496)
ld a, $98 ld a, $98
call Func_4533 call Func_4533
.asm_449b
.new
; Generate a new TitleMon.
call GenRandom call GenRandom
and $f and $f
ld c, a ld c, a
ld b, $0 ld b, 0
ld hl, TitleMons ; $4588 ld hl, TitleMons
add hl, bc add hl, bc
ld a, [hl] ld a, [hl]
ld hl, wWhichTrade ; $cd3d ld hl, wWhichTrade ; $cd3d
; Can't be the same as before.
cp [hl] cp [hl]
jr z, .asm_449b jr z, .new
ld [hl], a ld [hl], a
call Func_4524 call Func_4524
ld a, $90 ld a, $90
ld [$FF00+$b0], a ld [$FF00+$b0], a
ld d, $1 ld d, 1 ; scroll out
ld b, BANK(LoadScreenTilesFromBuffer18) ld b, BANK(TitleScroll)
ld hl, LoadScreenTilesFromBuffer18 ld hl, TitleScroll
call Bankswitch ; indirect jump to LoadScreenTilesFromBuffer18 (37258 (d:7258)) call Bankswitch ; indirect jump to TitleScroll (37258 (d:7258))
ret ret
Func_44c1: ; 44c1 (1:44c1) Func_44c1: ; 44c1 (1:44c1)
ld d, $0 ld d, 0 ; scroll in
ld b, BANK(LoadScreenTilesFromBuffer18) ld b, BANK(TitleScroll)
ld hl, LoadScreenTilesFromBuffer18 ld hl, TitleScroll
call Bankswitch ; indirect jump to LoadScreenTilesFromBuffer18 (37258 (d:7258)) call Bankswitch ; indirect jump to TitleScroll (37258 (d:7258))
xor a xor a
ld [$FF00+$b0], a ld [$FF00+$b0], a
ret ret
Func_44cf: ; 44cf (1:44cf) Func_44cf: ; 44cf (1:44cf)
ld a, [$FF00+$44] .wait
ld a, [$FF00+$44] ; rLY
cp l cp l
jr nz, Func_44cf jr nz, .wait
ld a, h ld a, h
ld [rSCX], a ; $FF00+$43 ld [rSCX], a ; $FF00+$43
.asm_44d7
ld a, [$FF00+$44] .wait2
ld a, [$FF00+$44] ; rLY
cp h cp h
jr z, .asm_44d7 jr z, .wait2
ret ret
Func_44dd: ; 44dd (1:44dd) Func_44dd: ; 44dd (1:44dd)
@ -48201,32 +48210,48 @@ VictreebelPicFront: ; 36fea (d:6fea)
VictreebelPicBack: ; 371b2 (d:71b2) VictreebelPicBack: ; 371b2 (d:71b2)
INCBIN "pic/monback/victreebelb.pic" INCBIN "pic/monback/victreebelb.pic"
Unknown_37244: ; 37244 (d:7244)
INCBIN "baserom.gbc",$37244,$37247 - $37244
Unknown_37247: ; 37247 (d:7247) TitleScroll_WaitBall: ; 37244 (d:7244)
INCBIN "baserom.gbc",$37247,$3724f - $37247 ; Wait around for the TitleBall animation to play out.
; hi: speed
; lo: duration
db $05, $05, 0
Unknown_3724f: ; 3724f (d:724f) TitleScroll_In: ; 37247 (d:7247)
INCBIN "baserom.gbc",$3724f,$37258 - $3724f ; Scroll a TitleMon in from the right.
; hi: speed
; lo: duration
db $a2, $94, $84, $63, $52, $31, $11, 0
LoadScreenTilesFromBuffer18: ; 37258 (d:7258) TitleScroll_Out: ; 3724f (d:724f)
; Scroll a TitleMon out to the left.
; hi: speed
; lo: duration
db $12, $22, $32, $42, $52, $62, $83, $93, 0
TitleScroll: ; 37258 (d:7258)
ld a, d ld a, d
ld bc, Unknown_37247 ; $7247
ld d, $88
ld e, $0
and a
jr nz, Func_3726a
ld bc, Unknown_3724f ; $724f
ld d, $0
ld e, $0
Func_3726a: ; 3726a (d:726a) ld bc, TitleScroll_In
ld d, $88
ld e, 0 ; don't animate titleball
and a
jr nz, .ok
ld bc, TitleScroll_Out
ld d, $00
ld e, 0 ; don't animate titleball
.ok
_TitleScroll: ; 3726a (d:726a)
ld a, [bc] ld a, [bc]
and a and a
ret z ret z
inc bc inc bc
push bc push bc
ld b, a ld b, a
and $f and $f
ld c, a ld c, a
@ -48234,57 +48259,69 @@ Func_3726a: ; 3726a (d:726a)
and $f0 and $f0
swap a swap a
ld b, a ld b, a
.loop .loop
ld h, d ld h, d
ld l, $48 ld l, $48
call Func_37292 call .ScrollBetween
ld h, $0
ld h, $00
ld l, $88 ld l, $88
call Func_37292 call .ScrollBetween
ld a, d ld a, d
add b add b
ld d, a ld d, a
call Func_372c4
call GetTitleBallY
dec c dec c
jr nz, .loop jr nz, .loop
pop bc
jr Func_3726a
Func_37292: ; 37292 (d:7292) pop bc
ld a, [$FF00+$44] jr _TitleScroll
.ScrollBetween ; 37292 (d:7292)
.wait
ld a, [$FF00+$44] ; rLY
cp l cp l
jr nz, Func_37292 jr nz, .wait
ld a, h ld a, h
ld [rSCX], a ; $FF00+$43 ld [rSCX], a ; $FF00+$43
.loop
ld a, [$FF00+$44] .wait2
ld a, [$FF00+$44] ; rLY
cp h cp h
jr z, .loop jr z, .wait2
ret ret
Unknown_372a0: ; 372a0 (d:72a0) TitleBallYTable: ; 372a0 (d:72a0)
INCBIN "baserom.gbc",$372a0,$372ac - $372a0 ; OBJ y-positions for the Poke Ball held by Red in the title screen.
; This is really two 0-terminated lists. Initiated with an index of 1.
db 0, $71, $6f, $6e, $6d, $6c, $6d, $6e, $6f, $71, $74, 0
Func_372ac: ; 372ac (d:72ac) Func_372ac: ; 372ac (d:72ac)
; Animate the TitleBall if a starter just got scrolled out.
ld a, [wWhichTrade] ; $cd3d ld a, [wWhichTrade] ; $cd3d
cp $b0 cp CHARMANDER
jr z, .skip jr z, .ok
cp $b1 cp SQUIRTLE
jr z, .skip jr z, .ok
cp $99 cp BULBASAUR
ret nz ret nz
.skip .ok
ld e, $1 ld e, 1 ; animate titleball
ld bc, Unknown_37244 ; $7244 ld bc, TitleScroll_WaitBall
ld d, $0 ld d, 0
jp Func_3726a jp _TitleScroll
Func_372c4: ; 372c4 (d:72c4) GetTitleBallY: ; 372c4 (d:72c4)
; Get position e from TitleBallYTable
push de push de
push hl push hl
xor a xor a
ld d, a ld d, a
ld hl, Unknown_372a0 ; $72a0 ld hl, TitleBallYTable
add hl, de add hl, de
ld a, [hl] ld a, [hl]
pop hl pop hl