npc/pre-re/quests/collection/quest_pupa.txt

   1 //===== rAthena Script =======================================
   2 //= iRO Repeatable EXP Quests.
   3 //===== By: ==================================================
   4 //= L0ne_W0lf
   5 //===== Current Version: =====================================
   6 //= 1.0
   7 //===== Compatible With: =====================================
   8 //= rAthena Project
   9 //===== Description: =========================================
  10 //= [Official Conversion]
  11 //= Added Monster Killing quests.
  12 //= Repeatable EXP Quest (Chrysalis)
  13 //===== Additional Comments: =================================
  14 //= 1.0 First version.
  15 //============================================================
  16
  17 gef_fild04,191,54,3     script  Halgus#Pupa_Hunt        123,{
  18         if (checkquest(60110) != -1) {
  19                 if (checkquest(60110,HUNTING) != 2 ) {
  20                         mes "[Halgus]";
  21                         mes "Have you gotten rid of the Pupa?";
  22                         next;
  23                         switch(select("Yes:No:I want to quit")) {
  24                         case 1:
  25                                 mes "[Halgus]";
  26                                 mes "Hmm, I don't think you've gotten rid of 50 Pupa yet...";
  27                                 close;
  28                         case 2:
  29                                 mes "[Halgus]";
  30                                 mes "Remember, get rid of 50 of those Pupa from the field.";
  31                                 close;
  32                         case 3:
  33                                 mes "[Halgus]";
  34                                 mes "Are you sure that you want to stop hunting?";
  35                                 mes "Any progress that you've made will be erased";
  36                                 next;
  37                                 switch(select("Yes:No")) {
  38                                 case 1:
  39                                         mes "[Halgus]";
  40                                         mes "Ok then, well come back here if you change your mind.";
  41                                         erasequest 60110;
  42                                         close;
  43                                 case 2:
  44                                         mes "[Halgus]";
  45                                         mes "Remember, get rid of 50 of those Pupa from the field.";
  46                                         close;
  47                                 }
  48                         }
  49                 }
  50                 else {
  51                         mes "[Halgus]";
  52                         mes "Oh thank you so much.";
  53                         mes "I know that I could've probably done this myself but it's not easy to be standing here all of the time.";
  54                         getexp 385,30;
  55                         erasequest 60110;
  56                         close;
  57                 }
  58         }
  59         if (checkquest(60111) != -1) {
  60                 if (checkquest(60111,HUNTING) != 2 ) {
  61                         mes "[Halgus]";
  62                         mes "Have you gotten rid of the Pupa?";
  63                         next;
  64                         switch(select("Yes:No:I want to quit")) {
  65                         case 1:
  66                                 mes "[Halgus]";
  67                                 mes "Hmm, I don't think you've gotten rid of 100 Pupa yet...";
  68                                 close;
  69                         case 2:
  70                                 mes "[Halgus]";
  71                                 mes "Remember, get rid of 100 of those Pupa from the field.";
  72                                 close;
  73                         case 3:
  74                                 mes "[Halgus]";
  75                                 mes "Are you sure that you want to stop hunting?";
  76                                 mes "Any progress that you've made will be erased";
  77                                 next;
  78                                 switch(select("Yes:No")) {
  79                                 case 1:
  80                                         mes "[Halgus]";
  81                                         mes "Ok then, well come back here if you change your mind.";
  82                                         erasequest 60111;
  83                                         close;
  84                                 case 2:
  85                                         mes "[Halgus]";
  86                                         mes "Remember, get rid of 100 of those Pupa from the field.";
  87                                         close;
  88                                 }
  89                         }
  90                 }
  91                 else {
  92                         mes "[Halgus]";
  93                         mes "Oh thank you so much.";
  94                         mes "I know that I could've probably done this myself but it's not easy to be standing here all of the time.";
  95                         getexp 385,30;
  96                         getexp 385,30;
  97                         erasequest 60111;
  98                         close;
  99                 }
 100         }
 101         if (checkquest(60112) != -1) {
 102                 if (checkquest(60112,HUNTING) != 2 ) {
 103                         mes "[Halgus]";
 104                         mes "Have you gotten rid of the Pupa?";
 105                         next;
 106                         switch(select("Yes:No:I want to quit")) {
 107                         case 1:
 108                                 mes "[Halgus]";
 109                                 mes "Hmm, I don't think you've gotten rid of 150 Pupa yet...";
 110                                 close;
 111                         case 2:
 112                                 mes "[Halgus]";
 113                                 mes "Remember, get rid of 150 of those Pupa from the field.";
 114                                 close;
 115                         case 3:
 116                                 mes "[Halgus]";
 117                                 mes "Are you sure that you want to stop hunting?";
 118                                 mes "Any progress that you've made will be erased";
 119                                 next;
 120                                 switch(select("Yes:No")) {
 121                                 case 1:
 122                                         mes "[Halgus]";
 123                                         mes "Ok then, well come back here if you change your mind.";
 124                                         erasequest 60112;
 125                                         close;
 126                                 case 2:
 127                                         mes "[Halgus]";
 128                                         mes "Remember, get rid of 150 of those Pupa from the field.";
 129                                         close;
 130                                 }
 131                         }
 132                 }
 133                 else {
 134                         mes "[Halgus]";
 135                         mes "Oh thank you so much.";
 136                         mes "I know that I could've probably done this myself but it's not easy to be standing here all of the time.";
 137                         getexp 385,30;
 138                         getexp 385,30;
 139                         getexp 385,30;
 140                         erasequest 60112;
 141                         close;
 142                 }
 143         }
 144         //for minimum level
 145         if (BaseLevel > 1) {
 146                 //for maximum level
 147                 if (BaseLevel < 21) {
 148                         mes "[Halgus]";
 149                         mes "New here are you?";
 150                         mes "Well look, I like helping new faces around here.";
 151                         mes "And lets be honest, you are not the prettiest looking face I've seen.";
 152                         next;
 153                         mes "[Halgus]";
 154                         mes "None-the-less my daughter thought it would be fun to gather pupa around this field and it's becoming unsightly.";
 155                         mes "Do you mind helping me get rid of some Pupa to clear out this field?";
 156                         next;
 157                         switch(select("Sure, I don't mind:No")) {
 158                         case 1:
 159                                 mes "[Halgus]";
 160                                 mes "Really? What would you like to do to help?";
 161                                 next;
 162                                 switch(select("Gather Items:Get rid of Pupa:Cancel")) {
 163                                 case 1:
 164                                         // Item turn in
 165                                         mes "[Halgus]";
 166                                         mes "Can you collect ^00CE0025 Chrysalis^000000 and return them to me, I promise to reward you well.";
 167                                         next;
 168                                         switch(select("I have Chrysalis:What did you need?")) {
 169                                         case 1:
 170                                                 if (countitem(915) > 24) {
 171                                                         mes "[Halgus]";
 172                                                         mes "Amazing you found so many that fast.";
 173                                                         mes "Like I promised, give me the Chrysalis and I will reward you with my wisdom.";
 174                                                         delitem 915,25; //Chrysalis
 175                                                         getexp 385,30;
 176                                                         close;
 177                                                 }
 178                                                 else {
 179                                                         mes "[Halgus]";
 180                                                         mes "I need ^00CE0025 Chrysalis^000000 and no less please.";
 181                                                         close;
 182                                                 }
 183                                         case 2:
 184                                                 mes "[Halgus]";
 185                                                 mes "I need ^00CE0025 Chrysalis^000000.";
 186                                                 close;
 187                                         }
 188                                 case 2:
 189                                         // Kill Count Quest
 190                                         mes "[Halgus]";
 191                                         mes "Thank you so much!";
 192                                         mes "How many would you like to get rid of?";
 193                                         next;
 194                                         switch(select("50 Pupa:100 Pupa:150 Pupa")) {
 195                                         case 1:
 196                                                 mes "[Halgus]";
 197                                                 mes "If you can get rid of 50 of those Pupa from the field I will be grateful.";
 198                                                 setquest 60110;
 199                                                 close;
 200                                         case 2:
 201                                                 mes "[Halgus]";
 202                                                 mes "If you can get rid of 100 of those Pupa from the field I will be grateful.";
 203                                                 setquest 60111;
 204                                                 close;
 205                                         case 3:
 206                                                 mes "[Halgus]";
 207                                                 mes "If you can get rid of 150 of those Pupa from the field I will be grateful.";
 208                                                 setquest 60112;
 209                                                 close;
 210                                         }
 211                                 case 3:
 212                                         mes "[Halgus]";
 213                                         mes "If you change your mind, please come back.";
 214                                         close;
 215                                 }
 216                         case 2:
 217                                 mes "[Halgus]";
 218                                 mes "If you change your mind, please come back.";
 219                                 close;
 220                         }
 221                 }
 222                 else {
 223                         mes "[Halgus]";
 224                         mes "You could probably easily help me out, but I want to give charity to those who are not as strong as you.";
 225                         close;
 226                 }
 227         }
 228         else {
 229                 mes "[Halgus]";
 230                 mes "Please return to me when you are a little stronger.";
 231                 close;
 232         }
 233 }