You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
80 lines
2.9 KiB
Plaintext
80 lines
2.9 KiB
Plaintext
//===== rAthena Script =======================================
|
|
//= Event King Items
|
|
//===== By: ==================================================
|
|
//= $ephiroth
|
|
//===== Current Version: =====================================
|
|
//= 1.1
|
|
//===== Compatible With: =====================================
|
|
//= rAthena Project
|
|
//===== 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 == 2 )?"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;
|
|
}
|