root/npc/custom/quests/sunglasses.txt @ 1

Revision 1, 4.4 kB (checked in by jinshiro, 17 years ago)
RevLine 
[1]1//===== eAthena Script =======================================
2//= Quest For Slotted Sunglasses
3//===== By: ==================================================
4//= Aegis - amichan
5//===== Current Version: =====================================
6//= 1.6
7//===== Compatible With: =====================================
8//= Any eAthena Version;
9//===== Description: =========================================
10//= Quest to get Slotted Sunglasses
11//===== Additional Comments: =================================
12//= 1.0 by Aegis 1.1 by aichan 1.2 by x[tsk] 1.3 by Darkchild
13//= 1.5 Fixed Exploit [Lupus]
14//= 1.6 Fixed Exploit [KarLaeda]
15//============================================================
16
17// quest will reset it self after 1 pair of Slotted Sunglasses is made.
18// 1st part of the quest
19
20alberta,88,193,5        script  Sunglasses Trader       73,{
21        if(SG_QUEST1 == 1) goto L_SG_Q1_Done;
22        mes "[Sunglasses Trader]";
23        mes "Hello. What can I do for you?";
24        next;
25        menu "I heard that you can make ^0000FFSlotted Sunglasses^000000.",-,"Nothing, sorry to bother you.",L_SG_No;
26
27        mes "[Sunglasses Trader]";
28        mes "I do not make them, but I can tell you where to find the person who does. For a small fee...";
29        next;
30        menu "How much?",L_SG_1,"No way, I will find her, myself!",-;
31
32        mes "[Sunglasses Trader]";
33        mes "Suit yourself, the Maker will not make you ^0000FFSlotted Sunglasses^000000 unless she knows that you are coming.";
34        mes "Only I can tell her you are coming.";
35        next;
36        mes "[Sunglasses Trader]";
37        mes "Come back to me, when you have given up. Hahaha.";
38        close;
39L_SG_1:
40        mes "[Sunglasses Trader]";
41        mes "In order for me to tell you information on ^0000FFSlotted Sunglasses^000000 you need to get me: ";
42        mes "^0000881 Carat Diamond^000000, ";
43        mes "^00008850 Feathers^000000, ";
44        mes "and ^000088100000z^000000.";
45        next;
46        menu "Alright, here.",L_SG_1_Check,"That's too much!",-;
47
48        mes "[Sunglasses Trader]";
49        mes "Suit Yourself.";
50        close;
51L_SG_1_Check:
52        if (countitem(730) < 1) goto L_SG_Diamond;
53        if (countitem(949) < 50) goto L_SG_Feathers;
54        if (zeny<100000) goto L_SG_Funds;
55        delitem 730,1;
56        delitem 949,50;
57        set zeny,zeny-100000;
58        set SG_QUEST1,1;
59        mes "[Sunglasses Trader]";
60        mes "Great. Now, listen carefully.";
61        next;
62        mes "[Sunglasses Trader]";
63        mes "Look for someone name Maseph somewhere in the east of Morroc.";
64        mes "I will send her a message to let her know that you are coming.";
65        close;
66L_SG_Diamond:
67        mes "[Sunglasses Trader]";
68        mes "You do not have the ^0000881 Carat Diamond^000000. Come back to me when you do.";
69        close;
70L_SG_Feathers:
71        mes "[Sunglasses Trader]";
72        mes "You do not have ^00008850 Feathers^000000. Come back to me when you do.";
73        close;
74L_SG_Funds:
75        mes "[Sunglasses Trader]";
76        mes "You do not have ^000088100000z^000000. Come back to me when you do.";
77        close;
78L_SG_Q1_Done:
79        mes "[Sunglasses Trader]";
80        mes "There is nothing more I can tell you.";
81        next;
82        mes "[Sunglasses Trader]";
83        mes "Go see Maseph. She is somewhere east of Morroc.";
84        close;
85L_SG_No:
86        mes "[Sunglasses Trader]";
87        mes "Come back to me than you are ready.";
88        close;
89}
90 
91// 2nd part of the quest
92
93moc_fild09,209,128,5    script  Maseph  702,{
94        if(SG_QUEST1 == 1) goto L_SG_2;
95        mes "[Maseph]";
96        mes "Lovely Day, isn't it ?";
97        close;
98L_SG_2:
99        mes "[Maseph]";
100        mes "Hello there.";
101        next;
102        mes "[Maseph]";
103        mes "You came for the ^000088Slotted Sunglasses^000000, right?";
104        next;
105        menu "Yes",L_SG_2_Start,"No, sorry to bother you.",-;
106
107        mes "[Maseph]";
108        mes "Off you go, then.";
109        close;
110L_SG_2_Start:
111        mes "[Maseph]";
112        mes "To make one, I will need one pair of ^000088Sunglasses^000000 and 400000z.";
113        next;
114        menu "Here you go.",L_SG_Q2_Check,"No, thanks.",-;
115
116        mes "[Maseph]";
117        mes "As you wish.";
118        close;
119L_SG_Q2_Check:
120        if(countitem(2201) < 1) goto L_SG_Sunglasses;
121        if(zeny<400000) goto L_SG_Funds;
122        delitem 2201,1;
123        set zeny,zeny-400000;
124        mes "[Maseph]";
125        mes "Thank you. I will get on it right away.";
126        next;
127        mes "[Maseph]";
128        mes "Here you go my friend.";
129        getitem 2202,1;
130// quest reset
131        set SG_QUEST1,0;
132        next;
133        mes "[Maseph]";
134        mes "Enjoy your ^000088Slotted Sunglasses^000000.";
135        close;
136L_SG_Sunglasses:
137        mes "[Maseph]";
138        mes "I need one pair of ^000088Sunglasses^000000. Come back to me when you have one.";
139        close;
140L_SG_Funds:
141        mes "[Maseph]";
142        mes "You do not have enough money. Please come back to me when you do.";
143        close;
144}
Note: See TracBrowser for help on using the browser.