1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
StarterPikachuBattleEntranceAnimation:
hlcoord 0, 5
ld c, 0
.loop1
inc c
ld a, c
cp 9
ret z
ld d, 7 * 13
push bc
push hl
.loop2
call .PlaceColumn
dec hl
ld a, d
sub 7
ld d, a
dec c
jr nz, .loop2
ld c, 2
call DelayFrames
pop hl
pop bc
inc hl
jr .loop1
.PlaceColumn:
push hl
push de
push bc
ld e, 7
.loop3
ld a, d
cp 7 * 7
jr nc, .okay
ld a, $7f
.okay
ld [hl], a
ld bc, SCREEN_WIDTH
add hl, bc
inc d
dec e
jr nz, .loop3
pop bc
pop de
pop hl
ret
|
