Document Seven Island scripts

data/maps/SevenIsland/map.json

@@ -49,7 +49,7 @@
       "movement_range_y": 1,
       "trainer_type": 0,
       "trainer_sight_or_berry_tree_id": 0,
-      "script": "SevenIsland_EventScript_167EC6",
+      "script": "SevenIsland_EventScript_OldWoman",
       "flag": "0"
     },
     {
@@ -62,7 +62,7 @@
       "movement_range_y": 1,
       "trainer_type": 0,
       "trainer_sight_or_berry_tree_id": 0,
-      "script": "SevenIsland_EventScript_167ECF",
+      "script": "SevenIsland_EventScript_Scientist",
       "flag": "0"
     }
   ],
@@ -103,7 +103,7 @@
       "x": 17,
       "y": 9,
       "elevation": 0,
-      "script": "SevenIsland_EventScript_167EBD"
+      "script": "SevenIsland_EventScript_IslandSign"
     }
   ]
 }

data/maps/SevenIsland/scripts.inc

@@ -6,14 +6,14 @@ SevenIsland_OnTransition:: @ 8167EB9
 	setworldmapflag FLAG_WORLD_MAP_SEVEN_ISLAND
 	end
 
-SevenIsland_EventScript_167EBD:: @ 8167EBD
-	msgbox gUnknown_8183046, MSGBOX_SIGN
+SevenIsland_EventScript_IslandSign:: @ 8167EBD
+	msgbox SevenIsland_Text_IslandSign, MSGBOX_SIGN
 	end
 
-SevenIsland_EventScript_167EC6:: @ 8167EC6
-	msgbox gUnknown_818306C, MSGBOX_NPC
+SevenIsland_EventScript_OldWoman:: @ 8167EC6
+	msgbox SevenIsland_Text_IslandsMadeInSevenDays, MSGBOX_NPC
 	end
 
-SevenIsland_EventScript_167ECF:: @ 8167ECF
-	msgbox gUnknown_8183143, MSGBOX_NPC
+SevenIsland_EventScript_Scientist:: @ 8167ECF
+	msgbox SevenIsland_Text_IslandVirtuallyUntouched, MSGBOX_NPC
 	end

data/maps/SevenIsland/text.inc

@@ -17,11 +17,11 @@ Text_SwordsDanceTaught:: @ 818300D
     .string "If only we could keep getting\n"
     .string "stronger and stronger, eh?$"
 
-gUnknown_8183046:: @ 8183046
+SevenIsland_Text_IslandSign:: @ 8183046
     .string "SEVEN ISLAND\n"
     .string "Quest Island of Infinity$"
 
-gUnknown_818306C:: @ 818306C
+SevenIsland_Text_IslandsMadeInSevenDays:: @ 818306C
     .string "These islands are called the SEVII\n"
     .string "ISLANDS because there are seven.\p"
     .string "…Or at least that's what the young\n"
@@ -30,7 +30,7 @@ gUnknown_818306C:: @ 818306C
     .string "named because they are said to\l"
     .string "have been made in seven days.$"
 
-gUnknown_8183143:: @ 8183143
+SevenIsland_Text_IslandVirtuallyUntouched:: @ 8183143
     .string "This island has been left virtually\n"
     .string "untouched in its natural state.\p"
     .string "It could be a little difficult to\n"