diff options
Diffstat (limited to 'npc/custom/quests/kings_items.txt')
| -rw-r--r-- | npc/custom/quests/kings_items.txt | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/npc/custom/quests/kings_items.txt b/npc/custom/quests/kings_items.txt new file mode 100644 index 000000000..8140827c1 --- /dev/null +++ b/npc/custom/quests/kings_items.txt @@ -0,0 +1,79 @@ +//===== 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; +}
\ No newline at end of file |