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