mirror of https://github.com/pret/pokecrystal.git
56 lines
907 B
NASM
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
|