> 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, 32 insertions, 67 deletions

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