diff --git a/data/maps/Route111/map.json b/data/maps/Route111/map.json
index 0317366cdf..37c70e3514 100644
--- a/data/maps/Route111/map.json
+++ b/data/maps/Route111/map.json
@@ -456,7 +456,7 @@
       "movement_range_y": 1,
       "trainer_type": "0",
       "trainer_sight_or_berry_tree_id": "0",
-      "script": "Route111_EventScript_2765FF",
+      "script": "Route111_EventScript_SecretPowerMan",
       "flag": "FLAG_HIDE_ROUTE_111_SECRET_POWER_MAN"
     },
     {
diff --git a/data/scripts/secret_power_tm.inc b/data/scripts/secret_power_tm.inc
index c89202dedc..7be69ec58b 100644
--- a/data/scripts/secret_power_tm.inc
+++ b/data/scripts/secret_power_tm.inc
@@ -1,4 +1,4 @@
-Route111_Text_2762C9: @ 82762C9
+Route111_Text_MakingRoomUseTMToMakeYourOwn: @ 82762C9
 	.string "What's that?\n"
 	.string "What am I doing?\p"
 	.string "I'm thinking about making my own room\n"
@@ -6,7 +6,7 @@ Route111_Text_2762C9: @ 82762C9
 	.string "I know! I'll give you this TM.\n"
 	.string "Will you use it to make your own room?$"
 
-Route111_Text_27636E: @ 827636E
+Route111_Text_ExplainSecretPower: @ 827636E
 	.string "Find a big tree that looks like it might\n"
 	.string "drop some vines.\p"
 	.string "Use SECRET POWER in front of the tree.\n"
@@ -24,59 +24,59 @@ Route111_Text_27636E: @ 827636E
 	.string "I'm going to look for other places, too.\n"
 	.string "Okay, bye!$"
 
-Route111_Text_27655C: @ 827655C
+Route111_Text_DontWantThis: @ 827655C
 	.string "Oh, you don't want this?\n"
 	.string "If you change your mind, tell me, okay?$"
 
-Route111_Text_27659D: @ 827659D
+Route111_Text_DontHaveAnyRoom: @ 827659D
 	.string "Oh, you don't have any room for this.\p"
 	.string "I'll hold on to it, so come back for it\n"
 	.string "another time, okay?$"
 
-Route111_EventScript_2765FF:: @ 82765FF
+Route111_EventScript_SecretPowerMan:: @ 82765FF
 	lock
 	faceplayer
-	msgbox Route111_Text_2762C9, MSGBOX_YESNO
+	msgbox Route111_Text_MakingRoomUseTMToMakeYourOwn, MSGBOX_YESNO
 	compare VAR_RESULT, YES
-	goto_if_eq Route111_EventScript_27661E
-	msgbox Route111_Text_27655C, MSGBOX_DEFAULT
+	goto_if_eq Route111_EventScript_GiveSecretPower
+	msgbox Route111_Text_DontWantThis, MSGBOX_DEFAULT
 	release
 	end
 
-Route111_EventScript_27661E:: @ 827661E
+Route111_EventScript_GiveSecretPower:: @ 827661E
 	giveitem_std ITEM_TM43
-	compare VAR_RESULT, 0
-	goto_if_eq Route111_EventScript_276680
-	msgbox Route111_Text_27636E, MSGBOX_DEFAULT
+	compare VAR_RESULT, FALSE
+	goto_if_eq Route111_EventScript_NoRoomForSecretPower
+	msgbox Route111_Text_ExplainSecretPower, MSGBOX_DEFAULT
 	closemessage
 	setflag FLAG_RECEIVED_SECRET_POWER
 	clearflag FLAG_HIDE_SLATEPORT_CITY_TM_SALESMAN
 	compare VAR_FACING, DIR_WEST
-	call_if_eq Route111_EventScript_27666A
+	call_if_eq Route111_EventScript_SecretPowerManExit
 	compare VAR_FACING, DIR_EAST
-	call_if_eq Route111_EventScript_27666A
+	call_if_eq Route111_EventScript_SecretPowerManExit
 	compare VAR_FACING, DIR_NORTH
-	call_if_eq Route111_EventScript_276675
+	call_if_eq Route111_EventScript_SecretPowerManExitNorth
 	removeobject VAR_LAST_TALKED
 	release
 	end
 
-Route111_EventScript_27666A:: @ 827666A
-	applymovement VAR_LAST_TALKED, Route111_Movement_27668A
+Route111_EventScript_SecretPowerManExit:: @ 827666A
+	applymovement VAR_LAST_TALKED, Route111_Movement_SecretPowerManExit
 	waitmovement 0
 	return
 
-Route111_EventScript_276675:: @ 8276675
-	applymovement VAR_LAST_TALKED, Route111_Movement_276696
+Route111_EventScript_SecretPowerManExitNorth:: @ 8276675
+	applymovement VAR_LAST_TALKED, Route111_Movement_SecretPowerManExitNorth
 	waitmovement 0
 	return
 
-Route111_EventScript_276680:: @ 8276680
-	msgbox Route111_Text_27659D, MSGBOX_DEFAULT
+Route111_EventScript_NoRoomForSecretPower:: @ 8276680
+	msgbox Route111_Text_DontHaveAnyRoom, MSGBOX_DEFAULT
 	release
 	end
 
-Route111_Movement_27668A: @ 827668A
+Route111_Movement_SecretPowerManExit: @ 827668A
 	walk_down
 	walk_down
 	walk_down
@@ -90,7 +90,7 @@ Route111_Movement_27668A: @ 827668A
 	walk_down
 	step_end
 
-Route111_Movement_276696: @ 8276696
+Route111_Movement_SecretPowerManExitNorth: @ 8276696
 	walk_left
 	walk_down
 	walk_down