LaurelForestPokemonOnlyPikachu:
	faceplayer
	cry PIKACHU
	opentext

	checkevent EVENT_POKEONLY_FINISHED_PIKACHU_ROOT_QUEST
	sif true, then
		scall .CheckIfMainMonIsInPikachuLine_SkipEventCheck
		sif true, then
			writetext .thanks_for_the_adventure_text
			checkevent EVENT_POKEONLY_PIKACHU_GAVE_LIGHT_BALL
			sif true
				endtext
			writetext .heres_my_light_ball_text
			jump LaurelForestPokemonOnly_PikachuTryGiveLightBallToPlayer
		sendif
	sendif

	checkevent EVENT_POKEONLY_FINISHED_PIKACHU_QUEST
	sif true, then
		scall .CheckIfMainMonIsInPikachuLine
		iftrue .pikachuAsksForAdventure
		checkevent EVENT_POKEONLY_PIKACHU_MAD
		sif true, then
			checkevent EVENT_POKEONLY_PIKACHU_GAVE_CURO_SHARD
			sif true
				jumptext .what_are_you_doing_here_text
			writetext .heres_the_junk_you_wanted_text
			jump .angryPikachuGivesCuroShard
		sendif
		checkevent EVENT_POKEONLY_PIKACHU_GAVE_CURO_SHARD
		iffalse .satisfiedPikachuGivesCuroShard
		jumptext .full_for_now_text
	sendif

	checkevent EVENT_POKEONLY_PIKACHU_DEFEATED
	sif true, then
		scall .CheckIfMainMonIsInPikachuLine
		iftrue .pikachuAsksForAdventure
		checkevent EVENT_POKEONLY_PIKACHU_GAVE_CURO_SHARD
		iffalse	.defeatedPikachuGivesCuroShard
		jumptext .after_defeated_text
	sendif

	checkevent EVENT_POKEONLY_PIKACHU_MAD
	iftrue .pikachuMadWantsBurntBerries

	checkevent EVENT_POKEONLY_PIKACHU_GAVE_OBJECTIVE
	iftrue .pikachuGaveObjective

	scall .CheckIfMainMonIsInPikachuLine
	iftrue .pikachuAsksForAdventure

	writetext .asking_for_burnt_berries_text
	yesorno
	sif true, then
		setevent EVENT_POKEONLY_PIKACHU_GAVE_OBJECTIVE
		jumptext .cant_wait_to_eat_text
	sendif
	writetext .wanna_fight_text
	writecode VAR_BATTLETYPE, BATTLETYPE_TRAP
	loadwildmon PIKACHU, 25, LIGHT_BALL, SURF, THUNDERBOLT, DOUBLE_TEAM, SIGNAL_BEAM
	startbattle
	reloadmap
	special HealParty
	scriptstartasm
	ld a, [wBattleResult]
	and $3f
	ld [hScriptVar], a
	scriptstopasm
	sif true, then
		setevent EVENT_POKEONLY_PIKACHU_MAD
		jumptext .must_deliver_two_burnt_berries_text
	sendif
	setevent EVENT_POKEONLY_PIKACHU_DEFEATED
.defeatedPikachuGivesCuroShard
	opentext
	writetext .defeated_text
	giveitem CURO_SHARD, 1
	sif false, then
		waitbutton
		writetext .cant_give_curo_shard_nice_text
	selse
		playwaitsfx SFX_ITEM
		waitbutton
		setevent EVENT_POKEONLY_PIKACHU_GAVE_CURO_SHARD
	sendif
	closetext
	end

.thanks_for_the_adventure_text
	db TX_COMPRESSED, $29, $3a, $45, $24, $4c, $02, $b9, $69
	db $37, $b7, $20, $c6, $4b, $69, $67
	
	db $c4, $01, $49, $0a, $0e, $2c, $21, $b4, $4a, $8d
	db $66, $f0, $31, $ac, $14, $bd, $45, $82, $96, $10, $f1
	db $a6, $80

.heres_my_light_ball_text
	db TX_COMPRESSED, $76, $9f, $c0, $41, $6a, $55, $a4, $b8, $f8
	db $27, $b1, $c7, $ca, $6e, $09, $6f, $7b
	
	db $4a, $01, $d8, $98, $e3, $18, $9a, $ce, $02, $0b, $53, $90, $f1
	db $07, $30

.what_are_you_doing_here_text
	db TX_COMPRESSED, $a7, $81, $ce, $97, $ff, $2a, $4e, $dc, $d5, $9c, $04, $16
	db $9e, $45, $8f, $bd, $99, $08, $c9, $cc, $49, $ac, $e9
	db $69, $a0

.heres_the_junk_you_wanted_text
	db TX_COMPRESSED, $72, $85, $a8, $b3, $de, $f4, $14, $ab, $49
	db $6f, $5a, $76, $e5, $38, $d1, $14, $a3, $a9, $80, $5a, $26, $69
	
	db $40, $29, $8c, $87, $2d, $26, $4f, $c5, $6d
	db $5b, $c1, $27, $41, $45, $66, $ce, $b4, $83, $8e, $8b
	db $15, $2b, $31, $93, $98, $41, $b2, $7e
	db $07, $30

.full_for_now_text
	db TX_COMPRESSED, $74, $59, $30, $6b, $bd, $98, $05, $70, $81, $ab
	db $8d, $34

.after_defeated_text
	db TX_COMPRESSED, $e1, $e9, $ea, $0f, $f3, $a7, $71, $f3, $8a, $cf
	db $d4, $d0

.asking_for_burnt_berries_text
	db TX_COMPRESSED, $76, $9f, $c4, $9f, $7a, $19, $69, $35, $9f

	db $10, $0e, $74, $d3

	db $c0, $01, $d5, $c4, $19, $be, $89, $d1, $a9, $1c, $74
	db $58, $f0, $85, $9d, $d8, $28, $96, $89, $ca, $c1, $71

	db $00, $dc, $7d, $ec, $04, $16, $a7, $21, $9a, $4c
	db $bd, $c9, $dc, $7c, $e2, $02, $f9, $da, $46, $4e
	db $55, $5e, $a2, $c1, $4b, $0c, $3d, $ba

	db $50, $15, $f5, $01, $fc, $75, $02, $4e, $82, $87
	db $b6, $f0, $93, $4b, $25, $c1, $23, $5a, $c6, $68
	db $f5, $34

.cant_wait_to_eat_text
	db TX_COMPRESSED, $6e, $12, $64, $d7, $83, $5d

	db $e2, $01, $d4, $67, $49, $4c, $95, $68, $ee, $58
	db $5e, $3d, $bf, $c3, $db, $fc, $3d, $be
	db $34, $d0

.wanna_fight_text
	db TX_COMPRESSED, $76, $26, $3f, $2d, $3b, $78, $a0, $ef

	db $88, $07, $28, $5a, $95, $69, $09, $b3, $01, $f2, $9b, $a5

	db $00, $dc, $dc, $3d, $98, $0f, $94, $df
	db $1a, $78, $80

.defeated_text
	db TX_COMPRESSED, $76, $26, $3f, $1d, $89, $8f, $c7, $62, $63, $f1, $01, $5a, $c1, $71

	db $00, $e5, $0b, $53, $21, $25, $32, $27, $41, $8e, $58
	db $5e, $e4, $ee, $3e, $73, $48, $0a, $d2, $32, $73, $4f

	db $00, $05, $30, $ae, $72, $11, $93, $98, $7a, $80, $50, $24
	db $79, $f3, $fc, $49, $ac, $f1, $4d, $8d, $ad, $2c
	db $2a, $94, $27, $57, $9f
	db $53, $40

.must_deliver_two_burnt_berries_text
	db TX_COMPRESSED, $72, $8b, $ab, $63

	db $c4, $03, $ac, $20, $20, $b5, $32, $12, $53, $25, $5a, $4b
	db $7a, $c3, $39, $3b, $89, $69, $77, $f8, $08, $2d
	db $2a, $56, $77, $66, $b9, $93, $e8, $c1, $8d, $72, $ea
	db $0a, $a1, $26, $96, $4b, $82, $46, $b5, $8c, $d1, $4f

	db $00, $0a, $78, $02, $b8, $7d, $41, $f1
	db $a6, $80

.cant_give_curo_shard_nice_text
	db TX_COMPRESSED, $62, $60, $bf, $1d, $46, $74, $94, $c9, $c8, $c1
	db $8d, $e0, $41, $6a, $5a, $4e, $36, $b4, $b0, $c5, $09, $d5
	
	db $e4, $00, $f0, $80, $82, $d2, $e2, $bd, $e6, $0d
	db $0f, $60, $d7, $7b
	db $ea, $68

.pikachuAsksForAdventure
	writetext -1
	writetext .adventure_request_text
	yesorno
	sif false
		jumptext .no_adventure_text
	checkcode VAR_PARTYCOUNT
	if_not_equal 1, LaurelForestPokemonOnly_NotEnoughRoomInParty
	writetext .accepted_adventure_text
	playwaitsfx SFX_CHOOSE_A_CARD
	waitbutton
	givepoke PIKACHU, 25, SITRUS_BERRY, 1, .pikachu_name, LaurelForestOTName
	disappear 9
	closetext
	end

.adventure_request_text
	db TX_COMPRESSED, $62, $1a, $a5, $41, $6b, $b9, $80, $82
	db $d3, $dd, $1a, $91, $cb, $0c, $e4, $30, $24
	db $55, $b9, $06, $32, $5b, $4b, $39, $50, $ed, $31, $f3, $a5
	db $a6, $80

.accepted_adventure_text
	db TX_COMPRESSED, $61, $2c, $f6, $f8

	db $80, $c7, $3b, $c5, $30, $19, $33, $10, $17
	db $cd, $eb, $d4, $58, $28, $24, $6b, $58, $cd, $1c

	db $40, $70, $8d, $4b, $59, $4b, $52, $9c, $08, $c8, $79
	db $7a, $d2, $70, $46, $ae, $c1, $71
	db $a6, $80

.no_adventure_text
	db TX_COMPRESSED, $ae, $aa, $bf, $1d, $4a, $b5, $11, $67, $bd, $e8
	db $27, $ba, $10, $a9, $0c, $9c, $cc, $02, $ba, $b5, $79
	db $55, $61, $83, $be
	db $34, $d0

.pikachu_name
	db "Pikachu@"

.pikachuGaveObjective
	takeitem BURNT_BERRY, 1
	sif false
		jumptext .where_is_burnt_berry_text
.satisfiedPikachuGivesCuroShard
	writetext .delivered_burnt_berry_text
	giveitem CURO_SHARD, 1
	sif false, then
		waitbutton
		writetext .happy_pikachu_full_bag_text
	selse
		playwaitsfx SFX_ITEM
		waitbutton
		setevent EVENT_POKEONLY_PIKACHU_GAVE_CURO_SHARD
	sendif
	setevent EVENT_POKEONLY_FINISHED_PIKACHU_QUEST
	closetext
	end

.where_is_burnt_berry_text
	db TX_COMPRESSED, $6e, $93, $59, $c1, $a2, $5a
	db $4d, $e1, $26, $96, $4b, $82, $46, $b5, $82, $a5

	db $00, $ea, $33, $a4, $a6, $44, $19, $c1, $df
	db $a9, $a0

.delivered_burnt_berry_text
	db TX_COMPRESSED, $29, $3a, $45, $28, $08, $2d, $4c, $02, $b9, $69
	db $37, $84, $9a, $59, $2e, $09, $1a, $d6, $0b

	db $88, $0a, $d1, $2d, $3a, $45, $24, $7e, $24, $d6, $78
	db $9e, $d8, $da, $d2, $c3, $14, $27, $57, $9f
	db $53, $40

.happy_pikachu_full_bag_text
	db TX_COMPRESSED, $76, $9f, $c0, $41, $69, $71, $5e, $f3, $06
	db $87, $b0, $6b, $bd
	
	db $f0, $07, $4e, $1e, $c5, $67, $2a, $d1, $d8, $c9
	db $cb, $c9, $35, $9c, $1e, $10, $10, $5a, $95, $69
	db $2d, $55, $a4, $68, $8d, $ad, $2c, $31, $42, $75, $79
	db $f5, $34
	
.pikachuMadWantsBurntBerries
	takeitem BURNT_BERRY, 2
	sif false
		jumptext .dont_come_back_without_burnt_berries_text
	writetext .delivered_two_burnt_berries_text
.angryPikachuGivesCuroShard
	writetext .handed_over_text
	giveitem CURO_SHARD, 1
	sif false, then
		waitbutton
		writetext .angry_pikachu_cant_deliver_curo_shard_text
	selse
		playwaitsfx SFX_ITEM
		waitbutton
		setevent EVENT_POKEONLY_PIKACHU_GAVE_CURO_SHARD
	sendif
	setevent EVENT_POKEONLY_FINISHED_PIKACHU_QUEST
	closetext
	end

.delivered_two_burnt_berries_text
	db TX_COMPRESSED, $53, $19, $37, $bd, $05

	db $c4, $03, $a7, $0f, $67, $4e, $e0, $20, $b5, $39
	db $0b, $d8, $05, $70, $81, $ab, $f3, $49, $99, $7a, $a4
	db $60, $2d, $23, $44, $a7, $1a, $22, $94, $75, $30, $0b, $44
	db $cb, $c7, $ab, $e8, $cd, $7e
	db $07, $30
	
.handed_over_text
	db TX_COMPRESSED, $e1, $1a, $96, $b2, $96, $a5, $43, $ef, $70, $6b, $bd
	db $04, $f2, $74, $99, $3c, $c0, $83, $1a, $e5, $a4
	db $d5, $36, $b4, $b0, $c5, $09, $d5, $e7
	db $8d, $34

.dont_come_back_without_burnt_berries_text
	db TX_COMPRESSED, $62, $60, $bf, $32, $12, $53, $23, $21, $7c
	db $de, $57, $ac, $a9, $4a, $87, $69, $0b
	db $56, $02, $d2, $72, $ea, $0c, $12, $69, $64
	db $b7, $84, $8d, $6b, $19, $a3
	db $8d, $34

.angry_pikachu_cant_deliver_curo_shard_text
	db TX_COMPRESSED, $62, $60, $bf, $1d, $46, $74, $94, $c9, $c8, $c1
	db $8d, $eb, $48, $d1, $29, $c6, $88, $a5, $2c, $30, $10, $5a
	
	db $00, $3c, $20, $20, $b4, $b8, $af, $79, $83
	db $43, $d8, $35, $de, $f1
	db $a6, $80

.CheckIfMainMonIsInPikachuLine
	checkevent EVENT_POKEONLY_FINISHED_PIKACHU_ROOT_QUEST
	sif true, then
		writebyte 0
		end
	sendif
.CheckIfMainMonIsInPikachuLine_SkipEventCheck
	checkpoke PIKACHU
	writehalfword .another_pikachu_text
	sif true
		end
	checkpoke RAICHU
	writehalfword .raichu_text
	sif true
		end
	checkpoke PICHU
	writehalfword .pichu_text
	end

.another_pikachu_text
	db TX_COMPRESSED, $6e, $1a, $bf, $34, $81, $b4, $9a
	db $de, $e1, $1a, $96, $b2, $96, $b8
	db $83, $98

.raichu_text
	db TX_COMPRESSED, $6e, $1a, $bf, $36, $39, $34, $6c, $a5, $ae
	db $2f, $14, $9d, $bc, $51, $01, $8c, $84, $3d
	db $e2, $0e, $60

.pichu_text
	db TX_COMPRESSED, $76, $9f, $c4, $86, $a8, $cb, $56, $7f
	db $7b, $67, $47, $77, $d3, $9c, $23, $65, $2d, $71
	db $07, $30

LaurelForestPokemonOnly_PikachuTryGiveLightBallToPlayer:
	callasm .GiveLightBallToPlayer
	sif false
		jumptext .already_holding_item_text
	writetext .gave_light_ball_text
	playwaitsfx SFX_ITEM
	waitbutton
	setevent EVENT_POKEONLY_PIKACHU_GAVE_LIGHT_BALL
	closetext
	end

.GiveLightBallToPlayer:
	ld a, [wPartySpecies]
	ld hl, .PikachuSpeciesLine
	call IsInSingularArray
	ld hl, PartyMon1Item
	jr c, .checkFirstItem
	ld hl, PartyMon2Item
.checkFirstItem
	ld a, [hl]
	and a
	jr nz, .fail
	ld [hl], LIGHT_BALL
	xor a
.fail
	ld [hScriptVar], a
	ret	

.PikachuSpeciesLine
	db PICHU, PIKACHU, RAICHU
	db $ff

.already_holding_item_text
	db TX_COMPRESSED, $76, $9f, $c0, $41, $68, $b8, $e2, $43, $dc, $8c, $9c
	db $bd, $a4, $0d, $a4, $d7, $07, $66, $ff
	
	db $80, $3a, $70, $f6, $2b, $39, $56, $8e, $c6, $4e
	db $5e, $c0, $2b, $95, $24, $c9, $01, $05, $a7, $0f
	
	db $40, $2b, $39, $aa, $fa, $72, $c3, $16, $6c, $98, $c1
	db $8d, $e7, $c1, $4c, $71, $f2, $9b, $82, $5b, $de
	db $fa, $9a

.gave_light_ball_text
	text_from_ram wPartyMonNicknames
	db TX_COMPRESSED
	db $79, $66, $c9, $8c, $18, $f3, $36, $63, $8f, $94
	db $da, $a1, $2d, $ef, $78
	db $d3, $40

LaurelForestPokemonOnlyFruitTree:
	checkevent EVENT_POKEONLY_PIKACHU_IN_PARTY
	iftrue .pikachuGnawsOnRoot
	checkevent EVENT_POKEONLY_FRUIT_TREE_DEAD
	sif true
		jumptext .out_of_berries_text
	opentext
	giveitem ORAN_BERRY, 1
	writetext .picked_berry_text
	playwaitsfx SFX_ITEM
	setevent EVENT_POKEONLY_FRUIT_TREE_DEAD
	closetext
	end

.out_of_berries_text
	db TX_COMPRESSED, $29, $23, $44, $b5, $99, $ca, $82, $4a
	db $63, $dc, $ac, $35, $4d, $20, $28, $f8, $56
	db $6a, $84, $8d, $6b, $19, $a2, $9e
	db $0a, $68

.picked_berry_text
	db TX_COMPRESSED, $29, $23, $44, $b5, $99, $cd, $10, $20, $f5, $68
	db $7b, $3a, $fe, $f2, $79, $a7

	db $80, $01, $49, $35, $9e, $28, $12, $1c, $76, $bd
	db $23, $c2, $46, $b5, $82, $9d, $3c, $2f, $f1, $f1, $f2, $9b
	db $55, $a8, $95, $1f, $7b, $04, $0d, $95, $28, $3b

	db $e2, $01, $ca, $16, $a0, $81, $b2, $a4, $79, $96, $93
	db $78, $48, $d6, $b0, $5e
	db $a6, $80
	
.pikachuGnawsOnRoot
	moveperson 9, 21, 56
	checkcode VAR_FACING
	sif =, DOWN, then
		spriteface 9, DOWN
	selse
		spriteface 9, RIGHT
	sendif
	appear 9
	cry PIKACHU
	opentext
	writetext .good_fruit_tree_text
	closetext
	checkcode VAR_FACING
	sif =, DOWN, then
		applymovement 9, .PikachuMovesDownAndFacesRight
	selse
		applymovement 9, .PikachuMovesRightAndFacesDown
	sendif
	opentext
	writetext .look_at_root_text
	closetext
	checkcode VAR_FACING
	sif =, DOWN, then
		applymovement 9, .PikachuMovesUpAndFacesRight
	selse
		applymovement 9, .PikachuMovesLeftAndFacesDown
	sendif
	faceperson PLAYER, 9
	opentext
	writetext .satisfied_from_root_text
	checkevent EVENT_POKEONLY_FINISHED_PIKACHU_QUEST
	iftrue .noCuroShard
	checkevent EVENT_POKEONLY_PIKACHU_DEFEATED
	iftrue .noCuroShard
	writetext .heres_a_curo_shard_text
	giveitem CURO_SHARD, 1
	playwaitsfx SFX_ITEM
	setevent EVENT_POKEONLY_PIKACHU_GAVE_CURO_SHARD
	writetext .something_extra_text
	jump .giveLightBall
.noCuroShard
	writetext .light_ball_substitute_reward_text
.giveLightBall
	writetext .dont_worry_text
	callasm RemoveSecondPartyMember
	scall LaurelForestPokemonOnly_PikachuTryGiveLightBallToPlayer
	setevent EVENT_POKEONLY_FINISHED_PIKACHU_ROOT_QUEST
	applymovement 9, .PikachuExitsFromRootQuest
	disappear 9
	moveperson 9, 47, 51
	appear 9
	end

.PikachuMovesDownAndFacesRight
	step_down
	turn_head_right
	step_end
	
.PikachuMovesRightAndFacesDown
	step_right
	turn_head_down
	step_end

.PikachuMovesUpAndFacesRight
	step_up
	turn_head_right
	step_end

.PikachuMovesLeftAndFacesDown
	step_left
	turn_head_down
	step_end

.PikachuExitsFromRootQuest
	step_left
	step_left
	step_left
	step_left
	step_left
	step_end

.good_fruit_tree_text
	db TX_COMPRESSED, $29, $23, $44, $e8, $42, $a4, $89, $d1, $a9, $1c
	db $d7, $b9, $08, $73, $30, $5b, $43, $b9, $6b, $33
	
	db $e2, $01, $d3, $87, $b1, $06, $71, $21, $aa, $72, $10
	db $e5, $eb, $49, $c5, $66, $b5, $82, $83, $47
	db $a9, $e2

.look_at_root_text
	db TX_COMPRESSED, $ad, $9b, $6b, $7b, $d0, $5f, $98, $05, $7c, $9d
	db $bd, $69, $38, $ac, $d6, $b1, $9a, $3f, $29, $c6, $91
	
	db $60, $2f, $54, $8e, $6c, $e8, $42, $a5, $36
	db $de, $b4, $ed, $c5, $84, $37

	db $c4, $06, $39, $dc, $7c, $e7, $24, $da, $a0, $49, $07
	db $6f, $60, $15, $cd, $98, $1d, $51, $06, $c8, $49, $94

	db $78, $05, $3c, $1c, $93, $6a, $a7

	db $80, $05, $3c, $1c, $93, $6a, $a7

	db $80, $05, $3c, $1c, $93, $6a, $a7
	db $82, $9e, $20

.satisfied_from_root_text
	db TX_COMPRESSED, $76, $26, $29, $e0, $8e, $8b, $27, $21, $0e

	db $7c, $00, $a4, $e9, $14, $91, $30, $0a, $e5, $ea, $90, $c9
	db $cb, $cf, $9c, $49, $ac, $ff, $1d, $16
	db $00, $dc, $17, $a3, $cc, $b0, $ce, $9e, $83
	db $1b, $cf, $82, $8a, $cf, $59, $4c, $de, $84, $87
	db $e0, $73

.heres_a_curo_shard_text
	db TX_COMPRESSED, $62, $6b, $3c, $53, $63, $6b, $4b
	db $0b, $ca, $13, $ab, $cf
	db $a9, $e2

.something_extra_text
	db TX_COMPRESSED, $76, $9f, $cd, $44, $40, $5f, $3b, $48, $c9
	db $cb, $c7, $4e, $da, $f7, $f0, $10, $5a, $8c, $e9
	
	db $00, $27, $41, $8e, $3e, $0a, $63, $8f, $94
	db $db, $c2, $5b, $de, $f1
	db $07, $30

.light_ball_substitute_reward_text
	db TX_COMPRESSED, $62, $fb, $ff, $8e, $b1, $a7, $23, $06, $38, $08, $2d
	db $3d, $b1, $b5, $a5, $86, $28, $4e, $af, $33
	
	db $50, $02, $d3, $a4, $52, $47, $e2, $b6
	db $ad, $e7, $53, $7a, $b3, $dc, $82, $9c, $e8, $31
	
	db $80, $b4, $9c, $09, $3a, $0a, $04, $87, $1d, $44, $ee
	db $5e, $b0, $cd, $20, $6d, $26
	db $b5, $40, $e5, $7c, $24
	
	db $f0, $07, $69, $fc, $75, $14, $88, $1a, $b8
	
	db $80, $72, $85, $a8, $ce, $92, $27, $41, $8e, $3e
	db $09, $ec, $71, $f2, $9b, $82, $5b, $de, $f1
	db $07, $30

.dont_worry_text
	db TX_COMPRESSED, $e0, $09, $29, $92, $a0, $ad, $60, $bf, $1d, $38, $7b, $15
	db $9b, $d8, $0c, $87, $2a, $1d, $a4, $2d, $5c, $1d
	
	db $f8, $03, $a8, $bd, $59, $f4, $14, $21, $9e, $65
	db $85, $e5, $7b, $77, $d3, $83, $24, $b4, $8d
	db $0a, $b0, $0a, $cd, $17, $34, $80, $aa, $d0, $5e
	db $07, $30
	
LaurelForestPokemonOnlyFlammableStump:
	opentext
	writetext .start_a_fire_text
	checkpokemontype FIRE
	anonjumptable
	dw .fail
	dw .ok
	dw .cancel

.fail
	jumptext .its_a_stump_text

.ok
	appear 13
	clearevent EVENT_POKEONLY_FIRE_OUT
	jumptext .fire_started_text

.cancel
	closetext
	end

.start_a_fire_text
	db TX_COMPRESSED, $6f, $a4, $b9, $61, $88, $bd, $5d, $cd
	db $7b, $01, $ac, $e2, $4d, $67
	db $4b, $4f, $10

.fire_started_text
	db TX_COMPRESSED, $72, $85, $a8, $8b, $d5, $d9, $e6
	db $6b, $c8, $64, $2b, $65, $23, $27, $33, $01, $ac, $f8
	db $d3, $40

.its_a_stump_text
	db TX_COMPRESSED, $75, $78, $a6, $c4, $8f, $94, $f4
	db $13, $d8, $77, $5f, $7f, $55, $f4, $e2, $2d, $a7, $c4
	db $7a, $9a

LaurelForestPokemonOnlyFire:
	checkflag EVENT_POKEONLY_FIRE_OUT
	iftrue LaurelForestPokemonOnlyFlammableStump

	opentext
	writetext .use_oran_berry_text
	yesorno
	iffalse .done
	takeitem ORAN_BERRY, 1
	sif false
		jumptext .you_dont_have_one_text
	writetext .burnt_berry_text
	giveitem BURNT_BERRY, 1
.done
	closetext
	end

.use_oran_berry_text
	db TX_COMPRESSED, $73, $a0, $e3, $b5, $e9, $20, $91, $ad, $60
	db $9e, $49, $ac, $e9
	db $69, $a0

.you_dont_have_one_text
	db TX_COMPRESSED, $72, $85, $a9, $90, $92, $99, $13, $a0, $c7, $34
	db $8f, $3b, $5e, $92, $09, $1a, $d6, $0b
	db $d4, $d0

.burnt_berry_text
	db TX_COMPRESSED, $29, $27, $1d, $af, $49, $04, $8d, $6b, $05, $2a, $d4
	db $3c, $ad, $a5, $92, $f8
	db $83, $98

