pokecrystal-board/maps/RadioTower4F.asm

RadioTower4F_MapScriptHeader: ; 0x5eb80
	; trigger count
	db 0

	; callback count
	db 0
; 0x5eb82

FisherScript_0x5eb82: ; 0x5eb82
	jumptextfaceplayer UnknownText_0x5ec12
; 0x5eb85

TeacherScript_0x5eb85: ; 0x5eb85
	faceplayer
	loadfont
	checkevent EVENT_GOT_PINK_BOW_FROM_MARY
	iftrue UnknownScript_0x5ebac
	checkevent EVENT_CLEARED_RADIO_TOWER
	iftrue UnknownScript_0x5eb99
	writetext UnknownText_0x5ec68
	closetext
	loadmovesprites
	end
; 0x5eb99

UnknownScript_0x5eb99: ; 0x5eb99
	writetext UnknownText_0x5ecab
	keeptextopen
	verbosegiveitem PINK_BOW, 1
	iffalse UnknownScript_0x5ebb0
	writetext UnknownText_0x5ecef
	closetext
	loadmovesprites
	setevent EVENT_GOT_PINK_BOW_FROM_MARY
	end
; 0x5ebac

UnknownScript_0x5ebac: ; 0x5ebac
	writetext UnknownText_0x5ed2c
	closetext
UnknownScript_0x5ebb0: ; 0x5ebb0
	loadmovesprites
	end
; 0x5ebb2

GrowlitheScript_0x5ebb2: ; 0x5ebb2
	loadfont
	writetext UnknownText_0x5ed66
	cry MEOWTH
	closetext
	loadmovesprites
	end
; 0x5ebbc

TrainerGruntM10: ; 0x5ebbc
	; bit/flag number
	dw $4fa

	; trainer group && trainer id
	db GRUNTM, 10

	; text when seen
	dw GruntM10SeenText

	; text when trainer beaten
	dw GruntM10BeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw GruntM10Script
; 0x5ebc8

GruntM10Script: ; 0x5ebc8
	talkaftercancel
	loadfont
	writetext UnknownText_0x5ede2
	closetext
	loadmovesprites
	end
; 0x5ebd0

TrainerExecutivem2: ; 0x5ebd0
	; bit/flag number
	dw $572

	; trainer group && trainer id
	db EXECUTIVEM, 2

	; text when seen
	dw Executivem2SeenText

	; text when trainer beaten
	dw Executivem2BeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw Executivem2Script
; 0x5ebdc

Executivem2Script: ; 0x5ebdc
	talkaftercancel
	loadfont
	writetext UnknownText_0x5ee69
	closetext
	loadmovesprites
	end
; 0x5ebe4

TrainerGruntF4: ; 0x5ebe4
	; bit/flag number
	dw $513

	; trainer group && trainer id
	db GRUNTF, 4

	; text when seen
	dw GruntF4SeenText

	; text when trainer beaten
	dw GruntF4BeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw GruntF4Script
; 0x5ebf0

GruntF4Script: ; 0x5ebf0
	talkaftercancel
	loadfont
	writetext UnknownText_0x5ef31
	closetext
	loadmovesprites
	end
; 0x5ebf8

TrainerScientistRich: ; 0x5ebf8
	; bit/flag number
	dw $4a3

	; trainer group && trainer id
	db SCIENTIST, RICH

	; text when seen
	dw ScientistRichSeenText

	; text when trainer beaten
	dw ScientistRichBeatenText

	; script when lost
	dw $0000

	; script when talk again
	dw ScientistRichScript
; 0x5ec04

ScientistRichScript: ; 0x5ec04
	talkaftercancel
	loadfont
	writetext UnknownText_0x5efcb
	closetext
	loadmovesprites
	end
; 0x5ec0c

MapRadioTower4FSignpost0Script: ; 0x5ec0c
	jumptext UnknownText_0x5effe
; 0x5ec0f

MapRadioTower4FSignpost1Script: ; 0x5ec0f
	jumptext UnknownText_0x5f00d
; 0x5ec12

UnknownText_0x5ec12: ; 0x5ec12
	text "I listened to the"
	line "radio while I was"
	cont "at the RUINS."

	para "I heard a strange"
	line "broadcast there."
	done
; 0x5ec68

UnknownText_0x5ec68: ; 0x5ec68
	text "MARY: Why? Why do"
	line "I have to suffer"
	cont "through this?"

	para "MEOWTH, help me!"
	done
; 0x5ecab

UnknownText_0x5ecab: ; 0x5ecab
	text "MARY: Oh! You're"
	line "my little savior!"

	para "Will you take this"
	line "as my thanks?"
	done
; 0x5ecef

UnknownText_0x5ecef: ; 0x5ecef
	text "MARY: It's just"
	line "right for #MON"

	para "that know normal-"
	line "type moves."
	done
; 0x5ed2c

UnknownText_0x5ed2c: ; 0x5ed2c
	text "MARY: Please tune"
	line "into me on PROF."

	para "OAK'S #MON TALK"
	line "show."
	done
; 0x5ed66

UnknownText_0x5ed66: ; 0x5ed66
	text "MEOWTH: Meowth…"
	done
; 0x5ed77

GruntM10SeenText: ; 0x5ed77
	text "You plan to rescue"
	line "the DIRECTOR?"

	para "That won't be pos-"
	line "sible because I'm"
	cont "going to beat you!"
	done
; 0x5edcf

GruntM10BeatenText: ; 0x5edcf
	text "No! Unbelievable!"
	done
; 0x5ede2

UnknownText_0x5ede2: ; 0x5ede2
	text "I don't believe"
	line "it! I was beaten!"
	done
; 0x5ee04

Executivem2SeenText: ; 0x5ee04
	text "Stop! I'm known as"
	line "the TEAM ROCKET"
	cont "fortress!"

	para "You're not taking"
	line "another step!"
	done
; 0x5ee50

Executivem2BeatenText: ; 0x5ee50
	text "The fortress came"
	line "down!"
	done
; 0x5ee69

UnknownText_0x5ee69: ; 0x5ee69
	text "You've earned my"
	line "respect, so here's"
	cont "some advice."

	para "It's not too late."
	line "You can still turn"
	cont "back."
	done
; 0x5eec4

GruntF4SeenText: ; 0x5eec4
	text "Don't I think"
	line "#MON are cute?"

	para "I'll think my"
	line "#MON are cute--"

	para "after they beat"
	line "yours!"
	done
; 0x5ef15

GruntF4BeatenText: ; 0x5ef15
	text "Oh, no! They're so"
	line "useless!"
	done
; 0x5ef31

UnknownText_0x5ef31: ; 0x5ef31
	text "I love my"
	line "beautiful self!"

	para "Who cares about"
	line "#MON?"
	done
; 0x5ef62

ScientistRichSeenText: ; 0x5ef62
	text "Most excellent."

	para "This RADIO TOWER"
	line "will fulfill our"
	cont "grand design."
	done
; 0x5efa3

ScientistRichBeatenText: ; 0x5efa3
	text "Hmmm…"

	para "All grand plans"
	line "come with snags."
	done
; 0x5efcb

UnknownText_0x5efcb: ; 0x5efcb
	text "Do you honestly"
	line "believe you can"
	cont "stop TEAM ROCKET?"
	done
; 0x5effe

UnknownText_0x5effe: ; 0x5effe
	text "4F PRODUCTION"
	done
; 0x5f00d

UnknownText_0x5f00d: ; 0x5f00d
	text "4F STUDIO 2"
	done
; 0x5f01a

RadioTower4F_MapEventHeader: ; 0x5f01a
	; filler
	db 0, 0

	; warps
	db 4
	warp_def $0, $0, 1, GROUP_RADIO_TOWER_5F, MAP_RADIO_TOWER_5F
	warp_def $0, $9, 2, GROUP_RADIO_TOWER_3F, MAP_RADIO_TOWER_3F
	warp_def $0, $c, 2, GROUP_RADIO_TOWER_5F, MAP_RADIO_TOWER_5F
	warp_def $0, $11, 3, GROUP_RADIO_TOWER_3F, MAP_RADIO_TOWER_3F

	; xy triggers
	db 0

	; signposts
	db 2
	signpost 0, 7, $0, MapRadioTower4FSignpost0Script
	signpost 0, 15, $0, MapRadioTower4FSignpost1Script

	; people-events
	db 7
	person_event SPRITE_FISHER, 8, 10, $7, $0, 255, 255, $80, 0, FisherScript_0x5eb82, $06d0
	person_event SPRITE_TEACHER, 10, 18, $3, $0, 255, 255, $a0, 0, TeacherScript_0x5eb85, $ffff
	person_event SPRITE_GROWLITHE, 11, 16, $16, $0, 255, 255, $80, 0, GrowlitheScript_0x5ebb2, $ffff
	person_event SPRITE_ROCKET, 10, 9, $1f, $0, 255, 255, $2, 3, TrainerGruntM10, $06ce
	person_event SPRITE_ROCKET, 5, 18, $8, $2, 255, 255, $2, 2, TrainerExecutivem2, $06ce
	person_event SPRITE_ROCKET_GIRL, 8, 16, $9, $0, 255, 255, $82, 1, TrainerGruntF4, $06ce
	person_event SPRITE_SCIENTIST, 6, 8, $8, $0, 255, 255, $92, 4, TrainerScientistRich, $06ce
; 0x5f099