pokecrystal-board/event/itemball.asm
2015-11-25 10:16:29 -05:00

55 lines
855 B
NASM
Executable File

FindItemInBallScript:: ; 0x122ce
callasm .TryReceiveItem
iffalse .no_room
disappear LAST_TALKED
loadfont
writetext .text_found
playsound SFX_ITEM
pause 60
itemnotify
closetext
end
; 0x122e3
.no_room: ; 0x122e3
loadfont
writetext .text_found
waitbutton
writetext .text_bag_full
waitbutton
closetext
end
; 0x122ee
.text_found: ; 0x122ee
; found @ !
text_jump UnknownText_0x1c0a1c
db "@"
; 0x122f3
.text_bag_full: ; 0x122f3
; But can't carry any more items.
text_jump UnknownText_0x1c0a2c
db "@"
; 0x122f8
.TryReceiveItem: ; 122f8
xor a
ld [ScriptVar], a
ld a, [EngineBuffer1]
ld [wd265], a
call GetItemName
ld hl, StringBuffer3
call CopyName2
ld a, [EngineBuffer1]
ld [CurItem], a
ld a, [CurFruit]
ld [wItemQuantityChangeBuffer], a
ld hl, NumItems
call ReceiveItem
ret nc
ld a, $1
ld [ScriptVar], a
ret
; 12324