blob: e2ea5439a3bfe7f59dc4b47208d4a0b6f60abf30 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
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 .text_found
playsound SFX_ITEM
pause 60
itemnotify
closetext
end
.no_room
opentext
writetext .text_found
waitbutton
writetext .text_bag_full
waitbutton
closetext
end
.text_found
; found @ !
text_far UnknownText_0x1c0a1c
text_end
.text_bag_full
; But can't carry any more items.
text_far UnknownText_0x1c0a2c
text_end
.TryReceiveItem:
xor a
ld [wScriptVar], a
ld a, [wEngineBuffer1]
ld [wNamedObjectIndexBuffer], a
call GetItemName
ld hl, wStringBuffer3
call CopyName2
ld a, [wEngineBuffer1]
ld [wCurItem], a
ld a, [wCurFruit]
ld [wItemQuantityChangeBuffer], a
ld hl, wNumItems
call ReceiveItem
ret nc
ld a, $1
ld [wScriptVar], a
ret
|
