pokecrystal-board/engine/events/misc_scripts.asm

63 lines
1.0 KiB
NASM
Raw Normal View History

Script_AbortBugContest: ; 0x122c1
checkflag ENGINE_BUG_CONTEST_TIMER
iffalse .finish
setflag ENGINE_DAILY_BUG_CONTEST
2018-01-02 08:13:57 -08:00
special Special_ContestReturnMons
.finish
end
2015-11-11 13:11:08 -08:00
FindItemInBallScript:: ; 0x122ce
callasm .TryReceiveItem
iffalse .no_room
disappear LAST_TALKED
2015-12-09 15:25:44 -08:00
opentext
2015-11-11 13:11:08 -08:00
writetext .text_found
playsound SFX_ITEM
pause 60
itemnotify
2015-11-25 07:16:29 -08:00
closetext
2015-11-11 13:11:08 -08:00
end
; 0x122e3
.no_room ; 0x122e3
2015-12-09 15:25:44 -08:00
opentext
2015-11-11 13:11:08 -08:00
writetext .text_found
2015-11-25 07:16:29 -08:00
waitbutton
2015-11-11 13:11:08 -08:00
writetext .text_bag_full
2015-11-25 07:16:29 -08:00
waitbutton
2015-11-11 13:11:08 -08:00
closetext
end
; 0x122ee
.text_found ; 0x122ee
2015-11-11 13:11:08 -08:00
; found @ !
text_jump UnknownText_0x1c0a1c
db "@"
; 0x122f3
.text_bag_full ; 0x122f3
2015-11-11 13:11:08 -08:00
; But can't carry any more items.
text_jump UnknownText_0x1c0a2c
db "@"
; 0x122f8
.TryReceiveItem: ; 122f8
xor a
ld [ScriptVar], a
ld a, [EngineBuffer1]
2015-12-18 17:07:09 -08:00
ld [wNamedObjectIndexBuffer], a
2015-11-11 13:11:08 -08:00
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