pokered/engine/events/hidden_items.asm

HiddenItems:
	ld hl, HiddenItemCoords
	call FindHiddenItemOrCoinsIndex
	ld [wHiddenItemOrCoinsIndex], a
	ld hl, wObtainedHiddenItemsFlags
	ld a, [wHiddenItemOrCoinsIndex]
	ld c, a
	ld b, FLAG_TEST
	predef FlagActionPredef
	ld a, c
	and a
	ret nz
	call EnableAutoTextBoxDrawing
	ld a, 1
	ld [wDoNotWaitForButtonPressAfterDisplayingText], a
	ld a, [wHiddenObjectFunctionArgument] ; item ID
	ld [wd11e], a
	call GetItemName
	tx_pre_jump FoundHiddenItemText

INCLUDE "data/hidden_item_coords.asm"

FoundHiddenItemText::
	TX_FAR _FoundHiddenItemText
	TX_ASM
	ld a, [wHiddenObjectFunctionArgument] ; item ID
	ld b, a
	ld c, 1
	call GiveItem
	jr nc, .bagFull
	ld hl, wObtainedHiddenItemsFlags
	ld a, [wHiddenItemOrCoinsIndex]
	ld c, a
	ld b, FLAG_SET
	predef FlagActionPredef
	ld a, SFX_GET_ITEM_2
	call PlaySoundWaitForCurrent
	call WaitForSoundToFinish
	jp TextScriptEnd
.bagFull
	call WaitForTextScrollButtonPress ; wait for button press
	xor a
	ld [wDoNotWaitForButtonPressAfterDisplayingText], a
	ld hl, HiddenItemBagFullText
	call PrintText
	jp TextScriptEnd

HiddenItemBagFullText::
	TX_FAR _HiddenItemBagFullText
	db "@"

HiddenCoins:
	ld b, COIN_CASE
	predef GetQuantityOfItemInBag
	ld a, b
	and a
	ret z
	ld hl, HiddenCoinCoords
	call FindHiddenItemOrCoinsIndex
	ld [wHiddenItemOrCoinsIndex], a
	ld hl, wObtainedHiddenCoinsFlags
	ld a, [wHiddenItemOrCoinsIndex]
	ld c, a
	ld b, FLAG_TEST
	predef FlagActionPredef
	ld a, c
	and a
	ret nz
	xor a
	ld [hUnusedCoinsByte], a
	ld [hCoins], a
	ld [hCoins + 1], a
	ld a, [wHiddenObjectFunctionArgument]
	sub COIN
	cp 10
	jr z, .bcd10
	cp 20
	jr z, .bcd20
	cp 40
	jr z, .bcd20 ; should be bcd40
	jr .bcd100
.bcd10
	ld a, $10
	ld [hCoins + 1], a
	jr .bcdDone
.bcd20
	ld a, $20
	ld [hCoins + 1], a
	jr .bcdDone
.bcd40 ; due to a typo, this is never used
	ld a, $40
	ld [hCoins + 1], a
	jr .bcdDone
.bcd100
	ld a, $1
	ld [hCoins], a
.bcdDone
	ld de, wPlayerCoins + 1
	ld hl, hCoins + 1
	ld c, $2
	predef AddBCDPredef
	ld hl, wObtainedHiddenCoinsFlags
	ld a, [wHiddenItemOrCoinsIndex]
	ld c, a
	ld b, FLAG_SET
	predef FlagActionPredef
	call EnableAutoTextBoxDrawing
	ld a, [wPlayerCoins]
	cp $99
	jr nz, .roomInCoinCase
	ld a, [wPlayerCoins + 1]
	cp $99
	jr nz, .roomInCoinCase
	tx_pre_id DroppedHiddenCoinsText
	jr .done
.roomInCoinCase
	tx_pre_id FoundHiddenCoinsText
.done
	jp PrintPredefTextID

INCLUDE "data/hidden_coins.asm"

FoundHiddenCoinsText::
	TX_FAR _FoundHiddenCoinsText
	TX_SFX_ITEM_2
	db "@"

DroppedHiddenCoinsText::
	TX_FAR _FoundHiddenCoins2Text
	TX_SFX_ITEM_2
	TX_FAR _DroppedHiddenCoinsText
	db "@"

FindHiddenItemOrCoinsIndex:
	ld a, [wHiddenObjectY]
	ld d, a
	ld a, [wHiddenObjectX]
	ld e, a
	ld a, [wCurMap]
	ld b, a
	ld c, -1
.loop
	inc c
	ld a, [hli]
	cp $ff ; end of the list?
	ret z  ; if so, we're done here
	cp b
	jr nz, .next1
	ld a, [hli]
	cp d
	jr nz, .next2
	ld a, [hli]
	cp e
	jr nz, .loop
	ld a, c
	ret
.next1
	inc hl
.next2
	inc hl
	jr .loop
remove address comments 2016-06-12 00:24:04 +00:00			`HiddenItems:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, HiddenItemCoords`
misc 2015-07-19 03:49:52 +00:00			`call FindHiddenItemOrCoinsIndex`
			`ld [wHiddenItemOrCoinsIndex], a`
			`ld hl, wObtainedHiddenItemsFlags`
			`ld a, [wHiddenItemOrCoinsIndex]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, a`
constants for flag actions 2015-07-20 03:45:34 +00:00			`ld b, FLAG_TEST`
Use macros for predef calls/jumps instead of static ids. 2014-06-16 20:57:26 +00:00			`predef FlagActionPredef`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, c`
			`and a`
			`ret nz`
			`call EnableAutoTextBoxDrawing`
misc 2015-07-19 03:49:52 +00:00			`ld a, 1`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wDoNotWaitForButtonPressAfterDisplayingText], a`
misc 2015-07-19 03:49:52 +00:00			`ld a, [wHiddenObjectFunctionArgument] ; item ID`
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`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`tx_pre_jump FoundHiddenItemText`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
			`INCLUDE "data/hidden_item_coords.asm"`

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			`FoundHiddenItemText::`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _FoundHiddenItemText`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
misc 2015-07-19 03:49:52 +00:00			`ld a, [wHiddenObjectFunctionArgument] ; item ID`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, a`
			`ld c, 1`
			`call GiveItem`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`jr nc, .bagFull`
misc 2015-07-19 03:49:52 +00:00			`ld hl, wObtainedHiddenItemsFlags`
clean up wram aliases 2015-07-23 13:07:12 +00:00			`ld a, [wHiddenItemOrCoinsIndex]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, a`
constants for flag actions 2015-07-20 03:45:34 +00:00			`ld b, FLAG_SET`
Use macros for predef calls/jumps instead of static ids. 2014-06-16 20:57:26 +00:00			`predef FlagActionPredef`
Name sound effects 2015-07-19 08:46:12 +00:00			`ld a, SFX_GET_ITEM_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			`call PlaySoundWaitForCurrent`
			`call WaitForSoundToFinish`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jp TextScriptEnd`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`.bagFull`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call WaitForTextScrollButtonPress ; wait for button press`
			`xor a`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wDoNotWaitForButtonPressAfterDisplayingText], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, HiddenItemBagFullText`
			`call PrintText`
			`jp TextScriptEnd`

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			`HiddenItemBagFullText::`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _HiddenItemBagFullText`
			`db "@"`

remove address comments 2016-06-12 00:24:04 +00:00			`HiddenCoins:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, COIN_CASE`
named more variables 2015-08-13 05:14:31 +00:00			`predef GetQuantityOfItemInBag`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, b`
			`and a`
			`ret z`
			`ld hl, HiddenCoinCoords`
misc 2015-07-19 03:49:52 +00:00			`call FindHiddenItemOrCoinsIndex`
			`ld [wHiddenItemOrCoinsIndex], a`
			`ld hl, wObtainedHiddenCoinsFlags`
			`ld a, [wHiddenItemOrCoinsIndex]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, a`
constants for flag actions 2015-07-20 03:45:34 +00:00			`ld b, FLAG_TEST`
Use macros for predef calls/jumps instead of static ids. 2014-06-16 20:57:26 +00:00			`predef FlagActionPredef`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, c`
			`and a`
			`ret nz`
			`xor a`
replace uses of minus one 2015-07-19 21:01:08 +00:00			`ld [hUnusedCoinsByte], a`
money / coins hram constants 2015-07-17 08:21:40 +00:00			`ld [hCoins], a`
			`ld [hCoins + 1], a`
misc 2015-07-19 03:49:52 +00:00			`ld a, [wHiddenObjectFunctionArgument]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`sub COIN`
			`cp 10`
			`jr z, .bcd10`
			`cp 20`
			`jr z, .bcd20`
			`cp 40`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`jr z, .bcd20 ; should be bcd40`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jr .bcd100`
			`.bcd10`
			`ld a, $10`
money / coins hram constants 2015-07-17 08:21:40 +00:00			`ld [hCoins + 1], a`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`jr .bcdDone`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`.bcd20`
			`ld a, $20`
money / coins hram constants 2015-07-17 08:21:40 +00:00			`ld [hCoins + 1], a`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`jr .bcdDone`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`.bcd40 ; due to a typo, this is never used`
			`ld a, $40`
money / coins hram constants 2015-07-17 08:21:40 +00:00			`ld [hCoins + 1], a`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`jr .bcdDone`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`.bcd100`
			`ld a, $1`
money / coins hram constants 2015-07-17 08:21:40 +00:00			`ld [hCoins], a`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`.bcdDone`
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, wPlayerCoins + 1`
money / coins hram constants 2015-07-17 08:21:40 +00:00			`ld hl, hCoins + 1`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, $2`
Use macros for predef calls/jumps instead of static ids. 2014-06-16 20:57:26 +00:00			`predef AddBCDPredef`
misc 2015-07-19 03:49:52 +00:00			`ld hl, wObtainedHiddenCoinsFlags`
clean up wram aliases 2015-07-23 13:07:12 +00:00			`ld a, [wHiddenItemOrCoinsIndex]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, a`
constants for flag actions 2015-07-20 03:45:34 +00:00			`ld b, FLAG_SET`
Use macros for predef calls/jumps instead of static ids. 2014-06-16 20:57:26 +00:00			`predef FlagActionPredef`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call EnableAutoTextBoxDrawing`
			`ld a, [wPlayerCoins]`
			`cp $99`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`jr nz, .roomInCoinCase`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [wPlayerCoins + 1]`
			`cp $99`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`jr nz, .roomInCoinCase`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`tx_pre_id DroppedHiddenCoinsText`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jr .done`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`.roomInCoinCase`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`tx_pre_id FoundHiddenCoinsText`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`.done`
			`jp PrintPredefTextID`

			`INCLUDE "data/hidden_coins.asm"`

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			`FoundHiddenCoinsText::`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _FoundHiddenCoinsText`
Clean up text commands 2016-07-18 06:17:03 +00:00			`TX_SFX_ITEM_2`
			`db "@"`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
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			`DroppedHiddenCoinsText::`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _FoundHiddenCoins2Text`
Clean up text commands 2016-07-18 06:17:03 +00:00			`TX_SFX_ITEM_2`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _DroppedHiddenCoinsText`
			`db "@"`

remove address comments 2016-06-12 00:24:04 +00:00			`FindHiddenItemOrCoinsIndex:`
misc 2015-07-19 03:49:52 +00:00			`ld a, [wHiddenObjectY]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld d, a`
misc 2015-07-19 03:49:52 +00:00			`ld a, [wHiddenObjectX]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld e, a`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wCurMap]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, a`
misc 2015-07-19 03:49:52 +00:00			`ld c, -1`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`.loop`
			`inc c`
			`ld a, [hli]`
			`cp $ff ; end of the list?`
			`ret z ; if so, we're done here`
			`cp b`
misc 2015-07-19 03:49:52 +00:00			`jr nz, .next1`
$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 d`
misc 2015-07-19 03:49:52 +00:00			`jr nz, .next2`
$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 e`
			`jr nz, .loop`
			`ld a, c`
			`ret`
misc 2015-07-19 03:49:52 +00:00			`.next1`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc hl`
misc 2015-07-19 03:49:52 +00:00			`.next2`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc hl`
			`jr .loop`