Document Six Island scripts

data/maps/SixIsland_Mart/map.json

@@ -25,7 +25,7 @@
       "movement_range_y": 1,
       "trainer_type": 0,
       "trainer_sight_or_berry_tree_id": 0,
-      "script": "SixIsland_Mart_EventScript_171E66",
+      "script": "SixIsland_Mart_EventScript_Clerk",
       "flag": "0"
     },
     {
@@ -38,7 +38,7 @@
       "movement_range_y": 1,
       "trainer_type": 0,
       "trainer_sight_or_berry_tree_id": 0,
-      "script": "SixIsland_Mart_EventScript_1ACFEF",
+      "script": "SixIsland_Mart_EventScript_OldWoman",
       "flag": "0"
     },
     {
@@ -51,7 +51,7 @@
       "movement_range_y": 1,
       "trainer_type": 0,
       "trainer_sight_or_berry_tree_id": 0,
-      "script": "SixIsland_Mart_EventScript_171EA0",
+      "script": "SixIsland_Mart_EventScript_Picnicker",
       "flag": "0"
     }
   ],

data/maps/SixIsland_Mart/scripts.inc

@@ -1,19 +1,19 @@
 SixIsland_Mart_MapScripts:: @ 8171E65
 	.byte 0
 
-SixIsland_Mart_EventScript_171E66:: @ 8171E66
+SixIsland_Mart_EventScript_Clerk:: @ 8171E66
 	goto_if_questlog EventScript_ReleaseEnd
 	lock
 	faceplayer
 	message Text_MayIHelpYou
 	waitmessage
-	pokemart Items_171E8C
+	pokemart SixIsland_Mart_Items
 	msgbox Text_PleaseComeAgain
 	release
 	end
 
 	.align 2
-Items_171E8C:: @ 8171E8C
+SixIsland_Mart_Items:: @ 8171E8C
 	.2byte ITEM_ULTRA_BALL
 	.2byte ITEM_FULL_RESTORE
 	.2byte ITEM_MAX_POTION
@@ -26,6 +26,6 @@ Items_171E8C:: @ 8171E8C
 	release
 	end
 
-SixIsland_Mart_EventScript_171EA0:: @ 8171EA0
-	msgbox gUnknown_81A4271, MSGBOX_NPC
+SixIsland_Mart_EventScript_Picnicker:: @ 8171EA0
+	msgbox SixIsland_Mart_Text_ShouldBuyMailAndWriteLetter, MSGBOX_NPC
 	end

data/maps/SixIsland_Mart/text.inc

@@ -1,4 +1,4 @@
-Text_1A41CA:: @ 81A41CA
+SixIsland_Mart_Text_AgathaOldestEverEliteFourMember:: @ 81A41CA
     .string "Play with POKéMON lots and live\n"
     .string "a long life!\p"
     .string "Take AGATHA, for example.\p"
@@ -6,7 +6,7 @@ Text_1A41CA:: @ 81A41CA
     .string "oldest-ever ELITE FOUR member.\p"
     .string "She spurs me to do bigger things.$"
 
-gUnknown_81A4271:: @ 81A4271
+SixIsland_Mart_Text_ShouldBuyMailAndWriteLetter:: @ 81A4271
     .string "I should buy some MAIL and write\n"
     .string "him a letter…$"