pokecrystal-board/engine/events/misc_scripts.asm

56 lines
907 B
NASM
Raw Normal View History

Script_AbortBugContest:
checkflag ENGINE_BUG_CONTEST_TIMER
iffalse .finish
setflag ENGINE_DAILY_BUG_CONTEST
special ContestReturnMons
.finish
end
FindItemInBallScript::
2015-11-11 13:11:08 -08:00
callasm .TryReceiveItem
iffalse .no_room
disappear LAST_TALKED
2015-12-09 15:25:44 -08:00
opentext
writetext .FoundItemText
2015-11-11 13:11:08 -08:00
playsound SFX_ITEM
pause 60
itemnotify
2015-11-25 07:16:29 -08:00
closetext
2015-11-11 13:11:08 -08:00
end
.no_room
2015-12-09 15:25:44 -08:00
opentext
writetext .FoundItemText
2015-11-25 07:16:29 -08:00
waitbutton
writetext .CantCarryItemText
2015-11-25 07:16:29 -08:00
waitbutton
2015-11-11 13:11:08 -08:00
closetext
end
.FoundItemText:
text_far _FoundItemText
text_end
2015-11-11 13:11:08 -08:00
.CantCarryItemText:
text_far _CantCarryItemText
text_end
2015-11-11 13:11:08 -08:00
2018-06-24 07:09:41 -07:00
.TryReceiveItem:
2015-11-11 13:11:08 -08:00
xor a
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ld a, [wItemBallItemID]
2015-12-18 17:07:09 -08:00
ld [wNamedObjectIndexBuffer], a
2015-11-11 13:11:08 -08:00
call GetItemName
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer3
2015-11-11 13:11:08 -08:00
call CopyName2
ld a, [wItemBallItemID]
2018-01-23 14:39:09 -08:00
ld [wCurItem], a
ld a, [wItemBallQuantity]
2015-11-11 13:11:08 -08:00
ld [wItemQuantityChangeBuffer], a
2018-01-23 14:39:09 -08:00
ld hl, wNumItems
2015-11-11 13:11:08 -08:00
call ReceiveItem
ret nc
ld a, $1
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
2015-11-11 13:11:08 -08:00
ret