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
|
INCLUDE "constants.asm"
SECTION "engine/unknown_boxes.asm", ROMX
Function1130a: ; 04:530A
ret
Function1130b: ; 04:530B
ld a, [wPartyCount]
cp PARTY_LENGTH
jr c, .bigjump
ld a, [wBoxListLength]
cp $1E
jr nc, .fullbox
xor a
ld [wca44], a
ld a, [wMonDexIndex]
ld [wcdd7], a
callab AddPokemonToBox
call RecievePokemon
predef Functiondd5c
and $7F
add a, $F7
ld hl, wStringBuffer2
ld [hli], a
ld [hl], "@"
ld hl, BoxCantHoldText
call PrintText
scf
ret
.fullbox
ld hl, BoxFullText
call PrintText
and a
ret
.bigjump
call RecievePokemon
predef Functiond886
scf
ret
RecievePokemon: ; 04:5357
ld a, [wMonDexIndex]
push af
ld [wNamedObjectIndexBuffer], a
dec a
ld c, a
ld hl, wPokedexOwned
ld b, 01 ;SET_FLAG
predef SmallFarFlagAction
pop af
ld [wNamedObjectIndexBuffer], a
call GetPokemonName
ld hl, RecievePokemonText
jp PrintText
RecievePokemonText: ; 04:5377
text "<PLAYER>は"
line "@"
db $01, $26, $CD
text "を てにいれた！@"
db $0B, "@"
BoxCantHoldText: ; 04:538B
text "#を もちきれないので"
line "<PC>の ボックス@"
db $01, $31, $CD
text " に"
cont "@"
db $01, $17, $DF
text "を てんそうした！"
done
BoxFullText: ; 04:53B6
text "#を もちきれません！"
para "ボックスも いっぱいで"
line "てんそうできません！"
para "#センターなどで"
line "ボックスを かえてきて ください"
done
|
