* Added "eA Job System" documentation for third classes (doc\ea_job_system.txt)

* Fixed Eden: Romeo#02 not setting para_suv01 upon quest completion (bugreport:5949)
* Cleaned and edited "Item Signer" script for general use (custom\item_signer.txt)
* Merged and cleaned "Poring Track" custom script, then moved and renamed (custom\events\p_track.txt)
* Optimized "Valhallen Quests" script (custom\quests\valhallen.txt)
* Optimized "Event King Items" script (custom\events\kings_items.txt)
* Deleted "Market Place" script, not sure why this existed... (custom\etc\market.txt)

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

1 files changed, 57 insertions, 156 deletions

diff --git a/npc/custom/events/kings_items.txt b/npc/custom/events/kings_items.txt
index a706e037c..8140827c1 100644
--- a/npc/custom/events/kings_items.txt
+++ b/npc/custom/events/kings_items.txt
@@ -3,176 +3,77 @@
 //===== By: ================================================== 
 //= $ephiroth
 //===== Current Version: ===================================== 
-//= 1.0
+//= 1.1
 //===== Compatible With: ===================================== 
 //= rAthena SVN
 //===== Description: ========================================= 
 //= Grand Circlet Quest combined with Excalibur Quest.
-//= Converted to rAthena format from Fusion.
+//===== 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,{
-	set @npcname$,"[King of Prontera]";
-
-	mes @npcname$;
-	mes "Hello can you help me?";
-	next;
-	menu "Sure, what can I do?",L_Sure,"No sorry I'm busy",L_Quit;
-
-L_Sure:
-	mes @npcname$;
-	mes "Thank you.";
-	mes "Well, my daughter next to me is a little rowdy";
-	mes "if you got her these items I'm sure she would calm down.";
-	mes "If you bring me these items I'll give you my crown or my sword";
-	mes "Both are very special.";
-	next;
-	menu "Ok what do you need?",L_Req,"I have the items",L_Have,"Forget it",L_Quit;
-
-L_Req:
-	mes @npcname$;
-	mes "If you could get me:";
-	mes "^00B6FF30 Chonchon doll^000000";
-	mes "^D5A50050 Poring doll^000000";
-	mes "^0080FF20 Yoyo doll^000000";
-	mes "^CC66331 3carat diamond^000000";
-	mes "^3131FF20 Illusion Flowers^000000";
-	mes "^AA00AA20 Singing Flowers^000000";
-	mes "I'll give you my crown.";
-	next;
-	mes @npcname$;
-	mes "If you could get me:";
-	mes "^0000881 Angel Band^000000";
-	mes "^4422FF1 Heaven Ring^000000";
-	mes "^AA00AA1 Emperium^000000";
-	mes "I'll give my sword.";
-	mes "Once you find those, come back to me.";
-	close;
-
-L_Have:
-	mes @npcname$;
-	mes "What item you want?";
-	next;
-	menu "Crown",L_crown,"Sword",L_sword;
-
-L_crown:
-	if(countitem(742)<30) goto L_Error; 
-	if(countitem(741)<50) goto L_Error1;
-	if(countitem(753)<20) goto L_Error2;
-	if(countitem(732)<1) goto L_Error3;
-	if(countitem(710)<20) goto L_Error4;
-	if(countitem(629)<20) goto L_Error5;
-	delitem 742,30;
-	delitem 741,50;
-	delitem 753,20;
-	delitem 732,1;
-	delitem 710,20;
-	delitem 629,20;
-	mes @npcname$;
-	mes "THANK YOU SOO MUCH!!";
-	mes "This will surely calm her down.";
-	mes "Let me just take the items from you.";
+	mes "[King of Prontera]";
+	mes "Hello, can you help me?";
 	next;
-	mes @npcname$;
-	mes "As I promised here is my crown.";
-	getitem 5007,1;
+	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;
-	mes @npcname$;
-	mes "Well, I have to calm her down now.";
-	mes "Thanks again!";
-	close;
-L_sword:
-	if(countitem(2254)<1) goto L_NoAngel;
-	if(countitem(2282)<1) goto L_NoHeaven;
-	if(countitem(714)<1) goto L_NoEmp;
-	delitem 2254,1;
-	delitem 2282,1;
-	delitem 714,1;
-	mes @npcname$;
-	mes "THANK YOU SOO MUCH!!";
-	mes "This will surely calm her down.";
-	mes "Let me just take the items from you.";
-	next;
-	mes @npcname$;
-	mes "As I promised here is my sword.";
-	getitem 1137,1;
-	next;
-	mes @npcname$;
-	mes "Well, I have to calm her down now.";
-	mes "Thanks again!";
-	close;
-
-L_NoAngel:
-	mes @npcname$;
-	mes "Sorry but you must have at least one Angel Band.";
-	mes "Come back after you get ALL the items.";
-	close;
-
-L_NoHeaven:
-	mes @npcname$;
-	mes "Sorry but you must have at least one Heaven Ring.";
-	mes "Come back after you get ALL the items.";
-	close;
-
-L_NoEmp:
-	mes @npcname$;
-	mes "Sorry but you must have at least one Emperium.";
-	mes "Come back after you get ALL the items.";
-	close;
-
-L_Error:
-	mes @npcname$;
-	mes "Oh darn, you need 30 Chonchon Dolls.";
-	close;
-
-L_Error1:
-	mes @npcname$;
-	mes "Oh darn, you need 50 Poring dolls.";
-	close;
-
-L_Error2:
-	mes @npcname$;
-	mes "Oh darn, you need 20 Yoyo dolls.";
-	close;
-
-L_Error3:
-	mes @npcname$;
-	mes "Oh darn, you need one 3 Carat Diamond.";
-	close;
-
-L_Error4:
-	mes @npcname$;
-	mes "Oh darn, you need 20 Illusion Flowers.";
-	close;
-
-L_Error5:
-	mes @npcname$;
-	mes "Oh darn, you need 20 Singing Flowers.";
-	close;
-
-L_Quit:
-	mes @npcname$;
-	mes "Ok, that's fine, I'm sure someone else will help.";
-	close;
+	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,{
-	set @npcname$,"[King's Daughter]";
-
-	mes @npcname$;
+	mes "[King's Daughter]";
 	mes "Hmph, I hate my dad right now!!";
 	next;
-	menu "Why?",L_Why,"Ok...Whatever..",L_Quit;
-
-L_Why:
-	mes @npcname$;
+	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;
-
-L_Quit:
-	mes @npcname$;
-	mes "FINE THEN Hmph!!";
+	mes "He's the King of Prontera. He should be able to get me ANYTHING!!!";
 	close;
-}
+}
\ No newline at end of file