pokered/scripts/CinnabarLabFossilRoom.asm

CinnabarLabFossilRoom_Script:
	jp EnableAutoTextBoxDrawing

CinnabarLabFossilRoom_TextPointers:
	dw Lab4Text1
	dw Lab4Text2

Lab4Script_GetFossilsInBag:
; construct a list of all fossils in the player's bag
	xor a
	ld [wFilteredBagItemsCount], a
	ld de, wFilteredBagItems
	ld hl, FossilsList
.loop
	ld a, [hli]
	and a
	jr z, .done
	push hl
	push de
	ld [wd11e], a
	ld b, a
	predef GetQuantityOfItemInBag
	pop de
	pop hl
	ld a, b
	and a
	jr z, .loop

	; A fossil's in the bag
	ld a, [wd11e]
	ld [de], a
	inc de
	push hl
	ld hl, wFilteredBagItemsCount
	inc [hl]
	pop hl
	jr .loop
.done
	ld a, $ff
	ld [de], a
	ret

FossilsList:
	db DOME_FOSSIL
	db HELIX_FOSSIL
	db OLD_AMBER
	db 0 ; end

Lab4Text1:
	text_asm
	CheckEvent EVENT_GAVE_FOSSIL_TO_LAB
	jr nz, .asm_75d96
	ld hl, Lab4Text_75dc6
	call PrintText
	call Lab4Script_GetFossilsInBag
	ld a, [wFilteredBagItemsCount]
	and a
	jr z, .asm_75d8d
	farcall GiveFossilToCinnabarLab
	jr .asm_75d93
.asm_75d8d
	ld hl, Lab4Text_75dcb
	call PrintText
.asm_75d93
	jp TextScriptEnd
.asm_75d96
	CheckEventAfterBranchReuseA EVENT_LAB_STILL_REVIVING_FOSSIL, EVENT_GAVE_FOSSIL_TO_LAB
	jr z, .asm_75da2
	ld hl, Lab4Text_75dd0
	call PrintText
	jr .asm_75d93
.asm_75da2
	call LoadFossilItemAndMonNameBank1D
	ld hl, Lab4Text_75dd5
	call PrintText
	SetEvent EVENT_LAB_HANDING_OVER_FOSSIL_MON
	ld a, [wFossilMon]
	ld b, a
	ld c, 30
	call GivePokemon
	jr nc, .asm_75d93
	ResetEvents EVENT_GAVE_FOSSIL_TO_LAB, EVENT_LAB_STILL_REVIVING_FOSSIL, EVENT_LAB_HANDING_OVER_FOSSIL_MON
	jr .asm_75d93

Lab4Text_75dc6:
	text_far _Lab4Text_75dc6
	text_end

Lab4Text_75dcb:
	text_far _Lab4Text_75dcb
	text_end

Lab4Text_75dd0:
	text_far _Lab4Text_75dd0
	text_end

Lab4Text_75dd5:
	text_far _Lab4Text_75dd5
	text_end

Lab4Text2:
	text_asm
	ld a, TRADE_FOR_SAILOR
	ld [wWhichTrade], a
	predef DoInGameTradeDialogue
	jp TextScriptEnd

LoadFossilItemAndMonNameBank1D:
	farjp LoadFossilItemAndMonName
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`CinnabarLabFossilRoom_Script:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp EnableAutoTextBoxDrawing`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`CinnabarLabFossilRoom_TextPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw Lab4Text1`
			`dw Lab4Text2`

remove address comments 2016-06-12 00:24:04 +00:00			`Lab4Script_GetFossilsInBag:`
Minor comment/label improvements in Cinnabar Lab. 2014-10-16 06:12:44 +00:00			`; construct a list of all fossils in the player's bag`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`xor a`
named more variables 2015-08-13 05:14:31 +00:00			`ld [wFilteredBagItemsCount], a`
			`ld de, wFilteredBagItems`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, FossilsList`
Minor comment/label improvements in Cinnabar Lab. 2014-10-16 06:12:44 +00:00			`.loop`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, [hli]`
			`and a`
Minor comment/label improvements in Cinnabar Lab. 2014-10-16 06:12:44 +00:00			`jr z, .done`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`push hl`
			`push de`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld [wd11e], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld b, a`
named more variables 2015-08-13 05:14:31 +00:00			`predef GetQuantityOfItemInBag`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`pop de`
			`pop hl`
			`ld a, b`
			`and a`
Minor comment/label improvements in Cinnabar Lab. 2014-10-16 06:12:44 +00:00			`jr z, .loop`

			`; A fossil's in the bag`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wd11e]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld [de], a`
			`inc de`
			`push hl`
named more variables 2015-08-13 05:14:31 +00:00			`ld hl, wFilteredBagItemsCount`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`inc [hl]`
			`pop hl`
Minor comment/label improvements in Cinnabar Lab. 2014-10-16 06:12:44 +00:00			`jr .loop`
			`.done`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $ff`
			`ld [de], a`
			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`FossilsList:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db DOME_FOSSIL`
			`db HELIX_FOSSIL`
			`db OLD_AMBER`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`db 0 ; end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`Lab4Text1:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_GAVE_FOSSIL_TO_LAB`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr nz, .asm_75d96`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Lab4Text_75dc6`
			`call PrintText`
named more variables 2015-08-13 05:14:31 +00:00			`call Lab4Script_GetFossilsInBag`
			`ld a, [wFilteredBagItemsCount]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`and a`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr z, .asm_75d8d`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`farcall GiveFossilToCinnabarLab`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr .asm_75d93`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`.asm_75d8d`
			`ld hl, Lab4Text_75dcb`
			`call PrintText`
			`.asm_75d93`
			`jp TextScriptEnd`
			`.asm_75d96`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEventAfterBranchReuseA EVENT_LAB_STILL_REVIVING_FOSSIL, EVENT_GAVE_FOSSIL_TO_LAB`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr z, .asm_75da2`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Lab4Text_75dd0`
			`call PrintText`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr .asm_75d93`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`.asm_75da2`
			`call LoadFossilItemAndMonNameBank1D`
			`ld hl, Lab4Text_75dd5`
			`call PrintText`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvent EVENT_LAB_HANDING_OVER_FOSSIL_MON`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wFossilMon]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld b, a`
Minor comment/label improvements in Cinnabar Lab. 2014-10-16 06:12:44 +00:00			`ld c, 30`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call GivePokemon`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr nc, .asm_75d93`
named most of the used events 2015-07-21 17:36:03 +00:00			`ResetEvents EVENT_GAVE_FOSSIL_TO_LAB, EVENT_LAB_STILL_REVIVING_FOSSIL, EVENT_LAB_HANDING_OVER_FOSSIL_MON`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr .asm_75d93`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`Lab4Text_75dc6:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _Lab4Text_75dc6`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`Lab4Text_75dcb:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _Lab4Text_75dcb`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`Lab4Text_75dd0:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _Lab4Text_75dd0`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`Lab4Text_75dd5:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _Lab4Text_75dd5`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`Lab4Text2:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
Define constants for in-game trades 2020-07-16 13:32:09 +00:00			`ld a, TRADE_FOR_SAILOR`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld [wWhichTrade], a`
serial/trade/misc 2015-02-07 10:43:08 +00:00			`predef DoInGameTradeDialogue`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`

remove address comments 2016-06-12 00:24:04 +00:00			`LoadFossilItemAndMonNameBank1D:`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`farjp LoadFossilItemAndMonName`