pokecrystal/engine/fruit_trees.asm

FruitTreeScript:: ; 44000
	callasm GetCurTreeFruit
	loadfont
	copybytetovar CurFruit
	itemtotext $0, $0
	writetext FruitBearingTreeText
	keeptextopen
	callasm TryResetFruitTrees
	callasm CheckFruitTree
	iffalse .fruit
	writetext NothingHereText
	closetext
	jump .end

.fruit
	writetext HeyItsFruitText
	copybytetovar CurFruit
	giveitem $ff, 1
	iffalse .packisfull
	keeptextopen
	writetext ObtainedFruitText
	callasm PickedFruitTree
	specialsound
	itemnotify
	jump .end

.packisfull
	keeptextopen
	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, DailyFlags
	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
	callba Function10609b ; empty function
	ld b, 1
	jp GetFruitTreeFlag
; 4406a

ResetFruitTrees: ; 4406a
	xor a
	ld hl, FruitTreeFlags
rept 3
	ld [hli], a
endr
	ld [hl], a
	ld hl, DailyFlags
	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
	text_jump _FruitBearingTreeText
	db "@"
; 440ba

HeyItsFruitText: ; 440ba
	text_jump _HeyItsFruitText
	db "@"
; 440bf

ObtainedFruitText: ; 440bf
	text_jump _ObtainedFruitText
	db "@"
; 440c4

FruitPackIsFullText: ; 440c4
	text_jump _FruitPackIsFullText
	db "@"
; 440c9

NothingHereText: ; 440c9
	text_jump _NothingHereText
	db "@"
; 440ce
Use :: to export labels between objects. This fixes the build. 2014-02-02 01:26:39 +00:00			`FruitTreeScript:: ; 44000`
Stop using the preprocessor. 2015-01-20 08:01:23 +00:00			`callasm GetCurTreeFruit`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`loadfont`
			`copybytetovar CurFruit`
			`itemtotext $0, $0`
Stop using the preprocessor. 2015-01-20 08:01:23 +00:00			`writetext FruitBearingTreeText`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`keeptextopen`
Stop using the preprocessor. 2015-01-20 08:01:23 +00:00			`callasm TryResetFruitTrees`
			`callasm CheckFruitTree`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`iffalse .fruit`
Stop using the preprocessor. 2015-01-20 08:01:23 +00:00			`writetext NothingHereText`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`closetext`
Stop using the preprocessor. 2015-01-20 08:01:23 +00:00			`jump .end`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00
			`.fruit`
Stop using the preprocessor. 2015-01-20 08:01:23 +00:00			`writetext HeyItsFruitText`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`copybytetovar CurFruit`
			`giveitem $ff, 1`
			`iffalse .packisfull`
			`keeptextopen`
Stop using the preprocessor. 2015-01-20 08:01:23 +00:00			`writetext ObtainedFruitText`
			`callasm PickedFruitTree`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`specialsound`
			`itemnotify`
Stop using the preprocessor. 2015-01-20 08:01:23 +00:00			`jump .end`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00
			`.packisfull`
			`keeptextopen`
Stop using the preprocessor. 2015-01-20 08:01:23 +00:00			`writetext FruitPackIsFullText`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`closetext`

			`.end`
			`loadmovesprites`
			`end`
			`; 44041`

			`GetCurTreeFruit: ; 44041`
			`ld a, [CurFruitTree]`
			`dec a`
			`call GetFruitTreeItem`
			`ld [CurFruit], a`
			`ret`
			`; 4404c`

			`TryResetFruitTrees: ; 4404c`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`ld hl, DailyFlags`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`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`
* more callab/callba macros 2013-10-02 00:47:54 +00:00			`callba Function10609b ; empty function`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`ld b, 1`
			`jp GetFruitTreeFlag`
			`; 4406a`

			`ResetFruitTrees: ; 4406a`
			`xor a`
			`ld hl, FruitTreeFlags`
Reverted ld_hl_pointer macro 2015-07-21 02:18:18 +00:00			`rept 3`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`ld [hli], a`
Reverted ld_hl_pointer macro 2015-07-21 02:18:18 +00:00			`endr`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`ld [hl], a`
More label updates, moved predefs to new file Also named most of the engine and event flag constants. 2015-07-20 07:51:52 +00:00			`ld hl, DailyFlags`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`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`
shorten redundant text_jump macros 2013-12-01 22:54:09 +00:00			`text_jump _FruitBearingTreeText`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`db "@"`
			`; 440ba`

			`HeyItsFruitText: ; 440ba`
shorten redundant text_jump macros 2013-12-01 22:54:09 +00:00			`text_jump _HeyItsFruitText`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`db "@"`
			`; 440bf`

			`ObtainedFruitText: ; 440bf`
shorten redundant text_jump macros 2013-12-01 22:54:09 +00:00			`text_jump _ObtainedFruitText`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`db "@"`
			`; 440c4`

			`FruitPackIsFullText: ; 440c4`
shorten redundant text_jump macros 2013-12-01 22:54:09 +00:00			`text_jump _FruitPackIsFullText`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`db "@"`
			`; 440c9`

			`NothingHereText: ; 440c9`
shorten redundant text_jump macros 2013-12-01 22:54:09 +00:00			`text_jump _NothingHereText`
split fruit tree asm out into engine/fruit_trees.asm 2013-09-08 03:26:28 +00:00			`db "@"`
			`; 440ce`