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

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

1 files changed, 214 insertions, 2642 deletions

diff --git a/main.asm b/main.asm
index 60937fb52..c8de660b8 100644
--- a/main.asm
+++ b/main.asm
@@ -14999,7 +14999,7 @@ PredefPointers: ; 856b
 	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 @@ Function2c7fb: ; 2c7fb
 INCBIN "baserom.gbc", $2c867, $2cb3e - $2c867
 
 
-PrintMoveDescription: ; 2cb3e
+PrintMoveDesc: ; 2cb3e
 	push hl
 	ld hl, MoveDescriptions
 	ld a, [CurSpecies]
@@ -59296,7 +59296,121 @@ Dark:
 ; 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
@@ -72429,40 +72543,46 @@ Functionb81e2: ; b81e2
 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]
 	ld d, a
 .loop
 	ld a, [hli]
-	cp a, $ff
+	cp $ff
 	jr z, .quit
 	cp d
 	jr nz, .skip2
@@ -72486,55 +72606,60 @@ GetTreeMonEncounterTable: ; b823f
 
 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 @@ WildTreeMonTable1: ; b82fa
 	db $ff ; end
 ; b830d
 
-WildTreeMonTable2 ; b830d
+TreeMons2 ; b830d
 ; unused
 	db 50, SPEAROW, 10
 	db 15, HERACROSS, 10
@@ -72555,7 +72680,7 @@ WildTreeMonTable2 ; b830d
 	db $ff ; end
 ; b8320
 
-WildTreeMonTable3: ; b8320
+TreeMons3: ; b8320
 	db 50, SPEAROW, 10
 	db 15, EKANS, 10
 	db 15, SPEAROW, 10
@@ -72565,7 +72690,7 @@ WildTreeMonTable3: ; b8320
 	db $ff ; end
 ; b8333
 
-WildTreeMonTable4: ; b8333
+TreeMons4: ; b8333
 ; unused
 	db 50, SPEAROW, 10
 	db 15, HERACROSS, 10
@@ -72576,7 +72701,7 @@ WildTreeMonTable4: ; b8333
 	db $ff ; end
 ; b8346
 
-WildTreeMonTable5: ; b8346
+TreeMons5: ; b8346
 	db 50, HOOTHOOT, 10
 	db 15, SPINARAK, 10
 	db 15, LEDYBA, 10
@@ -72586,7 +72711,7 @@ WildTreeMonTable5: ; b8346
 	db $ff ; end
 ; b8359
 
-WildTreeMonTable6: ; b8359
+TreeMons6: ; b8359
 ; unused
 	db 50, HOOTHOOT, 10
 	db 15, PINECO, 10
@@ -72597,7 +72722,7 @@ WildTreeMonTable6: ; b8359
 	db $ff ; end
 ; b836c
 
-WildTreeMonTable7: ; b836c
+TreeMons7: ; b836c
 	db 50, HOOTHOOT, 10
 	db 15, EKANS, 10
 	db 15, HOOTHOOT, 10
@@ -72607,7 +72732,7 @@ WildTreeMonTable7: ; b836c
 	db $ff ; end
 ; b837f
 
-WildTreeMonTable8: ; b837f
+TreeMons8: ; b837f
 ; unused
 	db 50, HOOTHOOT, 10
 	db 15, PINECO, 10
@@ -72618,7 +72743,7 @@ WildTreeMonTable8: ; b837f
 	db $ff ; end
 ; b8392
 
-WildTreeMonTable9: ; b8392
+TreeMons9: ; b8392
 	db 50, HOOTHOOT, 10
 	db 15, VENONAT, 10
 	db 15, HOOTHOOT, 10
@@ -72628,7 +72753,7 @@ WildTreeMonTable9: ; b8392
 	db $ff ; end
 ; b83a5
 
-WildTreeMonTable10: ; b83a5
+TreeMons10: ; b83a5
 ; unused
 	db 50, HOOTHOOT, 10
 	db 15, PINECO, 10
@@ -72639,7 +72764,7 @@ WildTreeMonTable10: ; b83a5
 	db $ff ; end
 ; b83b8
 
-WildTreeMonTable11: ; b83b8
+TreeMons11: ; b83b8
 	db 50, HOOTHOOT, 10
 	db 15, PINECO, 10
 	db 15, PINECO, 10
@@ -72649,7 +72774,7 @@ WildTreeMonTable11: ; b83b8
 	db $ff ; end
 ; b83cb
 
-WildTreeMonTable12; b83cb
+TreeMons12; b83cb
 ; unused
 	db 50, HOOTHOOT, 10
 	db 15, CATERPIE, 10
@@ -72660,13 +72785,46 @@ WildTreeMonTable12; b83cb
 	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
@@ -72850,2593 +73008,7 @@ ItemIsMail: ; b9e76
 
 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