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
48
49
50
51
52
53
54
55
56
57
58
59
60
|
InitDisplayForHallOfFame:
call ClearBGPalettes
call ClearTilemap
call ClearSprites
call DisableLCD
call LoadStandardFont
call LoadFontsBattleExtra
hlbgcoord 0, 0
ld bc, vBGMap1 - vBGMap0
ld a, " "
call ByteFill
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
xor a
call ByteFill
xor a
ldh [hSCY], a
ldh [hSCX], a
call EnableLCD
ld hl, .SavingRecordText
call PrintText
call WaitBGMap2
call SetPalettes
ret
.SavingRecordText:
text_far _SavingRecordText
text_end
InitDisplayForRedCredits:
call ClearBGPalettes
call ClearTilemap
call ClearSprites
call DisableLCD
call LoadStandardFont
call LoadFontsBattleExtra
hlbgcoord 0, 0
ld bc, vBGMap1 - vBGMap0
ld a, " "
call ByteFill
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
xor a
call ByteFill
ld hl, wBGPals1
ld c, 4 tiles
.load_white_palettes
ld a, LOW(PALRGB_WHITE)
ld [hli], a
ld a, HIGH(PALRGB_WHITE)
ld [hli], a
dec c
jr nz, .load_white_palettes
xor a
ldh [hSCY], a
ldh [hSCX], a
call EnableLCD
call WaitBGMap2
call SetPalettes
ret
|
