summaryrefslogblamecommitdiff
path: root/npc/custom/quests/kings_items.txt
blob: b8c7a5538749699eec25203509ba75ba385c335f (plain) (tree)
1
2
3
4
5
6
7
8
9
                                                              
                    
                                                              
             
                                                              
       
                                                              
                                                      
                                                              
                                                          
                          

                                                              
                                                                       

                                      
             







                                                                           
             



































                                                                                                                                                      

 
                                                         
                                

                                              




                                           
                                                   
                                                                                 
              
 
//===== Hercules Script ======================================
//= Event King Items
//===== By: ==================================================
//= $ephiroth
//===== Current Version: =====================================
//= 1.1
//===== 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	1_M_PRON_KING,{
	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	1_M_SIZ,{
	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;
}