2014-05-18 18:19:10 +00:00
|
|
|
Lab4Script: ; 75d31 (1d:5d31)
|
|
|
|
jp EnableAutoTextBoxDrawing
|
|
|
|
|
|
|
|
Lab4TextPointers: ; 75d34 (1d:5d34)
|
|
|
|
dw Lab4Text1
|
|
|
|
dw Lab4Text2
|
|
|
|
|
|
|
|
Lab4Script_75d38: ; 75d38 (1d:5d38)
|
2014-10-16 06:12:44 +00:00
|
|
|
; construct a list of all fossils in the player's bag
|
|
|
|
|
2014-05-18 18:19:10 +00:00
|
|
|
xor a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wcd37], a
|
|
|
|
ld de, wcc5b
|
2014-05-18 18:19:10 +00:00
|
|
|
ld hl, FossilsList
|
2014-10-16 06:12:44 +00:00
|
|
|
.loop
|
2014-05-18 18:19:10 +00:00
|
|
|
ld a, [hli]
|
|
|
|
and a
|
2014-10-16 06:12:44 +00:00
|
|
|
jr z, .done
|
2014-05-18 18:19:10 +00:00
|
|
|
push hl
|
|
|
|
push de
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wd11e], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld b, a
|
2015-01-23 03:05:13 +00:00
|
|
|
predef IsItemInBag_
|
2014-05-18 18:19:10 +00:00
|
|
|
pop de
|
|
|
|
pop hl
|
|
|
|
ld a, b
|
|
|
|
and a
|
2014-10-16 06:12:44 +00:00
|
|
|
jr z, .loop
|
|
|
|
|
|
|
|
; A fossil's in the bag
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wd11e]
|
2014-05-18 18:19:10 +00:00
|
|
|
ld [de], a
|
|
|
|
inc de
|
|
|
|
push hl
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wcd37
|
2014-05-18 18:19:10 +00:00
|
|
|
inc [hl]
|
|
|
|
pop hl
|
2014-10-16 06:12:44 +00:00
|
|
|
jr .loop
|
|
|
|
.done
|
2014-05-18 18:19:10 +00:00
|
|
|
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
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wd7a3]
|
2014-05-18 18:19:10 +00:00
|
|
|
bit 0, a
|
2015-07-03 19:38:12 +00:00
|
|
|
jr nz, .asm_75d96
|
2014-05-18 18:19:10 +00:00
|
|
|
ld hl, Lab4Text_75dc6
|
|
|
|
call PrintText
|
|
|
|
call Lab4Script_75d38
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wcd37]
|
2014-05-18 18:19:10 +00:00
|
|
|
and a
|
2015-07-03 19:38:12 +00:00
|
|
|
jr z, .asm_75d8d
|
2014-05-19 14:38:20 +00:00
|
|
|
callba GiveFossilToCinnabarLab
|
2015-07-03 19:38:12 +00:00
|
|
|
jr .asm_75d93
|
2014-05-18 18:19:10 +00:00
|
|
|
.asm_75d8d
|
|
|
|
ld hl, Lab4Text_75dcb
|
|
|
|
call PrintText
|
|
|
|
.asm_75d93
|
|
|
|
jp TextScriptEnd
|
|
|
|
.asm_75d96
|
|
|
|
bit 1, a
|
2015-07-03 19:38:12 +00:00
|
|
|
jr z, .asm_75da2
|
2014-05-18 18:19:10 +00:00
|
|
|
ld hl, Lab4Text_75dd0
|
|
|
|
call PrintText
|
2015-07-03 19:38:12 +00:00
|
|
|
jr .asm_75d93
|
2014-05-18 18:19:10 +00:00
|
|
|
.asm_75da2
|
|
|
|
call LoadFossilItemAndMonNameBank1D
|
|
|
|
ld hl, Lab4Text_75dd5
|
|
|
|
call PrintText
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wd7a3
|
2014-05-18 18:19:10 +00:00
|
|
|
set 2, [hl]
|
|
|
|
ld a, [W_FOSSILMON]
|
|
|
|
ld b, a
|
2014-10-16 06:12:44 +00:00
|
|
|
ld c, 30
|
2014-05-18 18:19:10 +00:00
|
|
|
call GivePokemon
|
2015-07-03 19:38:12 +00:00
|
|
|
jr nc, .asm_75d93
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wd7a3
|
2014-05-18 18:19:10 +00:00
|
|
|
res 0, [hl]
|
|
|
|
res 1, [hl]
|
|
|
|
res 2, [hl]
|
2015-07-03 19:38:12 +00:00
|
|
|
jr .asm_75d93
|
2014-05-18 18:19:10 +00:00
|
|
|
|
|
|
|
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
|
2015-02-07 10:43:08 +00:00
|
|
|
predef DoInGameTradeDialogue
|
2014-05-18 18:19:10 +00:00
|
|
|
jp TextScriptEnd
|
|
|
|
|
|
|
|
LoadFossilItemAndMonNameBank1D: ; 75de8 (1d:5de8)
|
|
|
|
ld b, BANK(LoadFossilItemAndMonName)
|
|
|
|
ld hl, LoadFossilItemAndMonName
|
|
|
|
jp Bankswitch
|