pokecrystal-board/engine/events/itemfinder.asm
mid-kid e3e0bcd653 #641 fixes and additions. (#646)
Name a lot of text labels according to our conventions
2019-10-20 18:24:17 -04:00

51 lines
798 B
NASM

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 .ItemfinderItemNearbyText
closetext
end
.Script_FoundNothing:
reloadmappart
special UpdateTimePals
writetext .ItemfinderNopeText
closetext
end
.ItemfinderItemNearbyText:
text_far _ItemfinderItemNearbyText
text_end
.ItemfinderNopeText:
text_far _ItemfinderNopeText
text_end