> 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, 79 insertions, 0 deletions

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