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
|
GetVarAction_::
ld a, c
cp NUM_VARS
jr c, .valid
xor a
.valid
ld c, a
ld b, 0
ld hl, .VarActionTable
add hl, bc
add hl, bc
add hl, bc
ld e, [hl]
inc hl
ld d, [hl]
inc hl
ld b, [hl]
ld a, b
and RETVAR_EXECUTE
jr nz, .call
ld a, b
and RETVAR_ADDR_DE
ret nz
ld a, [de]
jr .loadstringbuffer2
.call
call jp_de
ret
.loadstringbuffer2
ld de, wStringBuffer2
ld [de], a
ret
.VarActionTable:
dwb wStringBuffer2, RETVAR_STRBUF2
dwb $da22, RETVAR_STRBUF2
dwb .BattleResult, RETVAR_EXECUTE
dwb $d119, RETVAR_ADDR_DE
dwb $d157, RETVAR_STRBUF2
dwb .CountCaughtMons, RETVAR_EXECUTE
dwb .CountSeenMons, RETVAR_EXECUTE
dwb .CountBadges, RETVAR_EXECUTE
dwb $d682, RETVAR_ADDR_DE
dwb .PlayerFacing, RETVAR_EXECUTE
dwb $ff96, RETVAR_STRBUF2
dwb .DayOfWeek, RETVAR_EXECUTE
dwb $da00, RETVAR_STRBUF2
dwb $da01, RETVAR_STRBUF2
dwb .UnownCaught, RETVAR_EXECUTE
dwb $d083, RETVAR_STRBUF2
dwb .BoxFreeSpace, RETVAR_EXECUTE
dwb $d193, RETVAR_STRBUF2
dwb $da03, RETVAR_STRBUF2
dwb $da02, RETVAR_STRBUF2
dwb $d97b, RETVAR_STRBUF2
dwb 0, 0
.CountCaughtMons: ; 41cf
; Caught mons.
ld hl, wPokedexCaught
ld b, $20
call CountSetBits
ld a, [wd151]
jp .loadstringbuffer2
.CountSeenMons: ; 41dd
; Seen mons.
ld hl, wPokedexSeen
ld b, $20
call CountSetBits
ld a, [wd151]
jp .loadstringbuffer2
.CountBadges: ; 41eb
; Number of owned badges.
ld hl, wBadges
ld b, 2
call CountSetBits
ld a, [wd151]
jp .loadstringbuffer2
.PlayerFacing: ; 41f9
; The direction the player is facing.
ld a, [wPlayerDirection]
and $c
rrca
rrca
jp .loadstringbuffer2
.DayOfWeek: ; 4203
; The day of the week.
call GetWeekday
jp .loadstringbuffer2
.UnownCaught: ; 4209
; Number of unique Unown caught.
call CountUnown ; gold: c5ac | silver: c5aa
ld a, b
jp .loadstringbuffer2
.BoxFreeSpace: ; 4210
; Remaining slots in the current box.
ld a, BANK(sBoxCount)
call OpenSRAM
ld hl, sBoxCount
ld a, MONS_PER_BOX
sub [hl]
ld b, a
call CloseSRAM
ld a, b
jp .loadstringbuffer2
.BattleResult: ; 4223
ld a, [wBattleResult]
and $7f
jp .loadstringbuffer2
; 422b
|
