14 files changed, 824 insertions, 818 deletions

diff --git a/engine/buena_phone_scripts.asm b/engine/buena_phone_scripts.asm
index 3c0717503..98a7b72a3 100644
--- a/engine/buena_phone_scripts.asm
+++ b/engine/buena_phone_scripts.asm
@@ -1,168 +1,170 @@
 BuenaPhoneScript1:
 	checkflag ENGINE_ROCKETS_IN_RADIO_TOWER
-	iftrue UnknownScript_0xa0b73
+	iftrue BuenaPhoneScript_Rocket
 	checkcode VAR_HOUR
-	if_greater_than 17, UnknownScript_0xa0b4b
-	scall UnknownScript_0xa0b32
-	jump UnknownScript_0xa0c0e
+	if_greater_than 17, BuenaPhoneScript_AfterMidnight1
+	scall BuenaPhoneScript_CheckTimeOfDay1
+	jump BuenaPhoneScript_Random1
 
 BuenaPhoneScript2:
 	checkflag ENGINE_ROCKETS_IN_RADIO_TOWER
-	iftrue UnknownScript_0xa0b73
-	scall UnknownScript_0xa0b4f
-	jump UnknownScript_0xa0b77
+	iftrue BuenaPhoneScript_Rocket
+	scall BuenaPhoneScript_CheckTimeOfDay2
+	jump BuenaPhoneScript_Random2
 
-UnknownScript_0xa0b32:
+BuenaPhoneScript_CheckTimeOfDay1:
 	checkmorn
-	iftrue UnknownScript_0xa0b41
+	iftrue .morn
 	checkday
-	iftrue UnknownScript_0xa0b46
+	iftrue .day
 	writetext UnknownText_0xa0d42
 	keeptextopen
 	end
 
-UnknownScript_0xa0b41:
+.morn:
 	writetext UnknownText_0xa0c28
 	keeptextopen
 	end
 
-UnknownScript_0xa0b46:
+.day:
 	writetext UnknownText_0xa0c72
 	keeptextopen
 	end
 
-UnknownScript_0xa0b4b:
+BuenaPhoneScript_AfterMidnight1:
 	writetext UnknownText_0xa0caf
 	end
 
-UnknownScript_0xa0b4f:
+BuenaPhoneScript_CheckTimeOfDay2:
 	checkcode VAR_HOUR
-	if_greater_than 17, UnknownScript_0xa0b6e
+	if_greater_than 17, BuenaPhoneScript_AfterMidnight2
 	checkmorn
-	iftrue UnknownScript_0xa0b64
+	iftrue .morn
 	checkday
-	iftrue UnknownScript_0xa0b69
+	iftrue .day
 	writetext UnknownText_0xa0e29
 	keeptextopen
 	end
 
-UnknownScript_0xa0b64:
+.morn:
 	writetext UnknownText_0xa0d96
 	keeptextopen
 	end
 
-UnknownScript_0xa0b69:
+.day:
 	writetext UnknownText_0xa0dcf
 	keeptextopen
 	end
 
-UnknownScript_0xa0b6e:
+BuenaPhoneScript_AfterMidnight2:
 	writetext UnknownText_0xa0e01
 	keeptextopen
 	end
 
-UnknownScript_0xa0b73:
+BuenaPhoneScript_Rocket:
 	writetext UnknownText_0xa0e5e
 	end
 
-UnknownScript_0xa0b77:
+BuenaPhoneScript_Random2:
 	checkevent EVENT_BEAT_ELITE_FOUR
-	iftrue UnknownScript_0xa0b82
+	iftrue .PostE4
 	random 11
-	jump UnknownScript_0xa0b84
+	jump .Jumptable
 
-UnknownScript_0xa0b82:
+.PostE4:
 	random 14
 
-UnknownScript_0xa0b84:
-	if_equal 0, UnknownScript_0xa0bbc
-	if_equal 1, UnknownScript_0xa0bc2
-	if_equal 2, UnknownScript_0xa0bc8
-	if_equal 3, UnknownScript_0xa0bce
-	if_equal 4, UnknownScript_0xa0bd4
-	if_equal 5, UnknownScript_0xa0bda
-	if_equal 6, UnknownScript_0xa0be0
-	if_equal 7, UnknownScript_0xa0be6
-	if_equal 8, UnknownScript_0xa0bec
-	if_equal 9, UnknownScript_0xa0bf2
-	if_equal 10, UnknownScript_0xa0bf8
-	if_equal 11, UnknownScript_0xa0bfe
-	if_equal 12, UnknownScript_0xa0c04
-	if_equal 13, UnknownScript_0xa0c0a
-
-UnknownScript_0xa0bbc:
+.Jumptable:
+	if_equal 0, .zero
+	if_equal 1, .one
+	if_equal 2, .two
+	if_equal 3, .three
+	if_equal 4, .four
+	if_equal 5, .five
+	if_equal 6, .six
+	if_equal 7, .seven
+	if_equal 8, .eight
+	if_equal 9, .nine
+	if_equal 10, .ten
+	if_equal 11, .eleven
+	if_equal 12, .twelve
+	if_equal 13, .thirteen
+
+.zero:
 	writetext UnknownText_0xa0efb
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0bc2:
+.one:
 	writetext UnknownText_0xa0fcf
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0bc8:
+.two:
 	writetext UnknownText_0xa109d
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0bce:
+.three:
 	writetext UnknownText_0xa1143
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0bd4:
+.four:
 	writetext UnknownText_0xa1244
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0bda:
+.five:
 	writetext UnknownText_0xa1318
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0be0:
+.six:
 	writetext UnknownText_0xa13d8
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0be6:
+.seven:
 	writetext UnknownText_0xa1488
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0bec:
+.eight:
 	writetext UnknownText_0xa15de
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0bf2:
+.nine:
 	writetext UnknownText_0xa1717
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0bf8:
+.ten:
 	writetext UnknownText_0xa183d
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0bfe:
+.eleven:
 	writetext UnknownText_0xa19b1
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0c04:
+.twelve:
 	writetext UnknownText_0xa1ac0
-	jump UnknownScript_0xa0c0d
+	jump .finish
 
-UnknownScript_0xa0c0a:
+.thirteen:
 	writetext UnknownText_0xa1bed
 
-UnknownScript_0xa0c0d:
+.finish:
 	end
 
-UnknownScript_0xa0c0e:
+BuenaPhoneScript_Random1:
 	random 3
-	if_equal 0, UnknownScript_0xa0c1c
-	if_equal 1, UnknownScript_0xa0c20
-	if_equal 2, UnknownScript_0xa0c24
+	if_equal 0, .zero
+	if_equal 1, .one
+	if_equal 2, .two
 
-UnknownScript_0xa0c1c:
+.zero:
 	writetext UnknownText_0xa1c88
 	end
 
-UnknownScript_0xa0c20:
+.one:
 	writetext UnknownText_0xa1d5f
 	end
 
-UnknownScript_0xa0c24:
+.two:
 	writetext UnknownText_0xa1e2f
 	end
 ; a0c28
+
+INCLUDE "text/phone/buena.asm"
diff --git a/engine/link.asm b/engine/link.asm
index c50a6ff42..27a9ebcc4 100755
--- a/engine/link.asm
+++ b/engine/link.asm
@@ -1916,7 +1916,7 @@ Function28b87: ; 28b87
 	ld de, TempMonSpecies
 	ld bc, PARTYMON_STRUCT_LENGTH
 	call CopyBytes
-	predef Functionda96
+	predef AddTempmonToParty
 	ld a, [PartyCount]
 	dec a
 	ld [CurPartyMon], a
diff --git a/engine/map_objects.asm b/engine/map_objects.asm
index ef8878565..168c5389c 100644
--- a/engine/map_objects.asm
+++ b/engine/map_objects.asm
@@ -3078,16 +3078,18 @@ ContinueSpawnFacing: ; 57db
 	ret
 ; 57e2
 
-Function57e2: ; 57e2
+SetPlayerPalette: ; 57e2
 	ld a, d
 	and %10000000
 	ret z
+
 	ld bc, 0 ; debug?
 	ld hl, OBJECT_FACING
 	add hl, bc
 	ld a, [hl]
 	or d
 	ld [hl], a
+
 	ld a, d
 	swap a
 	and %00000111
diff --git a/engine/more_phone_scripts.asm b/engine/more_phone_scripts.asm
index 5bc1f1560..f0c835e92 100644
--- a/engine/more_phone_scripts.asm
+++ b/engine/more_phone_scripts.asm
@@ -56,468 +56,468 @@ UnknownScript_0xa0074:
 
 UnknownScript_0xa007c:
 	checkcode VAR_CALLERID
-	if_equal $5, UnknownScript_0xa00c2
-	if_equal $b, UnknownScript_0xa00c8
-	if_equal $d, UnknownScript_0xa00ce
-	if_equal $f, UnknownScript_0xa00d4
-	if_equal $10, UnknownScript_0xa00da
-	if_equal $11, UnknownScript_0xa00e0
-	if_equal $13, UnknownScript_0xa00e6
-	if_equal $14, UnknownScript_0xa00ec
-	if_equal $17, UnknownScript_0xa00f2
-	if_equal $18, UnknownScript_0xa00f8
-	if_equal $1b, UnknownScript_0xa00fe
-	if_equal $1c, UnknownScript_0xa0104
-	if_equal $1d, UnknownScript_0xa010a
-	if_equal $1e, UnknownScript_0xa0110
-	if_equal $20, UnknownScript_0xa0116
-	if_equal $21, UnknownScript_0xa011c
-	if_equal $23, UnknownScript_0xa0122
-
-UnknownScript_0xa00c2:
+	if_equal PHONE_SCHOOLBOY_JACK, .Jack
+	if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_YOUNGSTER_JOEY, .Joey
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_FISHER_RALPH, .Ralph
+	if_equal PHONE_HIKER_ANTHONY, .Anthony
+	if_equal PHONE_CAMPER_TODD, .Todd
+	if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_SCHOOLBOY_CHAD, .Chad
+	if_equal PHONE_POKEFANM_DEREK, .Derek
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_POKEMANIAC_BRENT, .Brent
+	if_equal PHONE_BIRDKEEPER_VANCE, .Vance
+	if_equal PHONE_FISHER_WILTON, .Wilton
+	if_equal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
 	farwritetext UnknownText_0x1740c0
 	keeptextopen
 	end
 
-UnknownScript_0xa00c8:
+.Gaven:
 	farwritetext UnknownText_0x174a24
 	keeptextopen
 	end
 
-UnknownScript_0xa00ce:
+.Jose:
 	farwritetext UnknownText_0x174f2f
 	keeptextopen
 	end
 
-UnknownScript_0xa00d4:
+.Joey:
 	farwritetext UnknownText_0x175530
 	keeptextopen
 	end
 
-UnknownScript_0xa00da:
+.Wade:
 	farwritetext UnknownText_0x1757d4
 	keeptextopen
 	end
 
-UnknownScript_0xa00e0:
+.Ralph:
 	farwritetext UnknownText_0x175bc4
 	keeptextopen
 	end
 
-UnknownScript_0xa00e6:
+.Anthony:
 	farwritetext UnknownText_0x176a2f
 	keeptextopen
 	end
 
-UnknownScript_0xa00ec:
+.Todd:
 	farwritetext UnknownText_0x176e5d
 	keeptextopen
 	end
 
-UnknownScript_0xa00f2:
+.Arnie:
 	farwritetext UnknownText_0x649dc
 	keeptextopen
 	end
 
-UnknownScript_0xa00f8:
+.Alan:
 	farwritetext UnknownText_0x64cbd
 	keeptextopen
 	end
 
-UnknownScript_0xa00fe:
+.Chad:
 	farwritetext UnknownText_0x65271
 	keeptextopen
 	end
 
-UnknownScript_0xa0104:
+.Derek:
 	farwritetext UnknownText_0x65ab2
 	keeptextopen
 	end
 
-UnknownScript_0xa010a:
+.Tully:
 	farwritetext UnknownText_0x65de4
 	keeptextopen
 	end
 
-UnknownScript_0xa0110:
+.Brent:
 	farwritetext UnknownText_0x660be
 	keeptextopen
 	end
 
-UnknownScript_0xa0116:
+.Vance:
 	farwritetext UnknownText_0x66980
 	keeptextopen
 	end
 
-UnknownScript_0xa011c:
+.Wilton:
 	farwritetext UnknownText_0x66afc
 	keeptextopen
 	end
 
-UnknownScript_0xa0122:
+.Parry:
 	farwritetext UnknownText_0x66f9f
 	keeptextopen
 	end
 
 UnknownScript_0xa0128:
 	checkcode VAR_CALLERID
-	if_equal $6, UnknownScript_0xa014a
-	if_equal $c, UnknownScript_0xa0150
-	if_equal $e, UnknownScript_0xa0156
-	if_equal $12, UnknownScript_0xa015c
-	if_equal $15, UnknownScript_0xa0162
-	if_equal $1a, UnknownScript_0xa0168
-	if_equal $1f, UnknownScript_0xa016e
-	if_equal $24, UnknownScript_0xa0174
-
-UnknownScript_0xa014a:
+	if_equal PHONE_POKEFAN_BEVERLY, .Beverly
+	if_equal PHONE_COOLTRAINERF_BETH, .Beth
+	if_equal PHONE_COOLTRAINERF_REENA, .Reena
+	if_equal PHONE_PICNICKER_LIZ, .Liz
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
+	if_equal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
 	farwritetext UnknownText_0x174688
 	keeptextopen
 	end
 
-UnknownScript_0xa0150:
+.Beth:
 	farwritetext UnknownText_0x174c7f
 	keeptextopen
 	end
 
-UnknownScript_0xa0156:
+.Reena:
 	farwritetext UnknownText_0x1752f5
 	keeptextopen
 	end
 
-UnknownScript_0xa015c:
+.Liz:
 	farwritetext UnknownText_0x175fda
 	keeptextopen
 	end
 
-UnknownScript_0xa0162:
+.Gina:
 	farwritetext UnknownText_0x1771fd
 	keeptextopen
 	end
 
-UnknownScript_0xa0168:
+.Dana:
 	farwritetext UnknownText_0x64f74
 	keeptextopen
 	end
 
-UnknownScript_0xa016e:
+.Tiffany:
 	farwritetext UnknownText_0x665ad
 	keeptextopen
 	end
 
-UnknownScript_0xa0174:
+.Erin:
 	farwritetext UnknownText_0x6717a
 	keeptextopen
 	end
 
 UnknownScript_0xa017a:
 	checkcode VAR_CALLERID
-	if_equal $5, UnknownScript_0xa01c0
-	if_equal $b, UnknownScript_0xa01c6
-	if_equal $d, UnknownScript_0xa01cc
-	if_equal $f, UnknownScript_0xa01d2
-	if_equal $10, UnknownScript_0xa01d8
-	if_equal $11, UnknownScript_0xa01de
-	if_equal $13, UnknownScript_0xa01e4
-	if_equal $14, UnknownScript_0xa01ea
-	if_equal $17, UnknownScript_0xa01f0
-	if_equal $18, UnknownScript_0xa01f6
-	if_equal $1b, UnknownScript_0xa01fc
-	if_equal $1c, UnknownScript_0xa0202
-	if_equal $1d, UnknownScript_0xa0208
-	if_equal $1e, UnknownScript_0xa020e
-	if_equal $20, UnknownScript_0xa0214
-	if_equal $21, UnknownScript_0xa021a
-	if_equal $23, UnknownScript_0xa0220
-
-UnknownScript_0xa01c0:
+	if_equal PHONE_SCHOOLBOY_JACK, .Jack
+	if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_YOUNGSTER_JOEY, .Joey
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_FISHER_RALPH, .Ralph
+	if_equal PHONE_HIKER_ANTHONY, .Anthony
+	if_equal PHONE_CAMPER_TODD, .Todd
+	if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_SCHOOLBOY_CHAD, .Chad
+	if_equal PHONE_POKEFANM_DEREK, .Derek
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_POKEMANIAC_BRENT, .Brent
+	if_equal PHONE_BIRDKEEPER_VANCE, .Vance
+	if_equal PHONE_FISHER_WILTON, .Wilton
+	if_equal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
 	farwritetext UnknownText_0x174106
 	keeptextopen
 	end
 
-UnknownScript_0xa01c6:
+.Gaven:
 	farwritetext UnknownText_0x174a80
 	keeptextopen
 	end
 
-UnknownScript_0xa01cc:
+.Jose:
 	farwritetext UnknownText_0x174f90
 	keeptextopen
 	end
 
-UnknownScript_0xa01d2:
+.Joey:
 	farwritetext UnknownText_0x175591
 	keeptextopen
 	end
 
-UnknownScript_0xa01d8:
+.Wade:
 	farwritetext UnknownText_0x175869
 	keeptextopen
 	end
 
-UnknownScript_0xa01de:
+.Ralph:
 	farwritetext UnknownText_0x175c24
 	keeptextopen
 	end
 
-UnknownScript_0xa01e4:
+.Anthony:
 	farwritetext UnknownText_0x176aef
 	keeptextopen
 	end
 
-UnknownScript_0xa01ea:
+.Todd:
 	farwritetext UnknownText_0x176e9c
 	keeptextopen
 	end
 
-UnknownScript_0xa01f0:
+.Arnie:
 	farwritetext UnknownText_0x64a13
 	keeptextopen
 	end
 
-UnknownScript_0xa01f6:
+.Alan:
 	farwritetext UnknownText_0x64cf3
 	keeptextopen
 	end
 
-UnknownScript_0xa01fc:
+.Chad:
 	farwritetext UnknownText_0x65318
 	keeptextopen
 	end
 
-UnknownScript_0xa0202:
+.Derek:
 	farwritetext UnknownText_0x65b29
 	keeptextopen
 	end
 
-UnknownScript_0xa0208:
+.Tully:
 	farwritetext UnknownText_0x65e42
 	keeptextopen
 	end
 
-UnknownScript_0xa020e:
+.Brent:
 	farwritetext UnknownText_0x6613c
 	keeptextopen
 	end
 
-UnknownScript_0xa0214:
+.Vance:
 	farwritetext UnknownText_0x669b2
 	keeptextopen
 	end
 
-UnknownScript_0xa021a:
+.Wilton:
 	farwritetext UnknownText_0x66b3e
 	keeptextopen
 	end
 
-UnknownScript_0xa0220:
+.Parry:
 	farwritetext UnknownText_0x66fc0
 	keeptextopen
 	end
 
 UnknownScript_0xa0226:
 	checkcode VAR_CALLERID
-	if_equal $6, UnknownScript_0xa0248
-	if_equal $c, UnknownScript_0xa024e
-	if_equal $e, UnknownScript_0xa0254
-	if_equal $12, UnknownScript_0xa025a
-	if_equal $15, UnknownScript_0xa0260
-	if_equal $1a, UnknownScript_0xa0266
-	if_equal $1f, UnknownScript_0xa026c
-	if_equal $24, UnknownScript_0xa0272
-
-UnknownScript_0xa0248:
+	if_equal PHONE_POKEFAN_BEVERLY, .Beverly
+	if_equal PHONE_COOLTRAINERF_BETH, .Beth
+	if_equal PHONE_COOLTRAINERF_REENA, .Reena
+	if_equal PHONE_PICNICKER_LIZ, .Liz
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
+	if_equal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
 	farwritetext UnknownText_0x1746c3
 	keeptextopen
 	end
 
-UnknownScript_0xa024e:
+.Beth:
 	farwritetext UnknownText_0x174cf6
 	keeptextopen
 	end
 
-UnknownScript_0xa0254:
+.Reena:
 	farwritetext UnknownText_0x17536b
 	keeptextopen
 	end
 
-UnknownScript_0xa025a:
+.Liz:
 	farwritetext UnknownText_0x17602d
 	keeptextopen
 	end
 
-UnknownScript_0xa0260:
+.Gina:
 	farwritetext UnknownText_0x177237
 	keeptextopen
 	end
 
-UnknownScript_0xa0266:
+.Dana:
 	farwritetext UnknownText_0x64fb2
 	keeptextopen
 	end
 
-UnknownScript_0xa026c:
+.Tiffany:
 	farwritetext UnknownText_0x66605
 	keeptextopen
 	end
 
-UnknownScript_0xa0272:
+.Erin:
 	farwritetext UnknownText_0x671a4
 	keeptextopen
 	end
 
 UnknownScript_0xa0278:
 	checkcode VAR_CALLERID
-	if_equal $5, UnknownScript_0xa02be
-	if_equal $b, UnknownScript_0xa02c4
-	if_equal $d, UnknownScript_0xa02ca
-	if_equal $f, UnknownScript_0xa02d0
-	if_equal $10, UnknownScript_0xa02d6
-	if_equal $11, UnknownScript_0xa02dc
-	if_equal $13, UnknownScript_0xa02e2
-	if_equal $14, UnknownScript_0xa02e8
-	if_equal $17, UnknownScript_0xa02ee
-	if_equal $18, UnknownScript_0xa02f4
-	if_equal $1b, UnknownScript_0xa02fa
-	if_equal $1c, UnknownScript_0xa0300
-	if_equal $1d, UnknownScript_0xa0306
-	if_equal $1e, UnknownScript_0xa030c
-	if_equal $20, UnknownScript_0xa0312
-	if_equal $21, UnknownScript_0xa0318
-	if_equal $23, UnknownScript_0xa031e
-
-UnknownScript_0xa02be:
+	if_equal PHONE_SCHOOLBOY_JACK, .Jack
+	if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_YOUNGSTER_JOEY, .Joey
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_FISHER_RALPH, .Ralph
+	if_equal PHONE_HIKER_ANTHONY, .Anthony
+	if_equal PHONE_CAMPER_TODD, .Todd
+	if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_SCHOOLBOY_CHAD, .Chad
+	if_equal PHONE_POKEFANM_DEREK, .Derek
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_POKEMANIAC_BRENT, .Brent
+	if_equal PHONE_BIRDKEEPER_VANCE, .Vance
+	if_equal PHONE_FISHER_WILTON, .Wilton
+	if_equal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
 	farwritetext UnknownText_0x174165
 	keeptextopen
 	end
 
-UnknownScript_0xa02c4:
+.Gaven:
 	farwritetext UnknownText_0x174b2d
 	keeptextopen
 	end
 
-UnknownScript_0xa02ca:
+.Jose:
 	farwritetext UnknownText_0x174ffd
 	keeptextopen
 	end
 
-UnknownScript_0xa02d0:
+.Joey:
 	farwritetext UnknownText_0x175611
 	keeptextopen
 	end
 
-UnknownScript_0xa02d6:
+.Wade:
 	farwritetext UnknownText_0x1758e4
 	keeptextopen
 	end
 
-UnknownScript_0xa02dc:
+.Ralph:
 	farwritetext UnknownText_0x175c9f
 	keeptextopen
 	end
 
-UnknownScript_0xa02e2:
+.Anthony:
 	farwritetext UnknownText_0x176b45
 	keeptextopen
 	end
 
-UnknownScript_0xa02e8:
+.Todd:
 	farwritetext UnknownText_0x176eee
 	keeptextopen
 	end
 
-UnknownScript_0xa02ee:
+.Arnie:
 	farwritetext UnknownText_0x64a71
 	keeptextopen
 	end
 
-UnknownScript_0xa02f4:
+.Alan:
 	farwritetext UnknownText_0x64d4f
 	keeptextopen
 	end
 
-UnknownScript_0xa02fa:
+.Chad:
 	farwritetext UnknownText_0x65399
 	keeptextopen
 	end
 
-UnknownScript_0xa0300:
+.Derek:
 	farwritetext UnknownText_0x65bc8
 	keeptextopen
 	end
 
-UnknownScript_0xa0306:
+.Tully:
 	farwritetext UnknownText_0x65eac
 	keeptextopen
 	end
 
-UnknownScript_0xa030c:
+.Brent:
 	farwritetext UnknownText_0x6618c
 	keeptextopen
 	end
 
-UnknownScript_0xa0312:
+.Vance:
 	farwritetext UnknownText_0x669ed
 	keeptextopen
 	end
 
-UnknownScript_0xa0318:
+.Wilton:
 	farwritetext UnknownText_0x66b8f
 	keeptextopen
 	end
 
-UnknownScript_0xa031e:
+.Parry:
 	farwritetext UnknownText_0x67001
 	keeptextopen
 	end
 
 UnknownScript_0xa0324:
 	checkcode VAR_CALLERID
-	if_equal $6, UnknownScript_0xa0346
-	if_equal $c, UnknownScript_0xa034c
-	if_equal $e, UnknownScript_0xa0352
-	if_equal $12, UnknownScript_0xa0358
-	if_equal $15, UnknownScript_0xa035e
-	if_equal $1a, UnknownScript_0xa0364
-	if_equal $1f, UnknownScript_0xa036a
-	if_equal $24, UnknownScript_0xa0370
-
-UnknownScript_0xa0346:
+	if_equal PHONE_POKEFAN_BEVERLY, .Beverly
+	if_equal PHONE_COOLTRAINERF_BETH, .Beth
+	if_equal PHONE_COOLTRAINERF_REENA, .Reena
+	if_equal PHONE_PICNICKER_LIZ, .Liz
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
+	if_equal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
 	farwritetext UnknownText_0x174734
 	keeptextopen
 	end
 
-UnknownScript_0xa034c:
+.Beth:
 	farwritetext UnknownText_0x174d86
 	keeptextopen
 	end
 
-UnknownScript_0xa0352:
+.Reena:
 	farwritetext UnknownText_0x1753c5
 	keeptextopen
 	end
 
-UnknownScript_0xa0358:
+.Liz:
 	farwritetext UnknownText_0x176095
 	keeptextopen
 	end
 
-UnknownScript_0xa035e:
+.Gina:
 	farwritetext UnknownText_0x177297
 	keeptextopen
 	end
 
-UnknownScript_0xa0364:
+.Dana:
 	farwritetext UnknownText_0x6501c
 	keeptextopen
 	end
 
-UnknownScript_0xa036a:
+.Tiffany:
 	farwritetext UnknownText_0x66688
 	keeptextopen
 	end
 
-UnknownScript_0xa0370:
+.Erin:
 	farwritetext UnknownText_0x671eb
 	keeptextopen
 	end
@@ -532,150 +532,150 @@ UnknownScript_0xa037e:
 
 UnknownScript_0xa0386:
 	checkcode VAR_CALLERID
-	if_equal $5, UnknownScript_0xa03cc
-	if_equal $7, UnknownScript_0xa03d2
-	if_equal $b, UnknownScript_0xa03d8
-	if_equal $d, UnknownScript_0xa03de
-	if_equal $f, UnknownScript_0xa03e4
-	if_equal $10, UnknownScript_0xa03ea
-	if_equal $11, UnknownScript_0xa03f0
-	if_equal $13, UnknownScript_0xa03f6
-	if_equal $14, UnknownScript_0xa03fc
-	if_equal $17, UnknownScript_0xa0402
-	if_equal $18, UnknownScript_0xa0408
-	if_equal $1b, UnknownScript_0xa040e
-	if_equal $1d, UnknownScript_0xa0414
-	if_equal $1e, UnknownScript_0xa041a
-	if_equal $20, UnknownScript_0xa0420
-	if_equal $21, UnknownScript_0xa0426
-	if_equal $23, UnknownScript_0xa042c
-
-UnknownScript_0xa03cc:
+	if_equal PHONE_SCHOOLBOY_JACK, .Jack
+	if_equal PHONE_SAILOR_HUEY, .Huey
+	if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_YOUNGSTER_JOEY, .Joey
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_FISHER_RALPH, .Ralph
+	if_equal PHONE_HIKER_ANTHONY, .Anthony
+	if_equal PHONE_CAMPER_TODD, .Todd
+	if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_SCHOOLBOY_CHAD, .Chad
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_POKEMANIAC_BRENT, .Brent
+	if_equal PHONE_BIRDKEEPER_VANCE, .Vance
+	if_equal PHONE_FISHER_WILTON, .Wilton
+	if_equal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
 	farwritetext UnknownText_0x1741e1
 	keeptextopen
 	end
 
-UnknownScript_0xa03d2:
+.Huey:
 	farwritetext UnknownText_0x1748ea
 	keeptextopen
 	end
 
-UnknownScript_0xa03d8:
+.Gaven:
 	farwritetext UnknownText_0x174bc5
 	keeptextopen
 	end
 
-UnknownScript_0xa03de:
+.Jose:
 	farwritetext UnknownText_0x17507d
 	keeptextopen
 	end
 
-UnknownScript_0xa03e4:
+.Joey:
 	farwritetext UnknownText_0x175693
 	keeptextopen
 	end
 
-UnknownScript_0xa03ea:
+.Wade:
 	farwritetext UnknownText_0x175976
 	keeptextopen
 	end
 
-UnknownScript_0xa03f0:
+.Ralph:
 	farwritetext UnknownText_0x175d40
 	keeptextopen
 	end
 
-UnknownScript_0xa03f6:
+.Anthony:
 	farwritetext UnknownText_0x176bee
 	keeptextopen
 	end
 
-UnknownScript_0xa03fc:
+.Todd:
 	farwritetext UnknownText_0x176f60
 	keeptextopen
 	end
 
-UnknownScript_0xa0402:
+.Arnie:
 	farwritetext UnknownText_0x64ada
 	keeptextopen
 	end
 
-UnknownScript_0xa0408:
+.Alan:
 	farwritetext UnknownText_0x64da4
 	keeptextopen
 	end
 
-UnknownScript_0xa040e:
+.Chad:
 	farwritetext UnknownText_0x65419
 	keeptextopen
 	end
 
-UnknownScript_0xa0414:
+.Tully:
 	farwritetext UnknownText_0x65f17
 	keeptextopen
 	end
 
-UnknownScript_0xa041a:
+.Brent:
 	farwritetext UnknownText_0x66214
 	keeptextopen
 	end
 
-UnknownScript_0xa0420:
+.Vance:
 	farwritetext UnknownText_0x66a3a
 	keeptextopen
 	end
 
-UnknownScript_0xa0426:
+.Wilton:
 	farwritetext UnknownText_0x66bf3
 	keeptextopen
 	end
 
-UnknownScript_0xa042c:
+.Parry:
 	farwritetext UnknownText_0x67096
 	keeptextopen
 	end
 
 UnknownScript_0xa0432:
 	checkcode VAR_CALLERID
-	if_equal $c, UnknownScript_0xa0450
-	if_equal $e, UnknownScript_0xa0456
-	if_equal $12, UnknownScript_0xa045c
-	if_equal $15, UnknownScript_0xa0462
-	if_equal $1a, UnknownScript_0xa0468
-	if_equal $1f, UnknownScript_0xa046e
-	if_equal $24, UnknownScript_0xa0474
-
-UnknownScript_0xa0450:
+	if_equal PHONE_COOLTRAINERF_BETH, .Beth
+	if_equal PHONE_COOLTRAINERF_REENA, .Reena
+	if_equal PHONE_PICNICKER_LIZ, .Liz
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
+	if_equal PHONE_PICNICKER_ERIN, .Erin
+
+.Beth:
 	farwritetext UnknownText_0x174e4e
 	keeptextopen
 	end
 
-UnknownScript_0xa0456:
+.Reena:
 	farwritetext UnknownText_0x17543a
 	keeptextopen
 	end
 
-UnknownScript_0xa045c:
+.Liz:
 	farwritetext UnknownText_0x17610a
 	keeptextopen
 	end
 
-UnknownScript_0xa0462:
+.Gina:
 	farwritetext UnknownText_0x1772e2
 	keeptextopen
 	end
 
-UnknownScript_0xa0468:
+.Dana:
 	farwritetext UnknownText_0x65091
 	keeptextopen
 	end
 
-UnknownScript_0xa046e:
+.Tiffany:
 	farwritetext UnknownText_0x66730
 	keeptextopen
 	end
 
-UnknownScript_0xa0474:
+.Erin:
 	farwritetext UnknownText_0x6722e
 	keeptextopen
 	end
@@ -690,147 +690,147 @@ UnknownScript_0xa047f:
 
 UnknownScript_0xa0484:
 	checkcode VAR_CALLERID
-	if_equal $5, UnknownScript_0xa04d6
-	if_equal $7, UnknownScript_0xa04db
-	if_equal $b, UnknownScript_0xa04e0
-	if_equal $d, UnknownScript_0xa04e5
-	if_equal $f, UnknownScript_0xa04ea
-	if_equal $10, UnknownScript_0xa04ef
-	if_equal $11, UnknownScript_0xa04f4
-	if_equal $13, UnknownScript_0xa04f9
-	if_equal $14, UnknownScript_0xa04fe
-	if_equal $16, UnknownScript_0xa0503
-	if_equal $17, UnknownScript_0xa0508
-	if_equal $18, UnknownScript_0xa050d
-	if_equal $1b, UnknownScript_0xa0512
-	if_equal $1c, UnknownScript_0xa0517
-	if_equal $1d, UnknownScript_0xa051c
-	if_equal $1e, UnknownScript_0xa0521
-	if_equal $20, UnknownScript_0xa0526
-	if_equal $21, UnknownScript_0xa052b
-	if_equal $22, UnknownScript_0xa0530
-	if_equal $23, UnknownScript_0xa0535
-
-UnknownScript_0xa04d6:
+	if_equal PHONE_SCHOOLBOY_JACK, .Jack
+	if_equal PHONE_SAILOR_HUEY, .Huey
+	if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_YOUNGSTER_JOEY, .Joey
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_FISHER_RALPH, .Ralph
+	if_equal PHONE_HIKER_ANTHONY, .Anthony
+	if_equal PHONE_CAMPER_TODD, .Todd
+	if_equal PHONE_JUGGLER_IRWIN, .Irwin
+	if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_SCHOOLBOY_CHAD, .Chad
+	if_equal PHONE_POKEFANM_DEREK, .Derek
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_POKEMANIAC_BRENT, .Brent
+	if_equal PHONE_BIRDKEEPER_VANCE, .Vance
+	if_equal PHONE_FISHER_WILTON, .Wilton
+	if_equal PHONE_BLACKBELT_KENJI, .Kenji
+	if_equal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
 	farwritetext UnknownText_0x174251
 	end
 
-UnknownScript_0xa04db:
+.Huey:
 	farwritetext UnknownText_0x174962
 	end
 
-UnknownScript_0xa04e0:
+.Gaven:
 	farwritetext UnknownText_0x174c0e
 	end
 
-UnknownScript_0xa04e5:
+.Jose:
 	farwritetext UnknownText_0x175106
 	end
 
-UnknownScript_0xa04ea:
+.Joey:
 	farwritetext UnknownText_0x17570a
 	end
 
-UnknownScript_0xa04ef:
+.Wade:
 	farwritetext UnknownText_0x1759e7
 	end
 
-UnknownScript_0xa04f4:
+.Ralph:
 	farwritetext UnknownText_0x175db7
 	end
 
-UnknownScript_0xa04f9:
+.Anthony:
 	farwritetext UnknownText_0x176c47
 	end
 
-UnknownScript_0xa04fe:
+.Todd:
 	farwritetext UnknownText_0x176fdb
 	end
 
-UnknownScript_0xa0503:
+.Irwin:
 	farwritetext UnknownText_0x64000
 	end
 
-UnknownScript_0xa0508:
+.Arnie:
 	farwritetext UnknownText_0x64b48
 	end
 
-UnknownScript_0xa050d:
+.Alan:
 	farwritetext UnknownText_0x64e1f
 	end
 
-UnknownScript_0xa0512:
+.Chad:
 	farwritetext UnknownText_0x65471
 	end
 
-UnknownScript_0xa0517:
+.Derek:
 	farwritetext UnknownText_0x65c4e
 	end
 
-UnknownScript_0xa051c:
+.Tully:
 	farwritetext UnknownText_0x65f6e
 	end
 
-UnknownScript_0xa0521:
+.Brent:
 	farwritetext UnknownText_0x662a9
 	end
 
-UnknownScript_0xa0526:
+.Vance:
 	farwritetext UnknownText_0x66a93
 	end
 
-UnknownScript_0xa052b:
+.Wilton:
 	farwritetext UnknownText_0x66c58
 	end
 
-UnknownScript_0xa0530:
+.Kenji:
 	farwritetext UnknownText_0x66dab
 	end
 
-UnknownScript_0xa0535:
+.Parry:
 	farwritetext UnknownText_0x670eb
 	end
 
 UnknownScript_0xa053a:
 	checkcode VAR_CALLERID
-	if_equal $6, UnknownScript_0xa055c
-	if_equal $c, UnknownScript_0xa0561
-	if_equal $e, UnknownScript_0xa0566
-	if_equal $12, UnknownScript_0xa056b
-	if_equal $15, UnknownScript_0xa0570
-	if_equal $1a, UnknownScript_0xa0575
-	if_equal $1f, UnknownScript_0xa057a
-	if_equal $24, UnknownScript_0xa057f
-
-UnknownScript_0xa055c:
+	if_equal PHONE_POKEFAN_BEVERLY, .Beverly
+	if_equal PHONE_COOLTRAINERF_BETH, .Beth
+	if_equal PHONE_COOLTRAINERF_REENA, .Reena
+	if_equal PHONE_PICNICKER_LIZ, .Liz
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
+	if_equal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
 	farwritetext UnknownText_0x1747ac
 	end
 
-UnknownScript_0xa0561:
+.Beth:
 	farwritetext UnknownText_0x174eb7
 	end
 
-UnknownScript_0xa0566:
+.Reena:
 	farwritetext UnknownText_0x175488
 	end
 
-UnknownScript_0xa056b:
+.Liz:
 	farwritetext UnknownText_0x17620a
 	end
 
-UnknownScript_0xa0570:
+.Gina:
 	farwritetext UnknownText_0x177361
 	end
 
-UnknownScript_0xa0575:
+.Dana:
 	farwritetext UnknownText_0x650e2
 	end
 
-UnknownScript_0xa057a:
+.Tiffany:
 	farwritetext UnknownText_0x667f7
 	end
 
-UnknownScript_0xa057f:
+.Erin:
 	farwritetext UnknownText_0x67281
 	end
 
@@ -856,15 +856,15 @@ UnknownScript_0xa05a0:
 
 UnknownScript_0xa05a4:
 	checkcode VAR_CALLERID
-	if_equal $10, UnknownScript_0xa05ae
-	if_equal $1c, UnknownScript_0xa05b6
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_POKEFANM_DEREK, .Derek
 
-UnknownScript_0xa05ae:
+.Wade:
 	farwritetext UnknownText_0x1759f7
 	keeptextopen
 	jump UnknownScript_0xa0484
 
-UnknownScript_0xa05b6:
+.Derek:
 	farwritetext UnknownText_0x65c66
 	keeptextopen
 	jump UnknownScript_0xa0484
@@ -896,57 +896,57 @@ UnknownScript_0xa05de:
 
 UnknownScript_0xa05e6:
 	checkcode VAR_CALLERID
-	if_equal $d, UnknownScript_0xa0600
-	if_equal $10, UnknownScript_0xa0605
-	if_equal $18, UnknownScript_0xa060a
-	if_equal $1c, UnknownScript_0xa060f
-	if_equal $1d, UnknownScript_0xa0614
-	if_equal $21, UnknownScript_0xa0619
-
-UnknownScript_0xa0600:
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_POKEFANM_DEREK, .Derek
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_FISHER_WILTON, .Wilton
+
+.Jose:
 	farwritetext UnknownText_0x175116
 	end
 
-UnknownScript_0xa0605:
+.Wade:
 	farwritetext UnknownText_0x175a60
 	end
 
-UnknownScript_0xa060a:
+.Alan:
 	farwritetext UnknownText_0x64e2f
 	end
 
-UnknownScript_0xa060f:
+.Derek:
 	farwritetext UnknownText_0x65cf9
 	end
 
-UnknownScript_0xa0614:
+.Tully:
 	farwritetext UnknownText_0x65f88
 	end
 
-UnknownScript_0xa0619:
+.Wilton:
 	farwritetext UnknownText_0x66c6b
 	end
 
 UnknownScript_0xa061e:
 	checkcode VAR_CALLERID
-	if_equal $6, UnknownScript_0xa0630
-	if_equal $15, UnknownScript_0xa0635
-	if_equal $1a, UnknownScript_0xa063a
-	if_equal $1f, UnknownScript_0xa063f
+	if_equal PHONE_POKEFAN_BEVERLY, .Beverly
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
 
-UnknownScript_0xa0630:
+.Beverly:
 	farwritetext UnknownText_0x1747cc
 	end
 
-UnknownScript_0xa0635:
+.Gina:
 	farwritetext UnknownText_0x1773e7
 	end
 
-UnknownScript_0xa063a:
+.Dana:
 	farwritetext UnknownText_0x650ec
 	end
 
-UnknownScript_0xa063f:
+.Tiffany:
 	farwritetext UnknownText_0x66801
 	end
 
diff --git a/engine/phone_scripts.asm b/engine/phone_scripts.asm
index 33541e224..5d0795766 100644
--- a/engine/phone_scripts.asm
+++ b/engine/phone_scripts.asm
@@ -1914,369 +1914,369 @@ UnknownScript_0xbde4e:
 	checknite
 	iftrue UnknownScript_0xbdfec
 	checkcode VAR_CALLERID
-	if_equal PHONE_SCHOOLBOY_JACK,       UnknownScript_0xbdeaa
-	if_equal PHONE_SAILOR_HUEY,          UnknownScript_0xbdeb0
-	if_equal PHONE_COOLTRAINERM_GAVEN,   UnknownScript_0xbdeb6
-	if_equal PHONE_BIRDKEEPER_JOSE,      UnknownScript_0xbdebc
-	if_equal PHONE_YOUNGSTER_JOEY,       UnknownScript_0xbdec2
-	if_equal PHONE_BUG_CATCHER_WADE,     UnknownScript_0xbdec8
-	if_equal PHONE_FISHER_RALPH,         UnknownScript_0xbdece
-	if_equal PHONE_HIKER_ANTHONY,        UnknownScript_0xbded4
-	if_equal PHONE_CAMPER_TODD,          UnknownScript_0xbdeda
-	if_equal PHONE_JUGGLER_IRWIN,        UnknownScript_0xbdee0
-	if_equal PHONE_BUG_CATCHER_ARNIE,    UnknownScript_0xbdee6
-	if_equal PHONE_SCHOOLBOY_ALAN,       UnknownScript_0xbdeec
-	if_equal PHONE_SCHOOLBOY_CHAD,       UnknownScript_0xbdef2
-	if_equal PHONE_POKEFANM_DEREK,       UnknownScript_0xbdef8
-	if_equal PHONE_FISHER_TULLY,         UnknownScript_0xbdefe
-	if_equal PHONE_POKEMANIAC_BRENT,     UnknownScript_0xbdf04
-	if_equal PHONE_BIRDKEEPER_VANCE,     UnknownScript_0xbdf0a
-	if_equal PHONE_FISHER_WILTON,        UnknownScript_0xbdf10
-	if_equal PHONE_BLACKBELT_KENJI,      UnknownScript_0xbdf16
-	if_equal PHONE_HIKER_PARRY,          UnknownScript_0xbdf1c
-
-UnknownScript_0xbdeaa:
+	if_equal PHONE_SCHOOLBOY_JACK, .Jack
+	if_equal PHONE_SAILOR_HUEY, .Huey
+	if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_YOUNGSTER_JOEY, .Joey
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_FISHER_RALPH, .Ralph
+	if_equal PHONE_HIKER_ANTHONY, .Anthony
+	if_equal PHONE_CAMPER_TODD, .Todd
+	if_equal PHONE_JUGGLER_IRWIN, .Irwin
+	if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_SCHOOLBOY_CHAD, .Chad
+	if_equal PHONE_POKEFANM_DEREK, .Derek
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_POKEMANIAC_BRENT, .Brent
+	if_equal PHONE_BIRDKEEPER_VANCE, .Vance
+	if_equal PHONE_FISHER_WILTON, .Wilton
+	if_equal PHONE_BLACKBELT_KENJI, .Kenji
+	if_equal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
 	farwritetext UnknownText_0x1b4dc5
 	keeptextopen
 	end
 
-UnknownScript_0xbdeb0:
+.Huey:
 	farwritetext UnknownText_0x1b5073
 	keeptextopen
 	end
 
-UnknownScript_0xbdeb6:
+.Gaven:
 	farwritetext UnknownText_0x1b5270
 	keeptextopen
 	end
 
-UnknownScript_0xbdebc:
+.Jose:
 	farwritetext UnknownText_0x1b55ae
 	keeptextopen
 	end
 
-UnknownScript_0xbdec2:
+.Joey:
 	farwritetext UnknownText_0x1b589a
 	keeptextopen
 	end
 
-UnknownScript_0xbdec8:
+.Wade:
 	farwritetext UnknownText_0x1b5a3b
 	keeptextopen
 	end
 
-UnknownScript_0xbdece:
+.Ralph:
 	farwritetext UnknownText_0x1b5c10
 	keeptextopen
 	end
 
-UnknownScript_0xbded4:
+.Anthony:
 	farwritetext UnknownText_0x1b5f7a
 	keeptextopen
 	end
 
-UnknownScript_0xbdeda:
+.Todd:
 	farwritetext UnknownText_0x1b60f5
 	keeptextopen
 	end
 
-UnknownScript_0xbdee0:
+.Irwin:
 	farwritetext UnknownText_0x1b638c
 	keeptextopen
 	end
 
-UnknownScript_0xbdee6:
+.Arnie:
 	farwritetext UnknownText_0x1b6454
 	keeptextopen
 	end
 
-UnknownScript_0xbdeec:
+.Alan:
 	farwritetext UnknownText_0x1b659d
 	keeptextopen
 	end
 
-UnknownScript_0xbdef2:
+.Chad:
 	farwritetext UnknownText_0x1b67e2
 	keeptextopen
 	end
 
-UnknownScript_0xbdef8:
+.Derek:
 	farwritetext UnknownText_0x1b69a8
 	keeptextopen
 	end
 
-UnknownScript_0xbdefe:
+.Tully:
 	farwritetext UnknownText_0x1b6b39
 	keeptextopen
 	end
 
-UnknownScript_0xbdf04:
+.Brent:
 	farwritetext UnknownText_0x1b6c96
 	keeptextopen
 	end
 
-UnknownScript_0xbdf0a:
+.Vance:
 	farwritetext UnknownText_0x1b7019
 	keeptextopen
 	end
 
-UnknownScript_0xbdf10:
+.Wilton:
 	farwritetext UnknownText_0x1b71d5
 	keeptextopen
 	end
 
-UnknownScript_0xbdf16:
+.Kenji:
 	farwritetext UnknownText_0x1b730b
 	keeptextopen
 	end
 
-UnknownScript_0xbdf1c:
+.Parry:
 	farwritetext UnknownText_0x1b73c7
 	keeptextopen
 	end
 
 UnknownScript_0xbdf22:
 	checkcode VAR_CALLERID
-	if_equal PHONE_SCHOOLBOY_JACK,       UnknownScript_0xbdf74
-	if_equal PHONE_SAILOR_HUEY,          UnknownScript_0xbdf7a
-	if_equal PHONE_COOLTRAINERM_GAVEN,   UnknownScript_0xbdf80
-	if_equal PHONE_BIRDKEEPER_JOSE,      UnknownScript_0xbdf86
-	if_equal PHONE_YOUNGSTER_JOEY,       UnknownScript_0xbdf8c
-	if_equal PHONE_BUG_CATCHER_WADE,     UnknownScript_0xbdf92
-	if_equal PHONE_FISHER_RALPH,         UnknownScript_0xbdf98
-	if_equal PHONE_HIKER_ANTHONY,        UnknownScript_0xbdf9e
-	if_equal PHONE_CAMPER_TODD,          UnknownScript_0xbdfa4
-	if_equal PHONE_JUGGLER_IRWIN,        UnknownScript_0xbdfaa
-	if_equal PHONE_BUG_CATCHER_ARNIE,    UnknownScript_0xbdfb0
-	if_equal PHONE_SCHOOLBOY_ALAN,       UnknownScript_0xbdfb6
-	if_equal PHONE_SCHOOLBOY_CHAD,       UnknownScript_0xbdfbc
-	if_equal PHONE_POKEFANM_DEREK,       UnknownScript_0xbdfc2
-	if_equal PHONE_FISHER_TULLY,         UnknownScript_0xbdfc8
-	if_equal PHONE_POKEMANIAC_BRENT,     UnknownScript_0xbdfce
-	if_equal PHONE_BIRDKEEPER_VANCE,     UnknownScript_0xbdfd4
-	if_equal PHONE_FISHER_WILTON,        UnknownScript_0xbdfda
-	if_equal PHONE_BLACKBELT_KENJI,      UnknownScript_0xbdfe0
-	if_equal PHONE_HIKER_PARRY,          UnknownScript_0xbdfe6
-
-UnknownScript_0xbdf74:
+	if_equal PHONE_SCHOOLBOY_JACK, .Jack
+	if_equal PHONE_SAILOR_HUEY, .Huey
+	if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_YOUNGSTER_JOEY, .Joey
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_FISHER_RALPH, .Ralph
+	if_equal PHONE_HIKER_ANTHONY, .Anthony
+	if_equal PHONE_CAMPER_TODD, .Todd
+	if_equal PHONE_JUGGLER_IRWIN, .Irwin
+	if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_SCHOOLBOY_CHAD, .Chad
+	if_equal PHONE_POKEFANM_DEREK, .Derek
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_POKEMANIAC_BRENT, .Brent
+	if_equal PHONE_BIRDKEEPER_VANCE, .Vance
+	if_equal PHONE_FISHER_WILTON, .Wilton
+	if_equal PHONE_BLACKBELT_KENJI, .Kenji
+	if_equal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
 	farwritetext UnknownText_0x1b4ded
 	keeptextopen
 	end
 
-UnknownScript_0xbdf7a:
+.Huey:
 	farwritetext UnknownText_0x1b509b
 	keeptextopen
 	end
 
-UnknownScript_0xbdf80:
+.Gaven:
 	farwritetext UnknownText_0x1b52a5
 	keeptextopen
 	end
 
-UnknownScript_0xbdf86:
+.Jose:
 	farwritetext UnknownText_0x1b55da
 	keeptextopen
 	end
 
-UnknownScript_0xbdf8c:
+.Joey:
 	farwritetext UnknownText_0x1b58c2
 	keeptextopen
 	end
 
-UnknownScript_0xbdf92:
+.Wade:
 	farwritetext UnknownText_0x1b5a74
 	keeptextopen
 	end
 
-UnknownScript_0xbdf98:
+.Ralph:
 	farwritetext UnknownText_0x1b5c63
 	keeptextopen
 	end
 
-UnknownScript_0xbdf9e:
+.Anthony:
 	farwritetext UnknownText_0x1b5f9e
 	keeptextopen
 	end
 
-UnknownScript_0xbdfa4:
+.Todd:
 	farwritetext UnknownText_0x1b611b
 	keeptextopen
 	end
 
-UnknownScript_0xbdfaa:
+.Irwin:
 	farwritetext UnknownText_0x1b63a8
 	keeptextopen
 	end
 
-UnknownScript_0xbdfb0:
+.Arnie:
 	farwritetext UnknownText_0x1b647e
 	keeptextopen
 	end
 
-UnknownScript_0xbdfb6:
+.Alan:
 	farwritetext UnknownText_0x1b65c7
 	keeptextopen
 	end
 
-UnknownScript_0xbdfbc:
+.Chad:
 	farwritetext UnknownText_0x1b680e
 	keeptextopen
 	end
 
-UnknownScript_0xbdfc2:
+.Derek:
 	farwritetext UnknownText_0x1b69d2
 	keeptextopen
 	end
 
-UnknownScript_0xbdfc8:
+.Tully:
 	farwritetext UnknownText_0x1b6b65
 	keeptextopen
 	end
 
-UnknownScript_0xbdfce:
+.Brent:
 	farwritetext UnknownText_0x1b6cc6
 	keeptextopen
 	end
 
-UnknownScript_0xbdfd4:
+.Vance:
 	farwritetext UnknownText_0x1b7057
 	keeptextopen
 	end
 
-UnknownScript_0xbdfda:
+.Wilton:
 	farwritetext UnknownText_0x1b71fc
 	keeptextopen
 	end
 
-UnknownScript_0xbdfe0:
+.Kenji:
 	farwritetext UnknownText_0x1b7331
 	keeptextopen
 	end
 
-UnknownScript_0xbdfe6:
+.Parry:
 	farwritetext UnknownText_0x1b73ef
 	keeptextopen
 	end
 
 UnknownScript_0xbdfec:
 	checkcode VAR_CALLERID
-	if_equal PHONE_SCHOOLBOY_JACK,       UnknownScript_0xbe03e
-	if_equal PHONE_SAILOR_HUEY,          UnknownScript_0xbe044
-	if_equal PHONE_COOLTRAINERM_GAVEN,   UnknownScript_0xbe04a
-	if_equal PHONE_BIRDKEEPER_JOSE,      UnknownScript_0xbe050
-	if_equal PHONE_YOUNGSTER_JOEY,       UnknownScript_0xbe056
-	if_equal PHONE_BUG_CATCHER_WADE,     UnknownScript_0xbe05c
-	if_equal PHONE_FISHER_RALPH,         UnknownScript_0xbe062
-	if_equal PHONE_HIKER_ANTHONY,        UnknownScript_0xbe068
-	if_equal PHONE_CAMPER_TODD,          UnknownScript_0xbe06e
-	if_equal PHONE_JUGGLER_IRWIN,        UnknownScript_0xbe074
-	if_equal PHONE_BUG_CATCHER_ARNIE,    UnknownScript_0xbe07a
-	if_equal PHONE_SCHOOLBOY_ALAN,       UnknownScript_0xbe080
-	if_equal PHONE_SCHOOLBOY_CHAD,       UnknownScript_0xbe086
-	if_equal PHONE_POKEFANM_DEREK,       UnknownScript_0xbe08c
-	if_equal PHONE_FISHER_TULLY,         UnknownScript_0xbe092
-	if_equal PHONE_POKEMANIAC_BRENT,     UnknownScript_0xbe098
-	if_equal PHONE_BIRDKEEPER_VANCE,     UnknownScript_0xbe09e
-	if_equal PHONE_FISHER_WILTON,        UnknownScript_0xbe0a4
-	if_equal PHONE_BLACKBELT_KENJI,      UnknownScript_0xbe0aa
-	if_equal PHONE_HIKER_PARRY,          UnknownScript_0xbe0b0
-
-UnknownScript_0xbe03e:
+	if_equal PHONE_SCHOOLBOY_JACK, .Jack
+	if_equal PHONE_SAILOR_HUEY, .Huey
+	if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_YOUNGSTER_JOEY, .Joey
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_FISHER_RALPH, .Ralph
+	if_equal PHONE_HIKER_ANTHONY, .Anthony
+	if_equal PHONE_CAMPER_TODD, .Todd
+	if_equal PHONE_JUGGLER_IRWIN, .Irwin
+	if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_SCHOOLBOY_CHAD, .Chad
+	if_equal PHONE_POKEFANM_DEREK, .Derek
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_POKEMANIAC_BRENT, .Brent
+	if_equal PHONE_BIRDKEEPER_VANCE, .Vance
+	if_equal PHONE_FISHER_WILTON, .Wilton
+	if_equal PHONE_BLACKBELT_KENJI, .Kenji
+	if_equal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
 	farwritetext UnknownText_0x1b4e16
 	keeptextopen
 	end
 
-UnknownScript_0xbe044:
+.Huey:
 	farwritetext UnknownText_0x1b50c2
 	keeptextopen
 	end
 
-UnknownScript_0xbe04a:
+.Gaven:
 	farwritetext UnknownText_0x1b52cc
 	keeptextopen
 	end
 
-UnknownScript_0xbe050:
+.Jose:
 	farwritetext UnknownText_0x1b55fc
 	keeptextopen
 	end
 
-UnknownScript_0xbe056:
+.Joey:
 	farwritetext UnknownText_0x1b58ea
 	keeptextopen
 	end
 
-UnknownScript_0xbe05c:
+.Wade:
 	farwritetext UnknownText_0x1b5a9f
 	keeptextopen
 	end
 
-UnknownScript_0xbe062:
+.Ralph:
 	farwritetext UnknownText_0x1b5cb6
 	keeptextopen
 	end
 
-UnknownScript_0xbe068:
+.Anthony:
 	farwritetext UnknownText_0x1b5fc9
 	keeptextopen
 	end
 
-UnknownScript_0xbe06e:
+.Todd:
 	farwritetext UnknownText_0x1b6149
 	keeptextopen
 	end
 
-UnknownScript_0xbe074:
+.Irwin:
 	farwritetext UnknownText_0x1b63c4
 	keeptextopen
 	end
 
-UnknownScript_0xbe07a:
+.Arnie:
 	farwritetext UnknownText_0x1b64a8
 	keeptextopen
 	end
 
-UnknownScript_0xbe080:
+.Alan:
 	farwritetext UnknownText_0x1b65e3
 	keeptextopen
 	end
 
-UnknownScript_0xbe086:
+.Chad:
 	farwritetext UnknownText_0x1b6836
 	keeptextopen
 	end
 
-UnknownScript_0xbe08c:
+.Derek:
 	farwritetext UnknownText_0x1b69f8
 	keeptextopen
 	end
 
-UnknownScript_0xbe092:
+.Tully:
 	farwritetext UnknownText_0x1b6b92
 	keeptextopen
 	end
 
-UnknownScript_0xbe098:
+.Brent:
 	farwritetext UnknownText_0x1b6cf6
 	keeptextopen
 	end
 
-UnknownScript_0xbe09e:
+.Vance:
 	farwritetext UnknownText_0x1b7092
 	keeptextopen
 	end
 
-UnknownScript_0xbe0a4:
+.Wilton:
 	farwritetext UnknownText_0x1b722a
 	keeptextopen
 	end
 
-UnknownScript_0xbe0aa:
+.Kenji:
 	farwritetext UnknownText_0x1b7357
 	keeptextopen
 	end
 
-UnknownScript_0xbe0b0:
+.Parry:
 	farwritetext UnknownText_0x1b7417
 	keeptextopen
 	end
@@ -2287,153 +2287,153 @@ UnknownScript_0xbe0b6:
 	checknite
 	iftrue UnknownScript_0xbe164
 	checkcode VAR_CALLERID
-	if_equal PHONE_POKEFAN_BEVERLY,       UnknownScript_0xbe0e2
-	if_equal PHONE_COOLTRAINERF_BETH,     UnknownScript_0xbe0e8
-	if_equal PHONE_COOLTRAINERF_REENA,    UnknownScript_0xbe0ee
-	if_equal PHONE_PICNICKER_LIZ,         UnknownScript_0xbe0f4
-	if_equal PHONE_PICNICKER_GINA,        UnknownScript_0xbe0fa
-	if_equal PHONE_LASS_DANA,             UnknownScript_0xbe100
-	if_equal PHONE_PICNICKER_TIFFANY,     UnknownScript_0xbe106
-	if_equal PHONE_PICNICKER_ERIN,        UnknownScript_0xbe10c
-
-UnknownScript_0xbe0e2:
+	if_equal PHONE_POKEFAN_BEVERLY, .Beverly
+	if_equal PHONE_COOLTRAINERF_BETH, .Beth
+	if_equal PHONE_COOLTRAINERF_REENA, .Reena
+	if_equal PHONE_PICNICKER_LIZ, .Liz
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
+	if_equal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
 	farwritetext UnknownText_0x1b4f21
 	keeptextopen
 	end
 
-UnknownScript_0xbe0e8:
+.Beth:
 	farwritetext UnknownText_0x1b53f7
 	keeptextopen
 	end
 
-UnknownScript_0xbe0ee:
+.Reena:
 	farwritetext UnknownText_0x1b5702
 	keeptextopen
 	end
 
-UnknownScript_0xbe0f4:
+.Liz:
 	farwritetext UnknownText_0x1b5d9f
 	keeptextopen
 	end
 
-UnknownScript_0xbe0fa:
+.Gina:
 	farwritetext UnknownText_0x1b626a
 	keeptextopen
 	end
 
-UnknownScript_0xbe100:
+.Dana:
 	farwritetext UnknownText_0x1b66c8
 	keeptextopen
 	end
 
-UnknownScript_0xbe106:
+.Tiffany:
 	farwritetext UnknownText_0x1b6e7c
 	keeptextopen
 	end
 
-UnknownScript_0xbe10c:
+.Erin:
 	farwritetext UnknownText_0x1b751a
 	keeptextopen
 	end
 
 UnknownScript_0xbe112:
 	checkcode VAR_CALLERID
-	if_equal PHONE_POKEFAN_BEVERLY,       UnknownScript_0xbe134
-	if_equal PHONE_COOLTRAINERF_BETH,     UnknownScript_0xbe13a
-	if_equal PHONE_COOLTRAINERF_REENA,    UnknownScript_0xbe140
-	if_equal PHONE_PICNICKER_LIZ,         UnknownScript_0xbe146
-	if_equal PHONE_PICNICKER_GINA,        UnknownScript_0xbe14c
-	if_equal PHONE_LASS_DANA,             UnknownScript_0xbe152
-	if_equal PHONE_PICNICKER_TIFFANY,     UnknownScript_0xbe158
-	if_equal PHONE_PICNICKER_ERIN,        UnknownScript_0xbe15e
-
-UnknownScript_0xbe134:
+	if_equal PHONE_POKEFAN_BEVERLY, .Beverly
+	if_equal PHONE_COOLTRAINERF_BETH, .Beth
+	if_equal PHONE_COOLTRAINERF_REENA, .Reena
+	if_equal PHONE_PICNICKER_LIZ, .Liz
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
+	if_equal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
 	farwritetext UnknownText_0x1b4f4d
 	keeptextopen
 	end
 
-UnknownScript_0xbe13a:
+.Beth:
 	farwritetext UnknownText_0x1b5424
 	keeptextopen
 	end
 
-UnknownScript_0xbe140:
+.Reena:
 	farwritetext UnknownText_0x1b572e
 	keeptextopen
 	end
 
-UnknownScript_0xbe146:
+.Liz:
 	farwritetext UnknownText_0x1b5dcc
 	keeptextopen
 	end
 
-UnknownScript_0xbe14c:
+.Gina:
 	farwritetext UnknownText_0x1b6296
 	keeptextopen
 	end
 
-UnknownScript_0xbe152:
+.Dana:
 	farwritetext UnknownText_0x1b66ec
 	keeptextopen
 	end
 
-UnknownScript_0xbe158:
+.Tiffany:
 	farwritetext UnknownText_0x1b6ea6
 	keeptextopen
 	end
 
-UnknownScript_0xbe15e:
+.Erin:
 	farwritetext UnknownText_0x1b7548
 	keeptextopen
 	end
 
 UnknownScript_0xbe164:
 	checkcode VAR_CALLERID
-	if_equal PHONE_POKEFAN_BEVERLY,       UnknownScript_0xbe186
-	if_equal PHONE_COOLTRAINERF_BETH,     UnknownScript_0xbe18c
-	if_equal PHONE_COOLTRAINERF_REENA,    UnknownScript_0xbe192
-	if_equal PHONE_PICNICKER_LIZ,         UnknownScript_0xbe198
-	if_equal PHONE_PICNICKER_GINA,        UnknownScript_0xbe19e
-	if_equal PHONE_LASS_DANA,             UnknownScript_0xbe1a4
-	if_equal PHONE_PICNICKER_TIFFANY,     UnknownScript_0xbe1aa
-	if_equal PHONE_PICNICKER_ERIN,        UnknownScript_0xbe1b0
-
-UnknownScript_0xbe186:
+	if_equal PHONE_POKEFAN_BEVERLY, .Beverly
+	if_equal PHONE_COOLTRAINERF_BETH, .Beth
+	if_equal PHONE_COOLTRAINERF_REENA, .Reena
+	if_equal PHONE_PICNICKER_LIZ, .Liz
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
+	if_equal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
 	farwritetext UnknownText_0x1b4f75
 	keeptextopen
 	end
 
-UnknownScript_0xbe18c:
+.Beth:
 	farwritetext UnknownText_0x1b5446
 	keeptextopen
 	end
 
-UnknownScript_0xbe192:
+.Reena:
 	farwritetext UnknownText_0x1b575a
 	keeptextopen
 	end
 
-UnknownScript_0xbe198:
+.Liz:
 	farwritetext UnknownText_0x1b5df8
 	keeptextopen
 	end
 
-UnknownScript_0xbe19e:
+.Gina:
 	farwritetext UnknownText_0x1b62c5
 	keeptextopen
 	end
 
-UnknownScript_0xbe1a4:
+.Dana:
 	farwritetext UnknownText_0x1b6713
 	keeptextopen
 	end
 
-UnknownScript_0xbe1aa:
+.Tiffany:
 	farwritetext UnknownText_0x1b6ec9
 	keeptextopen
 	end
 
-UnknownScript_0xbe1b0:
+.Erin:
 	farwritetext UnknownText_0x1b756f
 	keeptextopen
 	end
@@ -2444,369 +2444,369 @@ UnknownScript_0xbe1b6:
 	checknite
 	iftrue UnknownScript_0xbe354
 	checkcode VAR_CALLERID
-	if_equal PHONE_SCHOOLBOY_JACK,       UnknownScript_0xbe212
-	if_equal PHONE_SAILOR_HUEY,          UnknownScript_0xbe218
-	if_equal PHONE_COOLTRAINERM_GAVEN,   UnknownScript_0xbe21e
-	if_equal PHONE_BIRDKEEPER_JOSE,      UnknownScript_0xbe224
-	if_equal PHONE_YOUNGSTER_JOEY,       UnknownScript_0xbe22a
-	if_equal PHONE_BUG_CATCHER_WADE,     UnknownScript_0xbe230
-	if_equal PHONE_FISHER_RALPH,         UnknownScript_0xbe236
-	if_equal PHONE_HIKER_ANTHONY,        UnknownScript_0xbe23c
-	if_equal PHONE_CAMPER_TODD,          UnknownScript_0xbe242
-	if_equal PHONE_JUGGLER_IRWIN,        UnknownScript_0xbe248
-	if_equal PHONE_BUG_CATCHER_ARNIE,    UnknownScript_0xbe24e
-	if_equal PHONE_SCHOOLBOY_ALAN,       UnknownScript_0xbe254
-	if_equal PHONE_SCHOOLBOY_CHAD,       UnknownScript_0xbe25a
-	if_equal PHONE_POKEFANM_DEREK,       UnknownScript_0xbe260
-	if_equal PHONE_FISHER_TULLY,         UnknownScript_0xbe266
-	if_equal PHONE_POKEMANIAC_BRENT,     UnknownScript_0xbe26c
-	if_equal PHONE_BIRDKEEPER_VANCE,     UnknownScript_0xbe272
-	if_equal PHONE_FISHER_WILTON,        UnknownScript_0xbe278
-	if_equal PHONE_BLACKBELT_KENJI,      UnknownScript_0xbe27e
-	if_equal PHONE_HIKER_PARRY,          UnknownScript_0xbe284
-
-UnknownScript_0xbe212:
+	if_equal PHONE_SCHOOLBOY_JACK, .Jack
+	if_equal PHONE_SAILOR_HUEY, .Huey
+	if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_YOUNGSTER_JOEY, .Joey
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_FISHER_RALPH, .Ralph
+	if_equal PHONE_HIKER_ANTHONY, .Anthony
+	if_equal PHONE_CAMPER_TODD, .Todd
+	if_equal PHONE_JUGGLER_IRWIN, .Irwin
+	if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_SCHOOLBOY_CHAD, .Chad
+	if_equal PHONE_POKEFANM_DEREK, .Derek
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_POKEMANIAC_BRENT, .Brent
+	if_equal PHONE_BIRDKEEPER_VANCE, .Vance
+	if_equal PHONE_FISHER_WILTON, .Wilton
+	if_equal PHONE_BLACKBELT_KENJI, .Kenji
+	if_equal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
 	farwritetext UnknownText_0x1b4e3e
 	keeptextopen
 	end
 
-UnknownScript_0xbe218:
+.Huey:
 	farwritetext UnknownText_0x1b50e9
 	keeptextopen
 	end
 
-UnknownScript_0xbe21e:
+.Gaven:
 	farwritetext UnknownText_0x1b5301
 	keeptextopen
 	end
 
-UnknownScript_0xbe224:
+.Jose:
 	farwritetext UnknownText_0x1b5628
 	keeptextopen
 	end
 
-UnknownScript_0xbe22a:
+.Joey:
 	farwritetext UnknownText_0x1b5912
 	keeptextopen
 	end
 
-UnknownScript_0xbe230:
+.Wade:
 	farwritetext UnknownText_0x1b5ad8
 	keeptextopen
 	end
 
-UnknownScript_0xbe236:
+.Ralph:
 	farwritetext UnknownText_0x1b5d09
 	keeptextopen
 	end
 
-UnknownScript_0xbe23c:
+.Anthony:
 	farwritetext UnknownText_0x1b5ff6
 	keeptextopen
 	end
 
-UnknownScript_0xbe242:
+.Todd:
 	farwritetext UnknownText_0x1b616e
 	keeptextopen
 	end
 
-UnknownScript_0xbe248:
+.Irwin:
 	farwritetext UnknownText_0x1b63e3
 	keeptextopen
 	end
 
-UnknownScript_0xbe24e:
+.Arnie:
 	farwritetext UnknownText_0x1b64d2
 	keeptextopen
 	end
 
-UnknownScript_0xbe254:
+.Alan:
 	farwritetext UnknownText_0x1b660d
 	keeptextopen
 	end
 
-UnknownScript_0xbe25a:
+.Chad:
 	farwritetext UnknownText_0x1b6862
 	keeptextopen
 	end
 
-UnknownScript_0xbe260:
+.Derek:
 	farwritetext UnknownText_0x1b6a22
 	keeptextopen
 	end
 
-UnknownScript_0xbe266:
+.Tully:
 	farwritetext UnknownText_0x1b6bb9
 	keeptextopen
 	end
 
-UnknownScript_0xbe26c:
+.Brent:
 	farwritetext UnknownText_0x1b6d26
 	keeptextopen
 	end
 
-UnknownScript_0xbe272:
+.Vance:
 	farwritetext UnknownText_0x1b70e7
 	keeptextopen
 	end
 
-UnknownScript_0xbe278:
+.Wilton:
 	farwritetext UnknownText_0x1b725c
 	keeptextopen
 	end
 
-UnknownScript_0xbe27e:
+.Kenji:
 	farwritetext UnknownText_0x1b737f
 	keeptextopen
 	end
 
-UnknownScript_0xbe284:
+.Parry:
 	farwritetext UnknownText_0x1b743f
 	keeptextopen
 	end
 
 UnknownScript_0xbe28a:
 	checkcode VAR_CALLERID
-	if_equal PHONE_SCHOOLBOY_JACK,       UnknownScript_0xbe2dc
-	if_equal PHONE_SAILOR_HUEY,          UnknownScript_0xbe2e2
-	if_equal PHONE_COOLTRAINERM_GAVEN,   UnknownScript_0xbe2e8
-	if_equal PHONE_BIRDKEEPER_JOSE,      UnknownScript_0xbe2ee
-	if_equal PHONE_YOUNGSTER_JOEY,       UnknownScript_0xbe2f4
-	if_equal PHONE_BUG_CATCHER_WADE,     UnknownScript_0xbe2fa
-	if_equal PHONE_FISHER_RALPH,         UnknownScript_0xbe300
-	if_equal PHONE_HIKER_ANTHONY,        UnknownScript_0xbe306
-	if_equal PHONE_CAMPER_TODD,          UnknownScript_0xbe30c
-	if_equal PHONE_JUGGLER_IRWIN,        UnknownScript_0xbe312
-	if_equal PHONE_BUG_CATCHER_ARNIE,    UnknownScript_0xbe318
-	if_equal PHONE_SCHOOLBOY_ALAN,       UnknownScript_0xbe31e
-	if_equal PHONE_SCHOOLBOY_CHAD,       UnknownScript_0xbe324
-	if_equal PHONE_POKEFANM_DEREK,       UnknownScript_0xbe32a
-	if_equal PHONE_FISHER_TULLY,         UnknownScript_0xbe330
-	if_equal PHONE_POKEMANIAC_BRENT,     UnknownScript_0xbe336
-	if_equal PHONE_BIRDKEEPER_VANCE,     UnknownScript_0xbe33c
-	if_equal PHONE_FISHER_WILTON,        UnknownScript_0xbe342
-	if_equal PHONE_BLACKBELT_KENJI,      UnknownScript_0xbe348
-	if_equal PHONE_HIKER_PARRY,          UnknownScript_0xbe34e
-
-UnknownScript_0xbe2dc:
+	if_equal PHONE_SCHOOLBOY_JACK, .Jack
+	if_equal PHONE_SAILOR_HUEY, .Huey
+	if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_YOUNGSTER_JOEY, .Joey
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_FISHER_RALPH, .Ralph
+	if_equal PHONE_HIKER_ANTHONY, .Anthony
+	if_equal PHONE_CAMPER_TODD, .Todd
+	if_equal PHONE_JUGGLER_IRWIN, .Irwin
+	if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_SCHOOLBOY_CHAD, .Chad
+	if_equal PHONE_POKEFANM_DEREK, .Derek
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_POKEMANIAC_BRENT, .Brent
+	if_equal PHONE_BIRDKEEPER_VANCE, .Vance
+	if_equal PHONE_FISHER_WILTON, .Wilton
+	if_equal PHONE_BLACKBELT_KENJI, .Kenji
+	if_equal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
 	farwritetext UnknownText_0x1b4e72
 	keeptextopen
 	end
 
-UnknownScript_0xbe2e2:
+.Huey:
 	farwritetext UnknownText_0x1b511a
 	keeptextopen
 	end
 
-UnknownScript_0xbe2e8:
+.Gaven:
 	farwritetext UnknownText_0x1b5335
 	keeptextopen
 	end
 
-UnknownScript_0xbe2ee:
+.Jose:
 	farwritetext UnknownText_0x1b564c
 	keeptextopen
 	end
 
-UnknownScript_0xbe2f4:
+.Joey:
 	farwritetext UnknownText_0x1b5948
 	keeptextopen
 	end
 
-UnknownScript_0xbe2fa:
+.Wade:
 	farwritetext UnknownText_0x1b5b0b
 	keeptextopen
 	end
 
-UnknownScript_0xbe300:
+.Ralph:
 	farwritetext UnknownText_0x1b5d21
 	keeptextopen
 	end
 
-UnknownScript_0xbe306:
+.Anthony:
 	farwritetext UnknownText_0x1b6017
 	keeptextopen
 	end
 
-UnknownScript_0xbe30c:
+.Todd:
 	farwritetext UnknownText_0x1b618f
 	keeptextopen
 	end
 
-UnknownScript_0xbe312:
+.Irwin:
 	farwritetext UnknownText_0x1b6407
 	keeptextopen
 	end
 
-UnknownScript_0xbe318:
+.Arnie:
 	farwritetext UnknownText_0x1b6506
 	keeptextopen
 	end
 
-UnknownScript_0xbe31e:
+.Alan:
 	farwritetext UnknownText_0x1b6624
 	keeptextopen
 	end
 
-UnknownScript_0xbe324:
+.Chad:
 	farwritetext UnknownText_0x1b6890
 	keeptextopen
 	end
 
-UnknownScript_0xbe32a:
+.Derek:
 	farwritetext UnknownText_0x1b6a56
 	keeptextopen
 	end
 
-UnknownScript_0xbe330:
+.Tully:
 	farwritetext UnknownText_0x1b6bef
 	keeptextopen
 	end
 
-UnknownScript_0xbe336:
+.Brent:
 	farwritetext UnknownText_0x1b6d57
 	keeptextopen
 	end
 
-UnknownScript_0xbe33c:
+.Vance:
 	farwritetext UnknownText_0x1b7112
 	keeptextopen
 	end
 
-UnknownScript_0xbe342:
+.Wilton:
 	farwritetext UnknownText_0x1b7283
 	keeptextopen
 	end
 
-UnknownScript_0xbe348:
+.Kenji:
 	farwritetext UnknownText_0x1b7397
 	keeptextopen
 	end
 
-UnknownScript_0xbe34e:
+.Parry:
 	farwritetext UnknownText_0x1b746f
 	keeptextopen
 	end
 
 UnknownScript_0xbe354:
 	checkcode VAR_CALLERID
-	if_equal PHONE_SCHOOLBOY_JACK,       UnknownScript_0xbe3a6
-	if_equal PHONE_SAILOR_HUEY,          UnknownScript_0xbe3ac
-	if_equal PHONE_COOLTRAINERM_GAVEN,   UnknownScript_0xbe3b2
-	if_equal PHONE_BIRDKEEPER_JOSE,      UnknownScript_0xbe3b8
-	if_equal PHONE_YOUNGSTER_JOEY,       UnknownScript_0xbe3be
-	if_equal PHONE_BUG_CATCHER_WADE,     UnknownScript_0xbe3c4
-	if_equal PHONE_FISHER_RALPH,         UnknownScript_0xbe3ca
-	if_equal PHONE_HIKER_ANTHONY,        UnknownScript_0xbe3d0
-	if_equal PHONE_CAMPER_TODD,          UnknownScript_0xbe3d6
-	if_equal PHONE_JUGGLER_IRWIN,        UnknownScript_0xbe3dc
-	if_equal PHONE_BUG_CATCHER_ARNIE,    UnknownScript_0xbe3e2
-	if_equal PHONE_SCHOOLBOY_ALAN,       UnknownScript_0xbe3e8
-	if_equal PHONE_SCHOOLBOY_CHAD,       UnknownScript_0xbe3ee
-	if_equal PHONE_POKEFANM_DEREK,       UnknownScript_0xbe3f4
-	if_equal PHONE_FISHER_TULLY,         UnknownScript_0xbe3fa
-	if_equal PHONE_POKEMANIAC_BRENT,     UnknownScript_0xbe400
-	if_equal PHONE_BIRDKEEPER_VANCE,     UnknownScript_0xbe406
-	if_equal PHONE_FISHER_WILTON,        UnknownScript_0xbe40c
-	if_equal PHONE_BLACKBELT_KENJI,      UnknownScript_0xbe412
-	if_equal PHONE_HIKER_PARRY,          UnknownScript_0xbe418
-
-UnknownScript_0xbe3a6:
+	if_equal PHONE_SCHOOLBOY_JACK, .Jack
+	if_equal PHONE_SAILOR_HUEY, .Huey
+	if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_YOUNGSTER_JOEY, .Joey
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_FISHER_RALPH, .Ralph
+	if_equal PHONE_HIKER_ANTHONY, .Anthony
+	if_equal PHONE_CAMPER_TODD, .Todd
+	if_equal PHONE_JUGGLER_IRWIN, .Irwin
+	if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_SCHOOLBOY_CHAD, .Chad
+	if_equal PHONE_POKEFANM_DEREK, .Derek
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_POKEMANIAC_BRENT, .Brent
+	if_equal PHONE_BIRDKEEPER_VANCE, .Vance
+	if_equal PHONE_FISHER_WILTON, .Wilton
+	if_equal PHONE_BLACKBELT_KENJI, .Kenji
+	if_equal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
 	farwritetext UnknownText_0x1b4e9e
 	keeptextopen
 	end
 
-UnknownScript_0xbe3ac:
+.Huey:
 	farwritetext UnknownText_0x1b5154
 	keeptextopen
 	end
 
-UnknownScript_0xbe3b2:
+.Gaven:
 	farwritetext UnknownText_0x1b535f
 	keeptextopen
 	end
 
-UnknownScript_0xbe3b8:
+.Jose:
 	farwritetext UnknownText_0x1b5670
 	keeptextopen
 	end
 
-UnknownScript_0xbe3be:
+.Joey:
 	farwritetext UnknownText_0x1b597c
 	keeptextopen
 	end
 
-UnknownScript_0xbe3c4:
+.Wade:
 	farwritetext UnknownText_0x1b5b37
 	keeptextopen
 	end
 
-UnknownScript_0xbe3ca:
+.Ralph:
 	farwritetext UnknownText_0x1b5d39
 	keeptextopen
 	end
 
-UnknownScript_0xbe3d0:
+.Anthony:
 	farwritetext UnknownText_0x1b6041
 	keeptextopen
 	end
 
-UnknownScript_0xbe3d6:
+.Todd:
 	farwritetext UnknownText_0x1b61bd
 	keeptextopen
 	end
 
-UnknownScript_0xbe3dc:
+.Irwin:
 	farwritetext UnknownText_0x1b642c
 	keeptextopen
 	end
 
-UnknownScript_0xbe3e2:
+.Arnie:
 	farwritetext UnknownText_0x1b6539
 	keeptextopen
 	end
 
-UnknownScript_0xbe3e8:
+.Alan:
 	farwritetext UnknownText_0x1b663b
 	keeptextopen
 	end
 
-UnknownScript_0xbe3ee:
+.Chad:
 	farwritetext UnknownText_0x1b68ba
 	keeptextopen
 	end
 
-UnknownScript_0xbe3f4:
+.Derek:
 	farwritetext UnknownText_0x1b6a8b
 	keeptextopen
 	end
 
-UnknownScript_0xbe3fa:
+.Tully:
 	farwritetext UnknownText_0x1b6c23
 	keeptextopen
 	end
 
-UnknownScript_0xbe400:
+.Brent:
 	farwritetext UnknownText_0x1b6d88
 	keeptextopen
 	end
 
-UnknownScript_0xbe406:
+.Vance:
 	farwritetext UnknownText_0x1b7132
 	keeptextopen
 	end
 
-UnknownScript_0xbe40c:
+.Wilton:
 	farwritetext UnknownText_0x1b72a5
 	keeptextopen
 	end
 
-UnknownScript_0xbe412:
+.Kenji:
 	farwritetext UnknownText_0x1b73af
 	keeptextopen
 	end
 
-UnknownScript_0xbe418:
+.Parry:
 	farwritetext UnknownText_0x1b749b
 	keeptextopen
 	end
@@ -2817,314 +2817,314 @@ UnknownScript_0xbe41e:
 	checknite
 	iftrue UnknownScript_0xbe4cc
 	checkcode VAR_CALLERID
-	if_equal PHONE_POKEFAN_BEVERLY,       UnknownScript_0xbe44a
-	if_equal PHONE_COOLTRAINERF_BETH,     UnknownScript_0xbe450
-	if_equal PHONE_COOLTRAINERF_REENA,    UnknownScript_0xbe456
-	if_equal PHONE_PICNICKER_LIZ,         UnknownScript_0xbe45c
-	if_equal PHONE_PICNICKER_GINA,        UnknownScript_0xbe462
-	if_equal PHONE_LASS_DANA,             UnknownScript_0xbe468
-	if_equal PHONE_PICNICKER_TIFFANY,     UnknownScript_0xbe46e
-	if_equal PHONE_PICNICKER_ERIN,        UnknownScript_0xbe474
-
-UnknownScript_0xbe44a:
+	if_equal PHONE_POKEFAN_BEVERLY, .Beverly
+	if_equal PHONE_COOLTRAINERF_BETH, .Beth
+	if_equal PHONE_COOLTRAINERF_REENA, .Reena
+	if_equal PHONE_PICNICKER_LIZ, .Liz
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
+	if_equal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
 	farwritetext UnknownText_0x1b4fa1
 	keeptextopen
 	end
 
-UnknownScript_0xbe450:
+.Beth:
 	farwritetext UnknownText_0x1b5472
 	keeptextopen
 	end
 
-UnknownScript_0xbe456:
+.Reena:
 	farwritetext UnknownText_0x1b5786
 	keeptextopen
 	end
 
-UnknownScript_0xbe45c:
+.Liz:
 	farwritetext UnknownText_0x1b5e25
 	keeptextopen
 	end
 
-UnknownScript_0xbe462:
+.Gina:
 	farwritetext UnknownText_0x1b62f1
 	keeptextopen
 	end
 
-UnknownScript_0xbe468:
+.Dana:
 	farwritetext UnknownText_0x1b6738
 	keeptextopen
 	end
 
-UnknownScript_0xbe46e:
+.Tiffany:
 	farwritetext UnknownText_0x1b6ef3
 	keeptextopen
 	end
 
-UnknownScript_0xbe474:
+.Erin:
 	farwritetext UnknownText_0x1b758f
 	keeptextopen
 	end
 
 UnknownScript_0xbe47a:
 	checkcode VAR_CALLERID
-	if_equal PHONE_POKEFAN_BEVERLY,       UnknownScript_0xbe49c
-	if_equal PHONE_COOLTRAINERF_BETH,     UnknownScript_0xbe4a2
-	if_equal PHONE_COOLTRAINERF_REENA,    UnknownScript_0xbe4a8
-	if_equal PHONE_PICNICKER_LIZ,         UnknownScript_0xbe4ae
-	if_equal PHONE_PICNICKER_GINA,        UnknownScript_0xbe4b4
-	if_equal PHONE_LASS_DANA,             UnknownScript_0xbe4ba
-	if_equal PHONE_PICNICKER_TIFFANY,     UnknownScript_0xbe4c0
-	if_equal PHONE_PICNICKER_ERIN,        UnknownScript_0xbe4c6
-
-UnknownScript_0xbe49c:
+	if_equal PHONE_POKEFAN_BEVERLY, .Beverly
+	if_equal PHONE_COOLTRAINERF_BETH, .Beth
+	if_equal PHONE_COOLTRAINERF_REENA, .Reena
+	if_equal PHONE_PICNICKER_LIZ, .Liz
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
+	if_equal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
 	farwritetext UnknownText_0x1b4fda
 	keeptextopen
 	end
 
-UnknownScript_0xbe4a2:
+.Beth:
 	farwritetext UnknownText_0x1b54a6
 	keeptextopen
 	end
 
-UnknownScript_0xbe4a8:
+.Reena:
 	farwritetext UnknownText_0x1b57b7
 	keeptextopen
 	end
 
-UnknownScript_0xbe4ae:
+.Liz:
 	farwritetext UnknownText_0x1b5e59
 	keeptextopen
 	end
 
-UnknownScript_0xbe4b4:
+.Gina:
 	farwritetext UnknownText_0x1b630e
 	keeptextopen
 	end
 
-UnknownScript_0xbe4ba:
+.Dana:
 	farwritetext UnknownText_0x1b6757
 	keeptextopen
 	end
 
-UnknownScript_0xbe4c0:
+.Tiffany:
 	farwritetext UnknownText_0x1b6f1c
 	keeptextopen
 	end
 
-UnknownScript_0xbe4c6:
+.Erin:
 	farwritetext UnknownText_0x1b75ac
 	keeptextopen
 	end
 
 UnknownScript_0xbe4cc:
 	checkcode VAR_CALLERID
-	if_equal PHONE_POKEFAN_BEVERLY,       UnknownScript_0xbe4ee
-	if_equal PHONE_COOLTRAINERF_BETH,     UnknownScript_0xbe4f4
-	if_equal PHONE_COOLTRAINERF_REENA,    UnknownScript_0xbe4fa
-	if_equal PHONE_PICNICKER_LIZ,         UnknownScript_0xbe500
-	if_equal PHONE_PICNICKER_GINA,        UnknownScript_0xbe506
-	if_equal PHONE_LASS_DANA,             UnknownScript_0xbe50c
-	if_equal PHONE_PICNICKER_TIFFANY,     UnknownScript_0xbe512
-	if_equal PHONE_PICNICKER_ERIN,        UnknownScript_0xbe518
-
-UnknownScript_0xbe4ee:
+	if_equal PHONE_POKEFAN_BEVERLY, .Beverly
+	if_equal PHONE_COOLTRAINERF_BETH, .Beth
+	if_equal PHONE_COOLTRAINERF_REENA, .Reena
+	if_equal PHONE_PICNICKER_LIZ, .Liz
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
+	if_equal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
 	farwritetext UnknownText_0x1b5004
 	keeptextopen
 	end
 
-UnknownScript_0xbe4f4:
+.Beth:
 	farwritetext UnknownText_0x1b54d4
 	keeptextopen
 	end
 
-UnknownScript_0xbe4fa:
+.Reena:
 	farwritetext UnknownText_0x1b57e8
 	keeptextopen
 	end
 
-UnknownScript_0xbe500:
+.Liz:
 	farwritetext UnknownText_0x1b5e8e
 	keeptextopen
 	end
 
-UnknownScript_0xbe506:
+.Gina:
 	farwritetext UnknownText_0x1b6331
 	keeptextopen
 	end
 
-UnknownScript_0xbe50c:
+.Dana:
 	farwritetext UnknownText_0x1b6776
 	keeptextopen
 	end
 
-UnknownScript_0xbe512:
+.Tiffany:
 	farwritetext UnknownText_0x1b6f37
 	keeptextopen
 	end
 
-UnknownScript_0xbe518:
+.Erin:
 	farwritetext UnknownText_0x1b75c9
 	keeptextopen
 	end
 
 UnknownScript_0xbe51e:
 	checkcode VAR_CALLERID
-	if_equal PHONE_SCHOOLBOY_JACK,       UnknownScript_0xbe564
-	if_equal PHONE_COOLTRAINERM_GAVEN,   UnknownScript_0xbe570
-	if_equal PHONE_BIRDKEEPER_JOSE,      UnknownScript_0xbe576
-	if_equal PHONE_YOUNGSTER_JOEY,       UnknownScript_0xbe57c
-	if_equal PHONE_BUG_CATCHER_WADE,     UnknownScript_0xbe582
-	if_equal PHONE_FISHER_RALPH,         UnknownScript_0xbe588
-	if_equal PHONE_HIKER_ANTHONY,        UnknownScript_0xbe58e
-	if_equal PHONE_CAMPER_TODD,          UnknownScript_0xbe594
-	if_equal PHONE_BUG_CATCHER_ARNIE,    UnknownScript_0xbe59a
-	if_equal PHONE_SCHOOLBOY_ALAN,       UnknownScript_0xbe5a0
-	if_equal PHONE_SCHOOLBOY_CHAD,       UnknownScript_0xbe5a6
-	if_equal PHONE_POKEFANM_DEREK,       UnknownScript_0xbe5ac
-	if_equal PHONE_FISHER_TULLY,         UnknownScript_0xbe5b2
-	if_equal PHONE_POKEMANIAC_BRENT,     UnknownScript_0xbe5b8
-	if_equal PHONE_BIRDKEEPER_VANCE,     UnknownScript_0xbe5be
-	if_equal PHONE_FISHER_WILTON,        UnknownScript_0xbe5c4
-	if_equal PHONE_HIKER_PARRY,          UnknownScript_0xbe5ca
-
-UnknownScript_0xbe564:
+	if_equal PHONE_SCHOOLBOY_JACK, .Jack
+	if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	if_equal PHONE_BIRDKEEPER_JOSE, .Jose
+	if_equal PHONE_YOUNGSTER_JOEY, .Joey
+	if_equal PHONE_BUG_CATCHER_WADE, .Wade
+	if_equal PHONE_FISHER_RALPH, .Ralph
+	if_equal PHONE_HIKER_ANTHONY, .Anthony
+	if_equal PHONE_CAMPER_TODD, .Todd
+	if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	if_equal PHONE_SCHOOLBOY_ALAN, .Alan
+	if_equal PHONE_SCHOOLBOY_CHAD, .Chad
+	if_equal PHONE_POKEFANM_DEREK, .Derek
+	if_equal PHONE_FISHER_TULLY, .Tully
+	if_equal PHONE_POKEMANIAC_BRENT, .Brent
+	if_equal PHONE_BIRDKEEPER_VANCE, .Vance
+	if_equal PHONE_FISHER_WILTON, .Wilton
+	if_equal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
 	farwritetext UnknownText_0x1b4ecd
 	keeptextopen
 	end
 
-UnknownScript_0xbe56a:
+.Unknown:
 	farwritetext UnknownText_0x1b518b
 	keeptextopen
 	end
 
-UnknownScript_0xbe570:
+.Gaven:
 	farwritetext UnknownText_0x1b5393
 	keeptextopen
 	end
 
-UnknownScript_0xbe576:
+.Jose:
 	farwritetext UnknownText_0x1b5694
 	keeptextopen
 	end
 
-UnknownScript_0xbe57c:
+.Joey:
 	farwritetext UnknownText_0x1b59b2
 	keeptextopen
 	end
 
-UnknownScript_0xbe582:
+.Wade:
 	farwritetext UnknownText_0x1b5b68
 	keeptextopen
 	end
 
-UnknownScript_0xbe588:
+.Ralph:
 	farwritetext UnknownText_0x1b5d51
 	keeptextopen
 	end
 
-UnknownScript_0xbe58e:
+.Anthony:
 	farwritetext UnknownText_0x1b606f
 	keeptextopen
 	end
 
-UnknownScript_0xbe594:
+.Todd:
 	farwritetext UnknownText_0x1b61f2
 	keeptextopen
 	end
 
-UnknownScript_0xbe59a:
+.Arnie:
 	farwritetext UnknownText_0x1b656c
 	keeptextopen
 	end
 
-UnknownScript_0xbe5a0:
+.Alan:
 	farwritetext UnknownText_0x1b6652
 	keeptextopen
 	end
 
-UnknownScript_0xbe5a6:
+.Chad:
 	farwritetext UnknownText_0x1b68e8
 	keeptextopen
 	end
 
-UnknownScript_0xbe5ac:
+.Derek:
 	farwritetext UnknownText_0x1b6ac2
 	keeptextopen
 	end
 
-UnknownScript_0xbe5b2:
+.Tully:
 	farwritetext UnknownText_0x1b6c56
 	keeptextopen
 	end
 
-UnknownScript_0xbe5b8:
+.Brent:
 	farwritetext UnknownText_0x1b6db9
 	keeptextopen
 	end
 
-UnknownScript_0xbe5be:
+.Vance:
 	farwritetext UnknownText_0x1b7161
 	keeptextopen
 	end
 
-UnknownScript_0xbe5c4:
+.Wilton:
 	farwritetext UnknownText_0x1b72d0
 	keeptextopen
 	end
 
-UnknownScript_0xbe5ca:
+.Parry:
 	farwritetext UnknownText_0x1b74c8
 	keeptextopen
 	end
 
 UnknownScript_0xbe5d0:
 	checkcode VAR_CALLERID
-	if_equal PHONE_POKEFAN_BEVERLY,       UnknownScript_0xbe5f2
-	if_equal PHONE_COOLTRAINERF_BETH,     UnknownScript_0xbe5f8
-	if_equal PHONE_COOLTRAINERF_REENA,    UnknownScript_0xbe5fe
-	if_equal PHONE_PICNICKER_LIZ,         UnknownScript_0xbe604
-	if_equal PHONE_PICNICKER_GINA,        UnknownScript_0xbe60a
-	if_equal PHONE_LASS_DANA,             UnknownScript_0xbe610
-	if_equal PHONE_PICNICKER_TIFFANY,     UnknownScript_0xbe616
-	if_equal PHONE_PICNICKER_ERIN,        UnknownScript_0xbe61c
-
-UnknownScript_0xbe5f2:
+	if_equal PHONE_POKEFAN_BEVERLY, .Beverly
+	if_equal PHONE_COOLTRAINERF_BETH, .Beth
+	if_equal PHONE_COOLTRAINERF_REENA, .Reena
+	if_equal PHONE_PICNICKER_LIZ, .Liz
+	if_equal PHONE_PICNICKER_GINA, .Gina
+	if_equal PHONE_LASS_DANA, .Dana
+	if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
+	if_equal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
 	farwritetext UnknownText_0x1b502b
 	keeptextopen
 	end
 
-UnknownScript_0xbe5f8:
+.Beth:
 	farwritetext UnknownText_0x1b5510
 	keeptextopen
 	end
 
-UnknownScript_0xbe5fe:
+.Reena:
 	farwritetext UnknownText_0x1b5819
 	keeptextopen
 	end
 
-UnknownScript_0xbe604:
+.Liz:
 	farwritetext UnknownText_0x1b5ebe
 	keeptextopen
 	end
 
-UnknownScript_0xbe60a:
+.Gina:
 	farwritetext UnknownText_0x1b6352
 	keeptextopen
 	end
 
-UnknownScript_0xbe610:
+.Dana:
 	farwritetext UnknownText_0x1b6795
 	keeptextopen
 	end
 
-UnknownScript_0xbe616:
+.Tiffany:
 	farwritetext UnknownText_0x1b6f60
 	keeptextopen
 	end
 
-UnknownScript_0xbe61c:
+.Erin:
 	farwritetext UnknownText_0x1b75e5
 	keeptextopen
 	end
diff --git a/engine/predef.asm b/engine/predef.asm
index 6079b48a4..cb72f9202 100644
--- a/engine/predef.asm
+++ b/engine/predef.asm
@@ -37,7 +37,7 @@ PredefPointers:: ; 856b
 	add_predef DrawPartyMenuHPBar
 	add_predef FillPP
 	add_predef TryAddMonToParty
-	add_predef Functionda96
+	add_predef AddTempmonToParty
 	add_predef SentGetPkmnIntoFromBox
 	add_predef SentPkmnIntoBox
 	add_predef GiveEgg
diff --git a/engine/specials.asm b/engine/specials.asm
index bfc4be7c0..82281d600 100644
--- a/engine/specials.asm
+++ b/engine/specials.asm
@@ -166,7 +166,7 @@ SpecialsPointers:: ; c029
 	add_special SpecialHoOhChamber
 	add_special Function102142
 	add_special Special_CelebiShrineEvent
-	add_special Function49bf9
+	add_special CheckCaughtCelebi
 	add_special SpecialPokeSeer
 	add_special SpecialBuenasPassword
 	add_special SpecialBuenaPrize
@@ -174,7 +174,7 @@ SpecialsPointers:: ; c029
 	add_special Special_SampleKenjiBreakCountdown
 	add_special SpecialBeastsCheck
 	add_special SpecialMonCheck
-	add_special Functionc225
+	add_special Special_SetPlayerPalette
 	add_special Function170bd2
 	add_special Mobile_SelectThreeMons
 	add_special Function1037eb
@@ -185,9 +185,9 @@ SpecialsPointers:: ; c029
 	add_special Mobile_DummyReturnFalse
 	add_special Function103780
 	add_special Function10387b
-	add_special Function4ae12
+	add_special AskRememberPassword
 	add_special LoadMapPalettes
-	add_special Function4a927
+	add_special FindItemInPCOrBag
 	add_special Special_InitialSetDSTFlag
 	add_special Special_InitialClearDSTFlag
 	add_special SpecialNone
@@ -197,10 +197,10 @@ SpecialNone: ; c224
 	ret
 ; c225
 
-Functionc225: ; c225
+Special_SetPlayerPalette: ; c225
 	ld a, [ScriptVar]
 	ld d, a
-	callba Function57e2
+	callba SetPlayerPalette
 	ret
 ; c230
 
diff --git a/event/buena.asm b/event/buena.asm
index 7079c0259..0443d962d 100644
--- a/event/buena.asm
+++ b/event/buena.asm
@@ -12,7 +12,7 @@ SpecialBuenasPassword: ; 8af6b
 	ld [wMenuBorderRightCoord], a
 	call BackUpTiles
 	call DoNthMenu ; menu
-	callba Function4ae5e
+	callba Buena_ExitMenu
 	ld b, $0
 	ld a, [MenuSelection]
 	ld c, a
diff --git a/event/celebi.asm b/event/celebi.asm
index a5c3c0735..cf930c2f8 100755
--- a/event/celebi.asm
+++ b/event/celebi.asm
@@ -337,18 +337,18 @@ Function49bf3: ; 49bf3
 	ret
 ; 49bf9
 
-Function49bf9: ; 49bf9
+CheckCaughtCelebi: ; 49bf9
 	ld a, [wBattleResult]
 	bit 6, a
-	jr z, .asm_49c07
+	jr z, .false
 	ld a, $1
 	ld [ScriptVar], a
-	jr .asm_49c0b
+	jr .done
 
-.asm_49c07
+.false
 	xor a
 	ld [ScriptVar], a
 
-.asm_49c0b
+.done
 	ret
 ; 49c0c
diff --git a/main.asm b/main.asm
index 29e2b09b6..15b4aa3d0 100644
--- a/main.asm
+++ b/main.asm
@@ -8347,7 +8347,7 @@ FillPP: ; da6d
 	ret
 ; da96
 
-Functionda96: ; da96
+AddTempmonToParty: ; da96
 	ld hl, PartyCount
 	ld a, [hl]
 	cp PARTY_LENGTH
@@ -8362,6 +8362,7 @@ Functionda96: ; da96
 	ld a, [CurPartySpecies]
 	ld [hli], a
 	ld [hl], $ff
+
 	ld hl, PartyMon1Species
 	ld a, [PartyCount]
 	dec a
@@ -8371,6 +8372,7 @@ Functionda96: ; da96
 	ld d, h
 	ld hl, TempMonSpecies
 	call CopyBytes
+
 	ld hl, PartyMonOT
 	ld a, [PartyCount]
 	dec a
@@ -8382,6 +8384,7 @@ Functionda96: ; da96
 	call SkipNames
 	ld bc, NAME_LENGTH
 	call CopyBytes
+
 	ld hl, PartyMonNicknames
 	ld a, [PartyCount]
 	dec a
@@ -8397,7 +8400,7 @@ Functionda96: ; da96
 	ld a, [CurPartySpecies]
 	ld [wNamedObjectIndexBuffer], a
 	cp EGG
-	jr z, .owned
+	jr z, .egg
 	dec a
 	call SetSeenAndCaughtMon
 	ld hl, PartyMon1Happiness
@@ -8406,7 +8409,7 @@ Functionda96: ; da96
 	ld bc, PARTYMON_STRUCT_LENGTH
 	call AddNTimes
 	ld [hl], BASE_HAPPINESS
-.owned
+.egg
 
 	ld a, [CurPartySpecies]
 	cp UNOWN
@@ -21858,24 +21861,24 @@ Function4a91e: ; 4a91e
 ; 4a927
 
 
-Function4a927: ; 4a927
+FindItemInPCOrBag: ; 4a927
 	ld a, [ScriptVar]
 	ld [CurItem], a
 	ld hl, PCItems
 	call CheckItem
-	jr c, .asm_4a948
+	jr c, .found
 
 	ld a, [ScriptVar]
 	ld [CurItem], a
 	ld hl, NumItems
 	call CheckItem
-	jr c, .asm_4a948
+	jr c, .found
 
 	xor a
 	ld [ScriptVar], a
 	ret
 
-.asm_4a948
+.found
 	ld a, 1
 	ld [ScriptVar], a
 	ret
@@ -22593,22 +22596,22 @@ Function4adb2: ; 4adb2
 Function4adc2: ; 4adc2
 	ld a, [wd002]
 	cp $ff
-	jr nz, .asm_4ade5
+	jr nz, .skip
 	ld a, [wd003]
 	cp $ff
-	jr nz, .asm_4addd
+	jr nz, .skip2
 	ld a, [wd004]
 	ld [wd002], a
 	ld a, $ff
 	ld [wd004], a
-	jr .asm_4ade5
+	jr .skip
 
-.asm_4addd
+.skip2
 	ld [wd002], a
 	ld a, $ff
 	ld [wd003], a
 
-.asm_4ade5
+.skip
 	ld a, [wd003]
 	cp $ff
 	ret nz
@@ -22635,18 +22638,18 @@ Function4adf7: ; 4adf7
 	ret
 ; 4ae12
 
-Function4ae12: ; 4ae12
-	call Function4ae1f
+AskRememberPassword: ; 4ae12
+	call .DoMenu
 	ld a, $0
-	jr c, .asm_4ae1b
+	jr c, .okay
 	ld a, $1
 
-.asm_4ae1b
+.okay
 	ld [ScriptVar], a
 	ret
 ; 4ae1f
 
-Function4ae1f: ; 4ae1f
+.DoMenu: ; 4ae1f
 	lb bc, 14, 7
 	push bc
 	ld hl, YesNoMenuDataHeader
@@ -22665,23 +22668,23 @@ Function4ae1f: ; 4ae1f
 	push af
 	ld c, 15
 	call DelayFrames
-	call Function4ae5e
+	call Buena_ExitMenu
 	pop af
-	jr c, .asm_4ae57
+	jr c, .refused
 	ld a, [MenuSelection2]
 	cp $2
-	jr z, .asm_4ae57
+	jr z, .refused
 	and a
 	ret
 
-.asm_4ae57
+.refused
 	ld a, $2
 	ld [MenuSelection2], a
 	scf
 	ret
 ; 4ae5e
 
-Function4ae5e: ; 4ae5e
+Buena_ExitMenu: ; 4ae5e
 	ld a, [hOAMUpdate]
 	push af
 	call ExitMenu
@@ -33360,7 +33363,6 @@ SECTION "Phone Engine", ROMX, BANK[$28]
 
 INCLUDE "engine/more_phone_scripts.asm"
 INCLUDE "engine/buena_phone_scripts.asm"
-INCLUDE "text/phone/buena.asm"
 
 
 SECTION "Phone Text", ROMX, BANK[$29]
diff --git a/maps/CeladonDeptStore6F.asm b/maps/CeladonDeptStore6F.asm
index e876c09d8..25f92be00 100644
--- a/maps/CeladonDeptStore6F.asm
+++ b/maps/CeladonDeptStore6F.asm
@@ -7,9 +7,9 @@ CeladonDeptStore6F_MapScriptHeader:
 
 	; callbacks
 
-	dbw 1, UnknownScript_0x71175
+	dbw 1, .Callback
 
-UnknownScript_0x71175:
+.Callback:
 	changeblock $c, $0, $3
 	return
 
diff --git a/maps/IlexForest.asm b/maps/IlexForest.asm
index cc5b19bf0..b87a3a179 100644
--- a/maps/IlexForest.asm
+++ b/maps/IlexForest.asm
@@ -460,7 +460,7 @@ UnknownScript_0x6ee42:
 	startbattle
 	returnafterbattle
 	pause 20
-	special Function49bf9
+	special CheckCaughtCelebi
 	iffalse UnknownScript_0x6ee8e
 	appear $7
 	applymovement $7, MovementData_0x6ef4e
diff --git a/maps/PokeCenter2F.asm b/maps/PokeCenter2F.asm
index 3177d3963..1684dce98 100644
--- a/maps/PokeCenter2F.asm
+++ b/maps/PokeCenter2F.asm
@@ -431,8 +431,8 @@ PokeCenter2F_CheckGender:
 	loadmovesprites
 	playsound SFX_TINGLE
 	applymovement PLAYER, MovementData_0x192d17
-	writebyte $80
-	special Functionc225
+	writebyte (1 << 7) | (PAL_OW_RED << 4)
+	special Special_SetPlayerPalette
 	applymovement PLAYER, MovementData_0x192d1c
 	setflag ENGINE_KRIS_IN_CABLE_CLUB
 	special ReplaceKrisSprite
@@ -458,8 +458,8 @@ Script_CleanUpFemaleFlagAfterTrade:
 	clearflag ENGINE_KRIS_IN_CABLE_CLUB
 	playsound SFX_TINGLE
 	applymovement PLAYER, MovementData_0x192d17
-	writebyte $90
-	special Functionc225
+	writebyte (1 << 7) | (PAL_OW_BLUE << 4)
+	special Special_SetPlayerPalette
 	applymovement PLAYER, MovementData_0x192d1c
 	special ReplaceKrisSprite
 	applymovement PLAYER, MovementData_0x192d2a
@@ -480,8 +480,8 @@ Script_CleanUpFemaleFlagAfterBattle:
 	clearflag ENGINE_KRIS_IN_CABLE_CLUB
 	playsound SFX_TINGLE
 	applymovement PLAYER, MovementData_0x192d17
-	writebyte $90
-	special Functionc225
+	writebyte (1 << 7) | (PAL_OW_BLUE << 4)
+	special Special_SetPlayerPalette
 	applymovement PLAYER, MovementData_0x192d1c
 	special ReplaceKrisSprite
 	applymovement PLAYER, MovementData_0x192d2a
@@ -539,8 +539,8 @@ TimeCapsuleScript_CheckPlayerGender:
 	loadmovesprites
 	playsound SFX_TINGLE
 	applymovement PLAYER, MovementData_0x192d17
-	writebyte $80
-	special Functionc225
+	writebyte (1 << 7) | (PAL_OW_RED << 4)
+	special Special_SetPlayerPalette
 	applymovement PLAYER, MovementData_0x192d22
 	faceperson PLAYER, $4
 	setflag ENGINE_KRIS_IN_CABLE_CLUB
@@ -568,8 +568,8 @@ Script_LeftTimeCapsule:
 	clearflag ENGINE_KRIS_IN_CABLE_CLUB
 	playsound SFX_TINGLE
 	applymovement PLAYER, MovementData_0x192d17
-	writebyte $90
-	special Functionc225
+	writebyte (1 << 7) | (PAL_OW_BLUE << 4)
+	special Special_SetPlayerPalette
 	applymovement PLAYER, MovementData_0x192d1c
 	special ReplaceKrisSprite
 	applymovement PLAYER, MovementData_0x192cfc
diff --git a/maps/RadioTower2F.asm b/maps/RadioTower2F.asm
index eb81f7579..22619d10c 100644
--- a/maps/RadioTower2F.asm
+++ b/maps/RadioTower2F.asm
@@ -104,7 +104,7 @@ Buena:
 	if_equal 30, UnknownScript_0x5d87f
 	playmusic MUSIC_BUENAS_PASSWORD
 	writetext UnknownText_0x5de35
-	special Function4ae12
+	special AskRememberPassword
 	iffalse UnknownScript_0x5d81e
 	writetext UnknownText_0x5de84
 	closetext