pokecrystal-board/engine/events/fruit_trees.asm

133 lines
1.8 KiB
NASM
Raw Normal View History

FruitTreeScript:: ; 44000
2015-01-20 00:01:23 -08:00
callasm GetCurTreeFruit
2015-12-09 15:25:44 -08:00
opentext
copybytetovar CurFruit
itemtotext $0, $0
2015-01-20 00:01:23 -08:00
writetext FruitBearingTreeText
2015-11-29 19:29:45 -08:00
buttonsound
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
2015-01-20 00:01:23 -08:00
jump .end
.fruit
2015-01-20 00:01:23 -08:00
writetext HeyItsFruitText
copybytetovar CurFruit
2015-11-04 17:20:14 -08:00
giveitem ITEM_FROM_MEM
iffalse .packisfull
2015-11-29 19:29:45 -08:00
buttonsound
2015-01-20 00:01:23 -08:00
writetext ObtainedFruitText
callasm PickedFruitTree
specialsound
itemnotify
2015-01-20 00:01:23 -08:00
jump .end
.packisfull
2015-11-29 19:29:45 -08:00
buttonsound
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
; 44041
GetCurTreeFruit: ; 44041
ld a, [CurFruitTree]
dec a
call GetFruitTreeItem
ld [CurFruit], a
ret
; 4404c
TryResetFruitTrees: ; 4404c
ld hl, wDailyFlags
bit 4, [hl]
ret nz
jp ResetFruitTrees
; 44055
CheckFruitTree: ; 44055
ld b, 2
call GetFruitTreeFlag
ld a, c
ld [ScriptVar], a
ret
; 4405f
PickedFruitTree: ; 4405f
2017-12-24 09:47:30 -08:00
farcall TrainerRankings_FruitPicked
ld b, 1
jp GetFruitTreeFlag
; 4406a
ResetFruitTrees: ; 4406a
xor a
ld hl, FruitTreeFlags
ld [hli], a
ld [hli], a
ld [hli], a
ld [hl], a
ld hl, wDailyFlags
set 4, [hl]
ret
; 44078
GetFruitTreeFlag: ; 44078
push hl
push de
ld a, [CurFruitTree]
dec a
ld e, a
ld d, 0
ld hl, FruitTreeFlags
call FlagAction
pop de
pop hl
ret
; 4408a
GetFruitTreeItem: ; 4408a
push hl
push de
ld e, a
ld d, 0
ld hl, FruitTreeItems
add hl, de
ld a, [hl]
pop de
pop hl
ret
; 44097
INCLUDE "data/items/fruit_trees.asm"
FruitBearingTreeText: ; 440b5
2013-12-01 14:54:09 -08:00
text_jump _FruitBearingTreeText
db "@"
; 440ba
HeyItsFruitText: ; 440ba
2013-12-01 14:54:09 -08:00
text_jump _HeyItsFruitText
db "@"
; 440bf
ObtainedFruitText: ; 440bf
2013-12-01 14:54:09 -08:00
text_jump _ObtainedFruitText
db "@"
; 440c4
FruitPackIsFullText: ; 440c4
2013-12-01 14:54:09 -08:00
text_jump _FruitPackIsFullText
db "@"
; 440c9
NothingHereText: ; 440c9
2013-12-01 14:54:09 -08:00
text_jump _NothingHereText
db "@"
; 440ce