Document Four Island scripts, trainer_card.inc

data/maps/FourIsland_Mart/map.json

@@ -25,7 +25,7 @@
       "movement_range_y": 1,
       "trainer_type": 0,
       "trainer_sight_or_berry_tree_id": 0,
-      "script": "FourIsland_Mart_EventScript_171CAE",
+      "script": "FourIsland_Mart_EventScript_Clerk",
       "flag": "0"
     },
     {
@@ -38,7 +38,7 @@
       "movement_range_y": 1,
       "trainer_type": 0,
       "trainer_sight_or_berry_tree_id": 0,
-      "script": "FourIsland_Mart_EventScript_1ACF46",
+      "script": "FourIsland_Mart_EventScript_OldMan",
       "flag": "0"
     },
     {
@@ -51,7 +51,7 @@
       "movement_range_y": 1,
       "trainer_type": 0,
       "trainer_sight_or_berry_tree_id": 0,
-      "script": "FourIsland_Mart_EventScript_171CE8",
+      "script": "FourIsland_Mart_EventScript_Camper",
       "flag": "0"
     }
   ],

data/maps/FourIsland_Mart/scripts.inc

@@ -1,19 +1,19 @@
 FourIsland_Mart_MapScripts:: @ 8171CAD
 	.byte 0
 
-FourIsland_Mart_EventScript_171CAE:: @ 8171CAE
+FourIsland_Mart_EventScript_Clerk:: @ 8171CAE
 	goto_if_questlog EventScript_ReleaseEnd
 	lock
 	faceplayer
 	message Text_MayIHelpYou
 	waitmessage
-	pokemart Items_171CD4
+	pokemart FourIsland_Mart_Items
 	msgbox Text_PleaseComeAgain
 	release
 	end
 
 	.align 2
-Items_171CD4:: @ 8171CD4
+FourIsland_Mart_Items:: @ 8171CD4
 	.2byte ITEM_ULTRA_BALL
 	.2byte ITEM_FULL_RESTORE
 	.2byte ITEM_MAX_POTION
@@ -26,6 +26,6 @@ Items_171CD4:: @ 8171CD4
 	release
 	end
 
-FourIsland_Mart_EventScript_171CE8:: @ 8171CE8
-	msgbox gUnknown_81A3B14, MSGBOX_NPC
+FourIsland_Mart_EventScript_Camper:: @ 8171CE8
+	msgbox FourIsland_Mart_Text_IcefallCaveIsFrigid, MSGBOX_NPC
 	end

data/maps/FourIsland_Mart/text.inc

@@ -1,4 +1,4 @@
-Text_1A3A60:: @ 81A3A60
+FourIsland_Mart_Text_LoreleiGrewUpOnThisIsland:: @ 81A3A60
     .string "We've had a great and powerful\n"
     .string "TRAINER grow up on this island.\p"
     .string "I bet even you'd know her.\n"
@@ -6,7 +6,7 @@ Text_1A3A60:: @ 81A3A60
     .string "When LORELEI was just a tyke,\n"
     .string "I taught her about POKéMON.$"
 
-gUnknown_81A3B14:: @ 81A3B14
+FourIsland_Mart_Text_IcefallCaveIsFrigid:: @ 81A3B14
     .string "The SEVII ISLANDS are in a warm\n"
     .string "region overall.\p"
     .string "But there is one exception you\n"