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
|
Lab4Script: ; 75d31 (1d:5d31)
jp EnableAutoTextBoxDrawing
Lab4TextPointers: ; 75d34 (1d:5d34)
dw Lab4Text1
dw Lab4Text2
Lab4Script_75d38: ; 75d38 (1d:5d38)
xor a
ld [wcd37], a
ld de, wcc5b
ld hl, FossilsList
.asm_75d42
ld a, [hli]
and a
jr z, .asm_75d64
push hl
push de
ld [wd11e], a
ld b, a
predef IsItemInBag_
pop de
pop hl
ld a, b
and a
jr z, .asm_75d42
ld a, [wd11e]
ld [de], a
inc de
push hl
ld hl, wcd37
inc [hl]
pop hl
jr .asm_75d42
.asm_75d64
ld a, $ff
ld [de], a
ret
FossilsList: ; 75d68 (1d:5d68)
db DOME_FOSSIL
db HELIX_FOSSIL
db OLD_AMBER
db $00
Lab4Text1: ; 75d6c (1d:5d6c)
db $8
ld a, [wd7a3]
bit 0, a
jr nz, .asm_75d96 ; 0x75d72 $22
ld hl, Lab4Text_75dc6
call PrintText
call Lab4Script_75d38
ld a, [wcd37]
and a
jr z, .asm_75d8d ; 0x75d81 $a
callba GiveFossilToCinnabarLab
jr .asm_75d93 ; 0x75d8b $6
.asm_75d8d
ld hl, Lab4Text_75dcb
call PrintText
.asm_75d93
jp TextScriptEnd
.asm_75d96
bit 1, a
jr z, .asm_75da2 ; 0x75d98 $8
ld hl, Lab4Text_75dd0
call PrintText
jr .asm_75d93 ; 0x75da0 $f1
.asm_75da2
call LoadFossilItemAndMonNameBank1D
ld hl, Lab4Text_75dd5
call PrintText
ld hl, wd7a3
set 2, [hl]
ld a, [W_FOSSILMON]
ld b, a
ld c, $1e
call GivePokemon
jr nc, .asm_75d93 ; 0x75db9 $d8
ld hl, wd7a3
res 0, [hl]
res 1, [hl]
res 2, [hl]
jr .asm_75d93 ; 0x75dc4 $cd
Lab4Text_75dc6: ; 75dc6 (1d:5dc6)
TX_FAR _Lab4Text_75dc6
db "@"
Lab4Text_75dcb: ; 75dcb (1d:5dcb)
TX_FAR _Lab4Text_75dcb
db "@"
Lab4Text_75dd0: ; 75dd0 (1d:5dd0)
TX_FAR _Lab4Text_75dd0
db "@"
Lab4Text_75dd5: ; 75dd5 (1d:5dd5)
TX_FAR _Lab4Text_75dd5
db "@"
Lab4Text2: ; 75dda (1d:5dda)
db $08 ; asm
ld a, $3
ld [wWhichTrade], a
predef Predef54
jp TextScriptEnd
LoadFossilItemAndMonNameBank1D: ; 75de8 (1d:5de8)
ld b, BANK(LoadFossilItemAndMonName)
ld hl, LoadFossilItemAndMonName
jp Bankswitch
|
