pokecrystal-board/engine/events/fruit_trees.asm

117 lines
1.7 KiB
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
FruitTreeScript::
2015-01-20 00:01:23 -08:00
callasm GetCurTreeFruit
2015-12-09 15:25:44 -08:00
opentext
readmem wCurFruit
getitemname STRING_BUFFER_3, USE_SCRIPT_VAR
2015-01-20 00:01:23 -08:00
writetext FruitBearingTreeText
2019-11-03 09:48:54 -08:00
promptbutton
2015-01-20 00:01:23 -08:00
callasm TryResetFruitTrees
callasm CheckFruitTree
iffalse .fruit
2015-01-20 00:01:23 -08:00
writetext NothingHereText
2015-11-25 07:16:29 -08:00
waitbutton
sjump .end
.fruit
2015-01-20 00:01:23 -08:00
writetext HeyItsFruitText
readmem wCurFruit
2015-11-04 17:20:14 -08:00
giveitem ITEM_FROM_MEM
iffalse .packisfull
2019-11-03 09:48:54 -08:00
promptbutton
2015-01-20 00:01:23 -08:00
writetext ObtainedFruitText
callasm PickedFruitTree
specialsound
itemnotify
sjump .end
.packisfull
2019-11-03 09:48:54 -08:00
promptbutton
2015-01-20 00:01:23 -08:00
writetext FruitPackIsFullText
2015-11-25 07:16:29 -08:00
waitbutton
.end
2015-11-25 07:16:29 -08:00
closetext
end
2018-06-24 07:09:41 -07:00
GetCurTreeFruit:
2018-01-23 14:39:09 -08:00
ld a, [wCurFruitTree]
dec a
call GetFruitTreeItem
2018-01-23 14:39:09 -08:00
ld [wCurFruit], a
ret
2018-06-24 07:09:41 -07:00
TryResetFruitTrees:
ld hl, wDailyFlags1
bit DAILYFLAGS1_ALL_FRUIT_TREES_F, [hl]
ret nz
jp ResetFruitTrees
2018-06-24 07:09:41 -07:00
CheckFruitTree:
ld b, 2
call GetFruitTreeFlag
ld a, c
2023-09-30 10:12:57 -07:00
ldh [hScriptVar], a
ret
2018-06-24 07:09:41 -07:00
PickedFruitTree:
ld b, 1
jp GetFruitTreeFlag
2018-06-24 07:09:41 -07:00
ResetFruitTrees:
xor a
2018-01-23 14:39:09 -08:00
ld hl, wFruitTreeFlags
rept (NUM_FRUIT_TREES + 7) / 8 - 1
ld [hli], a
endr
ld [hl], a
ld hl, wDailyFlags1
set DAILYFLAGS1_ALL_FRUIT_TREES_F, [hl]
ret
2018-06-24 07:09:41 -07:00
GetFruitTreeFlag:
push hl
push de
2018-01-23 14:39:09 -08:00
ld a, [wCurFruitTree]
dec a
ld e, a
ld d, 0
2018-01-23 14:39:09 -08:00
ld hl, wFruitTreeFlags
call FlagAction
pop de
pop hl
ret
2018-06-24 07:09:41 -07:00
GetFruitTreeItem:
push hl
push de
ld e, a
ld d, 0
ld hl, FruitTreeItems
add hl, de
ld a, [hl]
pop de
pop hl
ret
INCLUDE "data/items/fruit_trees.asm"
2018-06-24 07:09:41 -07:00
FruitBearingTreeText:
text_far _FruitBearingTreeText
text_end
2018-06-24 07:09:41 -07:00
HeyItsFruitText:
text_far _HeyItsFruitText
text_end
2018-06-24 07:09:41 -07:00
ObtainedFruitText:
text_far _ObtainedFruitText
text_end
2018-06-24 07:09:41 -07:00
FruitPackIsFullText:
text_far _FruitPackIsFullText
text_end
2018-06-24 07:09:41 -07:00
NothingHereText:
text_far _NothingHereText
text_end