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
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
Func_ea3ea: ; ea3ea (3a:63ea)
call GBPalWhiteOutWithDelay3
call ClearScreen
call LoadHpBarAndStatusTilePatterns
ld de, GFX_ea563
ld hl, vChars2 + $710
lb bc, BANK(GFX_ea563), (GFX_ea563End - GFX_ea563) / 8
call CopyVideoDataDouble
ld de, GFX_ea56b
ld hl, vChars2 + $6e0
lb bc, BANK(GFX_ea56b), (GFX_ea56bEnd - GFX_ea56b) / 8
call CopyVideoDataDouble
xor a
ld [H_AUTOBGTRANSFERENABLED], a
xor a
ld [wWhichTradeMonSelectionMenu], a
call LoadMonData
ld hl, wTileMap
lb bc, $10, $12
call TextBoxBorder
coord hl, 0, 12
lb bc, $04, $12
call TextBoxBorder
coord hl, 3, 10
call PrintLevelFull
coord hl, 2, 10
ld a, $6e
ld [hli], a
ld [hl], " "
coord hl, 2, 11
ld [hl], "′"
coord hl, 4, 11
ld de, wLoadedMonMaxHP
lb bc, 2, 3
call PrintNumber
ld a, [wMonHeader]
ld [wPokeBallAnimData], a
ld [wd0b5], a
ld hl, wPartyMonNicks
call Func_ea511
coord hl, 8, 2
call PlaceString
call GetMonName
coord hl, 9, 3
call PlaceString
predef IndexToPokedex
coord hl, 2, 8
ld [hl], "№"
inc hl
ld [hl], $f2
inc hl
ld de, wPokeBallAnimData
lb bc, $80 | 1, 3
call PrintNumber
coord hl, 8, 4
ld de, String_ea52f
call PlaceString
ld hl, wPartyMonOT
call Func_ea511
coord hl, 9, 5
call PlaceString
coord hl, 9, 6
ld de, String_ea533
call PlaceString
coord hl, 13, 6
ld de, wLoadedMonOTID
lb bc, $80 | 2, 5
call PrintNumber
coord hl, 9, 8
ld de, String_ea537
ld a, [hFlags_0xFFFA]
set 2, a
ld [hFlags_0xFFFA], a
call PlaceString
ld a, [hFlags_0xFFFA]
res 2, a
ld [hFlags_0xFFFA], a
coord hl, 16, 8
ld de, wLoadedMonAttack
ld a, 4
.loop
push af
push de
push hl
lb bc, 2, 3
call PrintNumber
pop hl
ld bc, SCREEN_WIDTH
add hl, bc
pop de
inc de
inc de
pop af
dec a
jr nz, .loop
coord hl, 1, 13
ld a, [wLoadedMonMoves]
call Func_ea51d
coord hl, 1, 14
ld a, [wLoadedMonMoves + 1]
call Func_ea51d
coord hl, 1, 15
ld a, [wLoadedMonMoves + 2]
call Func_ea51d
coord hl, 1, 16
ld a, [wLoadedMonMoves + 3]
call Func_ea51d
ld b, $04 ; SET_PAL_STATUS_SCREEN
call RunPaletteCommand
ld a, $01
ld [H_AUTOBGTRANSFERENABLED], a
call Delay3
call GBPalNormal
coord hl, 1, 1
call LoadFlippedFrontSpriteByMonIndex
ret
Func_ea511: ; ea511 (3a:6511)
ld bc, NAME_LENGTH
ld a, [wWhichPokemon]
call AddNTimes
ld e, l
ld d, h
ret
Func_ea51d: ; ea51d (3a:651d)
and a
jr z, .asm_e6528
ld [wPokeBallAnimData], a
call GetMoveName
jr .asm_ea52b
.asm_e6528
ld de, String_ea554
.asm_ea52b
call PlaceString
ret
; ea52f
String_ea52f:
db "OT/@"
; ea533
String_ea533:
db $73, "№/@"
; ea537
String_ea537:
db "ATTACK"
next "DEFENSE"
next "SPEED"
next "SPECIAL@"
; ea554
String_ea554: ; ea554 (3a:6554)
db "--------------@"
GFX_ea563: ; ea563 (3a:6563)
INCBIN "gfx/stats_screen_hp.1bpp"
GFX_ea563End: ; ea56b (3a:656b)
GFX_ea56b:
INCBIN "gfx/stats_screen_lv.1bpp"
GFX_ea56bEnd: ; ea573 (3a:6573)
|
