npc/custom/quests/sunglasses.txt

   1 //===== rAthena Script =======================================
   2 //= Slotted Sunglasses Quest
   3 //===== By: ==================================================
   4 //= amichan
   5 //===== Current Version: =====================================
   6 //= 1.8
   7 //===== Compatible With: =====================================
   8 //= rAthena Project
   9 //===== Description: =========================================
  10 //= Quest to get Slotted Sunglasses.
  11 //= Will reset after quest completion.
  12 //===== Additional Comments: =================================
  13 //= 1.0 by Aegis 1.1 by aichan 1.2 by x[tsk] 1.3 by Darkchild
  14 //= 1.5 Fixed Exploit [Lupus]
  15 //= 1.6 Fixed Exploit [KarLaeda]
  16 //= 1.7 Relocated 'Maseph' to moc_fild07. [Kisuka]
  17 //= 1.8 Cleaning. [Euphy]
  18 //============================================================
  19
  20 alberta,88,193,5        script  Sunglasses Trader       73,{
  21         mes "[Sunglasses Trader]";
  22         if(SG_QUEST1 == 1) {
  23                 mes "There is nothing more I can tell you.";
  24                 next;
  25                 mes "[Sunglasses Trader]";
  26                 mes "Go see Maseph. She is somewhere north of Morroc.";
  27                 close; }
  28         mes "Hello. What can I do for you?";
  29         next;
  30         if(select("I heard that you can make ^0000FFSlotted Sunglasses^000000.:Nothing, sorry to bother you.")==2) {
  31                 mes "[Sunglasses Trader]";
  32                 mes "Come back to me than you are ready.";
  33                 close; }
  34         mes "[Sunglasses Trader]";
  35         mes "I do not make them, but I can tell you where to find the person who does. For a small fee...";
  36         next;
  37         if(select("How much?:No way, I will find her myself!")==2) {
  38                 mes "[Sunglasses Trader]";
  39                 mes "Suit yourself, the Maker will not make you ^0000FFSlotted Sunglasses^000000 unless she knows that you are coming.";
  40                 mes "Only I can tell her you are coming.";
  41                 next;
  42                 mes "[Sunglasses Trader]";
  43                 mes "Come back to me when you have given up. Hahaha...";
  44                 close; }
  45         mes "[Sunglasses Trader]";
  46         mes "In order for me to tell you information on ^0000FFSlotted Sunglasses^000000 you need to get me:";
  47         mes " - ^0000881 Carat Diamond^000000";
  48         mes " - ^00008850 Feathers^000000";
  49         mes " - ^000088100000z^000000";
  50         next;
  51         if(select("Alright, here.:That's too much!")==2) {
  52                 mes "[Sunglasses Trader]";
  53                 mes "Suit yourself.";
  54                 close; }
  55         mes "[Sunglasses Trader]";
  56         if (countitem(730) < 1 || countitem(949) < 50 || Zeny < 100000) {
  57                 mes "You're missing something. Come back when you've gathered all the materials.";
  58                 close; }
  59         delitem 730,1;
  60         delitem 949,50;
  61         set Zeny, Zeny-100000;
  62         set SG_QUEST1,1;
  63         mes "[Sunglasses Trader]";
  64         mes "Great. Now, listen carefully.";
  65         next;
  66         mes "[Sunglasses Trader]";
  67         mes "Look for someone named Maseph somewhere north of Morroc.";
  68         mes "I will send her a message to let her know that you are coming.";
  69         close;
  70 }
  71
  72 moc_fild07,334,186,5    script  Maseph  702,{
  73         mes "[Maseph]";
  74         if(SG_QUEST1 != 1) {
  75                 mes "Lovely day, isn't it ?";
  76                 close; }
  77         mes "Hello there.";
  78         mes "You came for the ^000088Slotted Sunglasses^000000, right?";
  79         next;
  80         if(select("Yes:No, sorry to bother you.")==2) {
  81                 mes "[Maseph]";
  82                 mes "Off you go, then.";
  83                 close; }
  84         mes "[Maseph]";
  85         mes "To make one, I will need one pair of ^000088Sunglasses^000000 and 400000z.";
  86         next;
  87         if(select("Here you go.:No, thanks.")==2) {
  88                 mes "[Maseph]";
  89                 mes "As you wish.";
  90                 close; }
  91         mes "[Maseph]";
  92         if (countitem(2201) < 1) {
  93                 mes "I need one pair of ^000088Sunglasses^000000. Come back to me when you have one.";
  94                 close; }
  95         if (Zeny < 400000) {
  96                 mes "You do not have enough Zeny. Come back to me when you do.";
  97                 close; }
  98         delitem 2201,1;
  99         set Zeny, Zeny-400000;
 100         mes "Thank you. I will get on it right away...";
 101         next;
 102         mes "[Maseph]";
 103         mes "Here you go, my friend.";
 104         mes "Enjoy your ^000088Slotted Sunglasses^000000.";
 105         getitem 2202,1;
 106         set SG_QUEST1,0;
 107         close;
 108 }