pokecrystal-board/engine/fruit_trees.asm

163 lines
2.2 KiB
NASM
Raw Normal View History

FruitTreeScript:: ; 44000
2015-01-20 00:01:23 -08:00
callasm GetCurTreeFruit
loadfont
copybytetovar CurFruit
itemtotext $0, $0
2015-01-20 00:01:23 -08:00
writetext FruitBearingTreeText
keeptextopen
2015-01-20 00:01:23 -08:00
callasm TryResetFruitTrees
callasm CheckFruitTree
iffalse .fruit
2015-01-20 00:01:23 -08:00
writetext NothingHereText
closetext
2015-01-20 00:01:23 -08:00
jump .end
.fruit
2015-01-20 00:01:23 -08:00
writetext HeyItsFruitText
copybytetovar CurFruit
giveitem $ff, 1
iffalse .packisfull
keeptextopen
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
keeptextopen
2015-01-20 00:01:23 -08:00
writetext FruitPackIsFullText
closetext
.end
loadmovesprites
end
; 44041
GetCurTreeFruit: ; 44041
ld a, [CurFruitTree]
dec a
call GetFruitTreeItem
ld [CurFruit], a
ret
; 4404c
TryResetFruitTrees: ; 4404c
ld hl, wdc1e
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
2013-10-01 17:47:54 -07:00
callba Function10609b ; empty function
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, wdc1e
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
FruitTreeItems: ; 44097
db BERRY
db BERRY
db BERRY
db BERRY
db PSNCUREBERRY
db PSNCUREBERRY
db BITTER_BERRY
db BITTER_BERRY
db PRZCUREBERRY
db PRZCUREBERRY
db MYSTERYBERRY
db MYSTERYBERRY
db ICE_BERRY
db ICE_BERRY
db MINT_BERRY
db BURNT_BERRY
db RED_APRICORN
db BLU_APRICORN
db BLK_APRICORN
db WHT_APRICORN
db PNK_APRICORN
db GRN_APRICORN
db YLW_APRICORN
db BERRY
db PSNCUREBERRY
db BITTER_BERRY
db PRZCUREBERRY
db ICE_BERRY
db MINT_BERRY
db BURNT_BERRY
; 440b5
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