shithub: pokecrystal

Download patch

ref: 35324ae43f845f4ce8346ef05fdf1bed8bed1e28
parent: 6d7043c0c65161ad8ee97fa66b94beba86761d25
parent: 3b119687f3bba17bf289271d4d2af695a2e8dd0b
author: Bryan Bishop <[email protected]>
date: Mon Sep 9 11:55:43 EDT 2013 

Merge branch 'yenatch/split-predefs-specials-stds' into fix-split-predefs-specials-stds

https://github.com/kanzure/pokecrystal/pull/198


--- /dev/null
+++ b/engine/std_scripts.asm
@@ -1,0 +1,2619 @@
+StdScripts: ; bc000
+	dbw BANK(PokeCenterNurseScript), PokeCenterNurseScript
+	dbw BANK(UnknownScript_0xbc162), UnknownScript_0xbc162
+	dbw BANK(UnknownScript_0xbc166), UnknownScript_0xbc166
+	dbw BANK(UnknownScript_0xbc16a), UnknownScript_0xbc16a
+	dbw BANK(UnknownScript_0xbc16e), UnknownScript_0xbc16e
+	dbw BANK(UnknownScript_0xbc172), UnknownScript_0xbc172
+	dbw BANK(UnknownScript_0xbc176), UnknownScript_0xbc176
+	dbw BANK(UnknownScript_0xbc17a), UnknownScript_0xbc17a
+	dbw BANK(UnknownScript_0xbc185), UnknownScript_0xbc185
+	dbw BANK(UnknownScript_0xbc189), UnknownScript_0xbc189
+	dbw BANK(UnknownScript_0xbc191), UnknownScript_0xbc191
+	dbw BANK(UnknownScript_0xbc195), UnknownScript_0xbc195
+	dbw BANK(UnknownScript_0xbc19d), UnknownScript_0xbc19d
+	dbw BANK(UnknownScript_0xbc1a5), UnknownScript_0xbc1a5
+	dbw BANK(UnknownScript_0xbc1b8), UnknownScript_0xbc1b8
+	dbw BANK(UnknownScript_0xbc1bc), UnknownScript_0xbc1bc
+	dbw BANK(UnknownScript_0xbc1c0), UnknownScript_0xbc1c0
+	dbw BANK(UnknownScript_0xbc1c4), UnknownScript_0xbc1c4
+	dbw BANK(UnknownScript_0xbc23e), UnknownScript_0xbc23e
+	dbw BANK(UnknownScript_0xbc242), UnknownScript_0xbc242
+	dbw BANK(UnknownScript_0xbc1af), UnknownScript_0xbc1af
+	dbw BANK(UnknownScript_0xbc1c8), UnknownScript_0xbc1c8
+	dbw BANK(UnknownScript_0xbc25c), UnknownScript_0xbc25c
+	dbw BANK(UnknownScript_0xbc274), UnknownScript_0xbc274
+	dbw BANK(UnknownScript_0xbc3db), UnknownScript_0xbc3db
+	dbw BANK(UnknownScript_0xbc574), UnknownScript_0xbc574
+	dbw BANK(UnknownScript_0xbc62d), UnknownScript_0xbc62d
+	dbw BANK(UnknownScript_0xbc6e6), UnknownScript_0xbc6e6
+	dbw BANK(UnknownScript_0xbc6f0), UnknownScript_0xbc6f0
+	dbw BANK(UnknownScript_0xbc7ce), UnknownScript_0xbc7ce
+	dbw BANK(UnknownScript_0xbc8ac), UnknownScript_0xbc8ac
+	dbw BANK(UnknownScript_0xbc98a), UnknownScript_0xbc98a
+	dbw BANK(UnknownScript_0xbca47), UnknownScript_0xbca47
+	dbw BANK(UnknownScript_0xbca8f), UnknownScript_0xbca8f
+	dbw BANK(UnknownScript_0xbcb0a), UnknownScript_0xbcb0a
+	dbw BANK(UnknownScript_0xbcb35), UnknownScript_0xbcb35
+	dbw BANK(UnknownScript_0xbcb7f), UnknownScript_0xbcb7f
+	dbw BANK(UnknownScript_0xbcbc9), UnknownScript_0xbcbc9
+	dbw BANK(UnknownScript_0xbcbd3), UnknownScript_0xbcbd3
+	dbw BANK(UnknownScript_0xbcc2d), UnknownScript_0xbcc2d
+	dbw BANK(UnknownScript_0xbcc87), UnknownScript_0xbcc87
+	dbw BANK(UnknownScript_0xbcce1), UnknownScript_0xbcce1
+	dbw BANK(UnknownScript_0xbcd30), UnknownScript_0xbcd30
+	dbw BANK(UnknownScript_0xbcd5a), UnknownScript_0xbcd5a
+	dbw BANK(UnknownScript_0xbcd93), UnknownScript_0xbcd93
+	dbw BANK(UnknownScript_0xbcda0), UnknownScript_0xbcda0
+	dbw BANK(UnknownScript_0xbcdaa), UnknownScript_0xbcdaa
+	dbw BANK(UnknownScript_0xbcdb9), UnknownScript_0xbcdb9
+	dbw BANK(UnknownScript_0xbcdc3), UnknownScript_0xbcdc3
+	dbw BANK(UnknownScript_0xbc1a9), UnknownScript_0xbc1a9
+	dbw BANK(UnknownScript_0xbcdcd), UnknownScript_0xbcdcd
+	dbw BANK(UnknownScript_0xbce7f), UnknownScript_0xbce7f
+; bc09c
+
+PokeCenterNurseScript: ; bc09c
+; Talking to a nurse in a Pokemon Center
+
+	loadfont
+; The nurse has different text for:
+; Morn
+	checktime $1
+	iftrue .morn
+; Day
+	checktime $2
+	iftrue .day
+; Nite
+	checktime $4
+	iftrue .nite
+; If somehow it's not a time of day at all, we skip the introduction
+	2jump .heal
+
+.morn
+; Different text if we're in the com center
+	checkbit1 $032a
+	iftrue .morn_comcenter
+; Good morning! Welcome to ...
+	3writetext BANK(UnknownText_0x1b0000), UnknownText_0x1b0000
+	keeptextopen
+	2jump .heal
+.morn_comcenter
+; Good morning! This is the ...
+	3writetext BANK(UnknownText_0x1b008a), UnknownText_0x1b008a
+	keeptextopen
+	2jump .heal
+
+.day
+; Different text if we're in the com center
+	checkbit1 $032a
+	iftrue .day_comcenter
+; Hello! Welcome to ...
+	3writetext BANK(UnknownText_0x1b002b), UnknownText_0x1b002b
+	keeptextopen
+	2jump .heal
+.day_comcenter
+; Hello! This is the ...
+	3writetext BANK(UnknownText_0x1b00d6), UnknownText_0x1b00d6
+	keeptextopen
+	2jump .heal
+
+.nite
+; Different text if we're in the com center
+	checkbit1 $032a
+	iftrue .nite_comcenter
+; Good evening! You're out late. ...
+	3writetext BANK(UnknownText_0x1b004f), UnknownText_0x1b004f
+	keeptextopen
+	2jump .heal
+.nite_comcenter
+; Good to see you working so late. ...
+	3writetext BANK(UnknownText_0x1b011b), UnknownText_0x1b011b
+	keeptextopen
+	2jump .heal
+
+.heal
+; If we come back, don't welcome us to the com center again
+	clearbit1 $032a
+; Ask if you want to heal
+	3writetext BANK(UnknownText_0x1b017a), UnknownText_0x1b017a
+	yesorno
+	iffalse .end
+; Go ahead and heal
+	3writetext BANK(UnknownText_0x1b01bd), UnknownText_0x1b01bd
+	pause 20
+	special $009d
+; Turn to the machine
+	spriteface $fe, $2
+	pause 10
+	special $001b
+	playmusic $0000
+	writebyte $0
+	special $003e
+	pause 30
+	special $003d
+	spriteface $fe, $0
+	pause 10
+; Has Elm already phoned you about Pokerus?
+	checkphonecall
+	iftrue .done
+; Has Pokerus already been found in the Pokecenter?
+	checkbit2 $000d
+	iftrue .done
+; Check for Pokerus
+	special $004e ; SPECIAL_CHECKPOKERUS
+	iftrue .pokerus
+.done
+; Thank you for waiting. ...
+	3writetext BANK(UnknownText_0x1b01d7), UnknownText_0x1b01d7
+	pause 20
+.end
+; We hope to see you again.
+	3writetext BANK(UnknownText_0x1b020b), UnknownText_0x1b020b
+; Curtsy
+	spriteface $fe, $1
+	pause 10
+	spriteface $fe, $0
+	pause 10
+; And we're out
+	closetext
+	loadmovesprites
+	end
+
+.pokerus
+; Different text for com center (excludes 'in a Pokemon Center')
+; Since flag $32a is cleared when healing,
+; this text is never actually seen
+	checkbit1 $032a
+	iftrue .pokerus_comcenter
+; Your Pokemon appear to be infected ...
+	3writetext BANK(UnknownText_0x1b0241), UnknownText_0x1b0241
+	closetext
+	loadmovesprites
+	2jump .endpokerus
+.pokerus_comcenter
+; Your Pokemon appear to be infected ...
+	3writetext BANK(UnknownText_0x1b02d6), UnknownText_0x1b02d6
+	closetext
+	loadmovesprites
+.endpokerus
+; Don't tell us about Pokerus again
+	setbit2 $000d
+; Trigger Elm's Pokerus phone call
+	specialphonecall $0001
+	end
+; bc162
+
+UnknownScript_0xbc162: ; 0xbc162
+	3jumptext $6c, $435a
+; 0xbc166
+
+UnknownScript_0xbc166: ; 0xbc166
+	3jumptext $6c, $4378
+; 0xbc16a
+
+UnknownScript_0xbc16a: ; 0xbc16a
+	3jumptext $6c, $43a3
+; 0xbc16e
+
+UnknownScript_0xbc16e: ; 0xbc16e
+	3jumptext $6c, $43d9
+; 0xbc172
+
+UnknownScript_0xbc172: ; 0xbc172
+	3jumptext $6c, $4448
+; 0xbc176
+
+UnknownScript_0xbc176: ; 0xbc176
+	3jumptext $6c, $4472
+; 0xbc17a
+
+UnknownScript_0xbc17a: ; 0xbc17a
+	loadfont
+	3writetext $6c, $448d
+	closetext
+	special $0026
+	loadmovesprites
+	end
+; 0xbc185
+
+UnknownScript_0xbc185: ; 0xbc185
+	3jumptext $6c, $44a0
+; 0xbc189
+
+UnknownScript_0xbc189: ; 0xbc189
+	loadfont
+	3writetext $6c, $44be
+	closetext
+	loadmovesprites
+	end
+; 0xbc191
+
+UnknownScript_0xbc191: ; 0xbc191
+	3jumptext $6c, $44c9
+; 0xbc195
+
+UnknownScript_0xbc195: ; 0xbc195
+	loadfont
+	writebyte $0
+	special $0028
+	loadmovesprites
+	end
+; 0xbc19d
+
+UnknownScript_0xbc19d: ; 0xbc19d
+	loadfont
+	writebyte $4
+	special $0028
+	loadmovesprites
+	end
+; 0xbc1a5
+
+UnknownScript_0xbc1a5: ; 0xbc1a5
+	3jumptext $6c, $4526
+; 0xbc1a9
+
+UnknownScript_0xbc1a9: ; 0xbc1a9
+	loadfont
+	special $001c
+	loadmovesprites
+	end
+; 0xbc1af
+
+UnknownScript_0xbc1af: ; 0xbc1af
+	playsound $0008
+	pause 15
+	playsound $0027
+	end
+; 0xbc1b8
+
+UnknownScript_0xbc1b8: ; 0xbc1b8
+	3jump BANK(UnknownScript_0xcd4b), UnknownScript_0xcd4b
+; 0xbc1bc
+
+UnknownScript_0xbc1bc: ; 0xbc1bc
+	3jump BANK(UnknownScript_0xcf5d), UnknownScript_0xcf5d
+; 0xbc1c0
+
+UnknownScript_0xbc1c0: ; 0xbc1c0
+	3jumptext $6c, $457f
+; 0xbc1c4
+
+UnknownScript_0xbc1c4: ; 0xbc1c4
+	3jumptext $6c, $459c
+; 0xbc1c8
+
+UnknownScript_0xbc1c8: ; 0xbc1c8
+	checkcode $b
+	if_equal $1, UnknownScript_0xbc1e7
+	if_equal $2, UnknownScript_0xbc1ec
+	if_equal $3, UnknownScript_0xbc1f1
+	if_equal $4, UnknownScript_0xbc1f6
+	if_equal $5, UnknownScript_0xbc1fb
+	if_equal $6, UnknownScript_0xbc200
+	stringtotext UnknownRawText_0xbc205, $0
+	end
+; 0xbc1e7
+
+UnknownScript_0xbc1e7: ; 0xbc1e7
+	stringtotext UnknownRawText_0xbc20c, $0
+	end
+; 0xbc1ec
+
+UnknownScript_0xbc1ec: ; 0xbc1ec
+	stringtotext UnknownRawText_0xbc213, $0
+	end
+; 0xbc1f1
+
+UnknownScript_0xbc1f1: ; 0xbc1f1
+	stringtotext UnknownRawText_0xbc21b, $0
+	end
+; 0xbc1f6
+
+UnknownScript_0xbc1f6: ; 0xbc1f6
+	stringtotext UnknownRawText_0xbc225, $0
+	end
+; 0xbc1fb
+
+UnknownScript_0xbc1fb: ; 0xbc1fb
+	stringtotext UnknownRawText_0xbc22e, $0
+	end
+; 0xbc200
+
+UnknownScript_0xbc200: ; 0xbc200
+	stringtotext UnknownRawText_0xbc235, $0
+	end
+; 0xbc205
+
+UnknownRawText_0xbc205: ; bc205
+	db "SUNDAY@"
+; bc20c
+
+UnknownRawText_0xbc20c: ; bc20c
+	db "MONDAY@"
+; bc213
+
+UnknownRawText_0xbc213: ; bc213
+	db "TUESDAY@"
+; bc21b
+
+UnknownRawText_0xbc21b: ; bc21b
+	db "WEDNESDAY@"
+; bc225
+
+UnknownRawText_0xbc225: ; bc225
+	db "THURSDAY@"
+; bc22e
+
+UnknownRawText_0xbc22e: ; bc22e
+	db "FRIDAY@"
+; bc235
+
+UnknownRawText_0xbc235: ; bc235
+	db "SATURDAY@"
+; bc23e
+
+UnknownScript_0xbc23e: ; 0xbc23e
+	clearbit1 $06cd
+	end
+; 0xbc242
+
+UnknownScript_0xbc242: ; 0xbc242
+	setbit2 $0013
+	setbit1 $06cf
+	setbit1 $06d1
+	clearbit1 $06ce
+	clearbit1 $0025
+	setbit1 $0756
+	specialphonecall $0004
+	domaptrigger GROUP_MAHOGANY_TOWN, MAP_MAHOGANY_TOWN, $1
+	end
+; 0xbc25c
+
+UnknownScript_0xbc25c: ; 0xbc25c
+	special $0034
+	2call UnknownScript_0xbc380
+	setbit1 $0747
+	clearbit1 $0748
+	setbit1 $02d2
+	warp GROUP_ROUTE_36_NATIONAL_PARK_GATE, MAP_ROUTE_36_NATIONAL_PARK_GATE, $0, $4
+	applymovement $0, MovementData_0xbcea1
+
+UnknownScript_0xbc274: ; bc274
+	clearbit2 $0011
+	clearbit1 $02d2
+	clearbit1 $0313
+	clearbit1 $0314
+	clearbit1 $0315
+	clearbit1 $0316
+	loadfont
+	3writetext $6c, $45bf
+	closetext
+	special $0014
+	RAM2MEM $0
+	if_equal $1, UnknownScript_0xbc31e
+	if_equal $2, UnknownScript_0xbc332
+	if_equal $3, UnknownScript_0xbc343
+	3writetext $6c, $4681
+	keeptextopen
+	waitbutton
+	verbosegiveitem BERRY, 1
+	iffalse UnknownScript_0xbc375
+	3writetext $6c, $46b7
+	keeptextopen
+	2jump $42b6
+; 0xbc2b1
+
+UnknownScript_0xbc2b1: ; 0xbc2b1
+	3writetext $6c, $465b
+	keeptextopen
+	checkbit1 $0308
+	iffalse $42c4
+	3writetext $6c, $46d9
+	closetext
+	special $0017
+	special $0015
+	if_equal $0, $42d4
+	if_equal $2, $42d4
+	3writetext $6c, $470d
+	closetext
+	loadmovesprites
+	dotrigger $0
+	domaptrigger GROUP_ROUTE_35_NATIONAL_PARK_GATE, MAP_ROUTE_35_NATIONAL_PARK_GATE, $0
+	setbit1 $0716
+	setbit1 $0717
+	setbit1 $0718
+	setbit1 $0719
+	setbit1 $071a
+	setbit1 $071b
+	setbit1 $071c
+	setbit1 $071d
+	setbit1 $071e
+	setbit1 $071f
+	setbit1 $0720
+	setbit1 $0721
+	setbit1 $0722
+	setbit1 $0723
+	setbit1 $0724
+	setbit1 $0725
+	setbit1 $0726
+	setbit1 $0727
+	setbit1 $0728
+	setbit1 $0729
+	setbit2 $0051
+	special $003c
+	end
+; 0xbc31e
+
+UnknownScript_0xbc31e: ; 0xbc31e
+	setbit1 $0000
+	itemtotext SUN_STONE, $1
+	3writetext $6c, $4621
+	closetext
+	verbosegiveitem SUN_STONE, 1
+	iffalse UnknownScript_0xbc354
+	2jump UnknownScript_0xbc2b1
+; 0xbc332
+
+UnknownScript_0xbc332: ; 0xbc332
+	itemtotext EVERSTONE, $1
+	3writetext $6c, $4621
+	closetext
+	verbosegiveitem EVERSTONE, 1
+	iffalse UnknownScript_0xbc35f
+	2jump UnknownScript_0xbc2b1
+; 0xbc343
+
+UnknownScript_0xbc343: ; 0xbc343
+	itemtotext GOLD_BERRY, $1
+	3writetext $6c, $4621
+	closetext
+	verbosegiveitem GOLD_BERRY, 1
+	iffalse UnknownScript_0xbc36a
+	2jump UnknownScript_0xbc2b1
+; 0xbc354
+
+UnknownScript_0xbc354: ; 0xbc354
+	3writetext $6c, $48cc
+	keeptextopen
+	setbit1 $0313
+	2jump UnknownScript_0xbc2b1
+; 0xbc35f
+
+UnknownScript_0xbc35f: ; 0xbc35f
+	3writetext $6c, $48cc
+	keeptextopen
+	setbit1 $0314
+	2jump UnknownScript_0xbc2b1
+; 0xbc36a
+
+UnknownScript_0xbc36a: ; 0xbc36a
+	3writetext $6c, $48cc
+	keeptextopen
+	setbit1 $0315
+	2jump UnknownScript_0xbc2b1
+; 0xbc375
+
+UnknownScript_0xbc375: ; 0xbc375
+	3writetext $6c, $48cc
+	keeptextopen
+	setbit1 $0316
+	2jump $42a9
+; 0xbc380
+
+UnknownScript_0xbc380: ; 0xbc380
+	checkbit1 $0716
+	iftrue .skip1
+	clearbit1 $0720
+.skip1
+	checkbit1 $0717
+	iftrue .skip2
+	clearbit1 $0721
+.skip2
+	checkbit1 $0718
+	iftrue .skip3
+	clearbit1 $0722
+.skip3
+	checkbit1 $0719
+	iftrue .skip4
+	clearbit1 $0723
+.skip4
+	checkbit1 $071a
+	iftrue .skip5
+	clearbit1 $0724
+.skip5
+	checkbit1 $071b
+	iftrue .skip6
+	clearbit1 $0725
+.skip6
+	checkbit1 $071c
+	iftrue .skip7
+	clearbit1 $0726
+.skip7
+	checkbit1 $071d
+	iftrue .skip8
+	clearbit1 $0727
+.skip8
+	checkbit1 $071e
+	iftrue .skip9
+	clearbit1 $0728
+.skip9
+	checkbit1 $071f
+	iftrue .skip10
+	clearbit1 $0729
+.skip10
+	end
+; 0xbc3db
+
+UnknownScript_0xbc3db: ; 0xbc3db
+	setbit1 $06cb
+	setbit1 $06ce
+	setbit1 $06cd
+	setbit1 $06d0
+	setbit1 $06f3
+	setbit1 $06e9
+	setbit1 $06f4
+	setbit1 $06d5
+	setbit1 $06de
+	setbit1 $06dd
+	setbit1 $06df
+	setbit1 $06c0
+	setbit1 $06e4
+	setbit1 $0025
+	setbit1 $06be
+	setbit1 $06bf
+	setbit1 $06c1
+	setbit1 $06f9
+	setbit1 $06fd
+	setbit1 $06ff
+	setbit1 $0700
+	setbit1 $0702
+	setbit1 $0703
+	setbit1 $0704
+	setbit1 $070d
+	setbit1 $070e
+	setbit1 $070f
+	setbit1 $0710
+	setbit1 $0715
+	setbit1 $0716
+	setbit1 $0717
+	setbit1 $0718
+	setbit1 $0719
+	setbit1 $071a
+	setbit1 $071b
+	setbit1 $071c
+	setbit1 $071d
+	setbit1 $071e
+	setbit1 $071f
+	setbit1 $0720
+	setbit1 $0721
+	setbit1 $0722
+	setbit1 $0723
+	setbit1 $0724
+	setbit1 $0725
+	setbit1 $0726
+	setbit1 $0727
+	setbit1 $0728
+	setbit1 $0729
+	setbit1 $072c
+	setbit1 $072f
+	setbit1 $072d
+	setbit1 $0735
+	setbit1 $0736
+	setbit1 $073c
+	setbit1 $073d
+	setbit1 $0741
+	setbit1 $0742
+	setbit1 $0743
+	setbit1 $0744
+	setbit1 $02a4
+	setbit1 $02af
+	setbit1 $0749
+	setbit1 $06d3
+	setbit1 $074d
+	setbit1 $0712
+	setbit1 $0713
+	setbit1 $0711
+	setbit1 $06d4
+	setbit1 $0304
+	setbit1 $0307
+	setbit1 $06d8
+	setbit1 $06c3
+	setbit1 $06c2
+	setbit1 $06c6
+	setbit1 $075f
+	setbit1 $0731
+	setbit1 $074a
+	setbit1 $0762
+	setbit1 $0738
+	setbit1 $073a
+	setbit1 $073b
+	setbit1 $0733
+	setbit1 $073f
+	setbit1 $078d
+	setbit1 $0766
+	setbit1 $0768
+	setbit1 $0769
+	setbit1 $076a
+	setbit1 $078e
+	setbit1 $078f
+	setbit1 $0790
+	setbit1 $0791
+	setbit1 $0793
+	setbit1 $07a4
+	setbit1 $07a4
+	setbit1 $07a5
+	setbit1 $06ec
+	setbit1 $06ed
+	setbit1 $06f0
+	setbit1 $07a9
+	setbit1 $07aa
+	setbit1 $06c8
+	setbit1 $07ac
+	setbit1 $07ad
+	setbit1 $07b5
+	setbit1 $07b6
+	setbit1 $07c5
+	setbit1 $07b7
+	setbit1 $07b0
+	setbit1 $07af
+	setbit1 $07ae
+	setbit1 $07cf
+	setbit2 $000e
+	setbit2 $0017
+	variablesprite $4, $52
+	variablesprite $5, $4
+	variablesprite $6, $35
+	variablesprite $7, $a
+	variablesprite $8, $a
+	variablesprite $9, $a
+	variablesprite $a, $a
+	variablesprite $b, $28
+	variablesprite $c, $28
+	setbit1 $00fb
+	setbit1 $076d
+	setbit1 $076c
+	setbit1 $076e
+	setbit1 $076f
+	setbit1 $0773
+	setbit1 $0776
+	setbit1 $0777
+	setbit1 $0779
+	setbit1 $0772
+	setbit1 $077b
+	setbit1 $0036
+	return
+; 0xbc574
+
+UnknownScript_0xbc574: ; 0xbc574
+	special $005d
+	checkcode $17
+	if_equal $5, UnknownScript_0xbc5c9
+	if_equal $7, UnknownScript_0xbc5ce
+	if_equal $b, UnknownScript_0xbc5d3
+	if_equal $d, UnknownScript_0xbc5d8
+	if_equal $f, UnknownScript_0xbc5dd
+	if_equal $10, UnknownScript_0xbc5e2
+	if_equal $11, UnknownScript_0xbc5e7
+	if_equal $13, UnknownScript_0xbc5ec
+	if_equal $14, UnknownScript_0xbc5f1
+	if_equal $16, UnknownScript_0xbc5f6
+	if_equal $17, UnknownScript_0xbc5fb
+	if_equal $18, UnknownScript_0xbc600
+	if_equal $1b, UnknownScript_0xbc605
+	if_equal $1c, UnknownScript_0xbc60a
+	if_equal $1d, UnknownScript_0xbc60f
+	if_equal $1e, UnknownScript_0xbc614
+	if_equal $20, UnknownScript_0xbc619
+	if_equal $21, UnknownScript_0xbc61e
+	if_equal $22, UnknownScript_0xbc623
+	if_equal $23, UnknownScript_0xbc628
+
+UnknownScript_0xbc5c9: ; bc5c9
+	3writetext $6c, $49fe
+	end
+; 0xbc5ce
+
+UnknownScript_0xbc5ce: ; 0xbc5ce
+	3writetext $6c, $4d9f
+	end
+; 0xbc5d3
+
+UnknownScript_0xbc5d3: ; 0xbc5d3
+	3writetext $6c, $502e
+	end
+; 0xbc5d8
+
+UnknownScript_0xbc5d8: ; 0xbc5d8
+	3writetext $6c, $542d
+	end
+; 0xbc5dd
+
+UnknownScript_0xbc5dd: ; 0xbc5dd
+	3writetext $6c, $5800
+	end
+; 0xbc5e2
+
+UnknownScript_0xbc5e2: ; 0xbc5e2
+	3writetext $6c, $5a71
+	end
+; 0xbc5e7
+
+UnknownScript_0xbc5e7: ; 0xbc5e7
+	3writetext $6c, $5cd5
+	end
+; 0xbc5ec
+
+UnknownScript_0xbc5ec: ; 0xbc5ec
+	3writetext $29, $4000
+	end
+; 0xbc5f1
+
+UnknownScript_0xbc5f1: ; 0xbc5f1
+	3writetext $29, $41c0
+	end
+; 0xbc5f6
+
+UnknownScript_0xbc5f6: ; 0xbc5f6
+	3writetext $29, $4642
+	end
+; 0xbc5fb
+
+UnknownScript_0xbc5fb: ; 0xbc5fb
+	3writetext $29, $4829
+	end
+; 0xbc600
+
+UnknownScript_0xbc600: ; 0xbc600
+	3writetext $29, $4a31
+	end
+; 0xbc605
+
+UnknownScript_0xbc605: ; 0xbc605
+	3writetext $29, $4ed4
+	end
+; 0xbc60a
+
+UnknownScript_0xbc60a: ; 0xbc60a
+	3writetext $29, $50d5
+	end
+; 0xbc60f
+
+UnknownScript_0xbc60f: ; 0xbc60f
+	3writetext $29, $52e2
+	end
+; 0xbc614
+
+UnknownScript_0xbc614: ; 0xbc614
+	3writetext $29, $5545
+	end
+; 0xbc619
+
+UnknownScript_0xbc619: ; 0xbc619
+	3writetext $29, $5937
+	end
+; 0xbc61e
+
+UnknownScript_0xbc61e: ; 0xbc61e
+	3writetext $29, $5bc4
+	end
+; 0xbc623
+
+UnknownScript_0xbc623: ; 0xbc623
+	3writetext $29, $5dc6
+	end
+; 0xbc628
+
+UnknownScript_0xbc628: ; 0xbc628
+	3writetext $29, $600c
+	end
+; 0xbc62d
+
+UnknownScript_0xbc62d: ; 0xbc62d
+	special $005d
+	checkcode $17
+	if_equal $5, UnknownScript_0xbc682
+	if_equal $7, UnknownScript_0xbc687
+	if_equal $b, UnknownScript_0xbc68c
+	if_equal $d, UnknownScript_0xbc691
+	if_equal $f, UnknownScript_0xbc696
+	if_equal $10, UnknownScript_0xbc69b
+	if_equal $11, UnknownScript_0xbc6a0
+	if_equal $13, UnknownScript_0xbc6a5
+	if_equal $14, UnknownScript_0xbc6aa
+	if_equal $16, UnknownScript_0xbc6af
+	if_equal $17, UnknownScript_0xbc6b4
+	if_equal $18, UnknownScript_0xbc6b9
+	if_equal $1b, UnknownScript_0xbc6be
+	if_equal $1c, UnknownScript_0xbc6c3
+	if_equal $1d, UnknownScript_0xbc6c8
+	if_equal $1e, UnknownScript_0xbc6cd
+	if_equal $20, UnknownScript_0xbc6d2
+	if_equal $21, UnknownScript_0xbc6d7
+	if_equal $22, UnknownScript_0xbc6dc
+	if_equal $23, UnknownScript_0xbc6e1
+
+UnknownScript_0xbc682: ; bc682
+	3writetext $6c, $4a82
+	end
+; 0xbc687
+
+UnknownScript_0xbc687: ; 0xbc687
+	3writetext $6c, $4e2c
+	end
+; 0xbc68c
+
+UnknownScript_0xbc68c: ; 0xbc68c
+	3writetext $6c, $50d3
+	end
+; 0xbc691
+
+UnknownScript_0xbc691: ; 0xbc691
+	3writetext $6c, $54e4
+	end
+; 0xbc696
+
+UnknownScript_0xbc696: ; 0xbc696
+	3writetext $6c, $587b
+	end
+; 0xbc69b
+
+UnknownScript_0xbc69b: ; 0xbc69b
+	3writetext $6c, $5b1d
+	end
+; 0xbc6a0
+
+UnknownScript_0xbc6a0: ; 0xbc6a0
+	3writetext $6c, $5d85
+	end
+; 0xbc6a5
+
+UnknownScript_0xbc6a5: ; 0xbc6a5
+	3writetext $29, $40a9
+	end
+; 0xbc6aa
+
+UnknownScript_0xbc6aa: ; 0xbc6aa
+	3writetext $29, $426a
+	end
+; 0xbc6af
+
+UnknownScript_0xbc6af: ; 0xbc6af
+	3writetext $29, $470b
+	end
+; 0xbc6b4
+
+UnknownScript_0xbc6b4: ; 0xbc6b4
+	3writetext $29, $48fc
+	end
+; 0xbc6b9
+
+UnknownScript_0xbc6b9: ; 0xbc6b9
+	3writetext $29, $4b03
+	end
+; 0xbc6be
+
+UnknownScript_0xbc6be: ; 0xbc6be
+	3writetext $29, $4fc8
+	end
+; 0xbc6c3
+
+UnknownScript_0xbc6c3: ; 0xbc6c3
+	3writetext $29, $5175
+	end
+; 0xbc6c8
+
+UnknownScript_0xbc6c8: ; 0xbc6c8
+	3writetext $29, $5383
+	end
+; 0xbc6cd
+
+UnknownScript_0xbc6cd: ; 0xbc6cd
+	3writetext $29, $5621
+	end
+; 0xbc6d2
+
+UnknownScript_0xbc6d2: ; 0xbc6d2
+	3writetext $29, $59bc
+	end
+; 0xbc6d7
+
+UnknownScript_0xbc6d7: ; 0xbc6d7
+	3writetext $29, $5c4b
+	end
+; 0xbc6dc
+
+UnknownScript_0xbc6dc: ; 0xbc6dc
+	3writetext $29, $5e63
+	end
+; 0xbc6e1
+
+UnknownScript_0xbc6e1: ; 0xbc6e1
+	3writetext $29, $6076
+	end
+; 0xbc6e6
+
+UnknownScript_0xbc6e6: ; 0xbc6e6
+	3writetext $6c, $49c4
+	playsound $0093
+	waitbutton
+	keeptextopen
+	end
+; 0xbc6f0
+
+UnknownScript_0xbc6f0: ; 0xbc6f0
+	checkcode $17
+	if_equal $5, $4742
+	if_equal $7, UnknownScript_0xbc749
+	if_equal $b, UnknownScript_0xbc750
+	if_equal $d, UnknownScript_0xbc757
+	if_equal $f, UnknownScript_0xbc75e
+	if_equal $10, UnknownScript_0xbc765
+	if_equal $11, UnknownScript_0xbc76c
+	if_equal $13, UnknownScript_0xbc773
+	if_equal $14, UnknownScript_0xbc77a
+	if_equal $16, UnknownScript_0xbc781
+	if_equal $17, UnknownScript_0xbc788
+	if_equal $18, UnknownScript_0xbc78f
+	if_equal $1b, UnknownScript_0xbc796
+	if_equal $1c, UnknownScript_0xbc79d
+	if_equal $1d, UnknownScript_0xbc7a4
+	if_equal $1e, UnknownScript_0xbc7ab
+	if_equal $20, UnknownScript_0xbc7b2
+	if_equal $21, UnknownScript_0xbc7b9
+	if_equal $22, UnknownScript_0xbc7c0
+	if_equal $23, UnknownScript_0xbc7c7
+	3writetext $6c, $4adb
+	closetext
+	loadmovesprites
+	end
+; 0xbc749
+
+UnknownScript_0xbc749: ; 0xbc749
+	3writetext $6c, $4e89
+	closetext
+	loadmovesprites
+	end
+; 0xbc750
+
+UnknownScript_0xbc750: ; 0xbc750
+	3writetext $6c, $5136
+	closetext
+	loadmovesprites
+	end
+; 0xbc757
+
+UnknownScript_0xbc757: ; 0xbc757
+	3writetext $6c, $5553
+	closetext
+	loadmovesprites
+	end
+; 0xbc75e
+
+UnknownScript_0xbc75e: ; 0xbc75e
+	3writetext $6c, $58d7
+	closetext
+	loadmovesprites
+	end
+; 0xbc765
+
+UnknownScript_0xbc765: ; 0xbc765
+	3writetext $6c, $5b8e
+	closetext
+	loadmovesprites
+	end
+; 0xbc76c
+
+UnknownScript_0xbc76c: ; 0xbc76c
+	3writetext $6c, $5db9
+	closetext
+	loadmovesprites
+	end
+; 0xbc773
+
+UnknownScript_0xbc773: ; 0xbc773
+	3writetext $29, $40f8
+	closetext
+	loadmovesprites
+	end
+; 0xbc77a
+
+UnknownScript_0xbc77a: ; 0xbc77a
+	3writetext $29, $42ab
+	closetext
+	loadmovesprites
+	end
+; 0xbc781
+
+UnknownScript_0xbc781: ; 0xbc781
+	3writetext $29, $4730
+	closetext
+	loadmovesprites
+	end
+; 0xbc788
+
+UnknownScript_0xbc788: ; 0xbc788
+	3writetext $29, $494d
+	closetext
+	loadmovesprites
+	end
+; 0xbc78f
+
+UnknownScript_0xbc78f: ; 0xbc78f
+	3writetext $29, $4b47
+	closetext
+	loadmovesprites
+	end
+; 0xbc796
+
+UnknownScript_0xbc796: ; 0xbc796
+	3writetext $29, $502e
+	closetext
+	loadmovesprites
+	end
+; 0xbc79d
+
+UnknownScript_0xbc79d: ; 0xbc79d
+	3writetext $29, $51ac
+	closetext
+	loadmovesprites
+	end
+; 0xbc7a4
+
+UnknownScript_0xbc7a4: ; 0xbc7a4
+	3writetext $29, $53de
+	closetext
+	loadmovesprites
+	end
+; 0xbc7ab
+
+UnknownScript_0xbc7ab: ; 0xbc7ab
+	3writetext $29, $5666
+	closetext
+	loadmovesprites
+	end
+; 0xbc7b2
+
+UnknownScript_0xbc7b2: ; 0xbc7b2
+	3writetext $29, $5a28
+	closetext
+	loadmovesprites
+	end
+; 0xbc7b9
+
+UnknownScript_0xbc7b9: ; 0xbc7b9
+	3writetext $29, $5c8e
+	closetext
+	loadmovesprites
+	end
+; 0xbc7c0
+
+UnknownScript_0xbc7c0: ; 0xbc7c0
+	3writetext $29, $5ea8
+	closetext
+	loadmovesprites
+	end
+; 0xbc7c7
+
+UnknownScript_0xbc7c7: ; 0xbc7c7
+	3writetext $29, $60b5
+	closetext
+	loadmovesprites
+	end
+; 0xbc7ce
+
+UnknownScript_0xbc7ce: ; 0xbc7ce
+	checkcode $17
+	if_equal $5, $4820
+	if_equal $7, UnknownScript_0xbc827
+	if_equal $b, UnknownScript_0xbc82e
+	if_equal $d, UnknownScript_0xbc835
+	if_equal $f, UnknownScript_0xbc83c
+	if_equal $10, UnknownScript_0xbc843
+	if_equal $11, UnknownScript_0xbc84a
+	if_equal $13, UnknownScript_0xbc851
+	if_equal $14, UnknownScript_0xbc858
+	if_equal $16, UnknownScript_0xbc85f
+	if_equal $17, UnknownScript_0xbc866
+	if_equal $18, UnknownScript_0xbc86d
+	if_equal $1b, UnknownScript_0xbc874
+	if_equal $1c, UnknownScript_0xbc87b
+	if_equal $1d, UnknownScript_0xbc882
+	if_equal $1e, UnknownScript_0xbc889
+	if_equal $20, UnknownScript_0xbc890
+	if_equal $21, UnknownScript_0xbc897
+	if_equal $22, UnknownScript_0xbc89e
+	if_equal $23, UnknownScript_0xbc8a5
+	3writetext $6c, $4afd
+	closetext
+	loadmovesprites
+	end
+; 0xbc827
+
+UnknownScript_0xbc827: ; 0xbc827
+	3writetext $6c, $4ea2
+	closetext
+	loadmovesprites
+	end
+; 0xbc82e
+
+UnknownScript_0xbc82e: ; 0xbc82e
+	3writetext $6c, $517b
+	closetext
+	loadmovesprites
+	end
+; 0xbc835
+
+UnknownScript_0xbc835: ; 0xbc835
+	3writetext $6c, $5584
+	closetext
+	loadmovesprites
+	end
+; 0xbc83c
+
+UnknownScript_0xbc83c: ; 0xbc83c
+	3writetext $6c, $5908
+	closetext
+	loadmovesprites
+	end
+; 0xbc843
+
+UnknownScript_0xbc843: ; 0xbc843
+	3writetext $6c, $5bd2
+	closetext
+	loadmovesprites
+	end
+; 0xbc84a
+
+UnknownScript_0xbc84a: ; 0xbc84a
+	3writetext $6c, $5df4
+	closetext
+	loadmovesprites
+	end
+; 0xbc851
+
+UnknownScript_0xbc851: ; 0xbc851
+	3writetext $29, $4126
+	closetext
+	loadmovesprites
+	end
+; 0xbc858
+
+UnknownScript_0xbc858: ; 0xbc858
+	3writetext $29, $42f2
+	closetext
+	loadmovesprites
+	end
+; 0xbc85f
+
+UnknownScript_0xbc85f: ; 0xbc85f
+	3writetext $29, $4794
+	closetext
+	loadmovesprites
+	end
+; 0xbc866
+
+UnknownScript_0xbc866: ; 0xbc866
+	3writetext $29, $498a
+	closetext
+	loadmovesprites
+	end
+; 0xbc86d
+
+UnknownScript_0xbc86d: ; 0xbc86d
+	3writetext $29, $4b87
+	closetext
+	loadmovesprites
+	end
+; 0xbc874
+
+UnknownScript_0xbc874: ; 0xbc874
+	3writetext $29, $505f
+	closetext
+	loadmovesprites
+	end
+; 0xbc87b
+
+UnknownScript_0xbc87b: ; 0xbc87b
+	3writetext $29, $51ee
+	closetext
+	loadmovesprites
+	end
+; 0xbc882
+
+UnknownScript_0xbc882: ; 0xbc882
+	3writetext $29, $5412
+	closetext
+	loadmovesprites
+	end
+; 0xbc889
+
+UnknownScript_0xbc889: ; 0xbc889
+	3writetext $29, $56b6
+	closetext
+	loadmovesprites
+	end
+; 0xbc890
+
+UnknownScript_0xbc890: ; 0xbc890
+	3writetext $29, $5a5a
+	closetext
+	loadmovesprites
+	end
+; 0xbc897
+
+UnknownScript_0xbc897: ; 0xbc897
+	3writetext $29, $5cc5
+	closetext
+	loadmovesprites
+	end
+; 0xbc89e
+
+UnknownScript_0xbc89e: ; 0xbc89e
+	3writetext $29, $5ed6
+	closetext
+	loadmovesprites
+	end
+; 0xbc8a5
+
+UnknownScript_0xbc8a5: ; 0xbc8a5
+	3writetext $29, $60e2
+	closetext
+	loadmovesprites
+	end
+; 0xbc8ac
+
+UnknownScript_0xbc8ac: ; 0xbc8ac
+	checkcode $17
+	if_equal $5, $48fe
+	if_equal $7, UnknownScript_0xbc905
+	if_equal $b, UnknownScript_0xbc90c
+	if_equal $d, UnknownScript_0xbc913
+	if_equal $f, UnknownScript_0xbc91a
+	if_equal $10, UnknownScript_0xbc921
+	if_equal $11, UnknownScript_0xbc928
+	if_equal $13, UnknownScript_0xbc92f
+	if_equal $14, UnknownScript_0xbc936
+	if_equal $16, UnknownScript_0xbc93d
+	if_equal $17, UnknownScript_0xbc944
+	if_equal $18, UnknownScript_0xbc94b
+	if_equal $1b, UnknownScript_0xbc952
+	if_equal $1c, UnknownScript_0xbc959
+	if_equal $1d, UnknownScript_0xbc960
+	if_equal $1e, UnknownScript_0xbc967
+	if_equal $20, UnknownScript_0xbc96e
+	if_equal $21, UnknownScript_0xbc975
+	if_equal $22, UnknownScript_0xbc97c
+	if_equal $23, UnknownScript_0xbc983
+	3writetext $6c, $4b42
+	closetext
+	loadmovesprites
+	end
+; 0xbc905
+
+UnknownScript_0xbc905: ; 0xbc905
+	3writetext $6c, $4ebc
+	closetext
+	loadmovesprites
+	end
+; 0xbc90c
+
+UnknownScript_0xbc90c: ; 0xbc90c
+	3writetext $6c, $51c4
+	closetext
+	loadmovesprites
+	end
+; 0xbc913
+
+UnknownScript_0xbc913: ; 0xbc913
+	3writetext $6c, $55b6
+	closetext
+	loadmovesprites
+	end
+; 0xbc91a
+
+UnknownScript_0xbc91a: ; 0xbc91a
+	3writetext $6c, $5936
+	closetext
+	loadmovesprites
+	end
+; 0xbc921
+
+UnknownScript_0xbc921: ; 0xbc921
+	3writetext $6c, $5c06
+	closetext
+	loadmovesprites
+	end
+; 0xbc928
+
+UnknownScript_0xbc928: ; 0xbc928
+	3writetext $6c, $5e50
+	closetext
+	loadmovesprites
+	end
+; 0xbc92f
+
+UnknownScript_0xbc92f: ; 0xbc92f
+	3writetext $29, $4158
+	closetext
+	loadmovesprites
+	end
+; 0xbc936
+
+UnknownScript_0xbc936: ; 0xbc936
+	3writetext $29, $434a
+	closetext
+	loadmovesprites
+	end
+; 0xbc93d
+
+UnknownScript_0xbc93d: ; 0xbc93d
+	3writetext $29, $47eb
+	closetext
+	loadmovesprites
+	end
+; 0xbc944
+
+UnknownScript_0xbc944: ; 0xbc944
+	3writetext $29, $49bd
+	closetext
+	loadmovesprites
+	end
+; 0xbc94b
+
+UnknownScript_0xbc94b: ; 0xbc94b
+	3writetext $29, $4bcd
+	closetext
+	loadmovesprites
+	end
+; 0xbc952
+
+UnknownScript_0xbc952: ; 0xbc952
+	3writetext $29, $508c
+	closetext
+	loadmovesprites
+	end
+; 0xbc959
+
+UnknownScript_0xbc959: ; 0xbc959
+	3writetext $29, $5216
+	closetext
+	loadmovesprites
+	end
+; 0xbc960
+
+UnknownScript_0xbc960: ; 0xbc960
+	3writetext $29, $5446
+	closetext
+	loadmovesprites
+	end
+; 0xbc967
+
+UnknownScript_0xbc967: ; 0xbc967
+	3writetext $29, $56e2
+	closetext
+	loadmovesprites
+	end
+; 0xbc96e
+
+UnknownScript_0xbc96e: ; 0xbc96e
+	3writetext $29, $5aa6
+	closetext
+	loadmovesprites
+	end
+; 0xbc975
+
+UnknownScript_0xbc975: ; 0xbc975
+	3writetext $29, $5cfa
+	closetext
+	loadmovesprites
+	end
+; 0xbc97c
+
+UnknownScript_0xbc97c: ; 0xbc97c
+	3writetext $29, $5f06
+	closetext
+	loadmovesprites
+	end
+; 0xbc983
+
+UnknownScript_0xbc983: ; 0xbc983
+	3writetext $29, $6144
+	closetext
+	loadmovesprites
+	end
+; 0xbc98a
+
+UnknownScript_0xbc98a: ; 0xbc98a
+	checkcode $17
+	if_equal $5, $49d0
+	if_equal $7, UnknownScript_0xbc9d7
+	if_equal $b, UnknownScript_0xbc9de
+	if_equal $d, UnknownScript_0xbc9e5
+	if_equal $f, UnknownScript_0xbc9ec
+	if_equal $10, UnknownScript_0xbc9f3
+	if_equal $11, UnknownScript_0xbc9fa
+	if_equal $13, UnknownScript_0xbca01
+	if_equal $14, UnknownScript_0xbca08
+	if_equal $17, UnknownScript_0xbca0f
+	if_equal $18, UnknownScript_0xbca16
+	if_equal $1b, UnknownScript_0xbca1d
+	if_equal $1d, UnknownScript_0xbca24
+	if_equal $1e, UnknownScript_0xbca2b
+	if_equal $20, UnknownScript_0xbca32
+	if_equal $21, UnknownScript_0xbca39
+	if_equal $23, UnknownScript_0xbca40
+	3writetext $6c, $4b75
+	closetext
+	loadmovesprites
+	end
+; 0xbc9d7
+
+UnknownScript_0xbc9d7: ; 0xbc9d7
+	3writetext $6c, $4edc
+	closetext
+	loadmovesprites
+	end
+; 0xbc9de
+
+UnknownScript_0xbc9de: ; 0xbc9de
+	3writetext $6c, $51fe
+	closetext
+	loadmovesprites
+	end
+; 0xbc9e5
+
+UnknownScript_0xbc9e5: ; 0xbc9e5
+	3writetext $6c, $55d5
+	closetext
+	loadmovesprites
+	end
+; 0xbc9ec
+
+UnknownScript_0xbc9ec: ; 0xbc9ec
+	3writetext $6c, $5954
+	closetext
+	loadmovesprites
+	end
+; 0xbc9f3
+
+UnknownScript_0xbc9f3: ; 0xbc9f3
+	3writetext $6c, $5c32
+	closetext
+	loadmovesprites
+	end
+; 0xbc9fa
+
+UnknownScript_0xbc9fa: ; 0xbc9fa
+	3writetext $6c, $5e98
+	closetext
+	loadmovesprites
+	end
+; 0xbca01
+
+UnknownScript_0xbca01: ; 0xbca01
+	3writetext $29, $418d
+	closetext
+	loadmovesprites
+	end
+; 0xbca08
+
+UnknownScript_0xbca08: ; 0xbca08
+	3writetext $29, $4382
+	closetext
+	loadmovesprites
+	end
+; 0xbca0f
+
+UnknownScript_0xbca0f: ; 0xbca0f
+	3writetext $29, $49fc
+	closetext
+	loadmovesprites
+	end
+; 0xbca16
+
+UnknownScript_0xbca16: ; 0xbca16
+	3writetext $29, $4bec
+	closetext
+	loadmovesprites
+	end
+; 0xbca1d
+
+UnknownScript_0xbca1d: ; 0xbca1d
+	3writetext $29, $50b1
+	closetext
+	loadmovesprites
+	end
+; 0xbca24
+
+UnknownScript_0xbca24: ; 0xbca24
+	3writetext $29, $548c
+	closetext
+	loadmovesprites
+	end
+; 0xbca2b
+
+UnknownScript_0xbca2b: ; 0xbca2b
+	3writetext $29, $571e
+	closetext
+	loadmovesprites
+	end
+; 0xbca32
+
+UnknownScript_0xbca32: ; 0xbca32
+	3writetext $29, $5ada
+	closetext
+	loadmovesprites
+	end
+; 0xbca39
+
+UnknownScript_0xbca39: ; 0xbca39
+	3writetext $29, $5d1d
+	closetext
+	loadmovesprites
+	end
+; 0xbca40
+
+UnknownScript_0xbca40: ; 0xbca40
+	3writetext $29, $6175
+	closetext
+	loadmovesprites
+	end
+; 0xbca47
+
+UnknownScript_0xbca47: ; 0xbca47
+	checkcode $17
+	if_equal $d, $4a65
+	if_equal $10, UnknownScript_0xbca6b
+	if_equal $18, UnknownScript_0xbca71
+	if_equal $1c, UnknownScript_0xbca77
+	if_equal $1d, UnknownScript_0xbca7d
+	if_equal $21, UnknownScript_0xbca83
+	if_equal $22, UnknownScript_0xbca89
+	3writetext $6c, $5607
+	keeptextopen
+	end
+; 0xbca6b
+
+UnknownScript_0xbca6b: ; 0xbca6b
+	3writetext $6c, $5c57
+	keeptextopen
+	end
+; 0xbca71
+
+UnknownScript_0xbca71: ; 0xbca71
+	3writetext $29, $4c24
+	keeptextopen
+	end
+; 0xbca77
+
+UnknownScript_0xbca77: ; 0xbca77
+	3writetext $29, $523a
+	keeptextopen
+	end
+; 0xbca7d
+
+UnknownScript_0xbca7d: ; 0xbca7d
+	3writetext $29, $54e3
+	keeptextopen
+	end
+; 0xbca83
+
+UnknownScript_0xbca83: ; 0xbca83
+	3writetext $29, $5d4d
+	keeptextopen
+	end
+; 0xbca89
+
+UnknownScript_0xbca89: ; 0xbca89
+	3writetext $29, $5f37
+	keeptextopen
+	end
+; 0xbca8f
+
+UnknownScript_0xbca8f: ; 0xbca8f
+	checkcode $17
+	if_equal $7, $4abd
+	if_equal $d, UnknownScript_0xbcac4
+	if_equal $f, UnknownScript_0xbcacb
+	if_equal $10, UnknownScript_0xbcad2
+	if_equal $18, UnknownScript_0xbcad9
+	if_equal $1c, UnknownScript_0xbcae0
+	if_equal $1d, UnknownScript_0xbcae7
+	if_equal $20, UnknownScript_0xbcaee
+	if_equal $21, UnknownScript_0xbcaf5
+	if_equal $22, UnknownScript_0xbcafc
+	if_equal $23, UnknownScript_0xbcb03
+	3writetext $6c, $4eff
+	closetext
+	loadmovesprites
+	end
+; 0xbcac4
+
+UnknownScript_0xbcac4: ; 0xbcac4
+	3writetext $6c, $564d
+	closetext
+	loadmovesprites
+	end
+; 0xbcacb
+
+UnknownScript_0xbcacb: ; 0xbcacb
+	3writetext $6c, $5978
+	closetext
+	loadmovesprites
+	end
+; 0xbcad2
+
+UnknownScript_0xbcad2: ; 0xbcad2
+	3writetext $6c, $5c91
+	closetext
+	loadmovesprites
+	end
+; 0xbcad9
+
+UnknownScript_0xbcad9: ; 0xbcad9
+	3writetext $29, $4c47
+	closetext
+	loadmovesprites
+	end
+; 0xbcae0
+
+UnknownScript_0xbcae0: ; 0xbcae0
+	3writetext $29, $52a0
+	closetext
+	loadmovesprites
+	end
+; 0xbcae7
+
+UnknownScript_0xbcae7: ; 0xbcae7
+	3writetext $29, $5513
+	closetext
+	loadmovesprites
+	end
+; 0xbcaee
+
+UnknownScript_0xbcaee: ; 0xbcaee
+	3writetext $29, $5aff
+	closetext
+	loadmovesprites
+	end
+; 0xbcaf5
+
+UnknownScript_0xbcaf5: ; 0xbcaf5
+	3writetext $29, $5d9a
+	closetext
+	loadmovesprites
+	end
+; 0xbcafc
+
+UnknownScript_0xbcafc: ; 0xbcafc
+	3writetext $29, $5faa
+	closetext
+	loadmovesprites
+	end
+; 0xbcb03
+
+UnknownScript_0xbcb03: ; 0xbcb03
+	3writetext $29, $61c9
+	closetext
+	loadmovesprites
+	end
+; 0xbcb0a
+
+UnknownScript_0xbcb0a: ; 0xbcb0a
+	loadfont
+	checkcode $17
+	if_equal $7, $4b1d
+	if_equal $f, UnknownScript_0xbcb23
+	if_equal $20, UnknownScript_0xbcb29
+	if_equal $23, UnknownScript_0xbcb2f
+	3writetext $6c, $4f2f
+	keeptextopen
+	end
+; 0xbcb23
+
+UnknownScript_0xbcb23: ; 0xbcb23
+	3writetext $6c, $59be
+	keeptextopen
+	end
+; 0xbcb29
+
+UnknownScript_0xbcb29: ; 0xbcb29
+	3writetext $29, $5b3f
+	keeptextopen
+	end
+; 0xbcb2f
+
+UnknownScript_0xbcb2f: ; 0xbcb2f
+	3writetext $29, $6200
+	keeptextopen
+	end
+; 0xbcb35
+
+UnknownScript_0xbcb35: ; 0xbcb35
+	checkcode $17
+	if_equal $6, $4b57
+	if_equal $c, UnknownScript_0xbcb5c
+	if_equal $e, UnknownScript_0xbcb61
+	if_equal $12, UnknownScript_0xbcb66
+	if_equal $15, UnknownScript_0xbcb6b
+	if_equal $1a, UnknownScript_0xbcb70
+	if_equal $1f, UnknownScript_0xbcb75
+	if_equal $24, UnknownScript_0xbcb7a
+	3writetext $6c, $4bb6
+	end
+; 0xbcb5c
+
+UnknownScript_0xbcb5c: ; 0xbcb5c
+	3writetext $6c, $5239
+	end
+; 0xbcb61
+
+UnknownScript_0xbcb61: ; 0xbcb61
+	3writetext $6c, $5690
+	end
+; 0xbcb66
+
+UnknownScript_0xbcb66: ; 0xbcb66
+	3writetext $6c, $5ebe
+	end
+; 0xbcb6b
+
+UnknownScript_0xbcb6b: ; 0xbcb6b
+	3writetext $29, $4405
+	end
+; 0xbcb70
+
+UnknownScript_0xbcb70: ; 0xbcb70
+	3writetext $29, $4c8c
+	end
+; 0xbcb75
+
+UnknownScript_0xbcb75: ; 0xbcb75
+	3writetext $29, $574a
+	end
+; 0xbcb7a
+
+UnknownScript_0xbcb7a: ; 0xbcb7a
+	3writetext $29, $6295
+	end
+; 0xbcb7f
+
+UnknownScript_0xbcb7f: ; 0xbcb7f
+	checkcode $17
+	if_equal $6, $4ba1
+	if_equal $c, UnknownScript_0xbcba6
+	if_equal $e, UnknownScript_0xbcbab
+	if_equal $12, UnknownScript_0xbcbb0
+	if_equal $15, UnknownScript_0xbcbb5
+	if_equal $1a, UnknownScript_0xbcbba
+	if_equal $1f, UnknownScript_0xbcbbf
+	if_equal $24, UnknownScript_0xbcbc4
+	3writetext $6c, $4c37
+	end
+; 0xbcba6
+
+UnknownScript_0xbcba6: ; 0xbcba6
+	3writetext $6c, $5314
+	end
+; 0xbcbab
+
+UnknownScript_0xbcbab: ; 0xbcbab
+	3writetext $6c, $5710
+	end
+; 0xbcbb0
+
+UnknownScript_0xbcbb0: ; 0xbcbb0
+	3writetext $6c, $5f4e
+	end
+; 0xbcbb5
+
+UnknownScript_0xbcbb5: ; 0xbcbb5
+	3writetext $29, $44db
+	end
+; 0xbcbba
+
+UnknownScript_0xbcbba: ; 0xbcbba
+	3writetext $29, $4d36
+	end
+; 0xbcbbf
+
+UnknownScript_0xbcbbf: ; 0xbcbbf
+	3writetext $29, $57e3
+	end
+; 0xbcbc4
+
+UnknownScript_0xbcbc4: ; 0xbcbc4
+	3writetext $29, $6316
+	end
+; 0xbcbc9
+
+UnknownScript_0xbcbc9: ; 0xbcbc9
+	3writetext $6c, $49e1
+	playsound $0093
+	waitbutton
+	keeptextopen
+	end
+; 0xbcbd3
+
+UnknownScript_0xbcbd3: ; 0xbcbd3
+	checkcode $17
+	if_equal $6, $4bf5
+	if_equal $c, UnknownScript_0xbcbfc
+	if_equal $e, UnknownScript_0xbcc03
+	if_equal $12, UnknownScript_0xbcc0a
+	if_equal $15, UnknownScript_0xbcc11
+	if_equal $1a, UnknownScript_0xbcc18
+	if_equal $1f, UnknownScript_0xbcc1f
+	if_equal $24, UnknownScript_0xbcc26
+	3writetext $6c, $4c9b
+	closetext
+	loadmovesprites
+	end
+; 0xbcbfc
+
+UnknownScript_0xbcbfc: ; 0xbcbfc
+	3writetext $6c, $5392
+	closetext
+	loadmovesprites
+	end
+; 0xbcc03
+
+UnknownScript_0xbcc03: ; 0xbcc03
+	3writetext $6c, $5755
+	closetext
+	loadmovesprites
+	end
+; 0xbcc0a
+
+UnknownScript_0xbcc0a: ; 0xbcc0a
+	3writetext $6c, $5faa
+	closetext
+	loadmovesprites
+	end
+; 0xbcc11
+
+UnknownScript_0xbcc11: ; 0xbcc11
+	3writetext $29, $451d
+	closetext
+	loadmovesprites
+	end
+; 0xbcc18
+
+UnknownScript_0xbcc18: ; 0xbcc18
+	3writetext $29, $4d72
+	closetext
+	loadmovesprites
+	end
+; 0xbcc1f
+
+UnknownScript_0xbcc1f: ; 0xbcc1f
+	3writetext $29, $5820
+	closetext
+	loadmovesprites
+	end
+; 0xbcc26
+
+UnknownScript_0xbcc26: ; 0xbcc26
+	3writetext $29, $6359
+	closetext
+	loadmovesprites
+	end
+; 0xbcc2d
+
+UnknownScript_0xbcc2d: ; 0xbcc2d
+	checkcode $17
+	if_equal $6, $4c4f
+	if_equal $c, UnknownScript_0xbcc56
+	if_equal $e, UnknownScript_0xbcc5d
+	if_equal $12, UnknownScript_0xbcc64
+	if_equal $15, UnknownScript_0xbcc6b
+	if_equal $1a, UnknownScript_0xbcc72
+	if_equal $1f, UnknownScript_0xbcc79
+	if_equal $24, UnknownScript_0xbcc80
+	3writetext $6c, $4ce0
+	closetext
+	loadmovesprites
+	end
+; 0xbcc56
+
+UnknownScript_0xbcc56: ; 0xbcc56
+	3writetext $6c, $53af
+	closetext
+	loadmovesprites
+	end
+; 0xbcc5d
+
+UnknownScript_0xbcc5d: ; 0xbcc5d
+	3writetext $6c, $578a
+	closetext
+	loadmovesprites
+	end
+; 0xbcc64
+
+UnknownScript_0xbcc64: ; 0xbcc64
+	3writetext $6c, $5fdd
+	closetext
+	loadmovesprites
+	end
+; 0xbcc6b
+
+UnknownScript_0xbcc6b: ; 0xbcc6b
+	3writetext $29, $4542
+	closetext
+	loadmovesprites
+	end
+; 0xbcc72
+
+UnknownScript_0xbcc72: ; 0xbcc72
+	3writetext $29, $4dcd
+	closetext
+	loadmovesprites
+	end
+; 0xbcc79
+
+UnknownScript_0xbcc79: ; 0xbcc79
+	3writetext $29, $5842
+	closetext
+	loadmovesprites
+	end
+; 0xbcc80
+
+UnknownScript_0xbcc80: ; 0xbcc80
+	3writetext $29, $638c
+	closetext
+	loadmovesprites
+	end
+; 0xbcc87
+
+UnknownScript_0xbcc87: ; 0xbcc87
+	checkcode $17
+	if_equal $6, $4ca9
+	if_equal $c, UnknownScript_0xbccb0
+	if_equal $e, UnknownScript_0xbccb7
+	if_equal $12, UnknownScript_0xbccbe
+	if_equal $15, UnknownScript_0xbccc5
+	if_equal $1a, UnknownScript_0xbcccc
+	if_equal $1f, UnknownScript_0xbccd3
+	if_equal $24, UnknownScript_0xbccda
+	3writetext $6c, $4d0b
+	closetext
+	loadmovesprites
+	end
+; 0xbccb0
+
+UnknownScript_0xbccb0: ; 0xbccb0
+	3writetext $6c, $53e4
+	closetext
+	loadmovesprites
+	end
+; 0xbccb7
+
+UnknownScript_0xbccb7: ; 0xbccb7
+	3writetext $6c, $57ba
+	closetext
+	loadmovesprites
+	end
+; 0xbccbe
+
+UnknownScript_0xbccbe: ; 0xbccbe
+	3writetext $6c, $5ffa
+	closetext
+	loadmovesprites
+	end
+; 0xbccc5
+
+UnknownScript_0xbccc5: ; 0xbccc5
+	3writetext $29, $4573
+	closetext
+	loadmovesprites
+	end
+; 0xbcccc
+
+UnknownScript_0xbcccc: ; 0xbcccc
+	3writetext $29, $4e01
+	closetext
+	loadmovesprites
+	end
+; 0xbccd3
+
+UnknownScript_0xbccd3: ; 0xbccd3
+	3writetext $29, $5881
+	closetext
+	loadmovesprites
+	end
+; 0xbccda
+
+UnknownScript_0xbccda: ; 0xbccda
+	3writetext $29, $63cc
+	closetext
+	loadmovesprites
+	end
+; 0xbcce1
+
+UnknownScript_0xbcce1: ; 0xbcce1
+	checkcode $17
+	if_equal $c, $4cff
+	if_equal $e, UnknownScript_0xbcd06
+	if_equal $12, UnknownScript_0xbcd0d
+	if_equal $15, UnknownScript_0xbcd14
+	if_equal $1a, UnknownScript_0xbcd1b
+	if_equal $1f, UnknownScript_0xbcd22
+	if_equal $24, UnknownScript_0xbcd29
+	3writetext $6c, $5409
+	closetext
+	loadmovesprites
+	end
+; 0xbcd06
+
+UnknownScript_0xbcd06: ; 0xbcd06
+	3writetext $6c, $57de
+	closetext
+	loadmovesprites
+	end
+; 0xbcd0d
+
+UnknownScript_0xbcd0d: ; 0xbcd0d
+	3writetext $6c, $601f
+	closetext
+	loadmovesprites
+	end
+; 0xbcd14
+
+UnknownScript_0xbcd14: ; 0xbcd14
+	3writetext $29, $4595
+	closetext
+	loadmovesprites
+	end
+; 0xbcd1b
+
+UnknownScript_0xbcd1b: ; 0xbcd1b
+	3writetext $29, $4e21
+	closetext
+	loadmovesprites
+	end
+; 0xbcd22
+
+UnknownScript_0xbcd22: ; 0xbcd22
+	3writetext $29, $58a3
+	closetext
+	loadmovesprites
+	end
+; 0xbcd29
+
+UnknownScript_0xbcd29: ; 0xbcd29
+	3writetext $29, $63f1
+	closetext
+	loadmovesprites
+	end
+; 0xbcd30
+
+UnknownScript_0xbcd30: ; 0xbcd30
+	checkcode $17
+	if_equal $6, $4d42
+	if_equal $15, UnknownScript_0xbcd48
+	if_equal $1a, UnknownScript_0xbcd4e
+	if_equal $1f, UnknownScript_0xbcd54
+	3writetext $6c, $4d2c
+	keeptextopen
+	end
+; 0xbcd48
+
+UnknownScript_0xbcd48: ; 0xbcd48
+	3writetext $29, $45c9
+	keeptextopen
+	end
+; 0xbcd4e
+
+UnknownScript_0xbcd4e: ; 0xbcd4e
+	3writetext $29, $4e4c
+	keeptextopen
+	end
+; 0xbcd54
+
+UnknownScript_0xbcd54: ; 0xbcd54
+	3writetext $29, $58d5
+	keeptextopen
+	end
+; 0xbcd5a
+
+UnknownScript_0xbcd5a: ; 0xbcd5a
+	checkcode $17
+	if_equal $6, $4d70
+	if_equal $15, UnknownScript_0xbcd77
+	if_equal $1a, UnknownScript_0xbcd7e
+	if_equal $1f, UnknownScript_0xbcd85
+	if_equal $24, UnknownScript_0xbcd8c
+	3writetext $6c, $4d69
+	closetext
+	loadmovesprites
+	end
+; 0xbcd77
+
+UnknownScript_0xbcd77: ; 0xbcd77
+	3writetext $29, $4603
+	closetext
+	loadmovesprites
+	end
+; 0xbcd7e
+
+UnknownScript_0xbcd7e: ; 0xbcd7e
+	3writetext $29, $4e8f
+	closetext
+	loadmovesprites
+	end
+; 0xbcd85
+
+UnknownScript_0xbcd85: ; 0xbcd85
+	3writetext $29, $5914
+	closetext
+	loadmovesprites
+	end
+; 0xbcd8c
+
+UnknownScript_0xbcd8c: ; 0xbcd8c
+	3writetext $29, $6411
+	closetext
+	loadmovesprites
+	end
+; 0xbcd93
+
+UnknownScript_0xbcd93: ; 0xbcd93
+	checkcode $17
+	if_equal $24, $4d99
+	loadfont
+	3writetext $29, $6454
+	keeptextopen
+	end
+; 0xbcda0
+
+UnknownScript_0xbcda0: ; 0xbcda0
+	mapnametotext $0
+	loadfont
+	3writetext $6c, $474e
+	closetext
+	loadmovesprites
+	end
+; 0xbcdaa
+
+UnknownScript_0xbcdaa: ; 0xbcdaa
+	mapnametotext $0
+	loadfont
+	3writetext $6c, $474e
+	keeptextopen
+	3writetext $6c, $475c
+	closetext
+	loadmovesprites
+	end
+; 0xbcdb9
+
+UnknownScript_0xbcdb9: ; 0xbcdb9
+	waitbutton
+	3writetext $6c, $4648
+	playsound $0001
+	waitbutton
+	end
+; 0xbcdc3
+
+UnknownScript_0xbcdc3: ; 0xbcdc3
+	waitbutton
+	3writetext $6c, $4648
+	playsound $0096
+	waitbutton
+	end
+; 0xbcdcd
+
+UnknownScript_0xbcdcd: ; 0xbcdcd
+	faceplayer
+	loadfont
+	3writetext $6c, $477f
+	keeptextopen
+	checkitem COIN_CASE
+	iftrue UnknownScript_0xbcde0
+	3writetext $6c, $479c
+	closetext
+	loadmovesprites
+	end
+; 0xbcde0
+
+UnknownScript_0xbcde0: ; 0xbcde0
+	3writetext $6c, $47e3
+	special $0050
+	loadmenudata MenuDataHeader_0xbce54
+	interpretmenu2
+	writebackup
+	if_equal $1, UnknownScript_0xbcdf7
+	if_equal $2, UnknownScript_0xbce1b
+	2jump UnknownScript_0xbce4d
+; 0xbcdf7
+
+UnknownScript_0xbcdf7: ; 0xbcdf7
+	checkcoins 9949
+	if_equal $0, UnknownScript_0xbce46
+	checkmoney $0, 1000
+	if_equal $2, UnknownScript_0xbce3f
+	givecoins 50
+	takemoney $0, 1000
+	waitbutton
+	playsound $0022
+	3writetext $6c, $4830
+	closetext
+	2jump $4de4
+; 0xbce1b
+
+UnknownScript_0xbce1b: ; 0xbce1b
+	checkcoins 9499
+	if_equal $0, UnknownScript_0xbce46
+	checkmoney $0, 10000
+	if_equal $2, UnknownScript_0xbce3f
+	givecoins 500
+	takemoney $0, 10000
+	waitbutton
+	playsound $0022
+	3writetext $6c, $484f
+	closetext
+	2jump $4de4
+; 0xbce3f
+
+UnknownScript_0xbce3f: ; 0xbce3f
+	3writetext $6c, $486f
+	closetext
+	loadmovesprites
+	end
+; 0xbce46
+
+UnknownScript_0xbce46: ; 0xbce46
+	3writetext $6c, $488c
+	closetext
+	loadmovesprites
+	end
+; 0xbce4d
+
+UnknownScript_0xbce4d: ; 0xbce4d
+	3writetext $6c, $48ad
+	closetext
+	loadmovesprites
+	end
+; 0xbce54
+
+
+MenuDataHeader_0xbce54: ; 0xbce54
+	db $40 ; flags
+	db 04, 00 ; start coords
+	db 11, 15 ; end coords
+	dw MenuData2_0xbce5c
+	db 1 ; default option
+; 0xbce5c
+
+MenuData2_0xbce5c: ; 0xbce5c
+	db $80 ; flags
+	db 3 ; items
+	db " 50 :  ¥1000@"
+	db "500 : ¥10000@"
+	db "CANCEL@"
+; 0xbce7f
+
+
+UnknownScript_0xbce7f: ; 0xbce7f
+	faceplayer
+	loadfont
+	special $0059
+	if_greater_than $32, UnknownScript_0xbce9a
+	if_greater_than $96, UnknownScript_0xbce93
+	3writetext $6c, $492a
+	closetext
+	loadmovesprites
+	end
+; 0xbce93
+
+UnknownScript_0xbce93: ; 0xbce93
+	3writetext $6c, $4954
+	closetext
+	loadmovesprites
+	end
+; 0xbce9a
+
+UnknownScript_0xbce9a: ; 0xbce9a
+	3writetext $6c, $4989
+	closetext
+	loadmovesprites
+	end
+; 0xbcea1
+
+MovementData_0xbcea1: ; bcea1
+	step_right
+	step_down
+	turn_head_up
+	step_end
+; bcea5
+
+UnusedPhoneScript: ; 0xbcea5
+	3writetext BANK(UnusedPhoneText), UnusedPhoneText
+	end
+
+MomPhoneScript: ; 0xbceaa
+	checkbit1 $0040
+	iftrue .bcec5
+	checkbit1 $0041 ; if dude talked to you, then you left home without talking to mom
+	iftrue MomPhoneLectureScript
+	checkbit1 $001f
+	iftrue MomPhoneNoGymQuestScript
+	checkbit1 $001a
+	iftrue MomPhoneNoPokedexScript
+	2jump MomPhoneNoPokemonScript
+
+.bcec5 ; 0xbcec5
+	checkbit1 $0007
+	iftrue MomPhoneHangUpScript
+	3writetext BANK(MomPhoneGreetingText), MomPhoneGreetingText
+	keeptextopen
+	mapnametotext $0
+	checkcode $f
+	if_equal $1, UnknownScript_0xbcee7
+	if_equal $2, $4f27
+	2jump UnknownScript_0xbcf2f
+
+UnknownScript_0xbcedf: ; 0xbcedf
+	3writetext $6d, $4021
+	keeptextopen
+	2jump UnknownScript_0xbcf37
+
+UnknownScript_0xbcee7: ; 0xbcee7
+	checkcode $c
+	if_equal GROUP_NEW_BARK_TOWN, .newbark
+	if_equal GROUP_CHERRYGROVE_CITY, .cherrygrove
+	if_equal GROUP_VIOLET_CITY, .violet
+	if_equal GROUP_AZALEA_TOWN, .azalea
+	if_equal GROUP_GOLDENROD_CITY, .goldenrod
+	3writetext BANK(MomPhoneGenericAreaText), MomPhoneGenericAreaText
+	keeptextopen
+	2jump UnknownScript_0xbcf37
+
+.newbark ; 0xbcf05
+	3writetext BANK(MomPhoneNewBarkText), MomPhoneNewBarkText
+	keeptextopen
+	2jump UnknownScript_0xbcf37
+
+.cherrygrove ; 0xbcf0d
+	3writetext BANK(MomPhoneCherrygroveText), MomPhoneCherrygroveText
+	keeptextopen
+	2jump UnknownScript_0xbcf37
+
+.violet ; 0xbcf15
+	displaylocation $7 ; sprout tower
+	3call $3, UnknownScript_0xbcedf
+.azalea ; 0xbcf1b
+	displaylocation $d ; slowpoke well
+	3call $3, UnknownScript_0xbcedf
+.goldenrod ; 0xbcf21
+	displaylocation $11 ; radio tower
+	3call $3, UnknownScript_0xbcedf
+	3writetext $6d, $411c
+	keeptextopen
+	2jump UnknownScript_0xbcf37
+
+UnknownScript_0xbcf2f: ; 0xbcf2f
+	3writetext $6d, $4150
+	keeptextopen
+	2jump UnknownScript_0xbcf37
+
+UnknownScript_0xbcf37: ; 0xbcf37
+	checkbit2 $0008
+	iffalse UnknownScript_0xbcf49
+	checkmoney $1, 0
+	if_equal $0, UnknownScript_0xbcf55
+	2jump UnknownScript_0xbcf63
+
+UnknownScript_0xbcf49: ; 0xbcf49
+	checkmoney $1, 0
+	if_equal $0, UnknownScript_0xbcf79
+	2jump UnknownScript_0xbcf6e
+
+UnknownScript_0xbcf55: ; 0xbcf55
+	readmoney $1, $0
+	3writetext $6d, $41a7
+	yesorno
+	iftrue MomPhoneSaveMoneyScript
+	2jump MomPhoneWontSaveMoneyScript
+
+UnknownScript_0xbcf63: ; 0xbcf63
+	3writetext $6d, $41ea
+	yesorno
+	iftrue MomPhoneSaveMoneyScript
+	2jump MomPhoneWontSaveMoneyScript
+
+UnknownScript_0xbcf6e: ; 0xbcf6e
+	3writetext $6d, $420d
+	yesorno
+	iftrue MomPhoneSaveMoneyScript
+	2jump MomPhoneWontSaveMoneyScript
+
+UnknownScript_0xbcf79: ; 0xbcf79
+	readmoney $1, $0
+	3writetext $6d, $4249
+	yesorno
+	iftrue MomPhoneSaveMoneyScript
+	2jump MomPhoneWontSaveMoneyScript
+
+MomPhoneSaveMoneyScript: ; 0xbcf87
+	setbit2 $0008
+	3writetext $6d, $4289
+	keeptextopen
+	2jump MomPhoneHangUpScript
+
+MomPhoneWontSaveMoneyScript: ; 0xbcf92
+	clearbit2 $0008
+	3writetext BANK(MomPhoneWontSaveMoneyText), MomPhoneWontSaveMoneyText
+	keeptextopen
+	2jump MomPhoneHangUpScript
+
+MomPhoneHangUpScript: ; 0xbcf9d
+	3writetext BANK(MomPhoneHangUpText), MomPhoneHangUpText
+	end
+
+MomPhoneNoPokemonScript: ; 0xbcfa2
+	3writetext BANK(MomPhoneNoPokemonText), MomPhoneNoPokemonText
+	end
+
+MomPhoneNoPokedexScript: ; 0xbcfa7
+	3writetext BANK(MomPhoneNoPokedexText), MomPhoneNoPokedexText
+	end
+
+MomPhoneNoGymQuestScript: ; 0xbcfac
+	3writetext BANK(MomPhoneNoGymQuestText), MomPhoneNoGymQuestText
+	end
+
+MomPhoneLectureScript: ; 0xbcfb1
+	setbit1 $0040
+	setbit2 $0009
+	specialphonecall $0000
+	3writetext BANK(MomPhoneLectureText), MomPhoneLectureText
+	yesorno
+	iftrue MomPhoneSaveMoneyScript
+	2jump MomPhoneWontSaveMoneyScript
+
+BillPhoneScript1: ; 0xbcfc5
+	checktime $2
+	iftrue .daygreet
+	checktime $4
+	iftrue .nitegreet
+	3writetext BANK(BillPhoneMornGreetingText), BillPhoneMornGreetingText
+	keeptextopen
+	2jump .main
+
+.daygreet ; 0xbcfd7
+	3writetext BANK(BillPhoneDayGreetingText), BillPhoneDayGreetingText
+	keeptextopen
+	2jump .main
+
+.nitegreet ; 0xbcfdf
+	3writetext BANK(BillPhoneNiteGreetingText), BillPhoneNiteGreetingText
+	keeptextopen
+	2jump .main
+
+.main ; 0xbcfe7
+	3writetext BANK(BillPhoneGeneriText), BillPhoneGeneriText
+	keeptextopen
+	checkcode $10
+	RAM2MEM $0
+	if_equal $0, .full
+	if_greater_than $6, .nearlyfull
+	3writetext BANK(BillPhoneNotFullText), BillPhoneNotFullText
+	end
+
+.nearlyfull ; 0xbcffd
+	3writetext BANK(BillPhoneNearlyFullText), BillPhoneNearlyFullText
+	end
+
+.full ; 0xbd002
+	3writetext BANK(BillPhoneFullText), BillPhoneFullText
+	end
+
+BillPhoneScript2: ; 0xbd007
+	3writetext BANK(BillPhoneNewlyFullText), BillPhoneNewlyFullText
+	closetext
+	end
+
+ElmPhoneScript1: ; 0xbd00d
+	checkcode $14
+	if_equal $1, .pokerus
+	checkbit1 $0055
+	iftrue .discovery
+	checkbit1 $002d
+	iffalse .next
+	checkbit1 $0054
+	iftrue .egghatched
+.next
+	checkbit1 $002d
+	iftrue .eggunhatched
+	checkbit1 $0701
+	iftrue .assistant
+	checkbit1 $001f
+	iftrue .checkingegg
+	checkbit1 $0043
+	iftrue .stolen
+	checkbit1 $001e
+	iftrue .sawmrpokemon
+	3writetext BANK(ElmPhoneStartText), ElmPhoneStartText
+	end
+
+.sawmrpokemon ; 0xbd048
+	3writetext BANK(ElmPhoneSawMrPokemonText), ElmPhoneSawMrPokemonText
+	end
+
+.stolen ; 0xbd04d
+	3writetext BANK(ElmPhonePokemonStolenText), ElmPhonePokemonStolenText
+	end
+
+.checkingegg ; 0xbd052
+	3writetext BANK(ElmPhoneCheckingEggText), ElmPhoneCheckingEggText
+	end
+
+.assistant ; 0xbd057
+	3writetext BANK(ElmPhoneAssistantText), ElmPhoneAssistantText
+	end
+
+.eggunhatched ; 0xbd05c
+	3writetext BANK(ElmPhoneEggUnhatchedText), ElmPhoneEggUnhatchedText
+	end
+
+.egghatched ; 0xbd061
+	3writetext BANK(ElmPhoneEggHatchedText), ElmPhoneEggHatchedText
+	setbit1 $0077
+	end
+
+.discovery ; 0xbd069
+	random $2
+	if_equal $0, .nextdiscovery
+	3writetext BANK(ElmPhoneDiscovery1Text), ElmPhoneDiscovery1Text
+	end
+
+.nextdiscovery ; 0xbd074
+	3writetext BANK(ElmPhoneDiscovery2Text), ElmPhoneDiscovery2Text
+	end
+
+.pokerus ; 0xbd079
+	3writetext BANK(ElmPhonePokerusText), ElmPhonePokerusText
+	specialphonecall $0000
+	end
+
+ElmPhoneScript2: ; 0xbd081
+	checkcode $14
+	if_equal $2, .disaster
+	if_equal $3, .assistant
+	if_equal $4, .rocket
+	if_equal $5, .gift
+	if_equal $8, .gift
+	3writetext BANK(ElmPhonePokerusText), ElmPhonePokerusText
+	specialphonecall $0000
+	end
+
+.disaster ; 0xbd09f
+	3writetext BANK(ElmPhoneDisasterText), ElmPhoneDisasterText
+	specialphonecall $0000
+	setbit1 $0043
+	end
+
+.assistant ; 0xbd0aa
+	3writetext BANK(ElmPhoneEggAssistantText), ElmPhoneEggAssistantText
+	specialphonecall $0000
+	clearbit1 $0700
+	setbit1 $0701
+	end
+
+.rocket ; 0xbd0b8
+	3writetext BANK(ElmPhoneRocketText), ElmPhoneRocketText
+	specialphonecall $0000
+	end
+
+.gift ; 0xbd0c0
+	3writetext BANK(ElmPhoneGiftText), ElmPhoneGiftText
+	specialphonecall $0000
+	end
+
+.unused ; 0xbd0c8
+	3writetext BANK(ElmPhoneUnusedText), ElmPhoneUnusedText
+	specialphonecall $0000
+	end
+; bd0d0
+
--- a/main.asm
+++ b/main.asm
@@ -14999,7 +14999,7 @@
 	dwb CanLearnTMHMMove, BANK(CanLearnTMHMMove)
 	dwb GetTMHMMove, BANK(GetTMHMMove)
 	dwb Function28eef, BANK(Function28eef)
-	dwb $4b3e, $0b ; PrintMoveDescription, BANK(PrintMoveDescription)
+	dwb PrintMoveDesc, BANK(PrintMoveDesc)
 	dwb Function3df48, BANK(Function3df48) ; UpdatePlayerHUD
 	dwb FillBox, BANK(FillBox)
 	dwb Function3d873, BANK(Function3d873)
@@ -39844,7 +39844,7 @@
 INCBIN "baserom.gbc", $2c867, $2cb3e - $2c867
 
 
-PrintMoveDescription: ; 2cb3e
+PrintMoveDesc: ; 2cb3e
 	push hl
 	ld hl, MoveDescriptions
 	ld a, [CurSpecies]
@@ -59296,9 +59296,123 @@
 ; 50a28
 
 
-INCBIN "baserom.gbc", $50a28, $50b0a - $50a28
+Function50a28: ; 50a28
+	ld hl, Strings50a42
+	ld a, [TrainerClass]
+	dec a
+	ld c, a
+	ld b, 0
+	add hl, bc
+	add hl, bc
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld de, StringBuffer1
+.copy
+	ld a, [hli]
+	ld [de], a
+	inc de
+	cp "@"
+	jr nz, .copy
+	ret
+; 50a42
 
+Strings50a42: ; 50a42
+; Untranslated trainer class names from Red.
 
+	dw .Youngster
+	dw .BugCatcher
+	dw .Lass
+	dw OTName
+	dw .JrTrainerM
+	dw .JrTrainerF
+	dw .Pokemaniac
+	dw .SuperNerd
+	dw OTName
+	dw OTName
+	dw .Burglar
+	dw .Engineer
+	dw .Jack
+	dw OTName
+	dw .Swimmer
+	dw OTName
+	dw OTName
+	dw .Beauty
+	dw OTName
+	dw .Rocker
+	dw .Juggler
+	dw OTName
+	dw OTName
+	dw .Blackbelt
+	dw OTName
+	dw .ProfOak
+	dw .Chief
+	dw .Scientist
+	dw OTName
+	dw .Rocket
+	dw .CooltrainerM
+	dw .CooltrainerF
+	dw OTName
+	dw OTName
+	dw OTName
+	dw OTName
+	dw OTName
+	dw OTName
+	dw OTName
+	dw OTName
+	dw OTName
+	dw OTName
+	dw OTName
+	dw OTName
+	dw OTName
+	dw OTName
+	dw OTName
+
+.Youngster
+	db "たんパン@"
+.BugCatcher
+	db "むしとり@"
+.Lass
+	db "ミニスカ@"
+.JrTrainerM
+	db "ボーイ@"
+.JrTrainerF
+	db "ガール@"
+.Pokemaniac
+	db "マニア@"
+.SuperNerd
+	db "りかけい@"
+.Burglar
+	db "どろぼう@"
+.Engineer
+	db "ォヤジ@"
+.Jack
+	db "ジャック@"
+.Swimmer
+	db "かいパン@"
+.Beauty
+	db "おねえさん@"
+.Rocker
+	db "グループ@"
+.Juggler
+	db "ジャグラー@"
+.Blackbelt
+	db "からて@"
+.ProfOak
+	db "ォーキド@"
+.Chief
+	db "チーフ@"
+.Scientist
+	db "けんきゅういん@"
+.Rocket
+	db "だんいん@"
+.CooltrainerM
+	db "エりート♂@"
+.CooltrainerF
+	db "エりート♀@"
+; 50b0a
+
+
 DrawPlayerHP: ; 50b0a
 	ld a, $1
 	jr DrawHP
@@ -72429,33 +72543,39 @@
 INCBIN "baserom.gbc", $b81ea, $b8219 - $b81ea
 
 Functionb8219: ; b8219
-; deals strictly with rockmon encounter
+; get a RockMon encounter
+
 	xor a
 	ld [$d22e], a
 	ld [CurPartyLevel], a
-	ld hl, WildRockMonMapTable
+
+	ld hl, RockMonMaps
 	call GetTreeMonEncounterTable
 	jr nc, .quit
-	call LoadWildTreeMonData
+
+	call LoadTreeMonData
 	jr nc, .quit
-	ld a, $0a
+
+	ld a, 10
 	call Function2fb1
-	cp a, $04
+	cp 4
 	jr nc, .quit
-	call $441f
+
+	call Functionb841f
 	jr nc, .quit
+
 	ret
+
 .quit
 	xor a
 	ret
 ; b823e
 
-db $05 ; ????
+	db $05 ; ????
 
 GetTreeMonEncounterTable: ; b823f
-; reads a map-sensitive encounter table
-; compares current map with maps in the table
-; if there is a match, encounter table # is loaded into a
+; Return carry and table id in a
+; if MapGroup and MapNumber are in table hl
 	ld a, [MapNumber]
 	ld e, a
 	ld a, [MapGroup]
@@ -72462,7 +72582,7 @@
 	ld d, a
 .loop
 	ld a, [hli]
-	cp a, $ff
+	cp $ff
 	jr z, .quit
 	cp d
 	jr nz, .skip2
@@ -72486,55 +72606,60 @@
 
 INCBIN "baserom.gbc", $B825E, $b82c5 - $b825e
 
-WildRockMonMapTable: ; b82c5
-	db GROUP_CIANWOOD_CITY, MAP_CIANWOOD_CITY, $07
-	db GROUP_ROUTE_40, MAP_ROUTE_40, $07
-	db GROUP_DARK_CAVE_VIOLET_ENTRANCE, MAP_DARK_CAVE_VIOLET_ENTRANCE, $07
-	db GROUP_SLOWPOKE_WELL_B1F, MAP_SLOWPOKE_WELL_B1F, $07
+RockMonMaps: ; b82c5
+	db GROUP_CIANWOOD_CITY, MAP_CIANWOOD_CITY, 7
+	db GROUP_ROUTE_40, MAP_ROUTE_40, 7
+	db GROUP_DARK_CAVE_VIOLET_ENTRANCE, MAP_DARK_CAVE_VIOLET_ENTRANCE, 7
+	db GROUP_SLOWPOKE_WELL_B1F, MAP_SLOWPOKE_WELL_B1F, 7
 	db $ff ; end
 ; b82d2
 
-LoadWildTreeMonData: ; b82d2
-; input: a = table number
-; returns wildtreemontable pointer in hl
-; sets carry if successful
-	cp a, $08 ; which table?
-	jr nc, .quit ; only 8 tables
+LoadTreeMonData: ; b82d2
+; Return TreeMon pointer a in hl
+; Return carry on success
+
+; only 7 tables
+	cp 8
+	jr nc, .quit
+
 	and a
-	jr z, .quit ; 0 is invalid
+	jr z, .quit
+
 	ld e, a
-	ld d, $00
-	ld hl, WildTreeMonPointerTable
+	ld d, 0
+	ld hl, TreeMonPointers
 	add hl, de
 	add hl, de
-	ld a, [hli] ; store pointer in hl
+
+	ld a, [hli]
 	ld h, [hl]
 	ld l, a
+
 	scf
 	ret
+
 .quit
 	xor a
 	ret
 ; b82e8
 
-WildTreeMonPointerTable: ; b82e8
+TreeMonPointers: ; b82e8
 ; seems to point to "normal" tree encounter data
-; as such only odd-numbered tables are used
-; rockmon is 13th
-	dw WildTreeMonTable1  ; filler
-	dw WildTreeMonTable1  ; 1
-	dw WildTreeMonTable3  ; 2
-	dw WildTreeMonTable5  ; 3
-	dw WildTreeMonTable7  ; 4
-	dw WildTreeMonTable9  ; 5
-	dw WildTreeMonTable11 ; 6
-	dw WildRockMonTable   ; 7
-	dw WildTreeMonTable1  ; 8
+; so only odd-numbered tables are used
+	dw TreeMons1  ; filler
+	dw TreeMons1  ; 1
+	dw TreeMons3  ; 2
+	dw TreeMons5  ; 3
+	dw TreeMons7  ; 4
+	dw TreeMons9  ; 5
+	dw TreeMons11 ; 6
+	dw RockMons   ; 7
+	dw TreeMons1  ; filler
 ; b82fa
 
 ; structure: % species level
 
-WildTreeMonTable1: ; b82fa
+TreeMons1: ; b82fa
 	db 50, SPEAROW, 10
 	db 15, SPEAROW, 10
 	db 15, SPEAROW, 10
@@ -72544,7 +72669,7 @@
 	db $ff ; end
 ; b830d
 
-WildTreeMonTable2 ; b830d
+TreeMons2 ; b830d
 ; unused
 	db 50, SPEAROW, 10
 	db 15, HERACROSS, 10
@@ -72555,7 +72680,7 @@
 	db $ff ; end
 ; b8320
 
-WildTreeMonTable3: ; b8320
+TreeMons3: ; b8320
 	db 50, SPEAROW, 10
 	db 15, EKANS, 10
 	db 15, SPEAROW, 10
@@ -72565,7 +72690,7 @@
 	db $ff ; end
 ; b8333
 
-WildTreeMonTable4: ; b8333
+TreeMons4: ; b8333
 ; unused
 	db 50, SPEAROW, 10
 	db 15, HERACROSS, 10
@@ -72576,7 +72701,7 @@
 	db $ff ; end
 ; b8346
 
-WildTreeMonTable5: ; b8346
+TreeMons5: ; b8346
 	db 50, HOOTHOOT, 10
 	db 15, SPINARAK, 10
 	db 15, LEDYBA, 10
@@ -72586,7 +72711,7 @@
 	db $ff ; end
 ; b8359
 
-WildTreeMonTable6: ; b8359
+TreeMons6: ; b8359
 ; unused
 	db 50, HOOTHOOT, 10
 	db 15, PINECO, 10
@@ -72597,7 +72722,7 @@
 	db $ff ; end
 ; b836c
 
-WildTreeMonTable7: ; b836c
+TreeMons7: ; b836c
 	db 50, HOOTHOOT, 10
 	db 15, EKANS, 10
 	db 15, HOOTHOOT, 10
@@ -72607,7 +72732,7 @@
 	db $ff ; end
 ; b837f
 
-WildTreeMonTable8: ; b837f
+TreeMons8: ; b837f
 ; unused
 	db 50, HOOTHOOT, 10
 	db 15, PINECO, 10
@@ -72618,7 +72743,7 @@
 	db $ff ; end
 ; b8392
 
-WildTreeMonTable9: ; b8392
+TreeMons9: ; b8392
 	db 50, HOOTHOOT, 10
 	db 15, VENONAT, 10
 	db 15, HOOTHOOT, 10
@@ -72628,7 +72753,7 @@
 	db $ff ; end
 ; b83a5
 
-WildTreeMonTable10: ; b83a5
+TreeMons10: ; b83a5
 ; unused
 	db 50, HOOTHOOT, 10
 	db 15, PINECO, 10
@@ -72639,7 +72764,7 @@
 	db $ff ; end
 ; b83b8
 
-WildTreeMonTable11: ; b83b8
+TreeMons11: ; b83b8
 	db 50, HOOTHOOT, 10
 	db 15, PINECO, 10
 	db 15, PINECO, 10
@@ -72649,7 +72774,7 @@
 	db $ff ; end
 ; b83cb
 
-WildTreeMonTable12; b83cb
+TreeMons12; b83cb
 ; unused
 	db 50, HOOTHOOT, 10
 	db 15, CATERPIE, 10
@@ -72660,14 +72785,47 @@
 	db $ff ; end
 ; b83de
 
-WildRockMonTable: ; b83de
+RockMons: ; b83de
 	db 90, KRABBY, 15
 	db 10, SHUCKLE, 15
 	db $ff ; end
 ; b83e5
 
-INCBIN "baserom.gbc", $b83e5, $b8f8f - $b83e5
+INCBIN "baserom.gbc", $b83e5, $b841f - $b83e5
 
+Functionb841f: ; b841f
+; Read a TreeMons table.
+
+	ld a, 100
+	call Function2fb1
+.asm_b8424
+	sub [hl]
+	jr c, .asm_b842c
+	inc hl
+	inc hl
+	inc hl
+	jr .asm_b8424
+
+.asm_b842c
+	ld a, [hli]
+	cp $ff
+	jr z, .asm_b843b
+	ld a, [hli]
+	ld [$d22e], a
+	ld a, [hl]
+	ld [CurPartyLevel], a
+	scf
+	ret
+
+.asm_b843b
+	xor a
+	ld [$d22e], a
+	ld [CurPartyLevel], a
+	ret
+; b8443
+
+INCBIN "baserom.gbc", $b8443, $b8f8f - $b8443
+
 Functionb8f8f: ; b8f8f
 	ld a, c
 	swap a
@@ -72850,2593 +73008,7 @@
 
 SECTION "bank2F",ROMX,BANK[$2F]
 
-StdScripts: ; bc000
-	dbw BANK(PokeCenterNurseScript), PokeCenterNurseScript
-	dbw BANK(UnknownScript_0xbc162), UnknownScript_0xbc162
-	dbw BANK(UnknownScript_0xbc166), UnknownScript_0xbc166
-	dbw BANK(UnknownScript_0xbc16a), UnknownScript_0xbc16a
-	dbw BANK(UnknownScript_0xbc16e), UnknownScript_0xbc16e
-	dbw BANK(UnknownScript_0xbc172), UnknownScript_0xbc172
-	dbw BANK(UnknownScript_0xbc176), UnknownScript_0xbc176
-	dbw BANK(UnknownScript_0xbc17a), UnknownScript_0xbc17a
-	dbw BANK(UnknownScript_0xbc185), UnknownScript_0xbc185
-	dbw BANK(UnknownScript_0xbc189), UnknownScript_0xbc189
-	dbw BANK(UnknownScript_0xbc191), UnknownScript_0xbc191
-	dbw BANK(UnknownScript_0xbc195), UnknownScript_0xbc195
-	dbw BANK(UnknownScript_0xbc19d), UnknownScript_0xbc19d
-	dbw BANK(UnknownScript_0xbc1a5), UnknownScript_0xbc1a5
-	dbw BANK(UnknownScript_0xbc1b8), UnknownScript_0xbc1b8
-	dbw BANK(UnknownScript_0xbc1bc), UnknownScript_0xbc1bc
-	dbw BANK(UnknownScript_0xbc1c0), UnknownScript_0xbc1c0
-	dbw BANK(UnknownScript_0xbc1c4), UnknownScript_0xbc1c4
-	dbw BANK(UnknownScript_0xbc23e), UnknownScript_0xbc23e
-	dbw BANK(UnknownScript_0xbc242), UnknownScript_0xbc242
-	dbw BANK(UnknownScript_0xbc1af), UnknownScript_0xbc1af
-	dbw BANK(UnknownScript_0xbc1c8), UnknownScript_0xbc1c8
-	dbw BANK(UnknownScript_0xbc25c), UnknownScript_0xbc25c
-	dbw BANK(UnknownScript_0xbc274), UnknownScript_0xbc274
-	dbw BANK(UnknownScript_0xbc3db), UnknownScript_0xbc3db
-	dbw BANK(UnknownScript_0xbc574), UnknownScript_0xbc574
-	dbw BANK(UnknownScript_0xbc62d), UnknownScript_0xbc62d
-	dbw BANK(UnknownScript_0xbc6e6), UnknownScript_0xbc6e6
-	dbw BANK(UnknownScript_0xbc6f0), UnknownScript_0xbc6f0
-	dbw BANK(UnknownScript_0xbc7ce), UnknownScript_0xbc7ce
-	dbw BANK(UnknownScript_0xbc8ac), UnknownScript_0xbc8ac
-	dbw BANK(UnknownScript_0xbc98a), UnknownScript_0xbc98a
-	dbw BANK(UnknownScript_0xbca47), UnknownScript_0xbca47
-	dbw BANK(UnknownScript_0xbca8f), UnknownScript_0xbca8f
-	dbw BANK(UnknownScript_0xbcb0a), UnknownScript_0xbcb0a
-	dbw BANK(UnknownScript_0xbcb35), UnknownScript_0xbcb35
-	dbw BANK(UnknownScript_0xbcb7f), UnknownScript_0xbcb7f
-	dbw BANK(UnknownScript_0xbcbc9), UnknownScript_0xbcbc9
-	dbw BANK(UnknownScript_0xbcbd3), UnknownScript_0xbcbd3
-	dbw BANK(UnknownScript_0xbcc2d), UnknownScript_0xbcc2d
-	dbw BANK(UnknownScript_0xbcc87), UnknownScript_0xbcc87
-	dbw BANK(UnknownScript_0xbcce1), UnknownScript_0xbcce1
-	dbw BANK(UnknownScript_0xbcd30), UnknownScript_0xbcd30
-	dbw BANK(UnknownScript_0xbcd5a), UnknownScript_0xbcd5a
-	dbw BANK(UnknownScript_0xbcd93), UnknownScript_0xbcd93
-	dbw BANK(UnknownScript_0xbcda0), UnknownScript_0xbcda0
-	dbw BANK(UnknownScript_0xbcdaa), UnknownScript_0xbcdaa
-	dbw BANK(UnknownScript_0xbcdb9), UnknownScript_0xbcdb9
-	dbw BANK(UnknownScript_0xbcdc3), UnknownScript_0xbcdc3
-	dbw BANK(UnknownScript_0xbc1a9), UnknownScript_0xbc1a9
-	dbw BANK(UnknownScript_0xbcdcd), UnknownScript_0xbcdcd
-	dbw BANK(UnknownScript_0xbce7f), UnknownScript_0xbce7f
-; bc09c
-
-PokeCenterNurseScript: ; bc09c
-; Talking to a nurse in a Pokemon Center
-
-	loadfont
-; The nurse has different text for:
-; Morn
-	checktime $1
-	iftrue .morn
-; Day
-	checktime $2
-	iftrue .day
-; Nite
-	checktime $4
-	iftrue .nite
-; If somehow it's not a time of day at all, we skip the introduction
-	2jump .heal
-
-.morn
-; Different text if we're in the com center
-	checkbit1 $032a
-	iftrue .morn_comcenter
-; Good morning! Welcome to ...
-	3writetext BANK(UnknownText_0x1b0000), UnknownText_0x1b0000
-	keeptextopen
-	2jump .heal
-.morn_comcenter
-; Good morning! This is the ...
-	3writetext BANK(UnknownText_0x1b008a), UnknownText_0x1b008a
-	keeptextopen
-	2jump .heal
-
-.day
-; Different text if we're in the com center
-	checkbit1 $032a
-	iftrue .day_comcenter
-; Hello! Welcome to ...
-	3writetext BANK(UnknownText_0x1b002b), UnknownText_0x1b002b
-	keeptextopen
-	2jump .heal
-.day_comcenter
-; Hello! This is the ...
-	3writetext BANK(UnknownText_0x1b00d6), UnknownText_0x1b00d6
-	keeptextopen
-	2jump .heal
-
-.nite
-; Different text if we're in the com center
-	checkbit1 $032a
-	iftrue .nite_comcenter
-; Good evening! You're out late. ...
-	3writetext BANK(UnknownText_0x1b004f), UnknownText_0x1b004f
-	keeptextopen
-	2jump .heal
-.nite_comcenter
-; Good to see you working so late. ...
-	3writetext BANK(UnknownText_0x1b011b), UnknownText_0x1b011b
-	keeptextopen
-	2jump .heal
-
-.heal
-; If we come back, don't welcome us to the com center again
-	clearbit1 $032a
-; Ask if you want to heal
-	3writetext BANK(UnknownText_0x1b017a), UnknownText_0x1b017a
-	yesorno
-	iffalse .end
-; Go ahead and heal
-	3writetext BANK(UnknownText_0x1b01bd), UnknownText_0x1b01bd
-	pause 20
-	special $009d
-; Turn to the machine
-	spriteface $fe, $2
-	pause 10
-	special $001b
-	playmusic $0000
-	writebyte $0
-	special $003e
-	pause 30
-	special $003d
-	spriteface $fe, $0
-	pause 10
-; Has Elm already phoned you about Pokerus?
-	checkphonecall
-	iftrue .done
-; Has Pokerus already been found in the Pokecenter?
-	checkbit2 $000d
-	iftrue .done
-; Check for Pokerus
-	special $004e ; SPECIAL_CHECKPOKERUS
-	iftrue .pokerus
-.done
-; Thank you for waiting. ...
-	3writetext BANK(UnknownText_0x1b01d7), UnknownText_0x1b01d7
-	pause 20
-.end
-; We hope to see you again.
-	3writetext BANK(UnknownText_0x1b020b), UnknownText_0x1b020b
-; Curtsy
-	spriteface $fe, $1
-	pause 10
-	spriteface $fe, $0
-	pause 10
-; And we're out
-	closetext
-	loadmovesprites
-	end
-
-.pokerus
-; Different text for com center (excludes 'in a Pokemon Center')
-; Since flag $32a is cleared when healing,
-; this text is never actually seen
-	checkbit1 $032a
-	iftrue .pokerus_comcenter
-; Your Pokemon appear to be infected ...
-	3writetext BANK(UnknownText_0x1b0241), UnknownText_0x1b0241
-	closetext
-	loadmovesprites
-	2jump .endpokerus
-.pokerus_comcenter
-; Your Pokemon appear to be infected ...
-	3writetext BANK(UnknownText_0x1b02d6), UnknownText_0x1b02d6
-	closetext
-	loadmovesprites
-.endpokerus
-; Don't tell us about Pokerus again
-	setbit2 $000d
-; Trigger Elm's Pokerus phone call
-	specialphonecall $0001
-	end
-; bc162
-
-UnknownScript_0xbc162: ; 0xbc162
-	3jumptext $6c, $435a
-; 0xbc166
-
-UnknownScript_0xbc166: ; 0xbc166
-	3jumptext $6c, $4378
-; 0xbc16a
-
-UnknownScript_0xbc16a: ; 0xbc16a
-	3jumptext $6c, $43a3
-; 0xbc16e
-
-UnknownScript_0xbc16e: ; 0xbc16e
-	3jumptext $6c, $43d9
-; 0xbc172
-
-UnknownScript_0xbc172: ; 0xbc172
-	3jumptext $6c, $4448
-; 0xbc176
-
-UnknownScript_0xbc176: ; 0xbc176
-	3jumptext $6c, $4472
-; 0xbc17a
-
-UnknownScript_0xbc17a: ; 0xbc17a
-	loadfont
-	3writetext $6c, $448d
-	closetext
-	special $0026
-	loadmovesprites
-	end
-; 0xbc185
-
-UnknownScript_0xbc185: ; 0xbc185
-	3jumptext $6c, $44a0
-; 0xbc189
-
-UnknownScript_0xbc189: ; 0xbc189
-	loadfont
-	3writetext $6c, $44be
-	closetext
-	loadmovesprites
-	end
-; 0xbc191
-
-UnknownScript_0xbc191: ; 0xbc191
-	3jumptext $6c, $44c9
-; 0xbc195
-
-UnknownScript_0xbc195: ; 0xbc195
-	loadfont
-	writebyte $0
-	special $0028
-	loadmovesprites
-	end
-; 0xbc19d
-
-UnknownScript_0xbc19d: ; 0xbc19d
-	loadfont
-	writebyte $4
-	special $0028
-	loadmovesprites
-	end
-; 0xbc1a5
-
-UnknownScript_0xbc1a5: ; 0xbc1a5
-	3jumptext $6c, $4526
-; 0xbc1a9
-
-UnknownScript_0xbc1a9: ; 0xbc1a9
-	loadfont
-	special $001c
-	loadmovesprites
-	end
-; 0xbc1af
-
-UnknownScript_0xbc1af: ; 0xbc1af
-	playsound $0008
-	pause 15
-	playsound $0027
-	end
-; 0xbc1b8
-
-UnknownScript_0xbc1b8: ; 0xbc1b8
-	3jump BANK(UnknownScript_0xcd4b), UnknownScript_0xcd4b
-; 0xbc1bc
-
-UnknownScript_0xbc1bc: ; 0xbc1bc
-	3jump BANK(UnknownScript_0xcf5d), UnknownScript_0xcf5d
-; 0xbc1c0
-
-UnknownScript_0xbc1c0: ; 0xbc1c0
-	3jumptext $6c, $457f
-; 0xbc1c4
-
-UnknownScript_0xbc1c4: ; 0xbc1c4
-	3jumptext $6c, $459c
-; 0xbc1c8
-
-UnknownScript_0xbc1c8: ; 0xbc1c8
-	checkcode $b
-	if_equal $1, UnknownScript_0xbc1e7
-	if_equal $2, UnknownScript_0xbc1ec
-	if_equal $3, UnknownScript_0xbc1f1
-	if_equal $4, UnknownScript_0xbc1f6
-	if_equal $5, UnknownScript_0xbc1fb
-	if_equal $6, UnknownScript_0xbc200
-	stringtotext UnknownRawText_0xbc205, $0
-	end
-; 0xbc1e7
-
-UnknownScript_0xbc1e7: ; 0xbc1e7
-	stringtotext UnknownRawText_0xbc20c, $0
-	end
-; 0xbc1ec
-
-UnknownScript_0xbc1ec: ; 0xbc1ec
-	stringtotext UnknownRawText_0xbc213, $0
-	end
-; 0xbc1f1
-
-UnknownScript_0xbc1f1: ; 0xbc1f1
-	stringtotext UnknownRawText_0xbc21b, $0
-	end
-; 0xbc1f6
-
-UnknownScript_0xbc1f6: ; 0xbc1f6
-	stringtotext UnknownRawText_0xbc225, $0
-	end
-; 0xbc1fb
-
-UnknownScript_0xbc1fb: ; 0xbc1fb
-	stringtotext UnknownRawText_0xbc22e, $0
-	end
-; 0xbc200
-
-UnknownScript_0xbc200: ; 0xbc200
-	stringtotext UnknownRawText_0xbc235, $0
-	end
-; 0xbc205
-
-UnknownRawText_0xbc205: ; bc205
-	db "SUNDAY@"
-; bc20c
-
-UnknownRawText_0xbc20c: ; bc20c
-	db "MONDAY@"
-; bc213
-
-UnknownRawText_0xbc213: ; bc213
-	db "TUESDAY@"
-; bc21b
-
-UnknownRawText_0xbc21b: ; bc21b
-	db "WEDNESDAY@"
-; bc225
-
-UnknownRawText_0xbc225: ; bc225
-	db "THURSDAY@"
-; bc22e
-
-UnknownRawText_0xbc22e: ; bc22e
-	db "FRIDAY@"
-; bc235
-
-UnknownRawText_0xbc235: ; bc235
-	db "SATURDAY@"
-; bc23e
-
-UnknownScript_0xbc23e: ; 0xbc23e
-	clearbit1 $06cd
-	end
-; 0xbc242
-
-UnknownScript_0xbc242: ; 0xbc242
-	setbit2 $0013
-	setbit1 $06cf
-	setbit1 $06d1
-	clearbit1 $06ce
-	clearbit1 $0025
-	setbit1 $0756
-	specialphonecall $0004
-	domaptrigger GROUP_MAHOGANY_TOWN, MAP_MAHOGANY_TOWN, $1
-	end
-; 0xbc25c
-
-UnknownScript_0xbc25c: ; 0xbc25c
-	special $0034
-	2call UnknownScript_0xbc380
-	setbit1 $0747
-	clearbit1 $0748
-	setbit1 $02d2
-	warp GROUP_ROUTE_36_NATIONAL_PARK_GATE, MAP_ROUTE_36_NATIONAL_PARK_GATE, $0, $4
-	applymovement $0, MovementData_0xbcea1
-
-UnknownScript_0xbc274: ; bc274
-	clearbit2 $0011
-	clearbit1 $02d2
-	clearbit1 $0313
-	clearbit1 $0314
-	clearbit1 $0315
-	clearbit1 $0316
-	loadfont
-	3writetext $6c, $45bf
-	closetext
-	special $0014
-	RAM2MEM $0
-	if_equal $1, UnknownScript_0xbc31e
-	if_equal $2, UnknownScript_0xbc332
-	if_equal $3, UnknownScript_0xbc343
-	3writetext $6c, $4681
-	keeptextopen
-	waitbutton
-	verbosegiveitem BERRY, 1
-	iffalse UnknownScript_0xbc375
-	3writetext $6c, $46b7
-	keeptextopen
-	2jump $42b6
-; 0xbc2b1
-
-UnknownScript_0xbc2b1: ; 0xbc2b1
-	3writetext $6c, $465b
-	keeptextopen
-	checkbit1 $0308
-	iffalse $42c4
-	3writetext $6c, $46d9
-	closetext
-	special $0017
-	special $0015
-	if_equal $0, $42d4
-	if_equal $2, $42d4
-	3writetext $6c, $470d
-	closetext
-	loadmovesprites
-	dotrigger $0
-	domaptrigger GROUP_ROUTE_35_NATIONAL_PARK_GATE, MAP_ROUTE_35_NATIONAL_PARK_GATE, $0
-	setbit1 $0716
-	setbit1 $0717
-	setbit1 $0718
-	setbit1 $0719
-	setbit1 $071a
-	setbit1 $071b
-	setbit1 $071c
-	setbit1 $071d
-	setbit1 $071e
-	setbit1 $071f
-	setbit1 $0720
-	setbit1 $0721
-	setbit1 $0722
-	setbit1 $0723
-	setbit1 $0724
-	setbit1 $0725
-	setbit1 $0726
-	setbit1 $0727
-	setbit1 $0728
-	setbit1 $0729
-	setbit2 $0051
-	special $003c
-	end
-; 0xbc31e
-
-UnknownScript_0xbc31e: ; 0xbc31e
-	setbit1 $0000
-	itemtotext SUN_STONE, $1
-	3writetext $6c, $4621
-	closetext
-	verbosegiveitem SUN_STONE, 1
-	iffalse UnknownScript_0xbc354
-	2jump UnknownScript_0xbc2b1
-; 0xbc332
-
-UnknownScript_0xbc332: ; 0xbc332
-	itemtotext EVERSTONE, $1
-	3writetext $6c, $4621
-	closetext
-	verbosegiveitem EVERSTONE, 1
-	iffalse UnknownScript_0xbc35f
-	2jump UnknownScript_0xbc2b1
-; 0xbc343
-
-UnknownScript_0xbc343: ; 0xbc343
-	itemtotext GOLD_BERRY, $1
-	3writetext $6c, $4621
-	closetext
-	verbosegiveitem GOLD_BERRY, 1
-	iffalse UnknownScript_0xbc36a
-	2jump UnknownScript_0xbc2b1
-; 0xbc354
-
-UnknownScript_0xbc354: ; 0xbc354
-	3writetext $6c, $48cc
-	keeptextopen
-	setbit1 $0313
-	2jump UnknownScript_0xbc2b1
-; 0xbc35f
-
-UnknownScript_0xbc35f: ; 0xbc35f
-	3writetext $6c, $48cc
-	keeptextopen
-	setbit1 $0314
-	2jump UnknownScript_0xbc2b1
-; 0xbc36a
-
-UnknownScript_0xbc36a: ; 0xbc36a
-	3writetext $6c, $48cc
-	keeptextopen
-	setbit1 $0315
-	2jump UnknownScript_0xbc2b1
-; 0xbc375
-
-UnknownScript_0xbc375: ; 0xbc375
-	3writetext $6c, $48cc
-	keeptextopen
-	setbit1 $0316
-	2jump $42a9
-; 0xbc380
-
-UnknownScript_0xbc380: ; 0xbc380
-	checkbit1 $0716
-	iftrue $4389
-	clearbit1 $0720
-	checkbit1 $0717
-	iftrue $4392
-	clearbit1 $0721
-	checkbit1 $0718
-	iftrue $439b
-	clearbit1 $0722
-	checkbit1 $0719
-	iftrue $43a4
-	clearbit1 $0723
-	checkbit1 $071a
-	iftrue $43ad
-	clearbit1 $0724
-	checkbit1 $071b
-	iftrue $43b6
-	clearbit1 $0725
-	checkbit1 $071c
-	iftrue $43bf
-	clearbit1 $0726
-	checkbit1 $071d
-	iftrue $43c8
-	clearbit1 $0727
-	checkbit1 $071e
-	iftrue $43d1
-	clearbit1 $0728
-	checkbit1 $071f
-	iftrue $43da
-	clearbit1 $0729
-	end
-; 0xbc3db
-
-UnknownScript_0xbc3db: ; 0xbc3db
-	setbit1 $06cb
-	setbit1 $06ce
-	setbit1 $06cd
-	setbit1 $06d0
-	setbit1 $06f3
-	setbit1 $06e9
-	setbit1 $06f4
-	setbit1 $06d5
-	setbit1 $06de
-	setbit1 $06dd
-	setbit1 $06df
-	setbit1 $06c0
-	setbit1 $06e4
-	setbit1 $0025
-	setbit1 $06be
-	setbit1 $06bf
-	setbit1 $06c1
-	setbit1 $06f9
-	setbit1 $06fd
-	setbit1 $06ff
-	setbit1 $0700
-	setbit1 $0702
-	setbit1 $0703
-	setbit1 $0704
-	setbit1 $070d
-	setbit1 $070e
-	setbit1 $070f
-	setbit1 $0710
-	setbit1 $0715
-	setbit1 $0716
-	setbit1 $0717
-	setbit1 $0718
-	setbit1 $0719
-	setbit1 $071a
-	setbit1 $071b
-	setbit1 $071c
-	setbit1 $071d
-	setbit1 $071e
-	setbit1 $071f
-	setbit1 $0720
-	setbit1 $0721
-	setbit1 $0722
-	setbit1 $0723
-	setbit1 $0724
-	setbit1 $0725
-	setbit1 $0726
-	setbit1 $0727
-	setbit1 $0728
-	setbit1 $0729
-	setbit1 $072c
-	setbit1 $072f
-	setbit1 $072d
-	setbit1 $0735
-	setbit1 $0736
-	setbit1 $073c
-	setbit1 $073d
-	setbit1 $0741
-	setbit1 $0742
-	setbit1 $0743
-	setbit1 $0744
-	setbit1 $02a4
-	setbit1 $02af
-	setbit1 $0749
-	setbit1 $06d3
-	setbit1 $074d
-	setbit1 $0712
-	setbit1 $0713
-	setbit1 $0711
-	setbit1 $06d4
-	setbit1 $0304
-	setbit1 $0307
-	setbit1 $06d8
-	setbit1 $06c3
-	setbit1 $06c2
-	setbit1 $06c6
-	setbit1 $075f
-	setbit1 $0731
-	setbit1 $074a
-	setbit1 $0762
-	setbit1 $0738
-	setbit1 $073a
-	setbit1 $073b
-	setbit1 $0733
-	setbit1 $073f
-	setbit1 $078d
-	setbit1 $0766
-	setbit1 $0768
-	setbit1 $0769
-	setbit1 $076a
-	setbit1 $078e
-	setbit1 $078f
-	setbit1 $0790
-	setbit1 $0791
-	setbit1 $0793
-	setbit1 $07a4
-	setbit1 $07a4
-	setbit1 $07a5
-	setbit1 $06ec
-	setbit1 $06ed
-	setbit1 $06f0
-	setbit1 $07a9
-	setbit1 $07aa
-	setbit1 $06c8
-	setbit1 $07ac
-	setbit1 $07ad
-	setbit1 $07b5
-	setbit1 $07b6
-	setbit1 $07c5
-	setbit1 $07b7
-	setbit1 $07b0
-	setbit1 $07af
-	setbit1 $07ae
-	setbit1 $07cf
-	setbit2 $000e
-	setbit2 $0017
-	variablesprite $4, $52
-	variablesprite $5, $4
-	variablesprite $6, $35
-	variablesprite $7, $a
-	variablesprite $8, $a
-	variablesprite $9, $a
-	variablesprite $a, $a
-	variablesprite $b, $28
-	variablesprite $c, $28
-	setbit1 $00fb
-	setbit1 $076d
-	setbit1 $076c
-	setbit1 $076e
-	setbit1 $076f
-	setbit1 $0773
-	setbit1 $0776
-	setbit1 $0777
-	setbit1 $0779
-	setbit1 $0772
-	setbit1 $077b
-	setbit1 $0036
-	return
-; 0xbc574
-
-UnknownScript_0xbc574: ; 0xbc574
-	special $005d
-	checkcode $17
-	if_equal $5, $45c9
-	if_equal $7, UnknownScript_0xbc5ce
-	if_equal $b, UnknownScript_0xbc5d3
-	if_equal $d, UnknownScript_0xbc5d8
-	if_equal $f, UnknownScript_0xbc5dd
-	if_equal $10, UnknownScript_0xbc5e2
-	if_equal $11, UnknownScript_0xbc5e7
-	if_equal $13, UnknownScript_0xbc5ec
-	if_equal $14, UnknownScript_0xbc5f1
-	if_equal $16, UnknownScript_0xbc5f6
-	if_equal $17, UnknownScript_0xbc5fb
-	if_equal $18, UnknownScript_0xbc600
-	if_equal $1b, UnknownScript_0xbc605
-	if_equal $1c, UnknownScript_0xbc60a
-	if_equal $1d, UnknownScript_0xbc60f
-	if_equal $1e, UnknownScript_0xbc614
-	if_equal $20, UnknownScript_0xbc619
-	if_equal $21, UnknownScript_0xbc61e
-	if_equal $22, UnknownScript_0xbc623
-	if_equal $23, UnknownScript_0xbc628
-	3writetext $6c, $49fe
-	end
-; 0xbc5ce
-
-UnknownScript_0xbc5ce: ; 0xbc5ce
-	3writetext $6c, $4d9f
-	end
-; 0xbc5d3
-
-UnknownScript_0xbc5d3: ; 0xbc5d3
-	3writetext $6c, $502e
-	end
-; 0xbc5d8
-
-UnknownScript_0xbc5d8: ; 0xbc5d8
-	3writetext $6c, $542d
-	end
-; 0xbc5dd
-
-UnknownScript_0xbc5dd: ; 0xbc5dd
-	3writetext $6c, $5800
-	end
-; 0xbc5e2
-
-UnknownScript_0xbc5e2: ; 0xbc5e2
-	3writetext $6c, $5a71
-	end
-; 0xbc5e7
-
-UnknownScript_0xbc5e7: ; 0xbc5e7
-	3writetext $6c, $5cd5
-	end
-; 0xbc5ec
-
-UnknownScript_0xbc5ec: ; 0xbc5ec
-	3writetext $29, $4000
-	end
-; 0xbc5f1
-
-UnknownScript_0xbc5f1: ; 0xbc5f1
-	3writetext $29, $41c0
-	end
-; 0xbc5f6
-
-UnknownScript_0xbc5f6: ; 0xbc5f6
-	3writetext $29, $4642
-	end
-; 0xbc5fb
-
-UnknownScript_0xbc5fb: ; 0xbc5fb
-	3writetext $29, $4829
-	end
-; 0xbc600
-
-UnknownScript_0xbc600: ; 0xbc600
-	3writetext $29, $4a31
-	end
-; 0xbc605
-
-UnknownScript_0xbc605: ; 0xbc605
-	3writetext $29, $4ed4
-	end
-; 0xbc60a
-
-UnknownScript_0xbc60a: ; 0xbc60a
-	3writetext $29, $50d5
-	end
-; 0xbc60f
-
-UnknownScript_0xbc60f: ; 0xbc60f
-	3writetext $29, $52e2
-	end
-; 0xbc614
-
-UnknownScript_0xbc614: ; 0xbc614
-	3writetext $29, $5545
-	end
-; 0xbc619
-
-UnknownScript_0xbc619: ; 0xbc619
-	3writetext $29, $5937
-	end
-; 0xbc61e
-
-UnknownScript_0xbc61e: ; 0xbc61e
-	3writetext $29, $5bc4
-	end
-; 0xbc623
-
-UnknownScript_0xbc623: ; 0xbc623
-	3writetext $29, $5dc6
-	end
-; 0xbc628
-
-UnknownScript_0xbc628: ; 0xbc628
-	3writetext $29, $600c
-	end
-; 0xbc62d
-
-UnknownScript_0xbc62d: ; 0xbc62d
-	special $005d
-	checkcode $17
-	if_equal $5, $4682
-	if_equal $7, UnknownScript_0xbc687
-	if_equal $b, UnknownScript_0xbc68c
-	if_equal $d, UnknownScript_0xbc691
-	if_equal $f, UnknownScript_0xbc696
-	if_equal $10, UnknownScript_0xbc69b
-	if_equal $11, UnknownScript_0xbc6a0
-	if_equal $13, UnknownScript_0xbc6a5
-	if_equal $14, UnknownScript_0xbc6aa
-	if_equal $16, UnknownScript_0xbc6af
-	if_equal $17, UnknownScript_0xbc6b4
-	if_equal $18, UnknownScript_0xbc6b9
-	if_equal $1b, UnknownScript_0xbc6be
-	if_equal $1c, UnknownScript_0xbc6c3
-	if_equal $1d, UnknownScript_0xbc6c8
-	if_equal $1e, UnknownScript_0xbc6cd
-	if_equal $20, UnknownScript_0xbc6d2
-	if_equal $21, UnknownScript_0xbc6d7
-	if_equal $22, UnknownScript_0xbc6dc
-	if_equal $23, UnknownScript_0xbc6e1
-	3writetext $6c, $4a82
-	end
-; 0xbc687
-
-UnknownScript_0xbc687: ; 0xbc687
-	3writetext $6c, $4e2c
-	end
-; 0xbc68c
-
-UnknownScript_0xbc68c: ; 0xbc68c
-	3writetext $6c, $50d3
-	end
-; 0xbc691
-
-UnknownScript_0xbc691: ; 0xbc691
-	3writetext $6c, $54e4
-	end
-; 0xbc696
-
-UnknownScript_0xbc696: ; 0xbc696
-	3writetext $6c, $587b
-	end
-; 0xbc69b
-
-UnknownScript_0xbc69b: ; 0xbc69b
-	3writetext $6c, $5b1d
-	end
-; 0xbc6a0
-
-UnknownScript_0xbc6a0: ; 0xbc6a0
-	3writetext $6c, $5d85
-	end
-; 0xbc6a5
-
-UnknownScript_0xbc6a5: ; 0xbc6a5
-	3writetext $29, $40a9
-	end
-; 0xbc6aa
-
-UnknownScript_0xbc6aa: ; 0xbc6aa
-	3writetext $29, $426a
-	end
-; 0xbc6af
-
-UnknownScript_0xbc6af: ; 0xbc6af
-	3writetext $29, $470b
-	end
-; 0xbc6b4
-
-UnknownScript_0xbc6b4: ; 0xbc6b4
-	3writetext $29, $48fc
-	end
-; 0xbc6b9
-
-UnknownScript_0xbc6b9: ; 0xbc6b9
-	3writetext $29, $4b03
-	end
-; 0xbc6be
-
-UnknownScript_0xbc6be: ; 0xbc6be
-	3writetext $29, $4fc8
-	end
-; 0xbc6c3
-
-UnknownScript_0xbc6c3: ; 0xbc6c3
-	3writetext $29, $5175
-	end
-; 0xbc6c8
-
-UnknownScript_0xbc6c8: ; 0xbc6c8
-	3writetext $29, $5383
-	end
-; 0xbc6cd
-
-UnknownScript_0xbc6cd: ; 0xbc6cd
-	3writetext $29, $5621
-	end
-; 0xbc6d2
-
-UnknownScript_0xbc6d2: ; 0xbc6d2
-	3writetext $29, $59bc
-	end
-; 0xbc6d7
-
-UnknownScript_0xbc6d7: ; 0xbc6d7
-	3writetext $29, $5c4b
-	end
-; 0xbc6dc
-
-UnknownScript_0xbc6dc: ; 0xbc6dc
-	3writetext $29, $5e63
-	end
-; 0xbc6e1
-
-UnknownScript_0xbc6e1: ; 0xbc6e1
-	3writetext $29, $6076
-	end
-; 0xbc6e6
-
-UnknownScript_0xbc6e6: ; 0xbc6e6
-	3writetext $6c, $49c4
-	playsound $0093
-	waitbutton
-	keeptextopen
-	end
-; 0xbc6f0
-
-UnknownScript_0xbc6f0: ; 0xbc6f0
-	checkcode $17
-	if_equal $5, $4742
-	if_equal $7, UnknownScript_0xbc749
-	if_equal $b, UnknownScript_0xbc750
-	if_equal $d, UnknownScript_0xbc757
-	if_equal $f, UnknownScript_0xbc75e
-	if_equal $10, UnknownScript_0xbc765
-	if_equal $11, UnknownScript_0xbc76c
-	if_equal $13, UnknownScript_0xbc773
-	if_equal $14, UnknownScript_0xbc77a
-	if_equal $16, UnknownScript_0xbc781
-	if_equal $17, UnknownScript_0xbc788
-	if_equal $18, UnknownScript_0xbc78f
-	if_equal $1b, UnknownScript_0xbc796
-	if_equal $1c, UnknownScript_0xbc79d
-	if_equal $1d, UnknownScript_0xbc7a4
-	if_equal $1e, UnknownScript_0xbc7ab
-	if_equal $20, UnknownScript_0xbc7b2
-	if_equal $21, UnknownScript_0xbc7b9
-	if_equal $22, UnknownScript_0xbc7c0
-	if_equal $23, UnknownScript_0xbc7c7
-	3writetext $6c, $4adb
-	closetext
-	loadmovesprites
-	end
-; 0xbc749
-
-UnknownScript_0xbc749: ; 0xbc749
-	3writetext $6c, $4e89
-	closetext
-	loadmovesprites
-	end
-; 0xbc750
-
-UnknownScript_0xbc750: ; 0xbc750
-	3writetext $6c, $5136
-	closetext
-	loadmovesprites
-	end
-; 0xbc757
-
-UnknownScript_0xbc757: ; 0xbc757
-	3writetext $6c, $5553
-	closetext
-	loadmovesprites
-	end
-; 0xbc75e
-
-UnknownScript_0xbc75e: ; 0xbc75e
-	3writetext $6c, $58d7
-	closetext
-	loadmovesprites
-	end
-; 0xbc765
-
-UnknownScript_0xbc765: ; 0xbc765
-	3writetext $6c, $5b8e
-	closetext
-	loadmovesprites
-	end
-; 0xbc76c
-
-UnknownScript_0xbc76c: ; 0xbc76c
-	3writetext $6c, $5db9
-	closetext
-	loadmovesprites
-	end
-; 0xbc773
-
-UnknownScript_0xbc773: ; 0xbc773
-	3writetext $29, $40f8
-	closetext
-	loadmovesprites
-	end
-; 0xbc77a
-
-UnknownScript_0xbc77a: ; 0xbc77a
-	3writetext $29, $42ab
-	closetext
-	loadmovesprites
-	end
-; 0xbc781
-
-UnknownScript_0xbc781: ; 0xbc781
-	3writetext $29, $4730
-	closetext
-	loadmovesprites
-	end
-; 0xbc788
-
-UnknownScript_0xbc788: ; 0xbc788
-	3writetext $29, $494d
-	closetext
-	loadmovesprites
-	end
-; 0xbc78f
-
-UnknownScript_0xbc78f: ; 0xbc78f
-	3writetext $29, $4b47
-	closetext
-	loadmovesprites
-	end
-; 0xbc796
-
-UnknownScript_0xbc796: ; 0xbc796
-	3writetext $29, $502e
-	closetext
-	loadmovesprites
-	end
-; 0xbc79d
-
-UnknownScript_0xbc79d: ; 0xbc79d
-	3writetext $29, $51ac
-	closetext
-	loadmovesprites
-	end
-; 0xbc7a4
-
-UnknownScript_0xbc7a4: ; 0xbc7a4
-	3writetext $29, $53de
-	closetext
-	loadmovesprites
-	end
-; 0xbc7ab
-
-UnknownScript_0xbc7ab: ; 0xbc7ab
-	3writetext $29, $5666
-	closetext
-	loadmovesprites
-	end
-; 0xbc7b2
-
-UnknownScript_0xbc7b2: ; 0xbc7b2
-	3writetext $29, $5a28
-	closetext
-	loadmovesprites
-	end
-; 0xbc7b9
-
-UnknownScript_0xbc7b9: ; 0xbc7b9
-	3writetext $29, $5c8e
-	closetext
-	loadmovesprites
-	end
-; 0xbc7c0
-
-UnknownScript_0xbc7c0: ; 0xbc7c0
-	3writetext $29, $5ea8
-	closetext
-	loadmovesprites
-	end
-; 0xbc7c7
-
-UnknownScript_0xbc7c7: ; 0xbc7c7
-	3writetext $29, $60b5
-	closetext
-	loadmovesprites
-	end
-; 0xbc7ce
-
-UnknownScript_0xbc7ce: ; 0xbc7ce
-	checkcode $17
-	if_equal $5, $4820
-	if_equal $7, UnknownScript_0xbc827
-	if_equal $b, UnknownScript_0xbc82e
-	if_equal $d, UnknownScript_0xbc835
-	if_equal $f, UnknownScript_0xbc83c
-	if_equal $10, UnknownScript_0xbc843
-	if_equal $11, UnknownScript_0xbc84a
-	if_equal $13, UnknownScript_0xbc851
-	if_equal $14, UnknownScript_0xbc858
-	if_equal $16, UnknownScript_0xbc85f
-	if_equal $17, UnknownScript_0xbc866
-	if_equal $18, UnknownScript_0xbc86d
-	if_equal $1b, UnknownScript_0xbc874
-	if_equal $1c, UnknownScript_0xbc87b
-	if_equal $1d, UnknownScript_0xbc882
-	if_equal $1e, UnknownScript_0xbc889
-	if_equal $20, UnknownScript_0xbc890
-	if_equal $21, UnknownScript_0xbc897
-	if_equal $22, UnknownScript_0xbc89e
-	if_equal $23, UnknownScript_0xbc8a5
-	3writetext $6c, $4afd
-	closetext
-	loadmovesprites
-	end
-; 0xbc827
-
-UnknownScript_0xbc827: ; 0xbc827
-	3writetext $6c, $4ea2
-	closetext
-	loadmovesprites
-	end
-; 0xbc82e
-
-UnknownScript_0xbc82e: ; 0xbc82e
-	3writetext $6c, $517b
-	closetext
-	loadmovesprites
-	end
-; 0xbc835
-
-UnknownScript_0xbc835: ; 0xbc835
-	3writetext $6c, $5584
-	closetext
-	loadmovesprites
-	end
-; 0xbc83c
-
-UnknownScript_0xbc83c: ; 0xbc83c
-	3writetext $6c, $5908
-	closetext
-	loadmovesprites
-	end
-; 0xbc843
-
-UnknownScript_0xbc843: ; 0xbc843
-	3writetext $6c, $5bd2
-	closetext
-	loadmovesprites
-	end
-; 0xbc84a
-
-UnknownScript_0xbc84a: ; 0xbc84a
-	3writetext $6c, $5df4
-	closetext
-	loadmovesprites
-	end
-; 0xbc851
-
-UnknownScript_0xbc851: ; 0xbc851
-	3writetext $29, $4126
-	closetext
-	loadmovesprites
-	end
-; 0xbc858
-
-UnknownScript_0xbc858: ; 0xbc858
-	3writetext $29, $42f2
-	closetext
-	loadmovesprites
-	end
-; 0xbc85f
-
-UnknownScript_0xbc85f: ; 0xbc85f
-	3writetext $29, $4794
-	closetext
-	loadmovesprites
-	end
-; 0xbc866
-
-UnknownScript_0xbc866: ; 0xbc866
-	3writetext $29, $498a
-	closetext
-	loadmovesprites
-	end
-; 0xbc86d
-
-UnknownScript_0xbc86d: ; 0xbc86d
-	3writetext $29, $4b87
-	closetext
-	loadmovesprites
-	end
-; 0xbc874
-
-UnknownScript_0xbc874: ; 0xbc874
-	3writetext $29, $505f
-	closetext
-	loadmovesprites
-	end
-; 0xbc87b
-
-UnknownScript_0xbc87b: ; 0xbc87b
-	3writetext $29, $51ee
-	closetext
-	loadmovesprites
-	end
-; 0xbc882
-
-UnknownScript_0xbc882: ; 0xbc882
-	3writetext $29, $5412
-	closetext
-	loadmovesprites
-	end
-; 0xbc889
-
-UnknownScript_0xbc889: ; 0xbc889
-	3writetext $29, $56b6
-	closetext
-	loadmovesprites
-	end
-; 0xbc890
-
-UnknownScript_0xbc890: ; 0xbc890
-	3writetext $29, $5a5a
-	closetext
-	loadmovesprites
-	end
-; 0xbc897
-
-UnknownScript_0xbc897: ; 0xbc897
-	3writetext $29, $5cc5
-	closetext
-	loadmovesprites
-	end
-; 0xbc89e
-
-UnknownScript_0xbc89e: ; 0xbc89e
-	3writetext $29, $5ed6
-	closetext
-	loadmovesprites
-	end
-; 0xbc8a5
-
-UnknownScript_0xbc8a5: ; 0xbc8a5
-	3writetext $29, $60e2
-	closetext
-	loadmovesprites
-	end
-; 0xbc8ac
-
-UnknownScript_0xbc8ac: ; 0xbc8ac
-	checkcode $17
-	if_equal $5, $48fe
-	if_equal $7, UnknownScript_0xbc905
-	if_equal $b, UnknownScript_0xbc90c
-	if_equal $d, UnknownScript_0xbc913
-	if_equal $f, UnknownScript_0xbc91a
-	if_equal $10, UnknownScript_0xbc921
-	if_equal $11, UnknownScript_0xbc928
-	if_equal $13, UnknownScript_0xbc92f
-	if_equal $14, UnknownScript_0xbc936
-	if_equal $16, UnknownScript_0xbc93d
-	if_equal $17, UnknownScript_0xbc944
-	if_equal $18, UnknownScript_0xbc94b
-	if_equal $1b, UnknownScript_0xbc952
-	if_equal $1c, UnknownScript_0xbc959
-	if_equal $1d, UnknownScript_0xbc960
-	if_equal $1e, UnknownScript_0xbc967
-	if_equal $20, UnknownScript_0xbc96e
-	if_equal $21, UnknownScript_0xbc975
-	if_equal $22, UnknownScript_0xbc97c
-	if_equal $23, UnknownScript_0xbc983
-	3writetext $6c, $4b42
-	closetext
-	loadmovesprites
-	end
-; 0xbc905
-
-UnknownScript_0xbc905: ; 0xbc905
-	3writetext $6c, $4ebc
-	closetext
-	loadmovesprites
-	end
-; 0xbc90c
-
-UnknownScript_0xbc90c: ; 0xbc90c
-	3writetext $6c, $51c4
-	closetext
-	loadmovesprites
-	end
-; 0xbc913
-
-UnknownScript_0xbc913: ; 0xbc913
-	3writetext $6c, $55b6
-	closetext
-	loadmovesprites
-	end
-; 0xbc91a
-
-UnknownScript_0xbc91a: ; 0xbc91a
-	3writetext $6c, $5936
-	closetext
-	loadmovesprites
-	end
-; 0xbc921
-
-UnknownScript_0xbc921: ; 0xbc921
-	3writetext $6c, $5c06
-	closetext
-	loadmovesprites
-	end
-; 0xbc928
-
-UnknownScript_0xbc928: ; 0xbc928
-	3writetext $6c, $5e50
-	closetext
-	loadmovesprites
-	end
-; 0xbc92f
-
-UnknownScript_0xbc92f: ; 0xbc92f
-	3writetext $29, $4158
-	closetext
-	loadmovesprites
-	end
-; 0xbc936
-
-UnknownScript_0xbc936: ; 0xbc936
-	3writetext $29, $434a
-	closetext
-	loadmovesprites
-	end
-; 0xbc93d
-
-UnknownScript_0xbc93d: ; 0xbc93d
-	3writetext $29, $47eb
-	closetext
-	loadmovesprites
-	end
-; 0xbc944
-
-UnknownScript_0xbc944: ; 0xbc944
-	3writetext $29, $49bd
-	closetext
-	loadmovesprites
-	end
-; 0xbc94b
-
-UnknownScript_0xbc94b: ; 0xbc94b
-	3writetext $29, $4bcd
-	closetext
-	loadmovesprites
-	end
-; 0xbc952
-
-UnknownScript_0xbc952: ; 0xbc952
-	3writetext $29, $508c
-	closetext
-	loadmovesprites
-	end
-; 0xbc959
-
-UnknownScript_0xbc959: ; 0xbc959
-	3writetext $29, $5216
-	closetext
-	loadmovesprites
-	end
-; 0xbc960
-
-UnknownScript_0xbc960: ; 0xbc960
-	3writetext $29, $5446
-	closetext
-	loadmovesprites
-	end
-; 0xbc967
-
-UnknownScript_0xbc967: ; 0xbc967
-	3writetext $29, $56e2
-	closetext
-	loadmovesprites
-	end
-; 0xbc96e
-
-UnknownScript_0xbc96e: ; 0xbc96e
-	3writetext $29, $5aa6
-	closetext
-	loadmovesprites
-	end
-; 0xbc975
-
-UnknownScript_0xbc975: ; 0xbc975
-	3writetext $29, $5cfa
-	closetext
-	loadmovesprites
-	end
-; 0xbc97c
-
-UnknownScript_0xbc97c: ; 0xbc97c
-	3writetext $29, $5f06
-	closetext
-	loadmovesprites
-	end
-; 0xbc983
-
-UnknownScript_0xbc983: ; 0xbc983
-	3writetext $29, $6144
-	closetext
-	loadmovesprites
-	end
-; 0xbc98a
-
-UnknownScript_0xbc98a: ; 0xbc98a
-	checkcode $17
-	if_equal $5, $49d0
-	if_equal $7, UnknownScript_0xbc9d7
-	if_equal $b, UnknownScript_0xbc9de
-	if_equal $d, UnknownScript_0xbc9e5
-	if_equal $f, UnknownScript_0xbc9ec
-	if_equal $10, UnknownScript_0xbc9f3
-	if_equal $11, UnknownScript_0xbc9fa
-	if_equal $13, UnknownScript_0xbca01
-	if_equal $14, UnknownScript_0xbca08
-	if_equal $17, UnknownScript_0xbca0f
-	if_equal $18, UnknownScript_0xbca16
-	if_equal $1b, UnknownScript_0xbca1d
-	if_equal $1d, UnknownScript_0xbca24
-	if_equal $1e, UnknownScript_0xbca2b
-	if_equal $20, UnknownScript_0xbca32
-	if_equal $21, UnknownScript_0xbca39
-	if_equal $23, UnknownScript_0xbca40
-	3writetext $6c, $4b75
-	closetext
-	loadmovesprites
-	end
-; 0xbc9d7
-
-UnknownScript_0xbc9d7: ; 0xbc9d7
-	3writetext $6c, $4edc
-	closetext
-	loadmovesprites
-	end
-; 0xbc9de
-
-UnknownScript_0xbc9de: ; 0xbc9de
-	3writetext $6c, $51fe
-	closetext
-	loadmovesprites
-	end
-; 0xbc9e5
-
-UnknownScript_0xbc9e5: ; 0xbc9e5
-	3writetext $6c, $55d5
-	closetext
-	loadmovesprites
-	end
-; 0xbc9ec
-
-UnknownScript_0xbc9ec: ; 0xbc9ec
-	3writetext $6c, $5954
-	closetext
-	loadmovesprites
-	end
-; 0xbc9f3
-
-UnknownScript_0xbc9f3: ; 0xbc9f3
-	3writetext $6c, $5c32
-	closetext
-	loadmovesprites
-	end
-; 0xbc9fa
-
-UnknownScript_0xbc9fa: ; 0xbc9fa
-	3writetext $6c, $5e98
-	closetext
-	loadmovesprites
-	end
-; 0xbca01
-
-UnknownScript_0xbca01: ; 0xbca01
-	3writetext $29, $418d
-	closetext
-	loadmovesprites
-	end
-; 0xbca08
-
-UnknownScript_0xbca08: ; 0xbca08
-	3writetext $29, $4382
-	closetext
-	loadmovesprites
-	end
-; 0xbca0f
-
-UnknownScript_0xbca0f: ; 0xbca0f
-	3writetext $29, $49fc
-	closetext
-	loadmovesprites
-	end
-; 0xbca16
-
-UnknownScript_0xbca16: ; 0xbca16
-	3writetext $29, $4bec
-	closetext
-	loadmovesprites
-	end
-; 0xbca1d
-
-UnknownScript_0xbca1d: ; 0xbca1d
-	3writetext $29, $50b1
-	closetext
-	loadmovesprites
-	end
-; 0xbca24
-
-UnknownScript_0xbca24: ; 0xbca24
-	3writetext $29, $548c
-	closetext
-	loadmovesprites
-	end
-; 0xbca2b
-
-UnknownScript_0xbca2b: ; 0xbca2b
-	3writetext $29, $571e
-	closetext
-	loadmovesprites
-	end
-; 0xbca32
-
-UnknownScript_0xbca32: ; 0xbca32
-	3writetext $29, $5ada
-	closetext
-	loadmovesprites
-	end
-; 0xbca39
-
-UnknownScript_0xbca39: ; 0xbca39
-	3writetext $29, $5d1d
-	closetext
-	loadmovesprites
-	end
-; 0xbca40
-
-UnknownScript_0xbca40: ; 0xbca40
-	3writetext $29, $6175
-	closetext
-	loadmovesprites
-	end
-; 0xbca47
-
-UnknownScript_0xbca47: ; 0xbca47
-	checkcode $17
-	if_equal $d, $4a65
-	if_equal $10, UnknownScript_0xbca6b
-	if_equal $18, UnknownScript_0xbca71
-	if_equal $1c, UnknownScript_0xbca77
-	if_equal $1d, UnknownScript_0xbca7d
-	if_equal $21, UnknownScript_0xbca83
-	if_equal $22, UnknownScript_0xbca89
-	3writetext $6c, $5607
-	keeptextopen
-	end
-; 0xbca6b
-
-UnknownScript_0xbca6b: ; 0xbca6b
-	3writetext $6c, $5c57
-	keeptextopen
-	end
-; 0xbca71
-
-UnknownScript_0xbca71: ; 0xbca71
-	3writetext $29, $4c24
-	keeptextopen
-	end
-; 0xbca77
-
-UnknownScript_0xbca77: ; 0xbca77
-	3writetext $29, $523a
-	keeptextopen
-	end
-; 0xbca7d
-
-UnknownScript_0xbca7d: ; 0xbca7d
-	3writetext $29, $54e3
-	keeptextopen
-	end
-; 0xbca83
-
-UnknownScript_0xbca83: ; 0xbca83
-	3writetext $29, $5d4d
-	keeptextopen
-	end
-; 0xbca89
-
-UnknownScript_0xbca89: ; 0xbca89
-	3writetext $29, $5f37
-	keeptextopen
-	end
-; 0xbca8f
-
-UnknownScript_0xbca8f: ; 0xbca8f
-	checkcode $17
-	if_equal $7, $4abd
-	if_equal $d, UnknownScript_0xbcac4
-	if_equal $f, UnknownScript_0xbcacb
-	if_equal $10, UnknownScript_0xbcad2
-	if_equal $18, UnknownScript_0xbcad9
-	if_equal $1c, UnknownScript_0xbcae0
-	if_equal $1d, UnknownScript_0xbcae7
-	if_equal $20, UnknownScript_0xbcaee
-	if_equal $21, UnknownScript_0xbcaf5
-	if_equal $22, UnknownScript_0xbcafc
-	if_equal $23, UnknownScript_0xbcb03
-	3writetext $6c, $4eff
-	closetext
-	loadmovesprites
-	end
-; 0xbcac4
-
-UnknownScript_0xbcac4: ; 0xbcac4
-	3writetext $6c, $564d
-	closetext
-	loadmovesprites
-	end
-; 0xbcacb
-
-UnknownScript_0xbcacb: ; 0xbcacb
-	3writetext $6c, $5978
-	closetext
-	loadmovesprites
-	end
-; 0xbcad2
-
-UnknownScript_0xbcad2: ; 0xbcad2
-	3writetext $6c, $5c91
-	closetext
-	loadmovesprites
-	end
-; 0xbcad9
-
-UnknownScript_0xbcad9: ; 0xbcad9
-	3writetext $29, $4c47
-	closetext
-	loadmovesprites
-	end
-; 0xbcae0
-
-UnknownScript_0xbcae0: ; 0xbcae0
-	3writetext $29, $52a0
-	closetext
-	loadmovesprites
-	end
-; 0xbcae7
-
-UnknownScript_0xbcae7: ; 0xbcae7
-	3writetext $29, $5513
-	closetext
-	loadmovesprites
-	end
-; 0xbcaee
-
-UnknownScript_0xbcaee: ; 0xbcaee
-	3writetext $29, $5aff
-	closetext
-	loadmovesprites
-	end
-; 0xbcaf5
-
-UnknownScript_0xbcaf5: ; 0xbcaf5
-	3writetext $29, $5d9a
-	closetext
-	loadmovesprites
-	end
-; 0xbcafc
-
-UnknownScript_0xbcafc: ; 0xbcafc
-	3writetext $29, $5faa
-	closetext
-	loadmovesprites
-	end
-; 0xbcb03
-
-UnknownScript_0xbcb03: ; 0xbcb03
-	3writetext $29, $61c9
-	closetext
-	loadmovesprites
-	end
-; 0xbcb0a
-
-UnknownScript_0xbcb0a: ; 0xbcb0a
-	loadfont
-	checkcode $17
-	if_equal $7, $4b1d
-	if_equal $f, UnknownScript_0xbcb23
-	if_equal $20, UnknownScript_0xbcb29
-	if_equal $23, UnknownScript_0xbcb2f
-	3writetext $6c, $4f2f
-	keeptextopen
-	end
-; 0xbcb23
-
-UnknownScript_0xbcb23: ; 0xbcb23
-	3writetext $6c, $59be
-	keeptextopen
-	end
-; 0xbcb29
-
-UnknownScript_0xbcb29: ; 0xbcb29
-	3writetext $29, $5b3f
-	keeptextopen
-	end
-; 0xbcb2f
-
-UnknownScript_0xbcb2f: ; 0xbcb2f
-	3writetext $29, $6200
-	keeptextopen
-	end
-; 0xbcb35
-
-UnknownScript_0xbcb35: ; 0xbcb35
-	checkcode $17
-	if_equal $6, $4b57
-	if_equal $c, UnknownScript_0xbcb5c
-	if_equal $e, UnknownScript_0xbcb61
-	if_equal $12, UnknownScript_0xbcb66
-	if_equal $15, UnknownScript_0xbcb6b
-	if_equal $1a, UnknownScript_0xbcb70
-	if_equal $1f, UnknownScript_0xbcb75
-	if_equal $24, UnknownScript_0xbcb7a
-	3writetext $6c, $4bb6
-	end
-; 0xbcb5c
-
-UnknownScript_0xbcb5c: ; 0xbcb5c
-	3writetext $6c, $5239
-	end
-; 0xbcb61
-
-UnknownScript_0xbcb61: ; 0xbcb61
-	3writetext $6c, $5690
-	end
-; 0xbcb66
-
-UnknownScript_0xbcb66: ; 0xbcb66
-	3writetext $6c, $5ebe
-	end
-; 0xbcb6b
-
-UnknownScript_0xbcb6b: ; 0xbcb6b
-	3writetext $29, $4405
-	end
-; 0xbcb70
-
-UnknownScript_0xbcb70: ; 0xbcb70
-	3writetext $29, $4c8c
-	end
-; 0xbcb75
-
-UnknownScript_0xbcb75: ; 0xbcb75
-	3writetext $29, $574a
-	end
-; 0xbcb7a
-
-UnknownScript_0xbcb7a: ; 0xbcb7a
-	3writetext $29, $6295
-	end
-; 0xbcb7f
-
-UnknownScript_0xbcb7f: ; 0xbcb7f
-	checkcode $17
-	if_equal $6, $4ba1
-	if_equal $c, UnknownScript_0xbcba6
-	if_equal $e, UnknownScript_0xbcbab
-	if_equal $12, UnknownScript_0xbcbb0
-	if_equal $15, UnknownScript_0xbcbb5
-	if_equal $1a, UnknownScript_0xbcbba
-	if_equal $1f, UnknownScript_0xbcbbf
-	if_equal $24, UnknownScript_0xbcbc4
-	3writetext $6c, $4c37
-	end
-; 0xbcba6
-
-UnknownScript_0xbcba6: ; 0xbcba6
-	3writetext $6c, $5314
-	end
-; 0xbcbab
-
-UnknownScript_0xbcbab: ; 0xbcbab
-	3writetext $6c, $5710
-	end
-; 0xbcbb0
-
-UnknownScript_0xbcbb0: ; 0xbcbb0
-	3writetext $6c, $5f4e
-	end
-; 0xbcbb5
-
-UnknownScript_0xbcbb5: ; 0xbcbb5
-	3writetext $29, $44db
-	end
-; 0xbcbba
-
-UnknownScript_0xbcbba: ; 0xbcbba
-	3writetext $29, $4d36
-	end
-; 0xbcbbf
-
-UnknownScript_0xbcbbf: ; 0xbcbbf
-	3writetext $29, $57e3
-	end
-; 0xbcbc4
-
-UnknownScript_0xbcbc4: ; 0xbcbc4
-	3writetext $29, $6316
-	end
-; 0xbcbc9
-
-UnknownScript_0xbcbc9: ; 0xbcbc9
-	3writetext $6c, $49e1
-	playsound $0093
-	waitbutton
-	keeptextopen
-	end
-; 0xbcbd3
-
-UnknownScript_0xbcbd3: ; 0xbcbd3
-	checkcode $17
-	if_equal $6, $4bf5
-	if_equal $c, UnknownScript_0xbcbfc
-	if_equal $e, UnknownScript_0xbcc03
-	if_equal $12, UnknownScript_0xbcc0a
-	if_equal $15, UnknownScript_0xbcc11
-	if_equal $1a, UnknownScript_0xbcc18
-	if_equal $1f, UnknownScript_0xbcc1f
-	if_equal $24, UnknownScript_0xbcc26
-	3writetext $6c, $4c9b
-	closetext
-	loadmovesprites
-	end
-; 0xbcbfc
-
-UnknownScript_0xbcbfc: ; 0xbcbfc
-	3writetext $6c, $5392
-	closetext
-	loadmovesprites
-	end
-; 0xbcc03
-
-UnknownScript_0xbcc03: ; 0xbcc03
-	3writetext $6c, $5755
-	closetext
-	loadmovesprites
-	end
-; 0xbcc0a
-
-UnknownScript_0xbcc0a: ; 0xbcc0a
-	3writetext $6c, $5faa
-	closetext
-	loadmovesprites
-	end
-; 0xbcc11
-
-UnknownScript_0xbcc11: ; 0xbcc11
-	3writetext $29, $451d
-	closetext
-	loadmovesprites
-	end
-; 0xbcc18
-
-UnknownScript_0xbcc18: ; 0xbcc18
-	3writetext $29, $4d72
-	closetext
-	loadmovesprites
-	end
-; 0xbcc1f
-
-UnknownScript_0xbcc1f: ; 0xbcc1f
-	3writetext $29, $5820
-	closetext
-	loadmovesprites
-	end
-; 0xbcc26
-
-UnknownScript_0xbcc26: ; 0xbcc26
-	3writetext $29, $6359
-	closetext
-	loadmovesprites
-	end
-; 0xbcc2d
-
-UnknownScript_0xbcc2d: ; 0xbcc2d
-	checkcode $17
-	if_equal $6, $4c4f
-	if_equal $c, UnknownScript_0xbcc56
-	if_equal $e, UnknownScript_0xbcc5d
-	if_equal $12, UnknownScript_0xbcc64
-	if_equal $15, UnknownScript_0xbcc6b
-	if_equal $1a, UnknownScript_0xbcc72
-	if_equal $1f, UnknownScript_0xbcc79
-	if_equal $24, UnknownScript_0xbcc80
-	3writetext $6c, $4ce0
-	closetext
-	loadmovesprites
-	end
-; 0xbcc56
-
-UnknownScript_0xbcc56: ; 0xbcc56
-	3writetext $6c, $53af
-	closetext
-	loadmovesprites
-	end
-; 0xbcc5d
-
-UnknownScript_0xbcc5d: ; 0xbcc5d
-	3writetext $6c, $578a
-	closetext
-	loadmovesprites
-	end
-; 0xbcc64
-
-UnknownScript_0xbcc64: ; 0xbcc64
-	3writetext $6c, $5fdd
-	closetext
-	loadmovesprites
-	end
-; 0xbcc6b
-
-UnknownScript_0xbcc6b: ; 0xbcc6b
-	3writetext $29, $4542
-	closetext
-	loadmovesprites
-	end
-; 0xbcc72
-
-UnknownScript_0xbcc72: ; 0xbcc72
-	3writetext $29, $4dcd
-	closetext
-	loadmovesprites
-	end
-; 0xbcc79
-
-UnknownScript_0xbcc79: ; 0xbcc79
-	3writetext $29, $5842
-	closetext
-	loadmovesprites
-	end
-; 0xbcc80
-
-UnknownScript_0xbcc80: ; 0xbcc80
-	3writetext $29, $638c
-	closetext
-	loadmovesprites
-	end
-; 0xbcc87
-
-UnknownScript_0xbcc87: ; 0xbcc87
-	checkcode $17
-	if_equal $6, $4ca9
-	if_equal $c, UnknownScript_0xbccb0
-	if_equal $e, UnknownScript_0xbccb7
-	if_equal $12, UnknownScript_0xbccbe
-	if_equal $15, UnknownScript_0xbccc5
-	if_equal $1a, UnknownScript_0xbcccc
-	if_equal $1f, UnknownScript_0xbccd3
-	if_equal $24, UnknownScript_0xbccda
-	3writetext $6c, $4d0b
-	closetext
-	loadmovesprites
-	end
-; 0xbccb0
-
-UnknownScript_0xbccb0: ; 0xbccb0
-	3writetext $6c, $53e4
-	closetext
-	loadmovesprites
-	end
-; 0xbccb7
-
-UnknownScript_0xbccb7: ; 0xbccb7
-	3writetext $6c, $57ba
-	closetext
-	loadmovesprites
-	end
-; 0xbccbe
-
-UnknownScript_0xbccbe: ; 0xbccbe
-	3writetext $6c, $5ffa
-	closetext
-	loadmovesprites
-	end
-; 0xbccc5
-
-UnknownScript_0xbccc5: ; 0xbccc5
-	3writetext $29, $4573
-	closetext
-	loadmovesprites
-	end
-; 0xbcccc
-
-UnknownScript_0xbcccc: ; 0xbcccc
-	3writetext $29, $4e01
-	closetext
-	loadmovesprites
-	end
-; 0xbccd3
-
-UnknownScript_0xbccd3: ; 0xbccd3
-	3writetext $29, $5881
-	closetext
-	loadmovesprites
-	end
-; 0xbccda
-
-UnknownScript_0xbccda: ; 0xbccda
-	3writetext $29, $63cc
-	closetext
-	loadmovesprites
-	end
-; 0xbcce1
-
-UnknownScript_0xbcce1: ; 0xbcce1
-	checkcode $17
-	if_equal $c, $4cff
-	if_equal $e, UnknownScript_0xbcd06
-	if_equal $12, UnknownScript_0xbcd0d
-	if_equal $15, UnknownScript_0xbcd14
-	if_equal $1a, UnknownScript_0xbcd1b
-	if_equal $1f, UnknownScript_0xbcd22
-	if_equal $24, UnknownScript_0xbcd29
-	3writetext $6c, $5409
-	closetext
-	loadmovesprites
-	end
-; 0xbcd06
-
-UnknownScript_0xbcd06: ; 0xbcd06
-	3writetext $6c, $57de
-	closetext
-	loadmovesprites
-	end
-; 0xbcd0d
-
-UnknownScript_0xbcd0d: ; 0xbcd0d
-	3writetext $6c, $601f
-	closetext
-	loadmovesprites
-	end
-; 0xbcd14
-
-UnknownScript_0xbcd14: ; 0xbcd14
-	3writetext $29, $4595
-	closetext
-	loadmovesprites
-	end
-; 0xbcd1b
-
-UnknownScript_0xbcd1b: ; 0xbcd1b
-	3writetext $29, $4e21
-	closetext
-	loadmovesprites
-	end
-; 0xbcd22
-
-UnknownScript_0xbcd22: ; 0xbcd22
-	3writetext $29, $58a3
-	closetext
-	loadmovesprites
-	end
-; 0xbcd29
-
-UnknownScript_0xbcd29: ; 0xbcd29
-	3writetext $29, $63f1
-	closetext
-	loadmovesprites
-	end
-; 0xbcd30
-
-UnknownScript_0xbcd30: ; 0xbcd30
-	checkcode $17
-	if_equal $6, $4d42
-	if_equal $15, UnknownScript_0xbcd48
-	if_equal $1a, UnknownScript_0xbcd4e
-	if_equal $1f, UnknownScript_0xbcd54
-	3writetext $6c, $4d2c
-	keeptextopen
-	end
-; 0xbcd48
-
-UnknownScript_0xbcd48: ; 0xbcd48
-	3writetext $29, $45c9
-	keeptextopen
-	end
-; 0xbcd4e
-
-UnknownScript_0xbcd4e: ; 0xbcd4e
-	3writetext $29, $4e4c
-	keeptextopen
-	end
-; 0xbcd54
-
-UnknownScript_0xbcd54: ; 0xbcd54
-	3writetext $29, $58d5
-	keeptextopen
-	end
-; 0xbcd5a
-
-UnknownScript_0xbcd5a: ; 0xbcd5a
-	checkcode $17
-	if_equal $6, $4d70
-	if_equal $15, UnknownScript_0xbcd77
-	if_equal $1a, UnknownScript_0xbcd7e
-	if_equal $1f, UnknownScript_0xbcd85
-	if_equal $24, UnknownScript_0xbcd8c
-	3writetext $6c, $4d69
-	closetext
-	loadmovesprites
-	end
-; 0xbcd77
-
-UnknownScript_0xbcd77: ; 0xbcd77
-	3writetext $29, $4603
-	closetext
-	loadmovesprites
-	end
-; 0xbcd7e
-
-UnknownScript_0xbcd7e: ; 0xbcd7e
-	3writetext $29, $4e8f
-	closetext
-	loadmovesprites
-	end
-; 0xbcd85
-
-UnknownScript_0xbcd85: ; 0xbcd85
-	3writetext $29, $5914
-	closetext
-	loadmovesprites
-	end
-; 0xbcd8c
-
-UnknownScript_0xbcd8c: ; 0xbcd8c
-	3writetext $29, $6411
-	closetext
-	loadmovesprites
-	end
-; 0xbcd93
-
-UnknownScript_0xbcd93: ; 0xbcd93
-	checkcode $17
-	if_equal $24, $4d99
-	loadfont
-	3writetext $29, $6454
-	keeptextopen
-	end
-; 0xbcda0
-
-UnknownScript_0xbcda0: ; 0xbcda0
-	mapnametotext $0
-	loadfont
-	3writetext $6c, $474e
-	closetext
-	loadmovesprites
-	end
-; 0xbcdaa
-
-UnknownScript_0xbcdaa: ; 0xbcdaa
-	mapnametotext $0
-	loadfont
-	3writetext $6c, $474e
-	keeptextopen
-	3writetext $6c, $475c
-	closetext
-	loadmovesprites
-	end
-; 0xbcdb9
-
-UnknownScript_0xbcdb9: ; 0xbcdb9
-	waitbutton
-	3writetext $6c, $4648
-	playsound $0001
-	waitbutton
-	end
-; 0xbcdc3
-
-UnknownScript_0xbcdc3: ; 0xbcdc3
-	waitbutton
-	3writetext $6c, $4648
-	playsound $0096
-	waitbutton
-	end
-; 0xbcdcd
-
-UnknownScript_0xbcdcd: ; 0xbcdcd
-	faceplayer
-	loadfont
-	3writetext $6c, $477f
-	keeptextopen
-	checkitem COIN_CASE
-	iftrue UnknownScript_0xbcde0
-	3writetext $6c, $479c
-	closetext
-	loadmovesprites
-	end
-; 0xbcde0
-
-UnknownScript_0xbcde0: ; 0xbcde0
-	3writetext $6c, $47e3
-	special $0050
-	loadmenudata $4e54
-	interpretmenu2
-	writebackup
-	if_equal $1, UnknownScript_0xbcdf7
-	if_equal $2, UnknownScript_0xbce1b
-	2jump UnknownScript_0xbce4d
-; 0xbcdf7
-
-UnknownScript_0xbcdf7: ; 0xbcdf7
-	checkcoins 9949
-	if_equal $0, UnknownScript_0xbce46
-	checkmoney $0, 1000
-	if_equal $2, UnknownScript_0xbce3f
-	givecoins 50
-	takemoney $0, 1000
-	waitbutton
-	playsound $0022
-	3writetext $6c, $4830
-	closetext
-	2jump $4de4
-; 0xbce1b
-
-UnknownScript_0xbce1b: ; 0xbce1b
-	checkcoins 9499
-	if_equal $0, UnknownScript_0xbce46
-	checkmoney $0, 10000
-	if_equal $2, UnknownScript_0xbce3f
-	givecoins 500
-	takemoney $0, 10000
-	waitbutton
-	playsound $0022
-	3writetext $6c, $484f
-	closetext
-	2jump $4de4
-; 0xbce3f
-
-UnknownScript_0xbce3f: ; 0xbce3f
-	3writetext $6c, $486f
-	closetext
-	loadmovesprites
-	end
-; 0xbce46
-
-UnknownScript_0xbce46: ; 0xbce46
-	3writetext $6c, $488c
-	closetext
-	loadmovesprites
-	end
-; 0xbce4d
-
-UnknownScript_0xbce4d: ; 0xbce4d
-	3writetext $6c, $48ad
-	closetext
-	loadmovesprites
-	end
-; 0xbce54
-
-INCBIN "baserom.gbc", $bce54, $bce7f - $bce54
-
-UnknownScript_0xbce7f: ; 0xbce7f
-	faceplayer
-	loadfont
-	special $0059
-	if_greater_than $32, UnknownScript_0xbce9a
-	if_greater_than $96, UnknownScript_0xbce93
-	3writetext $6c, $492a
-	closetext
-	loadmovesprites
-	end
-; 0xbce93
-
-UnknownScript_0xbce93: ; 0xbce93
-	3writetext $6c, $4954
-	closetext
-	loadmovesprites
-	end
-; 0xbce9a
-
-UnknownScript_0xbce9a: ; 0xbce9a
-	3writetext $6c, $4989
-	closetext
-	loadmovesprites
-	end
-; 0xbcea1
-
-MovementData_0xbcea1: ; bcea1
-	step_right
-	step_down
-	turn_head_up
-	step_end
-; bcea5
-
-UnusedPhoneScript: ; 0xbcea5
-	3writetext BANK(UnusedPhoneText), UnusedPhoneText
-	end
-
-MomPhoneScript: ; 0xbceaa
-	checkbit1 $0040
-	iftrue .bcec5
-	checkbit1 $0041 ; if dude talked to you, then you left home without talking to mom
-	iftrue MomPhoneLectureScript
-	checkbit1 $001f
-	iftrue MomPhoneNoGymQuestScript
-	checkbit1 $001a
-	iftrue MomPhoneNoPokedexScript
-	2jump MomPhoneNoPokemonScript
-
-.bcec5 ; 0xbcec5
-	checkbit1 $0007
-	iftrue MomPhoneHangUpScript
-	3writetext BANK(MomPhoneGreetingText), MomPhoneGreetingText
-	keeptextopen
-	mapnametotext $0
-	checkcode $f
-	if_equal $1, UnknownScript_0xbcee7
-	if_equal $2, $4f27
-	2jump UnknownScript_0xbcf2f
-
-UnknownScript_0xbcedf: ; 0xbcedf
-	3writetext $6d, $4021
-	keeptextopen
-	2jump UnknownScript_0xbcf37
-
-UnknownScript_0xbcee7: ; 0xbcee7
-	checkcode $c
-	if_equal GROUP_NEW_BARK_TOWN, .newbark
-	if_equal GROUP_CHERRYGROVE_CITY, .cherrygrove
-	if_equal GROUP_VIOLET_CITY, .violet
-	if_equal GROUP_AZALEA_TOWN, .azalea
-	if_equal GROUP_GOLDENROD_CITY, .goldenrod
-	3writetext BANK(MomPhoneGenericAreaText), MomPhoneGenericAreaText
-	keeptextopen
-	2jump UnknownScript_0xbcf37
-
-.newbark ; 0xbcf05
-	3writetext BANK(MomPhoneNewBarkText), MomPhoneNewBarkText
-	keeptextopen
-	2jump UnknownScript_0xbcf37
-
-.cherrygrove ; 0xbcf0d
-	3writetext BANK(MomPhoneCherrygroveText), MomPhoneCherrygroveText
-	keeptextopen
-	2jump UnknownScript_0xbcf37
-
-.violet ; 0xbcf15
-	displaylocation $7 ; sprout tower
-	3call $3, UnknownScript_0xbcedf
-.azalea ; 0xbcf1b
-	displaylocation $d ; slowpoke well
-	3call $3, UnknownScript_0xbcedf
-.goldenrod ; 0xbcf21
-	displaylocation $11 ; radio tower
-	3call $3, UnknownScript_0xbcedf
-	3writetext $6d, $411c
-	keeptextopen
-	2jump UnknownScript_0xbcf37
-
-UnknownScript_0xbcf2f: ; 0xbcf2f
-	3writetext $6d, $4150
-	keeptextopen
-	2jump UnknownScript_0xbcf37
-
-UnknownScript_0xbcf37: ; 0xbcf37
-	checkbit2 $0008
-	iffalse UnknownScript_0xbcf49
-	checkmoney $1, 0
-	if_equal $0, UnknownScript_0xbcf55
-	2jump UnknownScript_0xbcf63
-
-UnknownScript_0xbcf49: ; 0xbcf49
-	checkmoney $1, 0
-	if_equal $0, UnknownScript_0xbcf79
-	2jump UnknownScript_0xbcf6e
-
-UnknownScript_0xbcf55: ; 0xbcf55
-	readmoney $1, $0
-	3writetext $6d, $41a7
-	yesorno
-	iftrue MomPhoneSaveMoneyScript
-	2jump MomPhoneWontSaveMoneyScript
-
-UnknownScript_0xbcf63: ; 0xbcf63
-	3writetext $6d, $41ea
-	yesorno
-	iftrue MomPhoneSaveMoneyScript
-	2jump MomPhoneWontSaveMoneyScript
-
-UnknownScript_0xbcf6e: ; 0xbcf6e
-	3writetext $6d, $420d
-	yesorno
-	iftrue MomPhoneSaveMoneyScript
-	2jump MomPhoneWontSaveMoneyScript
-
-UnknownScript_0xbcf79: ; 0xbcf79
-	readmoney $1, $0
-	3writetext $6d, $4249
-	yesorno
-	iftrue MomPhoneSaveMoneyScript
-	2jump MomPhoneWontSaveMoneyScript
-
-MomPhoneSaveMoneyScript: ; 0xbcf87
-	setbit2 $0008
-	3writetext $6d, $4289
-	keeptextopen
-	2jump MomPhoneHangUpScript
-
-MomPhoneWontSaveMoneyScript: ; 0xbcf92
-	clearbit2 $0008
-	3writetext BANK(MomPhoneWontSaveMoneyText), MomPhoneWontSaveMoneyText
-	keeptextopen
-	2jump MomPhoneHangUpScript
-
-MomPhoneHangUpScript: ; 0xbcf9d
-	3writetext BANK(MomPhoneHangUpText), MomPhoneHangUpText
-	end
-
-MomPhoneNoPokemonScript: ; 0xbcfa2
-	3writetext BANK(MomPhoneNoPokemonText), MomPhoneNoPokemonText
-	end
-
-MomPhoneNoPokedexScript: ; 0xbcfa7
-	3writetext BANK(MomPhoneNoPokedexText), MomPhoneNoPokedexText
-	end
-
-MomPhoneNoGymQuestScript: ; 0xbcfac
-	3writetext BANK(MomPhoneNoGymQuestText), MomPhoneNoGymQuestText
-	end
-
-MomPhoneLectureScript: ; 0xbcfb1
-	setbit1 $0040
-	setbit2 $0009
-	specialphonecall $0000
-	3writetext BANK(MomPhoneLectureText), MomPhoneLectureText
-	yesorno
-	iftrue MomPhoneSaveMoneyScript
-	2jump MomPhoneWontSaveMoneyScript
-
-BillPhoneScript1: ; 0xbcfc5
-	checktime $2
-	iftrue .daygreet
-	checktime $4
-	iftrue .nitegreet
-	3writetext BANK(BillPhoneMornGreetingText), BillPhoneMornGreetingText
-	keeptextopen
-	2jump .main
-
-.daygreet ; 0xbcfd7
-	3writetext BANK(BillPhoneDayGreetingText), BillPhoneDayGreetingText
-	keeptextopen
-	2jump .main
-
-.nitegreet ; 0xbcfdf
-	3writetext BANK(BillPhoneNiteGreetingText), BillPhoneNiteGreetingText
-	keeptextopen
-	2jump .main
-
-.main ; 0xbcfe7
-	3writetext BANK(BillPhoneGeneriText), BillPhoneGeneriText
-	keeptextopen
-	checkcode $10
-	RAM2MEM $0
-	if_equal $0, .full
-	if_greater_than $6, .nearlyfull
-	3writetext BANK(BillPhoneNotFullText), BillPhoneNotFullText
-	end
-
-.nearlyfull ; 0xbcffd
-	3writetext BANK(BillPhoneNearlyFullText), BillPhoneNearlyFullText
-	end
-
-.full ; 0xbd002
-	3writetext BANK(BillPhoneFullText), BillPhoneFullText
-	end
-
-BillPhoneScript2: ; 0xbd007
-	3writetext BANK(BillPhoneNewlyFullText), BillPhoneNewlyFullText
-	closetext
-	end
-
-ElmPhoneScript1: ; 0xbd00d
-	checkcode $14
-	if_equal $1, .pokerus
-	checkbit1 $0055
-	iftrue .discovery
-	checkbit1 $002d
-	iffalse .next
-	checkbit1 $0054
-	iftrue .egghatched
-.next
-	checkbit1 $002d
-	iftrue .eggunhatched
-	checkbit1 $0701
-	iftrue .assistant
-	checkbit1 $001f
-	iftrue .checkingegg
-	checkbit1 $0043
-	iftrue .stolen
-	checkbit1 $001e
-	iftrue .sawmrpokemon
-	3writetext BANK(ElmPhoneStartText), ElmPhoneStartText
-	end
-
-.sawmrpokemon ; 0xbd048
-	3writetext BANK(ElmPhoneSawMrPokemonText), ElmPhoneSawMrPokemonText
-	end
-
-.stolen ; 0xbd04d
-	3writetext BANK(ElmPhonePokemonStolenText), ElmPhonePokemonStolenText
-	end
-
-.checkingegg ; 0xbd052
-	3writetext BANK(ElmPhoneCheckingEggText), ElmPhoneCheckingEggText
-	end
-
-.assistant ; 0xbd057
-	3writetext BANK(ElmPhoneAssistantText), ElmPhoneAssistantText
-	end
-
-.eggunhatched ; 0xbd05c
-	3writetext BANK(ElmPhoneEggUnhatchedText), ElmPhoneEggUnhatchedText
-	end
-
-.egghatched ; 0xbd061
-	3writetext BANK(ElmPhoneEggHatchedText), ElmPhoneEggHatchedText
-	setbit1 $0077
-	end
-
-.discovery ; 0xbd069
-	random $2
-	if_equal $0, .nextdiscovery
-	3writetext BANK(ElmPhoneDiscovery1Text), ElmPhoneDiscovery1Text
-	end
-
-.nextdiscovery ; 0xbd074
-	3writetext BANK(ElmPhoneDiscovery2Text), ElmPhoneDiscovery2Text
-	end
-
-.pokerus ; 0xbd079
-	3writetext BANK(ElmPhonePokerusText), ElmPhonePokerusText
-	specialphonecall $0000
-	end
-
-ElmPhoneScript2: ; 0xbd081
-	checkcode $14
-	if_equal $2, .disaster
-	if_equal $3, .assistant
-	if_equal $4, .rocket
-	if_equal $5, .gift
-	if_equal $8, .gift
-	3writetext BANK(ElmPhonePokerusText), ElmPhonePokerusText
-	specialphonecall $0000
-	end
-
-.disaster ; 0xbd09f
-	3writetext BANK(ElmPhoneDisasterText), ElmPhoneDisasterText
-	specialphonecall $0000
-	setbit1 $0043
-	end
-
-.assistant ; 0xbd0aa
-	3writetext BANK(ElmPhoneEggAssistantText), ElmPhoneEggAssistantText
-	specialphonecall $0000
-	clearbit1 $0700
-	setbit1 $0701
-	end
-
-.rocket ; 0xbd0b8
-	3writetext BANK(ElmPhoneRocketText), ElmPhoneRocketText
-	specialphonecall $0000
-	end
-
-.gift ; 0xbd0c0
-	3writetext BANK(ElmPhoneGiftText), ElmPhoneGiftText
-	specialphonecall $0000
-	end
-
-.unused ; 0xbd0c8
-	3writetext BANK(ElmPhoneUnusedText), ElmPhoneUnusedText
-	specialphonecall $0000
-	end
+INCLUDE "engine/std_scripts.asm"
 
 INCBIN "baserom.gbc", $bd0d0, $be699-$bd0d0
 
--- a/wram.asm
+++ b/wram.asm
@@ -477,7 +477,10 @@
 BattleMonType2: ; c64b
 	ds 1
 
-	ds 23
+	ds 10
+
+OTName: ; c656
+	ds 13
 
 CurOTMon: ; c663
 	ds 1