pokecrystal-board/maps/DragonsDenB1F.asm

DragonsDenB1F_MapScriptHeader: ; 0x18c890
	; trigger count
	db 2

	; triggers
	dw UnknownScript_0x18c89d, $0000
	dw UnknownScript_0x18c89e, $0000

	; callback count
	db 1

	; callbacks

	dbw 5, UnknownScript_0x18c89f
; 0x18c89d

UnknownScript_0x18c89d: ; 0x18c89d
	end
; 0x18c89e

UnknownScript_0x18c89e: ; 0x18c89e
	end
; 0x18c89f

UnknownScript_0x18c89f: ; 0x18c89f
	checkevent EVENT_BEAT_RIVAL_IN_MT_MOON
	iftrue UnknownScript_0x18c8a8
	disappear $4
	return
; 0x18c8a8

UnknownScript_0x18c8a8: ; 0x18c8a8
	checkcode $b
	if_equal TUESDAY, UnknownScript_0x18c8b5
	if_equal THURSDAY, UnknownScript_0x18c8b5
	disappear $4
	return
; 0x18c8b5

UnknownScript_0x18c8b5: ; 0x18c8b5
	appear $4
	return
; 0x18c8b8

UnknownScript_0x18c8b8: ; 0x18c8b8
	appear $3
	loadfont
	writetext UnknownText_0x18c9b8
	pause 30
	loadmovesprites
	showemote $0, $0, 15
	spriteface $0, $2
	playmusic MUSIC_CLAIR
	applymovement $3, MovementData_0x18c9ae
	loadfont
	writetext UnknownText_0x18c9bf
	keeptextopen
	giveitem TM_24, $1
	iffalse UnknownScript_0x18c8f4
	itemtotext TM_24, $0
	writetext UnknownText_0x18c9fb
	playsound SFX_ITEM
	waitbutton
	itemnotify
	setevent EVENT_GOT_TM24_DRAGONBREATH
	writetext UnknownText_0x18ca0d
	keeptextopen
	writetext UnknownText_0x18caf1
	closetext
	loadmovesprites
	jump UnknownScript_0x18c8f9
; 0x18c8f4

UnknownScript_0x18c8f4: ; 0x18c8f4
	writetext UnknownText_0x18ca8b
	closetext
	loadmovesprites
UnknownScript_0x18c8f9: ; 0x18c8f9
	applymovement $3, MovementData_0x18c9b3
	special Functionc48f
	pause 30
	special RestartMapMusic
	disappear $3
	dotrigger $0
	end
; 0x18c90a

TrainerCooltrainermDarin: ; 0x18c90a
	; bit/flag number
	dw $5bd

	; trainer group && trainer id
	db COOLTRAINERM, DARIN

	; text when seen
	dw CooltrainermDarinSeenText

	; text when trainer beaten
	dw CooltrainermDarinBeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw CooltrainermDarinScript
; 0x18c916

CooltrainermDarinScript: ; 0x18c916
	talkaftercancel
	loadfont
	writetext UnknownText_0x18cd82
	closetext
	loadmovesprites
	end
; 0x18c91e

TrainerCooltrainerfCara: ; 0x18c91e
	; bit/flag number
	dw $5be

	; trainer group && trainer id
	db COOLTRAINERF, CARA

	; text when seen
	dw CooltrainerfCaraSeenText

	; text when trainer beaten
	dw CooltrainerfCaraBeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw CooltrainerfCaraScript
; 0x18c92a

CooltrainerfCaraScript: ; 0x18c92a
	talkaftercancel
	loadfont
	writetext UnknownText_0x18ce11
	closetext
	loadmovesprites
	end
; 0x18c932

TrainerTwinsLeaandpia1: ; 0x18c932
	; bit/flag number
	dw $5bf

	; trainer group && trainer id
	db TWINS, LEAANDPIA1

	; text when seen
	dw TwinsLeaandpia1SeenText

	; text when trainer beaten
	dw TwinsLeaandpia1BeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw TwinsLeaandpia1Script
; 0x18c93e

TwinsLeaandpia1Script: ; 0x18c93e
	talkaftercancel
	loadfont
	writetext UnknownText_0x18ced3
	closetext
	loadmovesprites
	end
; 0x18c946

TrainerTwinsLeaandpia2: ; 0x18c946
	; bit/flag number
	dw $5bf

	; trainer group && trainer id
	db TWINS, LEAANDPIA1

	; text when seen
	dw TwinsLeaandpia2SeenText

	; text when trainer beaten
	dw TwinsLeaandpia2BeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw TwinsLeaandpia2Script
; 0x18c952

TwinsLeaandpia2Script: ; 0x18c952
	talkaftercancel
	loadfont
	writetext UnknownText_0x18cf0f
	closetext
	loadmovesprites
	end
; 0x18c95a

PokeBallScript_0x18c95a: ; 0x18c95a
	giveitem DRAGON_FANG, $1
	iffalse UnknownScript_0x18c970
	disappear $2
	loadfont
	itemtotext DRAGON_FANG, $0
	writetext UnknownText_0x18cf41
	playsound SFX_ITEM
	waitbutton
	itemnotify
	loadmovesprites
	end
; 0x18c970

UnknownScript_0x18c970: ; 0x18c970
	loadfont
	itemtotext DRAGON_FANG, $0
	writetext UnknownText_0x18cf41
	keeptextopen
	writetext UnknownText_0x18cf51
	closetext
	loadmovesprites
	end
; 0x18c97e

SilverScript_0x18c97e: ; 0x18c97e
	playmusic MUSIC_RIVAL_ENCOUNTER
	faceplayer
	loadfont
	checkevent $0000
	iftrue UnknownScript_0x18c995
	writetext UnknownText_0x18cc83
	closetext
	loadmovesprites
	setevent $0000
	special RestartMapMusic
	end
; 0x18c995

UnknownScript_0x18c995: ; 0x18c995
	writetext UnknownText_0x18cd2d
	closetext
	loadmovesprites
	special RestartMapMusic
	end
; 0x18c99e

MapDragonsDenB1FSignpost0Script: ; 0x18c99e
	jumptext UnknownText_0x18cc2e
; 0x18c9a1

ItemFragment_0x18c9a1: ; 0x18c9a1
	db CALCIUM, 1
; 0x18c9a3

ItemFragment_0x18c9a3: ; 0x18c9a3
	db MAX_ELIXER, 1
; 0x18c9a5

MapDragonsDenB1FSignpostItem1: ; 0x18c9a5
	dw $00a0
	db REVIVE
; 0x18c9a8

MapDragonsDenB1FSignpostItem2: ; 0x18c9a8
	dw $00a1
	db MAX_POTION
; 0x18c9ab

MapDragonsDenB1FSignpostItem3: ; 0x18c9ab
	dw $00a2
	db MAX_ELIXER
; 0x18c9ae

MovementData_0x18c9ae: ; 0x18c9ae
	slow_step_right
	slow_step_right
	slow_step_right
	slow_step_right
	step_end
; 0x18c9b3

MovementData_0x18c9b3: ; 0x18c9b3
	slow_step_left
	slow_step_left
	slow_step_left
	slow_step_left
	step_end
; 0x18c9b8

UnknownText_0x18c9b8: ; 0x18c9b8
	text "Wait!"
	done
; 0x18c9bf

UnknownText_0x18c9bf: ; 0x18c9bf
	text "CLAIR: I'm sorry"
	line "about this."

	para "Here, take this as"
	line "my apology."
	done
; 0x18c9fb

UnknownText_0x18c9fb: ; 0x18c9fb
	text $52, " received"
	line "TM24."
	done
; 0x18ca0d

UnknownText_0x18ca0d: ; 0x18ca0d
	text "That contains"
	line "DRAGONBREATH."

	para "No, it doesn't"
	line "have anything to"
	cont "do with my breath."

	para "If you don't want"
	line "it, you don't have"
	cont "to take it."
	done
; 0x18ca8b

UnknownText_0x18ca8b: ; 0x18ca8b
	text "Oh? You don't have"
	line "any room for this."

	para "I'm going back to"
	line "the GYM, so make"

	para "room, then come"
	line "see me there."
	done
; 0x18caf1

UnknownText_0x18caf1: ; 0x18caf1
	text "CLAIR: What's the"
	line "matter? Aren't you"

	para "going on to the"
	line "#MON LEAGUE?"

	para "Do you know how to"
	line "get there?"

	para "From here, go to"
	line "NEW BARK TOWN."

	para "Then SURF east to"
	line "#MON LEAGUE."

	para "The route there is"
	line "very tough."

	para "Don't you dare"
	line "lose at the #-"
	cont "MON LEAGUE!"

	para "If you do, I'll"
	line "feel even worse"

	para "about having lost"
	line "to you!"

	para "Give it everything"
	line "you've got."
	done
; 0x18cc2e

UnknownText_0x18cc2e: ; 0x18cc2e
	text "DRAGON SHRINE"

	para "A shrine honoring"
	line "the dragon #MON"

	para "said to have lived"
	line "in DRAGON'S DEN."
	done
; 0x18cc83

UnknownText_0x18cc83: ; 0x18cc83
	text "…"
	line "What? ", $52, "?"

	para "…No, I won't"
	line "battle you now…"

	para "My #MON aren't"
	line "ready to beat you."

	para "I can't push them"
	line "too hard now."

	para "I have to be dis-"
	line "ciplined to become"

	para "the greatest #-"
	line "MON trainer…"
	done
; 0x18cd2d

UnknownText_0x18cd2d: ; 0x18cd2d
	text "…"

	para "Whew…"

	para "Learn to stay out"
	line "of my way…"
	done
; 0x18cd53

CooltrainermDarinSeenText: ; 0x18cd53
	text "You! How dare you"
	line "enter uninvited!"
	done
; 0x18cd77

CooltrainermDarinBeatenText: ; 0x18cd77
	text "S-strong!"
	done
; 0x18cd82

UnknownText_0x18cd82: ; 0x18cd82
	text "The SHRINE ahead"
	line "is home to the"

	para "MASTER of our"
	line "dragon-user clan."

	para "You're not allowed"
	line "to just go in!"
	done
; 0x18cde4

CooltrainerfCaraSeenText: ; 0x18cde4
	text "You shouldn't be"
	line "in here!"
	done
; 0x18cdfe

CooltrainerfCaraBeatenText: ; 0x18cdfe
	text "Oh yikes, I lost!"
	done
; 0x18ce11

UnknownText_0x18ce11: ; 0x18ce11
	text "Soon I'm going to"
	line "get permission"

	para "from our MASTER to"
	line "use dragons."

	para "When I do, I'm"
	line "going to become an"

	para "admirable dragon"
	line "trainer and gain"

	para "our MASTER's"
	line "approval."
	done
; 0x18ceab

TwinsLeaandpia1SeenText: ; 0x18ceab
	text "It's a stranger we"
	line "don't know."
	done
; 0x18cec9

TwinsLeaandpia1BeatenText: ; 0x18cec9
	text "Ouchies."
	done
; 0x18ced3

UnknownText_0x18ced3: ; 0x18ced3
	text "It was like having"
	line "to battle LANCE."
	done
; 0x18cef8

TwinsLeaandpia2SeenText: ; 0x18cef8
	text "Who are you?"
	done
; 0x18cf06

TwinsLeaandpia2BeatenText: ; 0x18cf06
	text "Meanie."
	done
; 0x18cf0f

UnknownText_0x18cf0f: ; 0x18cf0f
	text "We'll tell on you."

	para "MASTER will be"
	line "angry with you."
	done
; 0x18cf41

UnknownText_0x18cf41: ; 0x18cf41
	text $52, " found"
	line "@"
	text_from_ram StringBuffer3
	text "!"
	done
; 0x18cf51

UnknownText_0x18cf51: ; 0x18cf51
	text "But ", $52, " can't"
	line "carry any more"
	cont "items."
	done
; 0x18cf73

DragonsDenB1F_MapEventHeader: ; 0x18cf73
	; filler
	db 0, 0

	; warps
	db 2
	warp_def $3, $14, 3, GROUP_DRAGONS_DEN_1F, MAP_DRAGONS_DEN_1F
	warp_def $1d, $13, 1, GROUP_DRAGON_SHRINE, MAP_DRAGON_SHRINE

	; xy triggers
	db 1
	xy_trigger 1, $1e, $13, $0, UnknownScript_0x18c8b8, $0, $0

	; signposts
	db 4
	signpost 24, 18, $0, MapDragonsDenB1FSignpost0Script
	signpost 29, 33, $7, MapDragonsDenB1FSignpostItem1
	signpost 17, 21, $7, MapDragonsDenB1FSignpostItem2
	signpost 15, 31, $7, MapDragonsDenB1FSignpostItem3

	; people-events
	db 9
	person_event SPRITE_POKE_BALL, 20, 39, $1, $0, 255, 255, $0, 0, PokeBallScript_0x18c95a, $06a8
	person_event SPRITE_CLAIR, 34, 18, $7, $0, 255, 255, $90, 0, ObjectEvent, $06d8
	person_event SPRITE_SILVER, 27, 24, $2, $22, 255, 255, $0, 0, SilverScript_0x18c97e, $06c6
	person_event SPRITE_COOLTRAINER_M, 12, 24, $7, $0, 255, 255, $82, 4, TrainerCooltrainermDarin, $ffff
	person_event SPRITE_COOLTRAINER_F, 12, 12, $6, $0, 255, 255, $82, 3, TrainerCooltrainerfCara, $ffff
	person_event SPRITE_TWIN, 21, 8, $9, $0, 255, 255, $82, 1, TrainerTwinsLeaandpia1, $ffff
	person_event SPRITE_TWIN, 22, 8, $9, $0, 255, 255, $82, 1, TrainerTwinsLeaandpia2, $ffff
	person_event SPRITE_POKE_BALL, 8, 34, $1, $0, 255, 255, $1, 0, ItemFragment_0x18c9a1, $07bf
	person_event SPRITE_POKE_BALL, 24, 9, $1, $0, 255, 255, $1, 0, ItemFragment_0x18c9a3, $07c0
; 0x18d014