1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
//===== 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;
}
|
