diff --git a/data/events/special_pointers.asm b/data/events/special_pointers.asm
index 1f9c8d8..1f1a1ae 100644
--- a/data/events/special_pointers.asm
+++ b/data/events/special_pointers.asm
@@ -69,7 +69,6 @@ SpecialsPointers::
 	add_special UpdateSprites ; bank 0
 	add_special UpdatePlayerSprite ; bank 0
 	add_special GameCornerPrizeMonCheckDex
-	add_special GameCornerPrizeMonShowDex
 	add_special UnusedSetSeenMon ; unused
 	add_special WaitSFX ; bank 0
 	add_special PlayMapMusic ; bank 0
diff --git a/engine/events/specials.asm b/engine/events/specials.asm
index 645eabb..10cf094 100644
--- a/engine/events/specials.asm
+++ b/engine/events/specials.asm
@@ -236,26 +236,17 @@ SetPlayerPalette:
 	ret
 
 GameCornerPrizeMonCheckDex:
-	xor a
-	ld [wPokedexShinyToggle], a
-	ld [wWasMonCaught], a
 	ld a, [wScriptVar]
 	call CheckCaughtMon
 	ret nz
-	ld a, 1
-	ld [wWasMonCaught], a
-	ret
-
-GameCornerPrizeMonShowDex:
-	ld a, [wWasMonCaught]
-	cp 0
-	ret z
+	ld a, [wScriptVar]
+	call SetSeenAndCaughtMon
 	call FadeToMenu
 	ld a, [wScriptVar]
 	ld [wNamedObjectIndex], a
 	farcall NewPokedexEntry
 	call ExitAllMenus
-	ret	
+	ret
 
 UnusedSetSeenMon:
 	ld a, [wScriptVar]
diff --git a/engine/items/item_effects.asm b/engine/items/item_effects.asm
index 1cd551a..51c3b0f 100644
--- a/engine/items/item_effects.asm
+++ b/engine/items/item_effects.asm
@@ -532,15 +532,6 @@ PokeBallEffect:
 
 	ld a, [wEnemyMonSpecies]
 	ld [wTempSpecies], a
-	farcall BattleCheckEnemyShininess
-	jp c, .shiny
-	xor a
-	jp .shinycont
-.shiny
-	xor a
-	inc a
-.shinycont
-	ld [wPokedexShinyToggle], a
 	predef NewPokedexEntry
 
 .skip_pokedex
diff --git a/engine/menus/options_menu.asm b/engine/menus/options_menu.asm
index 8d1626c..6bb630f 100644
--- a/engine/menus/options_menu.asm
+++ b/engine/menus/options_menu.asm
@@ -114,9 +114,9 @@ GetOptionPointer:
 Options_TextSpeed:
 	call GetTextSpeed
 	ldh a, [hJoyPressed]
-	bit D_RIGHT_F, a
-	jr nz, .RightPressed
 	bit D_LEFT_F, a
+	jr nz, .LeftPressed
+	bit D_RIGHT_F, a
 	jr z, .NonePressed
 	ld a, c ; right pressed
 	cp OPT_TEXT_SPEED_NONE
@@ -128,7 +128,7 @@ Options_TextSpeed:
 	ld a, e
 	jr .Save
 
-.RightPressed:
+.LeftPressed:
 	ld a, c
 	and a
 	jr nz, .Decrease
diff --git a/engine/pokemon/move_mon.asm b/engine/pokemon/move_mon.asm
index c9a4f89..de10b57 100644
--- a/engine/pokemon/move_mon.asm
+++ b/engine/pokemon/move_mon.asm
@@ -210,24 +210,8 @@ endr
 	inc de
 	ld a, c
 	ld [de], a
+	inc de
 
-	; Set Shininess for New Dex Entry
-	dec de
-	ld b, d
-	ld c, e
-	farcall CheckShininess
-	jp c, .shiny
-	xor a
-	jp .shinycont
-.shiny
-	xor a
-	inc a
-.shinycont
-	ld [wPokedexShinyToggle], a
-	; Unclobber de
-	inc de
-	inc de
-	
 	; Initialize PP.
 	push hl
 	push de
diff --git a/maps/CeladonGameCornerPrizeRoom.asm b/maps/CeladonGameCornerPrizeRoom.asm
index 65cc864..55ab9aa 100644
--- a/maps/CeladonGameCornerPrizeRoom.asm
+++ b/maps/CeladonGameCornerPrizeRoom.asm
@@ -154,8 +154,6 @@ CeladonGameCornerPrizeRoomPokemonVendor:
 	loadmonindex 1, PIKACHU
 	special GameCornerPrizeMonCheckDex
 	givepoke PIKACHU, 25
-	loadmonindex 1, PIKACHU
-	special GameCornerPrizeMonShowDex
 	takecoins CELADONGAMECORNERPRIZEROOM_PIKACHU_COINS
 	sjump .loop
 
@@ -174,8 +172,6 @@ CeladonGameCornerPrizeRoomPokemonVendor:
 	loadmonindex 2, PORYGON
 	special GameCornerPrizeMonCheckDex
 	givepoke PORYGON, 15
-	loadmonindex 2, PORYGON
-	special GameCornerPrizeMonShowDex
 	takecoins CELADONGAMECORNERPRIZEROOM_PORYGON_COINS
 	sjump .loop
 
@@ -194,8 +190,6 @@ CeladonGameCornerPrizeRoomPokemonVendor:
 	loadmonindex 3, LARVITAR
 	special GameCornerPrizeMonCheckDex
 	givepoke LARVITAR, 40
-	loadmonindex 3, LARVITAR
-	special GameCornerPrizeMonShowDex
 	takecoins CELADONGAMECORNERPRIZEROOM_LARVITAR_COINS
 	sjump .loop
 
diff --git a/maps/GoldenrodGameCorner.asm b/maps/GoldenrodGameCorner.asm
index c298696..4d5ae20 100644
--- a/maps/GoldenrodGameCorner.asm
+++ b/maps/GoldenrodGameCorner.asm
@@ -190,8 +190,6 @@ GoldenrodGameCornerPrizeMonVendorScript:
 	loadmonindex 1, ABRA
 	special GameCornerPrizeMonCheckDex
 	givepoke ABRA, 5
-	loadmonindex 1, ABRA
-	special GameCornerPrizeMonShowDex
 	takecoins GOLDENRODGAMECORNER_ABRA_COINS
 	sjump .loop
 
@@ -210,8 +208,6 @@ GoldenrodGameCornerPrizeMonVendorScript:
 	loadmonindex 2, CUBONE
 	special GameCornerPrizeMonCheckDex
 	givepoke CUBONE, 15
-	loadmonindex 2, CUBONE
-	special GameCornerPrizeMonShowDex
 	takecoins GOLDENRODGAMECORNER_CUBONE_COINS
 	sjump .loop
 
@@ -230,8 +226,6 @@ GoldenrodGameCornerPrizeMonVendorScript:
 	loadmonindex 3, WOBBUFFET
 	special GameCornerPrizeMonCheckDex
 	givepoke WOBBUFFET, 15
-	loadmonindex 3, WOBBUFFET
-	special GameCornerPrizeMonShowDex
 	takecoins GOLDENRODGAMECORNER_WOBBUFFET_COINS
 	sjump .loop
 
diff --git a/ram/wram.asm b/ram/wram.asm
index 018c963..5d4b7a0 100644
--- a/ram/wram.asm
+++ b/ram/wram.asm
@@ -739,7 +739,6 @@ wPokedexDisplayNumber:: dw
 wDexLastSeenIndex:: db ; index into wPokedexSeen containing the last non-zero value
 wDexLastSeenValue:: db ; value at index
 wDexTempCounter:: dw
-wWasMonCaught:: db ; for use with givepoke
 wPokedexDataEnd::
 
 wPrevDexEntry:: dw