//===== 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;
}
