pokecrystal-board/engine/events/misc_scripts.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

56 lines
907 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 [wNamedObjectIndexBuffer], a
call GetItemName
ld hl, wStringBuffer3
call CopyName2
ld a, [wItemBallItemID]
ld [wCurItem], a
ld a, [wItemBallQuantity]
ld [wItemQuantityChangeBuffer], a
ld hl, wNumItems
call ReceiveItem
ret nc
ld a, $1
ld [wScriptVar], a
ret