> 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

1 files changed, 46 insertions, 73 deletions

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