pokered/engine/events/cinnabar_lab.asm

GiveFossilToCinnabarLab::
	ld hl, wd730
	set 6, [hl]
	xor a
	ld [wCurrentMenuItem], a
	ld a, A_BUTTON | B_BUTTON
	ld [wMenuWatchedKeys], a
	ld a, [wFilteredBagItemsCount]
	dec a
	ld [wMaxMenuItem], a
	ld a, 2
	ld [wTopMenuItemY], a
	ld a, 1
	ld [wTopMenuItemX], a
	ld a, [wFilteredBagItemsCount]
	dec a
	ld bc, 2
	ld hl, 3
	call AddNTimes
	dec l
	ld b, l
	ld c, $d
	hlcoord 0, 0
	call TextBoxBorder
	call UpdateSprites
	call PrintFossilsInBag
	ld hl, wd730
	res 6, [hl]
	call HandleMenuInput
	bit 1, a ; pressed B?
	jr nz, .cancelledGivingFossil
	ld hl, wFilteredBagItems
	ld a, [wCurrentMenuItem]
	ld d, 0
	ld e, a
	add hl, de
	ld a, [hl]
	ldh [hItemToRemoveID], a
	cp DOME_FOSSIL
	jr z, .choseDomeFossil
	cp HELIX_FOSSIL
	jr z, .choseHelixFossil
	ld b, AERODACTYL
	jr .fossilSelected
.choseHelixFossil
	ld b, OMANYTE
	jr .fossilSelected
.choseDomeFossil
	ld b, KABUTO
.fossilSelected
	ld [wFossilItem], a
	ld a, b
	ld [wFossilMon], a
	call LoadFossilItemAndMonName
	ld hl, LabFossil_610ae
	call PrintText
	call YesNoChoice
	ld a, [wCurrentMenuItem]
	and a
	jr nz, .cancelledGivingFossil
	ld hl, LabFossil_610b3
	call PrintText
	ld a, [wFossilItem]
	ldh [hItemToRemoveID], a
	farcall RemoveItemByID
	ld hl, LabFossil_610b8
	call PrintText
	SetEvents EVENT_GAVE_FOSSIL_TO_LAB, EVENT_LAB_STILL_REVIVING_FOSSIL
	ret
.cancelledGivingFossil
	ld hl, LabFossil_610bd
	call PrintText
	ret

LabFossil_610ae:
	text_far _Lab4Text_610ae
	text_end

LabFossil_610b3:
	text_far _Lab4Text_610b3
	text_end

LabFossil_610b8:
	text_far _Lab4Text_610b8
	text_end

LabFossil_610bd:
	text_far _Lab4Text_610bd
	text_end

PrintFossilsInBag:
; Prints each fossil in the player's bag on a separate line in the menu.
	ld hl, wFilteredBagItems
	xor a
	ldh [hItemCounter], a
.loop
	ld a, [hli]
	cp $ff
	ret z
	push hl
	ld [wd11e], a
	call GetItemName
	hlcoord 2, 2
	ldh a, [hItemCounter]
	ld bc, SCREEN_WIDTH * 2
	call AddNTimes
	ld de, wcd6d
	call PlaceString
	ld hl, hItemCounter
	inc [hl]
	pop hl
	jr .loop

; loads the names of the fossil item and the resulting mon
LoadFossilItemAndMonName::
	ld a, [wFossilMon]
	ld [wd11e], a
	call GetMonName
	call CopyToStringBuffer
	ld a, [wFossilItem]
	ld [wd11e], a
	call GetItemName
	ret
Separate maps.asm, pics.asm, sprites.asm, and tilesets.asm from main.asm (#251) Each new file builds its own .o, along with separate main.o and home.o, which necessitates many more "exported::" labels. 2020-06-27 19:32:24 +00:00			`GiveFossilToCinnabarLab::`
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 hl, wd730`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`set 6, [hl]`
			`xor a`
$U-Daniel-PC\Daniel$ Rename/organize part 1 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:37:53 +00:00			`ld [wCurrentMenuItem], a`
named more functions 2015-07-24 21:57:49 +00:00			`ld a, A_BUTTON \| B_BUTTON`
$U-Daniel-PC\Daniel$ Rename/organize part 1 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:37:53 +00:00			`ld [wMenuWatchedKeys], a`
named more variables 2015-08-13 05:14:31 +00:00			`ld a, [wFilteredBagItemsCount]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dec a`
$U-Daniel-PC\Daniel$ Rename/organize part 1 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:37:53 +00:00			`ld [wMaxMenuItem], a`
named more functions 2015-07-24 21:57:49 +00:00			`ld a, 2`
$U-Daniel-PC\Daniel$ Rename/organize part 1 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:37:53 +00:00			`ld [wTopMenuItemY], a`
named more functions 2015-07-24 21:57:49 +00:00			`ld a, 1`
$U-Daniel-PC\Daniel$ Rename/organize part 1 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:37:53 +00:00			`ld [wTopMenuItemX], a`
named more variables 2015-08-13 05:14:31 +00:00			`ld a, [wFilteredBagItemsCount]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dec a`
named more functions 2015-07-24 21:57:49 +00:00			`ld bc, 2`
			`ld hl, 3`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call AddNTimes`
			`dec l`
			`ld b, l`
			`ld c, $d`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 0, 0`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call TextBoxBorder`
			`call UpdateSprites`
named more functions 2015-07-24 21:57:49 +00:00			`call PrintFossilsInBag`
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 hl, wd730`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`res 6, [hl]`
			`call HandleMenuInput`
named more functions 2015-07-24 21:57:49 +00:00			`bit 1, a ; pressed B?`
			`jr nz, .cancelledGivingFossil`
named more variables 2015-08-13 05:14:31 +00:00			`ld hl, wFilteredBagItems`
$U-Daniel-PC\Daniel$ Rename/organize part 1 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:37:53 +00:00			`ld a, [wCurrentMenuItem]`
named more variables 2015-08-13 05:14:31 +00:00			`ld d, 0`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld e, a`
			`add hl, de`
			`ld a, [hl]`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hItemToRemoveID], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`cp DOME_FOSSIL`
			`jr z, .choseDomeFossil`
			`cp HELIX_FOSSIL`
			`jr z, .choseHelixFossil`
			`ld b, AERODACTYL`
			`jr .fossilSelected`
			`.choseHelixFossil`
			`ld b, OMANYTE`
			`jr .fossilSelected`
			`.choseDomeFossil`
			`ld b, KABUTO`
			`.fossilSelected`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wFossilItem], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, b`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wFossilMon], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call LoadFossilItemAndMonName`
			`ld hl, LabFossil_610ae`
			`call PrintText`
			`call YesNoChoice`
$U-Daniel-PC\Daniel$ Rename/organize part 1 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:37:53 +00:00			`ld a, [wCurrentMenuItem]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and a`
named more functions 2015-07-24 21:57:49 +00:00			`jr nz, .cancelledGivingFossil`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, LabFossil_610b3`
			`call PrintText`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wFossilItem]`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hItemToRemoveID], a`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`farcall RemoveItemByID`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, LabFossil_610b8`
			`call PrintText`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvents EVENT_GAVE_FOSSIL_TO_LAB, EVENT_LAB_STILL_REVIVING_FOSSIL`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret`
named more functions 2015-07-24 21:57:49 +00:00			`.cancelledGivingFossil`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, LabFossil_610bd`
			`call PrintText`
			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`LabFossil_610ae:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _Lab4Text_610ae`
			`text_end`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`LabFossil_610b3:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _Lab4Text_610b3`
			`text_end`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`LabFossil_610b8:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _Lab4Text_610b8`
			`text_end`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`LabFossil_610bd:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _Lab4Text_610bd`
			`text_end`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`PrintFossilsInBag:`
named more functions 2015-07-24 21:57:49 +00:00			`; Prints each fossil in the player's bag on a separate line in the menu.`
named more variables 2015-08-13 05:14:31 +00:00			`ld hl, wFilteredBagItems`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`xor a`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hItemCounter], a`
named more functions 2015-07-24 21:57:49 +00:00			`.loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hli]`
			`cp $ff`
			`ret z`
			`push hl`
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 a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call GetItemName`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 2, 2`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [hItemCounter]`
Use more screen dimension constants 2015-07-14 07:16:19 +00:00			`ld bc, SCREEN_WIDTH * 2`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call AddNTimes`
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 de, wcd6d`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlaceString`
named more variables 2015-08-13 05:14:31 +00:00			`ld hl, hItemCounter`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc [hl]`
			`pop hl`
named more functions 2015-07-24 21:57:49 +00:00			`jr .loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
			`; loads the names of the fossil item and the resulting mon`
Separate maps.asm, pics.asm, sprites.asm, and tilesets.asm from main.asm (#251) Each new file builds its own .o, along with separate main.o and home.o, which necessitates many more "exported::" labels. 2020-06-27 19:32:24 +00:00			`LoadFossilItemAndMonName::`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wFossilMon]`
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 a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call GetMonName`
wcf4b -> wStringBuffer 2021-08-28 21:02:20 +00:00			`call CopyToStringBuffer`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wFossilItem]`
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 a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call GetItemName`
			`ret`