pokered/engine/overworld/hidden_items.asm

HiddenItems: ; 76688 (1d:6688)
	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: ; 7675b (1d:675b)
	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, [wTrainerScreenX]
	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: ; 76794 (1d:6794)
	TX_FAR _HiddenItemBagFullText
	db "@"

HiddenCoins: ; 76799 (1d:6799)
	ld b, COIN_CASE
	predef IsItemInBag_
	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
	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, [wTrainerScreenX]
	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: ; 76847 (1d:6847)
	TX_FAR _FoundHiddenCoinsText
	db $10,"@"

DroppedHiddenCoinsText: ; 7684d (1d:684d)
	TX_FAR _FoundHiddenCoins2Text
	db $10
	TX_FAR _DroppedHiddenCoinsText
	db "@"

FindHiddenItemOrCoinsIndex: ; 76857 (1d:6857)
	ld a, [wHiddenObjectY]
	ld d, a
	ld a, [wHiddenObjectX]
	ld e, a
	ld a, [W_CURMAP]
	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
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`HiddenItems: ; 76688 (1d:6688)`
			`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"`

			`FoundHiddenItemText: ; 7675b (1d:675b)`
			`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`
			`jr nc, .BagFull`
misc 2015-07-19 03:49:52 +00:00			`ld hl, wObtainedHiddenItemsFlags`
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, [wTrainerScreenX]`
$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`
			`.BagFull`
			`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`

			`HiddenItemBagFullText: ; 76794 (1d:6794)`
			`TX_FAR _HiddenItemBagFullText`
			`db "@"`

			`HiddenCoins: ; 76799 (1d:6799)`
			`ld b, COIN_CASE`
$U-Daniel-PC\Daniel$ Clean up white space, fix label typo 2015-01-23 03:05:13 +00:00			`predef IsItemInBag_`
$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`
			`jr z, .bcd20`
			`jr .bcd100`
			`.bcd10`
			`ld a, $10`
money / coins hram constants 2015-07-17 08:21:40 +00:00			`ld [hCoins + 1], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jr .bcddone`
			`.bcd20`
			`ld a, $20`
money / coins hram constants 2015-07-17 08:21:40 +00:00			`ld [hCoins + 1], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jr .bcddone`
			`.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`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jr .bcddone`
			`.bcd100`
			`ld a, $1`
money / coins hram constants 2015-07-17 08:21:40 +00:00			`ld [hCoins], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +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`
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, [wTrainerScreenX]`
$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`
			`jr nz, .RoomInCoinCase`
			`ld a, [wPlayerCoins + 1]`
			`cp $99`
			`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`
			`.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"`

			`FoundHiddenCoinsText: ; 76847 (1d:6847)`
			`TX_FAR _FoundHiddenCoinsText`
			`db $10,"@"`

			`DroppedHiddenCoinsText: ; 7684d (1d:684d)`
			`TX_FAR _FoundHiddenCoins2Text`
			`db $10`
			`TX_FAR _DroppedHiddenCoinsText`
			`db "@"`

misc 2015-07-19 03:49:52 +00:00			`FindHiddenItemOrCoinsIndex: ; 76857 (1d:6857)`
			`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`
			`ld a, [W_CURMAP]`
			`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`