pokecrystal/engine/events/itemfinder.asm

ItemFinder:
	farcall CheckForHiddenItems
	jr c, .found_something
	ld hl, .Script_FoundNothing
	jr .resume

.found_something
	ld hl, .Script_FoundSomething

.resume
	call QueueScript
	ld a, $1
	ld [wItemEffectSucceeded], a
	ret

.ItemfinderSound:
	ld c, 4
.sfx_loop
	push bc
	ld de, SFX_SECOND_PART_OF_ITEMFINDER
	call WaitPlaySFX
	ld de, SFX_TRANSACTION
	call WaitPlaySFX
	pop bc
	dec c
	jr nz, .sfx_loop
	ret

.Script_FoundSomething:
	reloadmappart
	special UpdateTimePals
	callasm .ItemfinderSound
	writetext .Text_FoundSomething
	closetext
	end

.Script_FoundNothing:
	reloadmappart
	special UpdateTimePals
	writetext .Text_FoundNothing
	closetext
	end

.Text_FoundSomething:
	; Yes! ITEMFINDER indicates there's an item nearby.
	text_far UnknownText_0x1c0a77
	db "@"

.Text_FoundNothing:
	; Nope! ITEMFINDER isn't responding.
	text_far UnknownText_0x1c0aa9
	db "@"
Remove all address comments 2018-06-24 14:09:41 +00:00			`ItemFinder:`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall CheckForHiddenItems`
Further split bank 4 2015-11-11 21:11:08 +00:00			`jr c, .found_something`
			`ld hl, .Script_FoundNothing`
			`jr .resume`

			`.found_something`
			`ld hl, .Script_FoundSomething`

			`.resume`
			`call QueueScript`
			`ld a, $1`
Elevator 2015-12-17 22:51:32 +00:00			`ld [wItemEffectSucceeded], a`
Further split bank 4 2015-11-11 21:11:08 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.ItemfinderSound:`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`ld c, 4`
Further split bank 4 2015-11-11 21:11:08 +00:00			`.sfx_loop`
			`push bc`
			`ld de, SFX_SECOND_PART_OF_ITEMFINDER`
			`call WaitPlaySFX`
			`ld de, SFX_TRANSACTION`
			`call WaitPlaySFX`
			`pop bc`
			`dec c`
			`jr nz, .sfx_loop`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.Script_FoundSomething:`
Further split bank 4 2015-11-11 21:11:08 +00:00			`reloadmappart`
			`special UpdateTimePals`
			`callasm .ItemfinderSound`
			`writetext .Text_FoundSomething`
Rename several script commands 2015-11-25 15:16:29 +00:00			`closetext`
Further split bank 4 2015-11-11 21:11:08 +00:00			`end`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.Script_FoundNothing:`
Further split bank 4 2015-11-11 21:11:08 +00:00			`reloadmappart`
			`special UpdateTimePals`
			`writetext .Text_FoundNothing`
Rename several script commands 2015-11-25 15:16:29 +00:00			`closetext`
Further split bank 4 2015-11-11 21:11:08 +00:00			`end`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.Text_FoundSomething:`
Further split bank 4 2015-11-11 21:11:08 +00:00			`; Yes! ITEMFINDER indicates there's an item nearby.`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 16:16:55 +00:00			`text_far UnknownText_0x1c0a77`
Further split bank 4 2015-11-11 21:11:08 +00:00			`db "@"`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.Text_FoundNothing:`
Further split bank 4 2015-11-11 21:11:08 +00:00			`; Nope! ITEMFINDER isn't responding.`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 16:16:55 +00:00			`text_far UnknownText_0x1c0aa9`
Further split bank 4 2015-11-11 21:11:08 +00:00			`db "@"`