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
|
// Excalibur Quest NPC
// By: Syrus22
// Version 1.0
// Any comments or questions PM me on the Yare forums
// Description: This is a simple item quest NPC. The player must find an
// Angel Band, a Heaven Ring, and an Emperium. If they do they will receive
// the Excalibur.
prt_castle.gat,81,171,5 script Mysterious King 108,{
mes "[Excalibur Quest Rep]";
mes "Hello Adventurer.";
mes "I'm glad to announce that we are sponsoring a hunt for the legendary sword, Excalibur. Or more appropriately a hunt for certain rare items that can be traded in for the legendary sword.";
next;
goto ExMenu;
ExMenu:
menu "Required Items",ExItems,"Create Excalibur",ExCreate,"End",ExEnd;
ExItems:
mes "[Excalibur Quest Rep]";
mes "You need the following items to create the Excalibur.";
mes "Angel Band";
mes "Heaven Ring";
mes "Emperium";
next;
goto ExMenu;
ExCreate:
mes "[Excalibur Quest Rep]";
mes "Let me check your inventory!";
next;
if(countitem(2254)<1) goto NoAngel;
if(countitem(2282)<1) goto NoHeaven;
if(countitem(714)<1) goto NoEmp;
goto ExGive;
NoAngel:
mes "[Excalibur Quest Rep]";
mes "Sorry but you must have at least 1 Angel Band.";
mes "Come back after you get ALL the items.";
close;
NoHeaven:
mes "[Excalibur Quest Rep]";
mes "Sorry but you must have at least 1 Heaven Ring.";
mes "Come back after you get ALL the items.";
close;
NoEmp:
mes "[Excalibur Quest Rep]";
mes "Sorry but you must have at least 1 Emperium.";
mes "Come back after you get ALL the items.";
close;
ExGive:
mes "[Excalibur Quest Rep]";
mes "Congratulations. You have collected all necessary items. I give to you the Excalibur!!!";
delitem 2254,1;
delitem 2282,1;
delitem 714,1;
getitem 1137,1;
mes "Thank you for your participation!";
close;
ExEnd:
mes "[Excalibur Quest Rep]";
mes "Good bye then. Hope you try the quest!";
close;
close; }
}
|
