shithub: pokecrystal

ref: e118dfe727b6982f289bdd7ac0401ce796b3f223
dir: /maps/Route34.asm/

Route34_MapScriptHeader:
	; trigger count
	db 0

	; callback count
	db 1

	; callbacks

	dbw 2, UnknownScript_0x78005

UnknownScript_0x78005:
	checkflag $0005
	iftrue UnknownScript_0x78014
	clearevent $06e5
	setevent $06e6
	jump UnknownScript_0x7801d

UnknownScript_0x78014:
	setevent $06e5
	clearevent $06e6
	jump UnknownScript_0x7801d

UnknownScript_0x7801d:
	checkflag $0006
	iffalse UnknownScript_0x78029
	clearevent $06e7
	jump UnknownScript_0x7802f

UnknownScript_0x78029:
	setevent $06e7
	jump UnknownScript_0x7802f

UnknownScript_0x7802f:
	checkflag $0007
	iffalse UnknownScript_0x78039
	clearevent $06e8
	return

UnknownScript_0x78039:
	setevent $06e8
	return

GrampsScript_0x7803d:
	faceplayer
	loadfont
	special Function16936
	closetext
	loadmovesprites
	if_equal $1, UnknownScript_0x7805a
	clearflag $0005
	checkcode VAR_FACING
	if_equal $3, UnknownScript_0x7805b
	applymovement $8, MovementData_0x78333
	playsound SFX_ENTER_DOOR
	disappear $8
UnknownScript_0x7805a:
	end

UnknownScript_0x7805b:
	applymovement $8, MovementData_0x78337
	playsound SFX_ENTER_DOOR
	disappear $8
	end

DaycareMon1Script_0x78065:
	loadfont
	special Function17421
	loadmovesprites
	end

DaycareMon2Script_0x7806b:
	loadfont
	special Function17440
	loadmovesprites
	end

TrainerCamperTodd1:
	; bit/flag number
	dw EVENT_BEAT_CAMPER_TODD

	; trainer group && trainer id
	db CAMPER, TODD1

	; text when seen
	dw CamperTodd1SeenText

	; text when trainer beaten
	dw CamperTodd1BeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw CamperTodd1Script

CamperTodd1Script:
	writecode VAR_CALLERID, $14
	talkaftercancel
	loadfont
	checkflag ENGINE_TODD
	iftrue UnknownScript_0x780bd
	checkflag $0061
	iftrue UnknownScript_0x78131
	checkcellnum $14
	iftrue UnknownScript_0x78143
	checkevent $027d
	iftrue UnknownScript_0x780a6
	writetext UnknownText_0x784f0
	keeptextopen
	setevent $027d
	scall UnknownScript_0x78137
	jump UnknownScript_0x780a9

UnknownScript_0x780a6:
	scall UnknownScript_0x7813b
UnknownScript_0x780a9:
	askforphonenumber $14
	if_equal $1, UnknownScript_0x7814b
	if_equal $2, UnknownScript_0x78147
	trainertotext CAMPER, TODD1, $0
	scall UnknownScript_0x7813f
	jump UnknownScript_0x78143

UnknownScript_0x780bd:
	scall UnknownScript_0x7814f
	winlosstext CamperTodd1BeatenText, $0000
	copybytetovar wd9fe
	if_equal $4, UnknownScript_0x780dc
	if_equal $3, UnknownScript_0x780e2
	if_equal $2, UnknownScript_0x780e8
	if_equal $1, UnknownScript_0x780ee
	if_equal $0, UnknownScript_0x780f4
UnknownScript_0x780dc:
	checkevent EVENT_RESTORED_POWER_TO_KANTO
	iftrue UnknownScript_0x78128
UnknownScript_0x780e2:
	checkevent EVENT_BEAT_ELITE_FOUR
	iftrue UnknownScript_0x7811b
UnknownScript_0x780e8:
	checkflag $004b
	iftrue UnknownScript_0x7810e
UnknownScript_0x780ee:
	checkflag $0045
	iftrue UnknownScript_0x78101
UnknownScript_0x780f4:
	loadtrainer CAMPER, TODD1
	startbattle
	returnafterbattle
	loadvar wd9fe, $1
	clearflag ENGINE_TODD
	end

UnknownScript_0x78101:
	loadtrainer CAMPER, TODD2
	startbattle
	returnafterbattle
	loadvar wd9fe, $2
	clearflag ENGINE_TODD
	end

UnknownScript_0x7810e:
	loadtrainer CAMPER, TODD3
	startbattle
	returnafterbattle
	loadvar wd9fe, $3
	clearflag ENGINE_TODD
	end

UnknownScript_0x7811b:
	loadtrainer CAMPER, TODD4
	startbattle
	returnafterbattle
	loadvar wd9fe, $4
	clearflag ENGINE_TODD
	end

UnknownScript_0x78128:
	loadtrainer CAMPER, TODD5
	startbattle
	returnafterbattle
	clearflag ENGINE_TODD
	end

UnknownScript_0x78131:
	writetext UnknownText_0x78532
	closetext
	loadmovesprites
	end

UnknownScript_0x78137:
	jumpstd asknumber1m
	end

UnknownScript_0x7813b:
	jumpstd asknumber2m
	end

UnknownScript_0x7813f:
	jumpstd registerednumberm
	end

UnknownScript_0x78143:
	jumpstd numberacceptedm
	end

UnknownScript_0x78147:
	jumpstd numberdeclinedm
	end

UnknownScript_0x7814b:
	jumpstd phonefullm
	end

UnknownScript_0x7814f:
	jumpstd rematchm
	end

TrainerPicnickerGina1:
	; bit/flag number
	dw EVENT_BEAT_PICNICKER_GINA

	; trainer group && trainer id
	db PICNICKER, GINA1

	; text when seen
	dw PicnickerGina1SeenText

	; text when trainer beaten
	dw PicnickerGina1BeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw PicnickerGina1Script

PicnickerGina1Script:
	writecode VAR_CALLERID, $15
	talkaftercancel
	loadfont
	checkflag ENGINE_GINA
	iftrue UnknownScript_0x7819f
	checkflag ENGINE_GINA_HAS_LEAF_STONE
	iftrue UnknownScript_0x78213
	checkcellnum $15
	iftrue UnknownScript_0x78234
	checkevent $027f
	iftrue UnknownScript_0x78188
	writetext UnknownText_0x785b8
	keeptextopen
	setevent $027f
	scall UnknownScript_0x78228
	jump UnknownScript_0x7818b

UnknownScript_0x78188:
	scall UnknownScript_0x7822c
UnknownScript_0x7818b:
	askforphonenumber $15
	if_equal $1, UnknownScript_0x7823c
	if_equal $2, UnknownScript_0x78238
	trainertotext PICNICKER, GINA1, $0
	scall UnknownScript_0x78230
	jump UnknownScript_0x78234

UnknownScript_0x7819f:
	scall UnknownScript_0x78240
	winlosstext PicnickerGina1BeatenText, $0000
	copybytetovar wd9ff
	if_equal $4, UnknownScript_0x781be
	if_equal $3, UnknownScript_0x781c4
	if_equal $2, UnknownScript_0x781ca
	if_equal $1, UnknownScript_0x781d0
	if_equal $0, UnknownScript_0x781d6
UnknownScript_0x781be:
	checkevent EVENT_RESTORED_POWER_TO_KANTO
	iftrue UnknownScript_0x7820a
UnknownScript_0x781c4:
	checkevent EVENT_BEAT_ELITE_FOUR
	iftrue UnknownScript_0x781fd
UnknownScript_0x781ca:
	checkevent EVENT_CLEARED_RADIO_TOWER
	iftrue UnknownScript_0x781f0
UnknownScript_0x781d0:
	checkflag $0049
	iftrue UnknownScript_0x781e3
UnknownScript_0x781d6:
	loadtrainer PICNICKER, GINA1
	startbattle
	returnafterbattle
	loadvar wd9ff, $1
	clearflag ENGINE_GINA
	end

UnknownScript_0x781e3:
	loadtrainer PICNICKER, GINA2
	startbattle
	returnafterbattle
	loadvar wd9ff, $2
	clearflag ENGINE_GINA
	end

UnknownScript_0x781f0:
	loadtrainer PICNICKER, GINA3
	startbattle
	returnafterbattle
	loadvar wd9ff, $3
	clearflag ENGINE_GINA
	end

UnknownScript_0x781fd:
	loadtrainer PICNICKER, GINA4
	startbattle
	returnafterbattle
	loadvar wd9ff, $4
	clearflag ENGINE_GINA
	end

UnknownScript_0x7820a:
	loadtrainer PICNICKER, GINA5
	startbattle
	returnafterbattle
	clearflag ENGINE_GINA
	end

UnknownScript_0x78213:
	scall UnknownScript_0x78244
	verbosegiveitem LEAF_STONE, 1
	iffalse UnknownScript_0x78225
	clearflag ENGINE_GINA_HAS_LEAF_STONE
	setevent $0100
	jump UnknownScript_0x78234

UnknownScript_0x78225:
	jump UnknownScript_0x78248

UnknownScript_0x78228:
	jumpstd asknumber1f
	end

UnknownScript_0x7822c:
	jumpstd asknumber2f
	end

UnknownScript_0x78230:
	jumpstd registerednumberf
	end

UnknownScript_0x78234:
	jumpstd numberacceptedf
	end

UnknownScript_0x78238:
	jumpstd numberdeclinedf
	end

UnknownScript_0x7823c:
	jumpstd phonefullf
	end

UnknownScript_0x78240:
	jumpstd rematchf
	end

UnknownScript_0x78244:
	jumpstd giftf
	end

UnknownScript_0x78248:
	jumpstd packfullf
	end

OfficerScript_0x7824c:
	faceplayer
	loadfont
	checknite
	iffalse UnknownScript_0x78276
	checkevent EVENT_BEAT_OFFICER_KEITH
	iftrue UnknownScript_0x78270
	playmusic MUSIC_OFFICER_ENCOUNTER
	writetext UnknownText_0x785e4
	closetext
	loadmovesprites
	winlosstext UnknownText_0x78609, $0000
	loadtrainer OFFICER, KEITH
	startbattle
	returnafterbattle
	setevent EVENT_BEAT_OFFICER_KEITH
	loadmovesprites
	end

UnknownScript_0x78270:
	writetext UnknownText_0x78624
	closetext
	loadmovesprites
	end

UnknownScript_0x78276:
	writetext UnknownText_0x7866a
	closetext
	loadmovesprites
	end

TrainerYoungsterSamuel:
	; bit/flag number
	dw EVENT_BEAT_YOUNGSTER_SAMUEL

	; trainer group && trainer id
	db YOUNGSTER, SAMUEL

	; text when seen
	dw YoungsterSamuelSeenText

	; text when trainer beaten
	dw YoungsterSamuelBeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw YoungsterSamuelScript

YoungsterSamuelScript:
	talkaftercancel
	loadfont
	writetext UnknownText_0x783d8
	closetext
	loadmovesprites
	end

TrainerYoungsterIan:
	; bit/flag number
	dw EVENT_BEAT_YOUNGSTER_IAN

	; trainer group && trainer id
	db YOUNGSTER, IAN

	; text when seen
	dw YoungsterIanSeenText

	; text when trainer beaten
	dw YoungsterIanBeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw YoungsterIanScript

YoungsterIanScript:
	talkaftercancel
	loadfont
	writetext UnknownText_0x78469
	closetext
	loadmovesprites
	end

TrainerPokefanmBrandon:
	; bit/flag number
	dw EVENT_BEAT_POKEFANM_BRANDON

	; trainer group && trainer id
	db POKEFANM, BRANDON

	; text when seen
	dw PokefanmBrandonSeenText

	; text when trainer beaten
	dw PokefanmBrandonBeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw PokefanmBrandonScript

PokefanmBrandonScript:
	talkaftercancel
	loadfont
	writetext UnknownText_0x786fc
	closetext
	loadmovesprites
	end

TrainerCooltrainerfIrene:
	; bit/flag number
	dw EVENT_BEAT_COOLTRAINERF_IRENE

	; trainer group && trainer id
	db COOLTRAINERF, IRENE

	; text when seen
	dw CooltrainerfIreneSeenText

	; text when trainer beaten
	dw CooltrainerfIreneBeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw CooltrainerfIreneScript

CooltrainerfIreneScript:
	talkaftercancel
	loadfont
	checkevent EVENT_GOT_SOFT_SAND_FROM_KATE
	iftrue UnknownScript_0x782d2
	writetext UnknownText_0x7877f
	closetext
	loadmovesprites
	end

UnknownScript_0x782d2:
	writetext UnknownText_0x787ad
	closetext
	loadmovesprites
	end

TrainerCooltrainerfJenn:
	; bit/flag number
	dw EVENT_BEAT_COOLTRAINERF_JENN

	; trainer group && trainer id
	db COOLTRAINERF, JENN

	; text when seen
	dw CooltrainerfJennSeenText

	; text when trainer beaten
	dw CooltrainerfJennBeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw CooltrainerfJennScript

CooltrainerfJennScript:
	talkaftercancel
	loadfont
	checkevent EVENT_GOT_SOFT_SAND_FROM_KATE
	iftrue UnknownScript_0x782f2
	writetext UnknownText_0x78836
	closetext
	loadmovesprites
	end

UnknownScript_0x782f2:
	writetext UnknownText_0x78866
	closetext
	loadmovesprites
	end

TrainerCooltrainerfKate:
	; bit/flag number
	dw EVENT_BEAT_COOLTRAINERF_KATE

	; trainer group && trainer id
	db COOLTRAINERF, KATE

	; text when seen
	dw CooltrainerfKateSeenText

	; text when trainer beaten
	dw CooltrainerfKateBeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw CooltrainerfKateScript

CooltrainerfKateScript:
	talkaftercancel
	loadfont
	checkevent EVENT_GOT_SOFT_SAND_FROM_KATE
	iftrue UnknownScript_0x78319
	writetext UnknownText_0x788e2
	keeptextopen
	verbosegiveitem SOFT_SAND, 1
	iffalse UnknownScript_0x7831d
	setevent EVENT_GOT_SOFT_SAND_FROM_KATE
UnknownScript_0x78319:
	writetext UnknownText_0x7892b
	closetext
UnknownScript_0x7831d:
	loadmovesprites
	end

UnknownScript_0x7831f:
	jumptext UnknownText_0x7898a

MapRoute34Signpost0Script:
	jumptext UnknownText_0x789a8

MapRoute34Signpost1Script:
	jumptext UnknownText_0x789ed

MapRoute34Signpost2Script:
	jumptext UnknownText_0x78a52

ItemFragment_0x7832b:
	db NUGGET, 1

MapRoute34SignpostItem3:
	dw $00a7
	db RARE_CANDY
	

MapRoute34SignpostItem4:
	dw $00a8
	db SUPER_POTION
	

MovementData_0x78333:
	slow_step_left
	slow_step_left
	slow_step_up
	step_end

MovementData_0x78337:
	slow_step_down
	slow_step_left
	slow_step_left
	slow_step_up
	slow_step_up
	step_end

YoungsterSamuelSeenText:
	text "This is where I do"
	line "my training!"
	done

YoungsterSamuelBeatenText:
	text "Beaten by a"
	line "passing stranger!"
	done

UnknownText_0x7837d:
	text "Have you been to"
	line "GOLDENROD CITY?"

	para "Weren't you amazed"
	line "by how they've"

	para "changed the"
	line "#MON CENTER?"
	done

UnknownText_0x783d8:
	text "I'm going to train"
	line "even harder."

	para "After all, I'm"
	line "trying to become"
	cont "a GYM LEADER."
	done

YoungsterIanSeenText:
	text "I'm the best in my"
	line "class at #MON."
	done

YoungsterIanBeatenText:
	text "No! There are bet-"
	line "ter trainers…"
	done

UnknownText_0x78469:
	text "I'm trying hard so"
	line "I can be the star"
	cont "in my class."
	done

CamperTodd1SeenText:
	text "I'm confident in"
	line "my ability to"
	cont "raise #MON."

	para "Want to see?"
	done

CamperTodd1BeatenText:
	text "Did I screw up my"
	line "training?"
	done

UnknownText_0x784f0:
	text "Maybe I should"
	line "take one to a DAY-"

	para "CARE. Or maybe use"
	line "some items…"
	done

UnknownText_0x78532:
	text "Shopping under the"
	line "sky!"

	para "It feels so nice"
	line "up on a rooftop."
	done

PicnickerGina1SeenText:
	text "Are you a trainer?"

	para "Let's have a"
	line "practice battle."
	done

PicnickerGina1BeatenText:
	text "Oh, no! I just"
	line "can't win…"
	done

UnknownText_0x785b8:
	text "You're too strong"
	line "to be a practice"
	cont "partner."
	done

UnknownText_0x785e4:
	text "Who goes there?"
	line "What are you up"
	cont "to?"
	done

UnknownText_0x78609:
	text "You're a tough"
	line "little kid."
	done

UnknownText_0x78624:
	text "Yep, I see nothing"
	line "wrong today. You"

	para "be good and stay"
	line "out of trouble."
	done

UnknownText_0x7866a:
	text "I'm on patrol for"
	line "suspicious indi-"
	cont "viduals."
	done

PokefanmBrandonSeenText:
	text "I just got my"
	line "#MON back from"
	cont "DAY-CARE."

	para "Let's see how much"
	line "stronger it got!"
	done

PokefanmBrandonBeatenText:
	text "Why does it end"
	line "this way?"
	done

UnknownText_0x786fc:
	text "My #MON knew"
	line "moves I didn't"
	cont "know it had."

	para "That confounded me"
	line "to no end!"
	done

CooltrainerfIreneSeenText:
	text "IRENE: Kyaaah!"
	line "Someone found us!"
	done

CooltrainerfIreneBeatenText:
	text "IRENE: Ohhh!"
	line "Too strong!"
	done

UnknownText_0x7877f:
	text "IRENE: My sister"
	line "KATE will get you"
	cont "for this!"
	done

UnknownText_0x787ad:
	text "IRENE: Isn't this"
	line "beach great?"

	para "It's our secret"
	line "little getaway!"
	done

CooltrainerfJennSeenText:
	text "JENN: You can't"
	line "beat IRENE and go"
	cont "unpunished!"
	done

CooltrainerfJennBeatenText:
	text "JENN: So sorry,"
	line "IRENE! Sis!"
	done

UnknownText_0x78836:
	text "JENN: Don't get"
	line "cocky! My sister"
	cont "KATE is tough!"
	done

UnknownText_0x78866:
	text "JENN: Sunlight"
	line "makes your body"
	cont "stronger."
	done

CooltrainerfKateSeenText:
	text "KATE: You sure"
	line "were mean to my"
	cont "little sisters!"
	done

CooltrainerfKateBeatenText:
	text "KATE: No! I can't"
	line "believe I lost."
	done

UnknownText_0x788e2:
	text "KATE: You're too"
	line "strong. I didn't"
	cont "stand a chance."

	para "Here. You deserve"
	line "this."
	done

UnknownText_0x7892b:
	text "KATE: I'm sorry we"
	line "jumped you."

	para "We never expected"
	line "anyone to find us"

	para "here. You sure"
	line "startled us."
	done

UnknownText_0x7898a:
	text "ILEX FOREST"
	line "THROUGH THE GATE"
	done

UnknownText_0x789a8:
	text "ROUTE 34"

	para "GOLDENROD CITY -"
	line "AZALEA TOWN"

	para "ILEX FOREST"
	line "SOMEWHERE BETWEEN"
	done

UnknownText_0x789ed:
	text "TRAINER TIPS"

	para "BERRY trees grow"
	line "new BERRIES"
	cont "every day."

	para "Make a note of"
	line "which trees bear"
	cont "which BERRIES."
	done

UnknownText_0x78a52:
	text "DAY-CARE"

	para "LET US RAISE YOUR"
	line "#MON FOR YOU!"
	done

Route34_MapEventHeader:
	; filler
	db 0, 0

	; warps
	db 5
	warp_def $25, $d, 1, GROUP_ROUTE_34_ILEX_FOREST_GATE, MAP_ROUTE_34_ILEX_FOREST_GATE
	warp_def $25, $e, 2, GROUP_ROUTE_34_ILEX_FOREST_GATE, MAP_ROUTE_34_ILEX_FOREST_GATE
	warp_def $e, $b, 1, GROUP_DAY_CARE, MAP_DAY_CARE
	warp_def $f, $b, 2, GROUP_DAY_CARE, MAP_DAY_CARE
	warp_def $f, $d, 3, GROUP_DAY_CARE, MAP_DAY_CARE

	; xy triggers
	db 0

	; signposts
	db 5
	signpost 6, 12, $0, MapRoute34Signpost0Script
	signpost 33, 13, $0, MapRoute34Signpost1Script
	signpost 13, 10, $0, MapRoute34Signpost2Script
	signpost 32, 8, $7, MapRoute34SignpostItem3
	signpost 19, 17, $7, MapRoute34SignpostItem4

	; people-events
	db 13
	person_event SPRITE_YOUNGSTER, 11, 17, $8, $0, 255, 255, $a2, 5, TrainerCamperTodd1, $ffff
	person_event SPRITE_YOUNGSTER, 36, 19, $6, $0, 255, 255, $92, 3, TrainerYoungsterSamuel, $ffff
	person_event SPRITE_YOUNGSTER, 24, 15, $6, $0, 255, 255, $92, 3, TrainerYoungsterIan, $ffff
	person_event SPRITE_LASS, 30, 14, $9, $0, 255, 255, $a2, 3, TrainerPicnickerGina1, $ffff
	person_event SPRITE_OFFICER, 15, 13, $6, $0, 255, 255, $90, 0, OfficerScript_0x7824c, $ffff
	person_event SPRITE_POKEFAN_M, 32, 22, $1e, $0, 255, 255, $82, 3, TrainerPokefanmBrandon, $ffff
	person_event SPRITE_GRAMPS, 20, 19, $6, $0, 255, 255, $0, 0, GrampsScript_0x7803d, $06e6
	person_event SPRITE_DAYCARE_MON_1, 22, 18, $16, $22, 255, 255, $0, 0, DaycareMon1Script_0x78065, $06e7
	person_event SPRITE_DAYCARE_MON_2, 23, 21, $16, $22, 255, 255, $0, 0, DaycareMon2Script_0x7806b, $06e8
	person_event SPRITE_COOLTRAINER_F, 52, 15, $8, $0, 255, 255, $82, 5, TrainerCooltrainerfIrene, $ffff
	person_event SPRITE_COOLTRAINER_F, 52, 7, $9, $0, 255, 255, $82, 3, TrainerCooltrainerfJenn, $ffff
	person_event SPRITE_COOLTRAINER_F, 55, 10, $7, $0, 255, 255, $82, 2, TrainerCooltrainerfKate, $ffff
	person_event SPRITE_POKE_BALL, 34, 11, $1, $0, 255, 255, $1, 0, ItemFragment_0x7832b, $07bc