> Reorganization:

* Cleaned up "Custom Scripts" configuration file (scripts_custom.conf)
* Moved "Event King Items" scripts from events to quests (custom\quests\kings_items.txt)
* Moved "p_track" from events to etc (custom\etc\p_track.txt)
* Renamed "lvl99_quest" to "jewel_case" for easier identification (custom\quests\jewel_case.txt)
* Deleted "2006_dogs_year" event script (pointless and incomplete)

> Script changes:
* Cleaned/standardized "Valentine Event Script" (events\valentinesday.txt)
* Cleaned "Slotted Sunglasses Quest" (custom\quests\sunglasses.txt)
* Optimized "Lord Kaho's Horns Quest" (custom\quests\kahohorn.txt)
* Cleaned and optimized "Balmung & Lord Kaho's Horns Quest" (custom\quests\kaho_balmung.txt)

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16313 54d463be-8e91-2dee-dedb-b68131a5f0ec

5 files changed, 218 insertions, 236 deletions

diff --git a/npc/custom/quests/lvl99_quest.txt b/npc/custom/quests/jewel_case.txt
index 7cee1a481..dfa52bdf6 100644
--- a/npc/custom/quests/lvl99_quest.txt
+++ b/npc/custom/quests/jewel_case.txt
@@ -1,5 +1,5 @@
 //===== rAthena Script =======================================
-//= Quest for 99 Base Level Players
+//= Jewel Case Quest
 //===== By: ==================================================
 //= Lupus
 //===== Current Version: =====================================
@@ -7,8 +7,8 @@
 //===== Compatible With: =====================================
 //= rAthena SVN
 //===== Description: =========================================
-//= It makes players stay longer at 99th level and get a
-//= Jewel Case as a reward
+//= A quest for players at base level 99,
+//= with Jewel Case as a reward.
 //===== Additional Comments: =================================
 //= 
 //============================================================
diff --git a/npc/custom/quests/kaho_balmung.txt b/npc/custom/quests/kaho_balmung.txt
index 11ef0442a..f3a82def4 100644
--- a/npc/custom/quests/kaho_balmung.txt
+++ b/npc/custom/quests/kaho_balmung.txt
@@ -3,84 +3,49 @@
 //===== By: ==================================================
 //= MagicalTux
 //===== Current Version: =====================================
-//= 1.0
+//= 1.1
 //===== Compatible With: =====================================
 //= rAthena SVN
 //===== Description: =========================================
-//= 
+//= Custom quests for Balmung and Lord Kaho's Horns.
+//= WARNING: The quests are very easy, so be careful!
 //===== Additional Comments: =================================
-//= Warning! Don't use this quest 8)
+//= 1.1 Cleaned and optimized. [Euphy]
 //============================================================
 
 prontera,158,356,4	script	Royal Messenger	105,{
+	
+	setarray .@Req1[0],1161,999,120,984,10,996,10,994,10,995,10,997,10;
+	setarray .@Req2[0],5013,2298,1,1001,10,996,10,994,10,995,10,997,10;
+	
 	mes "[Royal Messenger]";
-	mes "Welcome to prontera, I am the Royal Messenger in charge of the royal quest.";
+	mes "Welcome to Prontera.";
+	mes "I am the messenger in charge of the Royal Quests.";
 	next;
-	menu "Listen",-,"No",Lend;
-
+	if(select("Listen...:Walk away")==2) close;
 	mes "[Royal Messenger]";
-	mes "There are too quests please chose the one you must like.";
+	mes "There are two quests.";
+	mes "Choose the one you like.";
 	next;
-	menu "Balmung",-,"Lord Kahos horns",Lkahos,"No",Lend;
-
-	mes "[Royal Messenger]";
-	mes "The Balmung quest consist of the next items:";
-	mes "120 Steel";
-	mes "10 Oridecon";
-	mes "10 Rough Wind";
-	mes "10 Flame Heart";
-	mes "10 Mystic Frozen";
-	mes "10 Great Nature";
-	mes "1,000,000z";
+	set .@i, select("Balmung:Lord Kaho's Horns:^777777Never mind.^000000");
+	mes "[Royal Messenger]";
+	if (.@i==3) {
+		mes "Have a nice day.";
+		close; }
+	mes "You will need the following items:";
+	for(set .@j,1; .@j<13; set .@j,.@j+2) {
+		mes " ~ "+getd(".@Req"+.@i+"["+(.@j+1)+"]")+"x ^0055FF"+getitemname(getd(".@Req"+.@i+"["+.@j+"]"))+"^000000";
+		if (!.@nr && countitem(getd(".@Req"+.@i+"["+.@j+"]")) < getd(".@Req"+.@i+"["+(.@j+1)+"]")) set .@nr,1; }
+	mes " ~ 1,000,000z";
 	next;
-	if(countitem(999)<120 || countitem(984)<10 || countitem(996)<10 || countitem(994)<10
-		|| countitem(995)<10 || countitem(997)<10 || Zeny<1000000) goto NoItems;
-	delitem 999,120;
-	delitem 984,10;
-	delitem 996,10;
-	delitem 994,10;
-	delitem 995,10;
-	delitem 997,10;
-	set Zeny,Zeny-1000000;
-	mes "[Royal Messenger]";
-	mes "I see you already have all the items you need.";
-	mes "nice work.";
-	getitem 1161,1;
-	close;
-
-Lkahos:
-	mes "[Royal Messenger]";
-	mes "The Lord Kahos horns quest consists of the next items:";
-	mes "1 Green Feelers";
-	mes "10 Star Dust";
-	mes "10 Rough Wind";
-	mes "10 Flame Heart";
-	mes "10 Mystic Frozen";
-	mes "10 Great Nature";
-	mes "1,000,000z";
-	next;
-	if(countitem(2298)<1 || countitem(1001)<10 || countitem(996)<10 || countitem(994)<10
-		|| countitem(995)<10 || countitem(997)<10 || Zeny<1000000) goto NoItems;
-	delitem 2298,1;
-	delitem 1001,10;
-	delitem 996,10;
-	delitem 994,10;
-	delitem 995,10;
-	delitem 997,10;
-	set Zeny,Zeny-1000000;
-	mes "[Royal Messenger]";
-	mes "I see you already have all the items you need.";
-	mes "nice work.";
-	getitem 5013,1;
-	close;
-
-Lend:
-	mes "[Royal Messenger]";
-	mes "Have a nice day.";
-	close;
-NoItems:
 	mes "[Royal Messenger]";
-	mes "Sorry you don't have all the items or zeny I need.";
-	mes "Come back when you have them all";
+	if (.@nr || Zeny < 1000000) {
+		mes "Come back when you meet all the requirements.";
+		close; }
+	for(set .@j,1; .@j<13; set .@j,.@j+2)
+		delitem getd(".@Req"+.@i+"["+.@j+"]"), getd(".@Req"+.@i+"["+(.@j+1)+"]");
+	set Zeny, Zeny-1000000;
+	mes "I see you already have all the items you need. Here's your "+getitemname(getd(".@Req"+.@i+"[0]"))+", as promised.";
+	getitem getd(".@Req"+.@i+"[0]"),1;
 	close;
-}
+}
\ No newline at end of file
diff --git a/npc/custom/quests/kahohorn.txt b/npc/custom/quests/kahohorn.txt
index 7b3d7b50b..697047821 100644
--- a/npc/custom/quests/kahohorn.txt
+++ b/npc/custom/quests/kahohorn.txt
@@ -3,94 +3,67 @@
 //===== By: ==================================================
 //= 
 //===== Current Version: =====================================
-//= 1.0
+//= 1.1
 //===== Compatible With: =====================================
 //= rAthena SVN
 //===== Description: =========================================
-//= 
+//= Custom quest for Lord Kaho's Horns.
 //===== Additional Comments: =================================
-//= This quest is custom. Don't use it.
+//= 1.1 Optimized, and fixed some requirements. [Euphy]
 //============================================================
 
 geffen,115,107,5	script	Lord Kaho's Servant	61,{
-	mes "[Lord Kaho's Servant]";
+
+	setarray .@Items[0],7005, 968, 923, 734, 724,2268,7036,7020,5053,7018,741,742,743,750,751,752,753,754;
+	setarray .@Drops[0],1272,1087,1039,1260,1046,1115,1252,1147,1038,1059;
+	set .@n$, "[Lord Kaho's Servant]";
+
+	mes .@n$;
 	mes "I worked myself to death trying to fulfill Lord Kaho's ridiculous expectations for a headgear!";
-	mes "Now that I've finally found the formula for the perfect headgear, I'm willing to share my time and talents";
+	mes "Now that I've finally found the formula for the perfect headgear, I'm willing to share my time and talents.";
 	next;
-	mes "You need the following to get the Kaho horns!";
-	mes "3 emperiums";
-	mes "Oh yea... i also forgot to mention these X_X";
+	mes .@n$;
+	mes "You need the following to get the Kaho horns:";
+	mes "3x ^0055FFEmperium^000000";
 	next;
-	mes "1 Skull - From Dark Lord";
-	mes "1 Heroic Emblem - From Orc Hero";
-	mes "1 Evil Horn - From Baphomet";
-	mes "1 Red Frame - From Doppelganger";
-	mes "1 Smoking Pipe - From Eddga";
-	mes "1 Fang of Garm - From Garm";
-	mes "1 Mother's Nightmare - From Maya";
-	mes "1 Sphynx Hat - from Osiris";
-	mes "1 Diamond Ring - from Mistress";
+	mes .@n$;
+	mes "Oh yeah...";
+	mes "I also forgot to mention these...";
 	next;
-	mes "Were' not done yet sweety...";
-	mes "Im a big fan of dolls, so you need to bring me these cuties";
-	mes "1 Poring Doll - a Poring drop";
-	mes "1 Chonchon Doll - a Chonchon Drop";
-	mes "1 Baphomet Doll - a Baphomet drop";
-	mes "1 Osiris Doll - an Osiris drop";
-	mes "1 Rocker Doll - a Rocker drop";
-	mes "1 Apez Fanitem Doll - a Yoyo drop";
-	mes "1 Racoon Doll - a Smokie drop";
-	mes "1 Spore Doll - a Spore drop";
+	mes .@n$;
+	for(set .@i,0; .@i<10; set .@i,.@i+1)
+		mes "1x ^0055FF"+getitemname(.@Items[.@i])+"^000000 (from "+strmobinfo(1,.@Drops[.@i])+")";
 	next;
-	mes "Finally, i worked hard to make these horns for my master with all the mentioned items above...";
-	mes "Please include 5 million zeny for my efforts."; 
+	mes .@n$;
+	mes "We're not done yet, sweetie...";
+	mes "I'm a big fan of dolls, so you need to bring me these cuties!";
+	for(set .@i,10; .@i<18; set .@i,.@i+1)
+		mes "1x ^0055FF"+getitemname(.@Items[.@i])+"^000000";
 	next;
-	mes "[Lord Kaho's Servant]";
-	mes ". . . . . .";
+	mes .@n$;
+	mes "Finally, I've worked hard to make these horns for my master with all the items mentioned above...";
+	mes "Please include ^0055FF5 million Zeny^000000 for my efforts."; 
+	next;
+	mes .@n$;
 	mes "Are you ready for me to make this special item?";
 	next;
-	menu "Sure am!",-,"These requirements are unfathomable!",LUnfathomable;
-
-	mes "[Lord Kaho's Servant]";
-	if(countitem(754) < 1 || countitem(753) < 1 || countitem(752) < 1 || countitem(751) < 1 || countitem(750) < 1
-		|| countitem(743) < 1 || countitem(742) < 1 || countitem(741) < 1 || countitem(2613) < 1
-		|| countitem(5053) < 1 || countitem(7020) < 1 || countitem(7036) < 1 || countitem(2268) < 1
-		|| countitem(734) < 1 || countitem(923) < 1 || countitem(968) < 1 || countitem(7005) < 1
-		|| countitem(714) < 3 || Zeny < 5000000) goto LNotEnough;
-	delitem 754,1;
-	delitem 753,1;
-	delitem 752,1;
-	delitem 751,1;
-	delitem 750,1;
-	delitem 743,1;
-	delitem 742,1;
-	delitem 741,1;
-	delitem 2613,1;
-	delitem 5053,1;
-	delitem 7020,1;
-	delitem 7036,1;
-	delitem 2268,1;
-	delitem 734,1;
-	delitem 923,1;
-	delitem 968,1;
-	delitem 7005,1;
+	if(select("Sure am!:These requirements are unfathomable!")==2) {
+		mes .@n$;
+		mes "What I had to go through was more unfathomable...";
+		mes "If you succeed in getting these items, you will have incredible strength!";
+		close; }
+	mes .@n$;
+	for(set .@i,0; .@i<18; set .@i,.@i+1)
+		if (!countitem(.@Items[.@i])) { set .@nr,1; break; }
+	if (.@nr || countitem(714) < 3 || Zeny < 5000000) {
+		mes "I can't afford to make this if you don't bring all materials needed. Please understand this is to benefit heroes such as yourself!";
+		close; }
+	for(set .@i,0; .@i<18; set .@i,.@i+1)
+		delitem .@Items[.@i],1;
 	delitem 714,3;
-	set Zeny,Zeny-5000000;
-	mes "Wow!  You are brave indeed!";
+	set Zeny, Zeny-5000000;
+	mes "Wow! You are brave indeed!";
 	getitem 5013,1;
-	mes ". . . . .";
-	mes "Enjoy being God of Rune Midgard!";
-	close;
-
-LNotEnough:
-	mes ". . . . .";
-	mes ". . .I'm sorry .. You don't have enough money and items ..";
-	mes "I can't afford to make this if you don't bring all materials needed.  Please understand this is to benefit heroes such as yourself!";
-	close;
-
-LUnfathomable:
-	mes ". . . . .";
-	mes "What I had to go through was more unfathomable..";
-	mes "If you succeed in getting these items, you will have incredible strength!";
+	mes "Enjoy being God of Rune-Midgard!";
 	close;
-}
+}
\ No newline at end of file
diff --git a/npc/custom/quests/kings_items.txt b/npc/custom/quests/kings_items.txt
new file mode 100644
index 000000000..8140827c1
--- /dev/null
+++ b/npc/custom/quests/kings_items.txt
@@ -0,0 +1,79 @@
+//===== rAthena Script ======================================= 
+//= Event King Items
+//===== By: ================================================== 
+//= $ephiroth
+//===== Current Version: ===================================== 
+//= 1.1
+//===== Compatible With: ===================================== 
+//= rAthena SVN
+//===== Description: ========================================= 
+//= Grand Circlet Quest combined with Excalibur Quest.
+//===== Additional Comments: =================================
+//= 2006/09/27: 1.0 Release and fully working. [$ephiroth]
+//= 1.1 Optimized. [Euphy]
+//============================================================
+
+prt_castle,80,170,4	script	King of Prontera	108,{
+	mes "[King of Prontera]";
+	mes "Hello, can you help me?";
+	next;
+	if(select("Sure, what can I do?:Sorry, I'm busy.")==2) {
+		mes "[King of Prontera]";
+		mes "Ok, that's fine, I'm sure someone else will help.";
+		close; }
+	mes "[King of Prontera]";
+	mes "Thank you. Well, my daughter next to me is a little rowdy...";
+	mes "If you get her these items I'm sure she'll calm down.";
+	mes "I'll give you my crown or my sword as a reward.";
+	next;
+	setarray .@Items1[0],5007,742,30,741,50,753,20,732,1,710,20,629,20;
+	setarray .@Items2[0],1137,2254,1,2282,1,714,1;
+	switch(select("What do you need?:I have the items!:Forget it.")) {
+		case 1:
+			for(set .@i,1; .@i<3; set .@i,.@i+1) {
+				mes "[King of Prontera]";
+				mes "If you could get me:";
+				for(set .@j,1; .@j<getarraysize(getd(".@Items"+.@i)); set .@j,.@j+2)
+					mes " ~ ^0055FF"+getd(".@Items"+.@i+"["+(.@j+1)+"]")+"^000000x "+getitemname(getd(".@Items"+.@i+"["+.@j+"]"));
+				mes "I'll give my "+((.@i)?"sword.":"crown.");
+				if (.@i==2) close;
+				next; }
+		case 2:
+			mes "[King of Prontera]";
+			mes "What item do you want?";
+			next;
+			set .@i, select("Crown:Sword");
+			for(set .@j,1; .@j<getarraysize(getd(".@Items"+.@i)); set .@j,.@j+2)
+				if (countitem(getd(".@Items"+.@i+"["+.@j+"]")) < getd(".@Items"+.@i+"["+(.@j+1)+"]")) set .@nr,1;
+			mes "[King of Prontera]";
+			if (.@nr) { 
+				mes "You're missing something.";
+				mes "Come back after you get ALL the items.";
+				close; }
+			for(set .@j,1; .@j<getarraysize(getd(".@Items"+.@i)); set .@j,.@j+2)
+				delitem getd(".@Items"+.@i+"["+.@j+"]"), getd(".@Items"+.@i+"["+(.@j+1)+"]");
+			getitem getd(".@Items"+.@i+"[0]"),1;
+			mes "THANK YOU SOO MUCH!!";
+			mes "This will surely calm her down.";
+			mes "As promised, here is my "+((.@i==1)?"crown.":"sword.");
+			close;
+		case 3:
+			mes "[King of Prontera]";
+			mes "Ok, that's fine, I'm sure someone else will help.";
+			close;
+	}
+}
+
+prt_castle,84,170,4	script	King's Daughter	62,{
+	mes "[King's Daughter]";
+	mes "Hmph, I hate my dad right now!!";
+	next;
+	if(select("Why?:Whatever...")==2) {
+		mes "[King's Daughter]";
+		mes "FINE THEN! Hmph!!";
+		close; }
+	mes "[King's Daughter]";
+	mes "Well, he won't give me what I want!!";
+	mes "He's the King of Prontera. He should be able to get me ANYTHING!!!";
+	close;
+}
\ No newline at end of file
diff --git a/npc/custom/quests/sunglasses.txt b/npc/custom/quests/sunglasses.txt
index 5f554ea23..fb3353556 100644
--- a/npc/custom/quests/sunglasses.txt
+++ b/npc/custom/quests/sunglasses.txt
@@ -1,60 +1,64 @@
 //===== rAthena Script =======================================
-//= Quest For Slotted Sunglasses
+//= Slotted Sunglasses Quest
 //===== By: ==================================================
 //= amichan
 //===== Current Version: =====================================
-//= 1.7
+//= 1.8
 //===== Compatible With: =====================================
 //= rAthena SVN
 //===== Description: =========================================
-//= Quest to get Slotted Sunglasses
+//= Quest to get Slotted Sunglasses.
+//= Will reset after quest completion.
 //===== Additional Comments: =================================
-//= quest will reset it self after 1 pair of Slotted Sunglasses is made. 
-//=
 //= 1.0 by Aegis 1.1 by aichan 1.2 by x[tsk] 1.3 by Darkchild
 //= 1.5 Fixed Exploit [Lupus]
 //= 1.6 Fixed Exploit [KarLaeda]
 //= 1.7 Relocated 'Maseph' to moc_fild07. [Kisuka]
+//= 1.8 Cleaning. [Euphy]
 //============================================================
 
-// 1st part of the quest
 alberta,88,193,5	script	Sunglasses Trader	73,{
-	if(SG_QUEST1 == 1) goto L_SG_Q1_Done;
 	mes "[Sunglasses Trader]";
+	if(SG_QUEST1 == 1) {
+		mes "There is nothing more I can tell you.";
+		next;
+		mes "[Sunglasses Trader]";
+		mes "Go see Maseph. She is somewhere north of Morroc.";
+		close; }
 	mes "Hello. What can I do for you?";
 	next;
-	menu "I heard that you can make ^0000FFSlotted Sunglasses^000000.",-,"Nothing, sorry to bother you.",L_SG_No;
-
+	if(select("I heard that you can make ^0000FFSlotted Sunglasses^000000.:Nothing, sorry to bother you.")==2) {
+		mes "[Sunglasses Trader]";
+		mes "Come back to me than you are ready.";
+		close; }
 	mes "[Sunglasses Trader]";
 	mes "I do not make them, but I can tell you where to find the person who does. For a small fee...";
 	next;
-	menu "How much?",L_SG_1,"No way, I will find her, myself!",-;
-
-	mes "[Sunglasses Trader]";
-	mes "Suit yourself, the Maker will not make you ^0000FFSlotted Sunglasses^000000 unless she knows that you are coming.";
-	mes "Only I can tell her you are coming.";
-	next;
-	mes "[Sunglasses Trader]";
-	mes "Come back to me, when you have given up. Hahaha.";
-	close;
-L_SG_1:
+	if(select("How much?:No way, I will find her myself!")==2) {
+		mes "[Sunglasses Trader]";
+		mes "Suit yourself, the Maker will not make you ^0000FFSlotted Sunglasses^000000 unless she knows that you are coming.";
+		mes "Only I can tell her you are coming.";
+		next;
+		mes "[Sunglasses Trader]";
+		mes "Come back to me when you have given up. Hahaha...";
+		close; }
 	mes "[Sunglasses Trader]";
-	mes "In order for me to tell you information on ^0000FFSlotted Sunglasses^000000 you need to get me: ";
-	mes "^0000881 Carat Diamond^000000, ";
-	mes "^00008850 Feathers^000000, ";
-	mes "and ^000088100000z^000000.";
+	mes "In order for me to tell you information on ^0000FFSlotted Sunglasses^000000 you need to get me:";
+	mes " - ^0000881 Carat Diamond^000000";
+	mes " - ^00008850 Feathers^000000";
+	mes " - ^000088100000z^000000";
 	next;
-	menu "Alright, here.",L_SG_1_Check,"That's too much!",-;
+	if(select("Alright, here.:That's too much!")==2) {
+		mes "[Sunglasses Trader]";
+		mes "Suit yourself.";
+		close; }
 	mes "[Sunglasses Trader]";
-	mes "Suit Yourself.";
-	close;
-L_SG_1_Check:
-	if (countitem(730) < 1) goto L_SG_Diamond;
-	if (countitem(949) < 50) goto L_SG_Feathers;
-	if (zeny<100000) goto L_SG_Funds;
+	if (countitem(730) < 1 || countitem(949) < 50 || Zeny < 100000) {
+		mes "You're missing something. Come back when you've gathered all the materials.";
+		close; }
 	delitem 730,1;
 	delitem 949,50;
-	set zeny,zeny-100000;
+	set Zeny, Zeny-100000;
 	set SG_QUEST1,1;
 	mes "[Sunglasses Trader]";
 	mes "Great. Now, listen carefully.";
@@ -63,81 +67,42 @@ L_SG_1_Check:
 	mes "Look for someone named Maseph somewhere north of Morroc.";
 	mes "I will send her a message to let her know that you are coming.";
 	close;
-L_SG_Diamond:
-	mes "[Sunglasses Trader]";
-	mes "You do not have the ^0000881 Carat Diamond^000000. Come back to me when you do.";
-	close;
-L_SG_Feathers:
-	mes "[Sunglasses Trader]";
-	mes "You do not have ^00008850 Feathers^000000. Come back to me when you do.";
-	close;
-L_SG_Funds:
-	mes "[Sunglasses Trader]";
-	mes "You do not have ^000088100000z^000000. Come back to me when you do.";
-	close;
-L_SG_Q1_Done:
-	mes "[Sunglasses Trader]";
-	mes "There is nothing more I can tell you.";
-	next;
-	mes "[Sunglasses Trader]";
-	mes "Go see Maseph. She is somewhere north of Morroc.";
-	close;
-L_SG_No:
-	mes "[Sunglasses Trader]";
-	mes "Come back to me than you are ready.";
-	close;
 }
- 
-// 2nd part of the quest
+
 moc_fild07,334,186,5	script	Maseph	702,{
-	if(SG_QUEST1 == 1) goto L_SG_2;
-	mes "[Maseph]";
-	mes "Lovely Day, isn't it ?";
-	close;
-L_SG_2:
 	mes "[Maseph]";
+	if(SG_QUEST1 != 1) {
+		mes "Lovely day, isn't it ?";
+		close; }
 	mes "Hello there.";
-	next;
-	mes "[Maseph]";
 	mes "You came for the ^000088Slotted Sunglasses^000000, right?";
 	next;
-	menu "Yes",L_SG_2_Start,"No, sorry to bother you.",-;
-
-	mes "[Maseph]";
-	mes "Off you go, then.";
-	close;
-L_SG_2_Start:
+	if(select("Yes:No, sorry to bother you.")==2) {
+		mes "[Maseph]";
+		mes "Off you go, then.";
+		close; }
 	mes "[Maseph]";
 	mes "To make one, I will need one pair of ^000088Sunglasses^000000 and 400000z.";
 	next;
-	menu "Here you go.",L_SG_Q2_Check,"No, thanks.",-;
-
+	if(select("Here you go.:No, thanks.")==2) {
+		mes "[Maseph]";
+		mes "As you wish.";
+		close; }
 	mes "[Maseph]";
-	mes "As you wish.";
-	close;
-L_SG_Q2_Check:
-	if(countitem(2201) < 1) goto L_SG_Sunglasses;
-	if(zeny<400000) goto L_SG_Funds;
+	if (countitem(2201) < 1) {
+		mes "I need one pair of ^000088Sunglasses^000000. Come back to me when you have one.";
+		close; }
+	if (Zeny < 400000) {
+		mes "You do not have enough Zeny. Come back to me when you do.";
+		close; }
 	delitem 2201,1;
-	set zeny,zeny-400000;
-	mes "[Maseph]";
-	mes "Thank you. I will get on it right away.";
+	set Zeny, Zeny-400000;
+	mes "Thank you. I will get on it right away...";
 	next;
 	mes "[Maseph]";
-	mes "Here you go my friend.";
+	mes "Here you go, my friend.";
+	mes "Enjoy your ^000088Slotted Sunglasses^000000.";
 	getitem 2202,1;
-// quest reset
 	set SG_QUEST1,0;
-	next;
-	mes "[Maseph]";
-	mes "Enjoy your ^000088Slotted Sunglasses^000000.";
 	close;
-L_SG_Sunglasses:
-	mes "[Maseph]";
-	mes "I need one pair of ^000088Sunglasses^000000. Come back to me when you have one.";
-	close;
-L_SG_Funds:
-	mes "[Maseph]";
-	mes "You do not have enough money. Please come back to me when you do.";
-	close;
-}
+}
\ No newline at end of file