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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
CIRCLE_TILE_ID EQU $10
_DisplayDiploma:
call GBPalWhiteOutWithDelay3
call ClearScreen
ld de, SurfingPikachu3Graphics
ld hl, vChars2
lb bc, BANK(SurfingPikachu3Graphics), (SurfingPikachu3GraphicsEnd - SurfingPikachu3Graphics) / $10
call CopyVideoData
hlcoord 0, 0
call Func_e9bdf
hlcoord 0, 0
call Func_e9beb
hlcoord 19, 0
call Func_e9beb
ld a, $00
hlcoord 0, 0
ld [hl], a
hlcoord 19, 0
ld [hl], a
ld de, String_e9a73
hlcoord 5, 2
call PlaceString
ld de, String_e9a7d
hlcoord 3, 4
call PlaceString
ld de, wPlayerName
hlcoord 10, 4
call PlaceString
ld de, String_e9a84
hlcoord 2, 6
call PlaceString
ld de, String_e9ac8
hlcoord 9, 16
call PlaceString
ld b, SET_PAL_GENERIC
call RunPaletteCommand
ld a, $01
ldh [hAutoBGTransferEnabled], a
call Delay3
call GBPalNormal
ret
String_e9a73:
db CIRCLE_TILE_ID, "Diploma", CIRCLE_TILE_ID, "@"
String_e9a7d:
db "Player@"
String_e9a84:
db "Congrats! This"
next "diploma certifies"
next "that you have"
next "completed your"
next "#DEX.@"
String_e9ac8:
db "GAME FREAK@"
Func_e9ad3:
call ClearScreen
hlcoord 0, 17
call Func_e9bdf
hlcoord 0, 0
call Func_e9beb
hlcoord 19, 0
call Func_e9beb
ld a, $00
hlcoord 0, 17
ld [hl], a
hlcoord 19, 17
ld [hl], a
ld de, Tilemap_e9b3e
hlcoord 6, 2
lb bc, 10, 12
call Diploma_Surfing_CopyBox
ld de, Tilemap_e9bb6
hlcoord 5, 13
lb bc, 1, 11
call Diploma_Surfing_CopyBox
ld de, String_e9bd5
hlcoord 2, 15
call PlaceString
hlcoord 12, 15
ld de, wPlayTimeHours
lb bc, $40 | 1, 3
call PrintNumber
ld [hl], $16
inc hl
ld de, wPlayTimeMinutes
lb bc, $80 | 1, 2
call PrintNumber
ld a, [wNumSetBits]
cp 151
ret nz
ld de, TileMap_e9bc1
hlcoord 2, 0
lb bc, 4, 5
call Diploma_Surfing_CopyBox
ret
Tilemap_e9b3e:
db $7f, $7f, $7f, $1a, $1b, $7f, $7f, $7f, $7f, $7f
db $7f, $7f, $7f, $7f, $7f, $1c, $1d, $1e, $1f, $20
db $7f, $21, $22, $23, $7f, $24, $25, $26, $27, $28
db $29, $2a, $2b, $2c, $2d, $2e, $2f, $30, $31, $32
db $33, $34, $35, $36, $37, $38, $39, $3a, $3b, $3c
db $7f, $3d, $3e, $3f, $40, $41, $42, $43, $29, $44
db $45, $46, $47, $48, $49, $4a, $4b, $29, $29, $4c
db $4d, $4e, $4f, $50, $51, $52, $53, $54, $55, $56
db $57, $58, $59, $7f, $7f, $7f, $5a, $5b, $5c, $5d
db $5e, $5f, $60, $61, $62, $7f, $7f, $7f, $7f, $63
db $64, $65, $66, $67, $68, $7f, $7f, $7f, $7f, $7f
db $7f, $69, $6a, $6b, $6c, $6d, $6e, $7f, $7f, $7f
Tilemap_e9bb6:
db $05
db $06
db $07
db $08
db $09
db $0a
db $0b
db $0c
db $0d
db $0e
db $0f
TileMap_e9bc1:
db $70, $71, $7f, $72, $7f
db $73, $74, $75, $76, $77
db $7f, $78, $11, $12, $13
db $7f, $7f, $14, $15, $7f
String_e9bd5: db "PLAY TIME@"
Func_e9bdf:
ld c, 10
.asm_e9be1
ld [hl], $02
inc hl
ld [hl], $01
inc hl
dec c
jr nz, .asm_e9be1
ret
Func_e9beb:
ld c, 9
ld de, SCREEN_WIDTH
.asm_e9bed
ld [hl], $04
add hl, de
ld [hl], $03
add hl, de
dec c
jr nz, .asm_e9bed
ret
SurfingPikachu3Graphics: INCBIN "gfx/surfing_pikachu/surfing_pikachu_3.2bpp"
SurfingPikachu3GraphicsEnd:
|
