mirror of
https://github.com/pret/pokered.git
synced 2024-10-24 15:27:10 +00:00
2fe782b11a
e.asm, e_2. asm, and 14.asm
50 lines
731 B
NASM
50 lines
731 B
NASM
_ScrollTrainerPicAfterBattle: ; 396d3 (e:56d3)
|
|
; Load the enemy trainer's pic and scrolls it into
|
|
; the screen from the right.
|
|
xor a
|
|
ld [wEnemyMonSpecies2], a
|
|
ld b, $1
|
|
call GoPAL_SET
|
|
callab _LoadTrainerPic
|
|
hlCoord 19, 0
|
|
ld c, $0
|
|
.scrollLoop
|
|
inc c
|
|
ld a, c
|
|
cp 7
|
|
ret z
|
|
ld d, $0
|
|
push bc
|
|
push hl
|
|
.drawTrainerPicLoop
|
|
call DrawTrainerPicColumn
|
|
inc hl
|
|
ld a, 7
|
|
add d
|
|
ld d, a
|
|
dec c
|
|
jr nz, .drawTrainerPicLoop
|
|
ld c, 4
|
|
call DelayFrames
|
|
pop hl
|
|
pop bc
|
|
dec hl
|
|
jr .scrollLoop
|
|
|
|
; write one 7-tile column of the trainer pic to the tilemap
|
|
DrawTrainerPicColumn: ; 39707 (e:5707)
|
|
push hl
|
|
push de
|
|
push bc
|
|
ld e, 7
|
|
.loop
|
|
ld [hl], d
|
|
ld bc, SCREEN_WIDTH
|
|
add hl, bc
|
|
inc d
|
|
dec e
|
|
jr nz, .loop
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ret
|