pokecrystal-board/engine/events/misc_scripts.asm
Rangi 99e66c2557 Rename some labels
- Remove "Buffer" suffix from some byte and word quantities
- Change "Ptr" to "Pointer"

Fixes #789
2020-12-23 16:29:30 -05:00

56 lines
895 B
NASM

Script_AbortBugContest:
checkflag ENGINE_BUG_CONTEST_TIMER
iffalse .finish
setflag ENGINE_DAILY_BUG_CONTEST
special ContestReturnMons
.finish
end
FindItemInBallScript::
callasm .TryReceiveItem
iffalse .no_room
disappear LAST_TALKED
opentext
writetext .FoundItemText
playsound SFX_ITEM
pause 60
itemnotify
closetext
end
.no_room
opentext
writetext .FoundItemText
waitbutton
writetext .CantCarryItemText
waitbutton
closetext
end
.FoundItemText:
text_far _FoundItemText
text_end
.CantCarryItemText:
text_far _CantCarryItemText
text_end
.TryReceiveItem:
xor a
ld [wScriptVar], a
ld a, [wItemBallItemID]
ld [wNamedObjectIndex], a
call GetItemName
ld hl, wStringBuffer3
call CopyName2
ld a, [wItemBallItemID]
ld [wCurItem], a
ld a, [wItemBallQuantity]
ld [wItemQuantityChange], a
ld hl, wNumItems
call ReceiveItem
ret nc
ld a, $1
ld [wScriptVar], a
ret