Change every label names from l_ to L_ .

7 files changed, 188 insertions, 188 deletions

diff --git a/npc/000-2-1/alige.txt b/npc/000-2-1/alige.txt
index 03e7c0f02..2a98020ed 100644
--- a/npc/000-2-1/alige.txt
+++ b/npc/000-2-1/alige.txt
@@ -48,7 +48,7 @@ OnTimer190:
 
 000-2-1.gat,43,31,0,1	script	Alige	301;2,{
     set @q, getq(ShipQuests_Alige);
-    if (@q > 1) goto l_AskForFood;
+    if (@q > 1) goto L_AskForFood;
 
     goto OnFirstEncounter;
 
@@ -63,7 +63,7 @@ OnFirstEncounter:
 
     menu
         lg("I am, who are you?"), -,
-        lg("Indeed, I am not."), l_NeedHelp;
+        lg("Indeed, I am not."), L_NeedHelp;
 
     mes "";
     mesn "Narrator";
@@ -71,7 +71,7 @@ OnFirstEncounter:
 
     close;
 
-l_NeedHelp:
+L_NeedHelp:
     setcamnpc;
     mes "";
     mesn "Hidden Person";
@@ -80,13 +80,13 @@ l_NeedHelp:
     restorecam;
 
     menu
-        l("Why not, but who are you, and what kind of help do you need?"), l_CanHelp;
+        l("Why not, but who are you, and what kind of help do you need?"), L_CanHelp;
         l("Sorry but I have no time for this."), -;
 
     closedialog;
     close;
 
-l_CanHelp:
+L_CanHelp:
     setcamnpc;
     mes "";
     mesn;
@@ -99,10 +99,10 @@ l_CanHelp:
     restorecam;
 
     menu
-        l("Sure, but what can you give me in exchange?"), l_AboutReward,
+        l("Sure, but what can you give me in exchange?"), L_AboutReward,
         l("Why don't you come out?"), -;
 
-l_ExplainHiding:
+L_ExplainHiding:
     setcamnpc;
     mes "";
     mesn;
@@ -114,10 +114,10 @@ l_ExplainHiding:
     next;
     restorecam;
 
-    if (getq(ShipQuests_Alige) == 2) goto l_SoAskForFood;
-    goto l_Accept;
+    if (getq(ShipQuests_Alige) == 2) goto L_SoAskForFood;
+    goto L_Accept;
 
-l_AboutReward:
+L_AboutReward:
     setcamnpc;
     mes "";
     mesn;
@@ -125,10 +125,10 @@ l_AboutReward:
     next;
     restorecam;
 
-l_Accept:
+L_Accept:
     menu
-        l("Understood, I will help you."), l_FirstAccepted,
-        l("What is Artis?"), l_Artis,
+        l("Understood, I will help you."), L_FirstAccepted,
+        l("What is Artis?"), L_Artis,
         l("I think I should report you to the crew members."), -;
 
     setcamnpc;
@@ -136,7 +136,7 @@ l_Accept:
 
     close;
 
-l_Artis:
+L_Artis:
     setcamnpc;
     mes "";
     mesn;
@@ -144,16 +144,16 @@ l_Artis:
     next;
     restorecam;
 
-    if (@q == 2) goto l_SoAskForFood;
-    goto l_Accept;
+    if (@q == 2) goto L_SoAskForFood;
+    goto L_Accept;
 
-l_FirstAccepted:
-    if (getq(ShipQuests_Alige) >= 2) goto l_Accepted;
+L_FirstAccepted:
+    if (getq(ShipQuests_Alige) >= 2) goto L_Accepted;
     setq ShipQuests_Alige, 2;
 
-    goto l_Accepted;
+    goto L_Accepted;
 
-l_Accepted:
+L_Accepted:
     setcamnpc;
     mes "";
     mesn;
@@ -161,7 +161,7 @@ l_Accepted:
     next;
     restorecam;
 
-l_GiveFood:
+L_GiveFood:
     mes "";
     menu
         rif(countitem(501, 1), l(getitemname("Acorn"))), 0,
@@ -181,11 +181,11 @@ l_GiveFood:
         l("I don't have anything good for you today."), -1;
 
     set @id, @menuret;
-    if (@id == -1) goto l_Quit; // Quit message.
-    if (@id == 0) goto l_NoReward; // In case of wrong food.
-    if (@id == 1) goto l_Poison; // In case of poisoned food.
-    if (@id == 2) goto l_NoMore; // In case of Piberries.
-    if (countitem(@id) == 0) goto l_Quit;
+    if (@id == -1) goto L_Quit; // Quit message.
+    if (@id == 0) goto L_NoReward; // In case of wrong food.
+    if (@id == 1) goto L_Poison; // In case of poisoned food.
+    if (@id == 2) goto L_NoMore; // In case of Piberries.
+    if (countitem(@id) == 0) goto L_Quit;
 //  if (@id == item's ID) then food is correct.
 // Do not put any other number than -1, 0, 1, 2 or the item's ID, that'll avoid confusion.
 
@@ -201,64 +201,64 @@ l_GiveFood:
     getitem "Piberries", rand(1, 3);
     next;
 
-    goto l_ReturnMenu;
+    goto L_ReturnMenu;
 
-l_NoReward:
+L_NoReward:
     setcamnpc;
     mes "";
     mesn;
     mesq l("You don't expect me to eat that, do you? Give me something else!");
     restorecam;
 
-    goto l_GiveFood;
+    goto L_GiveFood;
 
-l_ReturnMenu:
+L_ReturnMenu:
     setcamnpc;
     mesq l("Do you have anything else for me?");
     next;
     restorecam;
 
-    goto l_GiveFood;
+    goto L_GiveFood;
 
-l_NoMore:
+L_NoMore:
     setcamnpc;
     mes "";
     mesn;
     mesq l("Arrr, don't give me more berries! I don't want them, stupid berries, stupid... Stupid... Stupid!");
     next;
 
-    goto l_ReturnMenu;
+    goto L_ReturnMenu;
 
-l_Poison:
+L_Poison:
     setcamnpc;
     mes "";
     mesn;
     mesq l("Don't try to poison me! I know what that does!");
     restorecam;
     next;
-    goto l_ReturnMenu;
+    goto L_ReturnMenu;
 
-l_SoAskForFood:
+L_SoAskForFood:
     setcamnpc;
     mesn;
     mesq l("So, do you have anything for me today?");
     next;
     restorecam;
-    goto l_IntroMenu;
+    goto L_IntroMenu;
 
-l_AskForFood:
+L_AskForFood:
     setcamnpc;
     mesn;
     mesq l("Do you have anything for me today?");
     next;
     restorecam;
 
-l_IntroMenu:
+L_IntroMenu:
     menu
-        l("Yes."), l_GiveFood,
-        l("Where can I find some food?"), l_FindFood,
-        l("Why are you hiding?") + " " + l("Why don't you come out?"), l_ExplainHiding,
-        l("What is Artis?"), l_Artis,
+        l("Yes."), L_GiveFood,
+        l("Where can I find some food?"), L_FindFood,
+        l("Why are you hiding?") + " " + l("Why don't you come out?"), L_ExplainHiding,
+        l("What is Artis?"), L_Artis,
         l("I think I should report you to the crew members."), -;
 
     setcamnpc;
@@ -266,7 +266,7 @@ l_IntroMenu:
 
     close;
 
-l_FindFood:
+L_FindFood:
     setcamnpc;
     mes "";
     mesn;
@@ -284,7 +284,7 @@ l_FindFood:
 
     close;
 
-l_Quit:
+L_Quit:
     setcamnpc;
     mes "";
     mesn;
diff --git a/npc/000-2-1/arpan.txt b/npc/000-2-1/arpan.txt
index 7ed79e60f..5e1182c61 100644
--- a/npc/000-2-1/arpan.txt
+++ b/npc/000-2-1/arpan.txt
@@ -32,25 +32,25 @@
 000-2-1.gat,47,32,0,1	script	LeftBarrierCheck	0,0,2,{
     set @q, getq(ShipQuests_Arpan);
     if (@q > 2) close;
-    if (@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto l_EquipDone;
-    if (@q == 2) goto l_Equip;
-    if (@q == 1) goto l_GetCloth;
+    if (@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto L_EquipDone;
+    if (@q == 2) goto L_Equip;
+    if (@q == 1) goto L_GetCloth;
 
     doevent "Magic Arpan::OnClothNotTaken";
 
-l_Equip:
+L_Equip:
     warp "000-2-1.gat", 49, 32;
     doevent "Magic Arpan::OnEquip";
 
     close;
 
-l_GetCloth:
+L_GetCloth:
     warp "000-2-1.gat", 49, 32;
     doevent "Magic Arpan::OnClothNotTaken";
 
     close;
 
-l_EquipDone:
+L_EquipDone:
     setq ShipQuests_Arpan, 3;
 
     close;
@@ -59,25 +59,25 @@ l_EquipDone:
 000-2-1.gat,56,32,0,1	script	RightBarrierCheck	0,0,2,{
     set @q, getq(ShipQuests_Arpan);
     if (@q > 2) close;
-    if (@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto l_EquipDone;
-    if (@q == 2) goto l_Equip;
-    if (@q == 1) goto l_GetCloth;
+    if (@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto L_EquipDone;
+    if (@q == 2) goto L_Equip;
+    if (@q == 1) goto L_GetCloth;
 
     doevent "Magic Arpan::OnClothNotTaken";
 
-l_Equip:
+L_Equip:
     warp "000-2-1.gat", 55, 32;
     doevent "Magic Arpan::OnEquip";
 
     close;
 
-l_GetCloth:
+L_GetCloth:
     warp "000-2-1.gat", 55, 32;
     doevent "Magic Arpan::OnClothNotTaken";
 
     close;
 
-l_EquipDone:
+L_EquipDone:
     setq ShipQuests_Arpan, 3;
 
     close;
@@ -86,20 +86,20 @@ l_EquipDone:
 000-2-1.gat,49,33,0,1	script	Magic Arpan	307;5,{
     set @q, getq(ShipQuests_Arpan);
     set @q_julia, getq(ShipQuests_Julia);
-    if (@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto l_EquipDone;
+    if (@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto L_EquipDone;
 
 OnTalk:
     mesn;
 
-    if (@q > 0) goto l_Menu;
+    if (@q > 0) goto L_Menu;
 
     mesq lg("Yeye, you are really lucky to be alive. You are in good enough shape for walking, do you remember what happened?");
     next;
     setq ShipQuests_Arpan, 1;
 
     menu
-        lg("I only remember I was rescued by you."), l_Story,
-        lg("I can't remember anything."), l_OhWell;
+        lg("I only remember I was rescued by you."), L_Story,
+        lg("I can't remember anything."), L_OhWell;
 
 OnClothNotTaken:
     mesn;
@@ -117,7 +117,7 @@ OnEquip:
 
     close;
 
-l_OhWell:
+L_OhWell:
     mes "";
     mesq lg("Oh well, we rescued you when you were yaying adrift in the sea.");
     next;
@@ -125,7 +125,7 @@ l_OhWell:
     menu
         l("And then what happened?"), -;
 
-l_Story:
+L_Story:
     mes "";
     mesq lg("You were yaying sleeping for quite some time there, our shipkeeper, Julia, was here with you, she did her best to heal your injuries.");
     next;
@@ -137,24 +137,24 @@ l_Story:
 
     close;
 
-l_Menu:
+L_Menu:
     mesq l("What yeye could I do for you today?");
     next;
     set @equipped, getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200;
 
     menu
-        lg("Could you tell me where I am?"), l_Where,
-        lg("Where can I find Julia?"), l_Julia,
-        l("Who are you?"), l_Who,
-        rif(getq(ShipQuests_ArpanMoney) == 0, l("Where are my old clothes?")), l_WhereOldClothes,
-        rif(!@equipped, lg("What should I do after taking these clothes?")), l_WhatCloth,
+        lg("Could you tell me where I am?"), L_Where,
+        lg("Where can I find Julia?"), L_Julia,
+        l("Who are you?"), L_Who,
+        rif(getq(ShipQuests_ArpanMoney) == 0, l("Where are my old clothes?")), L_WhereOldClothes,
+        rif(!@equipped, lg("What should I do after taking these clothes?")), L_WhatCloth,
         rif(!@equipped, l("Thank you, I'll take them and put them on.")), -,
         l("Nothing, sorry."), -;
 
     closedialog;
     close;
 
-l_Where:
+L_Where:
     mes "";
     mesn;
     mesq lg("You're on our ship, we made port to a little island and we're actually yeyending our long merchant traveling adventure at the city of Artis.");
@@ -164,9 +164,9 @@ l_Where:
     mesq l("You will see, citizens are polite and you can still ask for help in the Warrior Guild. They can help find a job for you or maybe help you find out what happened to you out at sea!");
     next;
 
-    goto l_Menu;
+    goto L_Menu;
 
-l_Julia:
+L_Julia:
     mes "";
     mesn;
     mesq g(l("She's on the upper level, yeye can't miss her. She's the only girl in this crew, oh well, except for you now yeyeye!"),
@@ -177,17 +177,17 @@ l_Julia:
     mes col(l("Julia is on the upper level of the ship, use the arrow keys to walk to the stairs or click on the stairs at the top right of your screen."), 9);
     next;
 
-    goto l_Menu;
+    goto L_Menu;
 
-l_Who:
+L_Who:
     mes "";
     mesn;
     mesq l("Sorry! I forgot to introduce myself. My name is Arpan, but other sailors call me Magic Arpan because I know one or two yaing magic spells.");
     next;
 
-    goto l_Menu;
+    goto L_Menu;
 
-l_WhereOldClothes:
+L_WhereOldClothes:
     mes "";
     mesn;
     mesq lg("We tried to clean them but the sea water mostly destroyed them. It's why we gave you these clothes. They're not very nice, but that's all that we have for you.");
@@ -200,9 +200,9 @@ l_WhereOldClothes:
     set zeny, zeny+10;
     message strcharinfo(0), l("You receive @@ E!", 10);
 
-    goto l_BeforeMenu;
+    goto L_BeforeMenu;
 
-l_WhatCloth:
+L_WhatCloth:
     mes "";
     mesn;
     mesq lg("Oh yeyeye... As they are not edible, you can maybe try to equip them?");
@@ -216,12 +216,12 @@ l_WhatCloth:
     mes col(l("Items have different effects. Some will heal you, some can be used as weapons or armor, and some can be sold for gold."), 9);
     next;
 
-l_BeforeMenu:
+L_BeforeMenu:
     mesn;
-    goto l_Menu;
+    goto L_Menu;
 
-l_EquipDone:
+L_EquipDone:
     setq ShipQuests_Arpan, 3;
-    goto l_Menu;
+    goto L_Menu;
 
 }
diff --git a/npc/000-2-1/chefgado.txt b/npc/000-2-1/chefgado.txt
index 47ce9f0e7..eaf09b526 100644
--- a/npc/000-2-1/chefgado.txt
+++ b/npc/000-2-1/chefgado.txt
@@ -18,13 +18,13 @@
 000-2-1.gat,27,28,0,1	script	Chef Gado	318;2,{
     set @q, getq(ShipQuests_ChefGado);
     set @n, getq(ShipQuests_Nard);
-    if (@q == 1) goto l_QuestAccepted;
-    if (@q == 2) goto l_PoisonAccepted;
-    if (@q == 3) goto l_PoisonJulia;
-    if (@q == 4) goto l_QuestComplete;
-    if (@q == 5 && countitem("PoisonedDish") > 0) goto l_Aborting;
-    if (@q > 4) goto l_QuestAborted;
-    if (@n == 3) goto l_QuestStart;
+    if (@q == 1) goto L_QuestAccepted;
+    if (@q == 2) goto L_PoisonAccepted;
+    if (@q == 3) goto L_PoisonJulia;
+    if (@q == 4) goto L_QuestComplete;
+    if (@q == 5 && countitem("PoisonedDish") > 0) goto L_Aborting;
+    if (@q > 4) goto L_QuestAborted;
+    if (@n == 3) goto L_QuestStart;
 
     mesn;
     set @r, rand(3);
@@ -34,13 +34,13 @@
 
     close;
 
-l_QuestStart:
+L_QuestStart:
     mesn;
     mesq l("So it seems I have another stomach to fill. Those bastards have no respect for who feeds them every damn day!");
     next;
 
     menu
-        l("How rude! What is the reason behind your malice?"), l_Rude,
+        l("How rude! What is the reason behind your malice?"), L_Rude,
         l("I swear, I do not eat so much."), -;
 
     mes "";
@@ -49,7 +49,7 @@ l_QuestStart:
 
     close;
 
-l_Rude:
+L_Rude:
     mes "";
     mesn;
     mesq l("UAHAHAHAAH! I am the cook of that bunch of donkeys and I can be rude with everyone from this bossy captain to that harpy-lady!");
@@ -84,7 +84,7 @@ l_Rude:
     next;
 
     menu
-        l("Sea water?! I will not help you with your evil plan!"), l_Quit,
+        l("Sea water?! I will not help you with your evil plan!"), L_Quit,
         l("Sure, why not?"), -;
 
     setq ShipQuests_ChefGado, 1;
@@ -94,20 +94,20 @@ l_Rude:
     next;
     mesq l("Before you go, let me tell you how to get @@s, because you don't look very smart.", getitemlink("HalfCroconut"));
 
-    goto l_OpenCroconut;
+    goto L_OpenCroconut;
 
-l_QuestAccepted:
+L_QuestAccepted:
     mesn;
     mesq l("Have you collected all the ingredients for my recipe? The special one too?");
     next;
 
     menu
-        rif(countitem("PiouLegs") > 1 && countitem("HalfCroconut") > 0 && countitem("Aquada") > 0 && countitem("SeaDrops") > 0, l("All your... Fresh ingredients are ready to be cooked.")), l_GotAll,
-        l("What are your needs?"), l_Need,
-        l("Where can I find a half croconut?"), l_OpenCroconut,
-        l("Not yet. I will be back soon."), l_Quit;
+        rif(countitem("PiouLegs") > 1 && countitem("HalfCroconut") > 0 && countitem("Aquada") > 0 && countitem("SeaDrops") > 0, l("All your... Fresh ingredients are ready to be cooked.")), L_GotAll,
+        l("What are your needs?"), L_Need,
+        l("Where can I find a half croconut?"), L_OpenCroconut,
+        l("Not yet. I will be back soon."), L_Quit;
 
-l_OpenCroconut:
+L_OpenCroconut:
     mes "";
     mesn;
     mesq g(l("Take a @@ and try opening it using something like a sharp knife! I doubt you'll succeed, you're weak my poor girl.", getitemlink("Croconut")),
@@ -117,7 +117,7 @@ l_OpenCroconut:
 
     close;
 
-l_GotAll:
+L_GotAll:
     mes "";
 
     callfunc "InventoryPlace", 717, 1;
@@ -139,7 +139,7 @@ l_GotAll:
     close;
 
 
-l_Need:
+L_Need:
     mes "";
     mesn;
     mesq l("Shhht, don't say it that loud...");
@@ -150,13 +150,13 @@ l_Need:
 
     close;
 
-l_PoisonAccepted:
+L_PoisonAccepted:
     mesn;
     mesq l("Fool! Just come back here when you'll be done with our little... 'Secret mission'.");
 
     close;
 
-l_PoisonJulia:
+L_PoisonJulia:
     mesn;
     mesq l("The usurper has been punished! This is a great day! Take this reward as a prize for your loyalty to the old commander!");
 
@@ -169,13 +169,13 @@ l_PoisonJulia:
 
     close;
 
-l_QuestComplete:
+L_QuestComplete:
     mesn;
     mesq l("Oh, it's you. I think it's better we do not talk for a while. They suspect something.");
 
     close;
 
-l_Aborting:
+L_Aborting:
     mesn;
     mesq l("Wait, why do you still have the dish on you?!");
     next;
@@ -196,13 +196,13 @@ l_Aborting:
 
     close;
 
-l_QuestAborted:
+L_QuestAborted:
     mesn;
     mesq lg("You're like the rest of this filthy crew. Your name is now on the traitors list!");
 
     close;
 
-l_Quit:
+L_Quit:
     closedialog;
     close;
 }
diff --git a/npc/000-2-1/chest.txt b/npc/000-2-1/chest.txt
index e409fa7da..6071157f2 100644
--- a/npc/000-2-1/chest.txt
+++ b/npc/000-2-1/chest.txt
@@ -13,16 +13,16 @@
 000-2-1.gat,51,37,0	script	Chest	317;2,{
     set @q, getq(ShipQuests_Arpan);
 
-    if (@q == 0) goto l_Talk;
-    if (getnpcdir ("") == 4) goto l_Give;
+    if (@q == 0) goto L_Talk;
+    if (getnpcdir ("") == 4) goto L_Give;
 
     setnpcdir 2;
     initnpctimer;
     startnpctimer;
     close;
 
-l_Give:
-    if (@q > 1) goto l_Quit;
+L_Give:
+    if (@q > 1) goto L_Quit;
     set @item, 1300;
     set @count, 2;
     callfunc "InventoryPlace", 1300, 2;
@@ -31,7 +31,7 @@ l_Give:
     getitem "CreasedShirt", 1;
     getitem "CreasedShorts", 1;
     npctalk3 l("You take the clothes from the chest.");
-    goto l_Quit;
+    goto L_Quit;
 
 OnTimer220:
     stopnpctimer;
@@ -39,12 +39,12 @@ OnTimer220:
     if (getnpcdir ("") == 6) setnpcdir 0;
     end;
 
-l_Talk:
+L_Talk:
     npctalk3 l("You should talk to Magic Arpan first.");
 
     close;
 
-l_Quit:
+L_Quit:
     setnpcdir 6;
     initnpctimer;
     startnpctimer;
diff --git a/npc/000-2-1/dan.txt b/npc/000-2-1/dan.txt
index 23724e31d..64fbd38a6 100644
--- a/npc/000-2-1/dan.txt
+++ b/npc/000-2-1/dan.txt
@@ -8,7 +8,7 @@
 000-2-1.gat, 32,31,0,1	script	Dan	101;2,{
     mesn;
     set @q, rand(3);
-    if (@q == 0) goto l_QuestStory;
+    if (@q == 0) goto L_QuestStory;
 
     mesq l("You see these pious around us?");
     next;
@@ -16,13 +16,13 @@
 
     close;
 
-l_QuestStory:
+L_QuestStory:
     mesq l("It's so hard to find the motivation...");
     next;
 
     menu
         l("Why?"), -,
-        l("I guess so... I will leave you alone."), l_Quit;
+        l("I guess so... I will leave you alone."), L_Quit;
 
     mes "";
     mesn;
@@ -32,7 +32,7 @@ l_QuestStory:
     next;
 
     menu
-        l("I'm still in a coma, but my ghost is haunting you!"), l_Quit,
+        l("I'm still in a coma, but my ghost is haunting you!"), L_Quit,
         l("It was something like a long nap."), -;
 
     mes "";
@@ -43,8 +43,8 @@ l_QuestStory:
     next;
 
     menu
-        l("Who is she?"), l_She,
-        l("Do you want me to go see her instead of you?"), l_Quest;
+        l("Who is she?"), L_She,
+        l("Do you want me to go see her instead of you?"), L_Quest;
         l("I don't know what to say..."), -;
 
     mes "";
@@ -54,28 +54,28 @@ l_QuestStory:
 
     close;
 
-l_She:
+L_She:
     mes "";
     mesn;
     mesq l("She is a good friend of mine... We wanted to marry a few weeks before her accident but...");
     next;
 
-    goto l_Quit2;
+    goto L_Quit2;
 
-l_Quest:
+L_Quest:
     mes "";
     mesn;
     mesq l("I don't think that we are in a good place to talk about this...");
     next;
 
-l_Quit:
+L_Quit:
     mes "";
     mesn "Narrator";
     mes col(l("Dan keeps silent since your last question."), 9);
 
     close;
 
-l_Quit2:
+L_Quit2:
     mesn "Narrator";
     mes col(l("Dan ends the conversation and resumes to write his letter."), 9);
 
diff --git a/npc/000-2-1/knife.txt b/npc/000-2-1/knife.txt
index 4a37ffc9c..99c93ad35 100644
--- a/npc/000-2-1/knife.txt
+++ b/npc/000-2-1/knife.txt
@@ -18,13 +18,13 @@
     next;
 
     menu
-        l("Yes."), l_Give,
+        l("Yes."), L_Give,
         l("No."), -;
 
     closedialog;
     close;
 
-l_Give:
+L_Give:
     mes "";
     set @item, 3500;
     set @count, 1;
diff --git a/npc/000-2-1/peter.txt b/npc/000-2-1/peter.txt
index 01d671026..dda62f7ef 100644
--- a/npc/000-2-1/peter.txt
+++ b/npc/000-2-1/peter.txt
@@ -41,46 +41,46 @@
 000-2-1.gat,72,34,0,1	script	AreaNPC	0,0,1,{
 
 OnTouch:
-    if (BaseLevel < 5) goto l_Stop;
-    if ($@RAT_SAILOR_COUNTDOWN == "") goto l_NoCountDown;
-    if ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 10) goto l_NoGoodTick;
-    if (($@RAT_SAILOR_OLD_HELPER$ == strcharinfo(0)) && ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 60)) goto l_NoGoodTick;
+    if (BaseLevel < 5) goto L_Stop;
+    if ($@RAT_SAILOR_COUNTDOWN == "") goto L_NoCountDown;
+    if ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 10) goto L_NoGoodTick;
+    if (($@RAT_SAILOR_OLD_HELPER$ == strcharinfo(0)) && ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 60)) goto L_NoGoodTick;
     set $@RAT_SAILOR_COUNTDOWN, "";
 
-l_NoCountDown:
-    if ($@RAT_SAILOR_HELPER$ != "") goto l_Occupied;
+L_NoCountDown:
+    if ($@RAT_SAILOR_HELPER$ != "") goto L_Occupied;
     set @peter, getq(ShipQuests_Peter);
-    if (@peter < 1 || @peter > 5) goto l_Task;
-    if (@peter == 1 || @peter == 2) goto l_Rfail;
-    if (@peter == 3 || @peter == 4) goto l_Rwin;
-    if (@peter > 5) goto l_SecondTime;
+    if (@peter < 1 || @peter > 5) goto L_Task;
+    if (@peter == 1 || @peter == 2) goto L_Rfail;
+    if (@peter == 3 || @peter == 4) goto L_Rwin;
+    if (@peter > 5) goto L_SecondTime;
     doevent "Peter::OnReturnWin";
     close;
 
-l_Stop:
+L_Stop:
     doevent "Peter::OnStop";
 
     close;
 
-l_Occupied:
+L_Occupied:
     doevent "Peter::OnDontneedHelp";
 
     close;
 
-l_Task:
+L_Task:
     doevent "Peter::OnGiveTask";
 
     close;
 
-l_Rfail:
+L_Rfail:
     doevent "Peter::OnReturnFail";
 
     close;
 
-l_Rwin:
+L_Rwin:
     doevent "Peter::OnReturnWin";
 
-l_NoGoodTick:
+L_NoGoodTick:
     doevent "Peter::OnNoGoodTick";
 
     close;
@@ -88,12 +88,12 @@ l_NoGoodTick:
 
 000-2-1.gat,70,35,0,1	script	Peter	303;3,{
     if (BaseLevel < 5) goto OnTooWeak;
-    if ($@RAT_SAILOR_COUNTDOWN == "") goto l_NoCountDown;
+    if ($@RAT_SAILOR_COUNTDOWN == "") goto L_NoCountDown;
     if ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 10) goto OnNoGoodTick;
     if (($@RAT_SAILOR_OLD_HELPER$ == strcharinfo(0)) && ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 60)) goto OnNoGoodTick;
     set $@RAT_SAILOR_COUNTDOWN, "";
 
-l_NoCountDown:
+L_NoCountDown:
     set @peter, getq(ShipQuests_Peter);
     if (@peter == 1 || @peter == 2) goto OnReturnFail;
     if (@peter == 3 || @peter == 4 || @peter == 5)  goto OnReturnWin;
@@ -109,21 +109,21 @@ OnGiveTask:
     next;
 
     menu
-        l("Yeah, but what reward will I get?"), l_BonusTask,
-        l("Why not, I need to train anyway."), l_Task,
+        l("Yeah, but what reward will I get?"), L_BonusTask,
+        l("Why not, I need to train anyway."), L_Task,
         l("No, they are way too dangerous for me!"), -;
 
     mes "";
     mesn;
     mesq l("Ok, ok. Come back if you change your mind.");
 
-    goto l_Quit;
+    goto L_Quit;
 
 OnTooWeak:
     mesn;
     mesq lg("I need help for clean the edge of the ship, but you aren't strong enough to help.");
 
-    goto l_Quit;
+    goto L_Quit;
 
 OnStop:
     warp "000-2-1", 72, 36;
@@ -139,15 +139,15 @@ OnReturnFail:
     next;
 
     menu
-        l("Yeah, but I would like to make sure I get a reward."), l_BonusTask,
-        l("Why not, I need to train anyway."), l_Task,
+        l("Yeah, but I would like to make sure I get a reward."), L_BonusTask,
+        l("Why not, I need to train anyway."), L_Task,
         l("No, they are way too dangerous for me!"), -;
 
     mes "";
     mesn;
     mesq l("Ok, ok. Come back if you change your mind.");
 
-    goto l_Quit;
+    goto L_Quit;
 
 OnReturnWin:
     mesn;
@@ -156,13 +156,13 @@ OnReturnWin:
 
     if (@peter == 3 || @peter == 4)
         menu
-            l("Did you say reward? I want it!"), l_BonusTask,
-            l("I am not worried about rewards. I just want to help."), l_Task,
+            l("Did you say reward? I want it!"), L_BonusTask,
+            l("I am not worried about rewards. I just want to help."), L_Task,
             l("Sorry, I am not in the mood for another fight with these rattos."), -;
 
     if (@peter == 5)
         menu
-            l("No problem, I can help you anyway."), l_Task,
+            l("No problem, I can help you anyway."), L_Task,
             l("Sorry, I am not in the mood for another fight with these rattos."), -;
 
     mes "";
@@ -171,7 +171,7 @@ OnReturnWin:
 
     close;
 
-l_BonusTask:
+L_BonusTask:
     mes "";
     mesn;
     mesq l("What if I give you 1000 Esperin for that job, is it ok?");
@@ -179,20 +179,20 @@ l_BonusTask:
 
     menu
         lg("Okay, I'm ready to work!"), -,
-        l("What? This reward is too small!"), l_Quit;
+        l("What? This reward is too small!"), L_Quit;
 
     if ($@RAT_SAILOR_HELPER$ != "") goto OnDontneedHelp;
     if (@peter == 6) setq ShipQuests_Peter, 2;
     if (@peter == 3) setq ShipQuests_Peter, 4;
     set @peter, getq(ShipQuests_Peter);
-    goto l_Start;
+    goto L_Start;
 
-l_Task:
+L_Task:
     if ($@RAT_SAILOR_HELPER$ != "") goto OnDontneedHelp;
     if (@peter == 6) setq ShipQuests_Peter, 1;
     set @peter, getq(ShipQuests_Peter);
 
-l_Start:
+L_Start:
     mes "";
     mesn;
     mesq l("Okay, you can start!");
@@ -205,20 +205,20 @@ OnStartOutside:
     warp "000-2-2.gat", 48, 28;
     doevent "RattosControl::OnSpawn";
 
-    goto l_Quit;
+    goto L_Quit;
 
 OnTimer2000:
-    if (attachrid(getcharid(3, $@RAT_SAILOR_HELPER$)) == 0) goto l_Logoff;
+    if (attachrid(getcharid(3, $@RAT_SAILOR_HELPER$)) == 0) goto L_Logoff;
     set $@RAT_SAILOR_CONTROL[9], $@RAT_SAILOR_CONTROL[9] + 2;
-    if ($@RAT_SAILOR_CONTROL[9] > 100) goto l_Timeout;
-    if (PC_DIE_COUNTER > $@RAT_SAILOR_DEATHS) goto l_Dead;
-    if ($@RAT_SAILOR_CONTROL[1] && $@RAT_SAILOR_CONTROL[2] && $@RAT_SAILOR_CONTROL[3] && $@RAT_SAILOR_CONTROL[4]) goto l_Done;
-    if (getmapusers("000-2-2.gat") == 0) goto l_CleaningEnd;
-    goto l_CheckRattos;
+    if ($@RAT_SAILOR_CONTROL[9] > 100) goto L_Timeout;
+    if (PC_DIE_COUNTER > $@RAT_SAILOR_DEATHS) goto L_Dead;
+    if ($@RAT_SAILOR_CONTROL[1] && $@RAT_SAILOR_CONTROL[2] && $@RAT_SAILOR_CONTROL[3] && $@RAT_SAILOR_CONTROL[4]) goto L_Done;
+    if (getmapusers("000-2-2.gat") == 0) goto L_CleaningEnd;
+    goto L_CheckRattos;
 
     end;
 
-l_CheckRattos:
+L_CheckRattos:
     if ($@RAT_SAILOR_CONTROL[1]) set $@RAT_SAILOR_CONTROL[5], $@RAT_SAILOR_CONTROL[5] + 2;
     if ($@RAT_SAILOR_CONTROL[2]) set $@RAT_SAILOR_CONTROL[6], $@RAT_SAILOR_CONTROL[6] + 2;
     if ($@RAT_SAILOR_CONTROL[3]) set $@RAT_SAILOR_CONTROL[7], $@RAT_SAILOR_CONTROL[7] + 2;
@@ -228,7 +228,7 @@ l_CheckRattos:
     if ($@RAT_SAILOR_CONTROL[7] > 40) doevent "RattosControl::OnRatto3Respawn";
     if ($@RAT_SAILOR_CONTROL[8] > 40) doevent "RattosControl::OnRatto4Respawn";
 
-l_NotYet:
+L_NotYet:
     setnpctimer 0;
 
     end;
@@ -239,34 +239,34 @@ OnDontneedHelp:
     next;
     mesq l("@@ is helping me.", $@RAT_SAILOR_HELPER$);
 
-    goto l_Quit;
+    goto L_Quit;
 
-l_Timeout:
+L_Timeout:
     mesn;
     mesq l("Hey! Be careful. You can't stay in this basement for so long, you're going to get sick. Come outside and take a break, maybe you can try again later.");
     warp "000-2-1", 72, 36;
 
-    goto l_CleaningClose;
+    goto L_CleaningClose;
 
-l_Logoff:
-    goto l_CleaningEnd;
+L_Logoff:
+    goto L_CleaningEnd;
 
-l_Dead:
+L_Dead:
 // Warps the dead body outside, so it does not interfere with the getmapusers check.
     if (getmapusers("000-2-2.gat") > 0) warp "000-2-1", 61, 36;
 
-    goto l_CleaningEnd;
+    goto L_CleaningEnd;
 
-l_Done:
+L_Done:
     set $@RAT_SAILOR_CONTROL[10], $@RAT_SAILOR_CONTROL[10] + 2;
-    if($@RAT_SAILOR_CONTROL[10] < 5) goto l_NotYet;
+    if($@RAT_SAILOR_CONTROL[10] < 5) goto L_NotYet;
     set @peter, getq(ShipQuests_Peter);
-    if (@peter == 2 || @peter == 4) goto l_Reward;
+    if (@peter == 2 || @peter == 4) goto L_Reward;
     warp "000-2-1.gat", 72, 36;
 
-    goto l_Thanks;
+    goto L_Thanks;
 
-l_CleaningEnd:
+L_CleaningEnd:
     stopnpctimer;
     set $@RAT_SAILOR_HELPER$, "";
     set $@RAT_SAILOR_DEATHS, 0;
@@ -278,7 +278,7 @@ l_CleaningEnd:
 
     end;
 
-l_CleaningClose:
+L_CleaningClose:
     stopnpctimer;
     set $@RAT_SAILOR_OLD_HELPER$, $@RAT_SAILOR_HELPER$;
     set $@RAT_SAILOR_HELPER$, "";
@@ -292,7 +292,7 @@ l_CleaningClose:
 
     close;
 
-l_Reward:
+L_Reward:
     warp "000-2-1.gat", 72, 36;
     setq ShipQuests_Peter, 5;
     set @peter, getq(ShipQuests_Peter);
@@ -302,18 +302,18 @@ l_Reward:
     set zeny, zeny + 1000;
     message strcharinfo(0), l("You receive @@ E!", 1000);
 
-    goto l_CleaningClose;
+    goto L_CleaningClose;
 
-l_Thanks:
+L_Thanks:
     mesn;
     mesq l("Thanks for helping me!");
     set @peter, getq(ShipQuests_Peter);
     if (@peter == 1) setq ShipQuests_Peter, 3;
     set @peter, getq(ShipQuests_Peter);
 
-    goto l_CleaningClose;
+    goto L_CleaningClose;
 
-l_Quit:
+L_Quit:
     set @peter, 0;
 
     close;