npc/pre-re/quests/collection/quest_hode.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 (Earthworm Peelings)
  13 //===== Additional Comments: =================================
  14 //= 1.0 First version.
  15 //============================================================
  16
  17 moc_fild17,208,346,5    script  Shone#Hode_Hunt 707,{
  18         if (checkquest(60104) != -1) {
  19                 if (checkquest(60104,HUNTING) != 2 ) {
  20                         mes "[Shone]";
  21                         mes "Have you finished hunting the 50 Hodes?";
  22                         next;
  23                         switch(select("Yes:No:I want to quit")) {
  24                         case 1:
  25                                 mes "[Shone]";
  26                                 mes "Hmm, I don't think you've hunted 50 yet...";
  27                                 close;
  28                         case 2:
  29                                 mes "[Shone]";
  30                                 mes "Remember, I need help hunting Hodes so go and hunt 50 of them.";
  31                                 close;
  32                         case 3:
  33                                 mes "[Shone]";
  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 "[Shone]";
  40                                         mes "Ok then, well come back here if you change your mind.";
  41                                         erasequest 60104;
  42                                         close;
  43                                 case 2:
  44                                         mes "[Shone]";
  45                                         mes "Please kill 50 Hodes.";
  46                                         close;
  47                                 }
  48                         }
  49                 }
  50                 else {
  51                         mes "[Shone]";
  52                         mes "Amazing, you did that with speed.";
  53                         getexp 15775,1125;
  54                         erasequest 60104;
  55                         close;
  56                 }
  57         }
  58         if (checkquest(60105) != -1) {
  59                 if (checkquest(60105,HUNTING) != 2 ) {
  60                         mes "[Shone]";
  61                         mes "Have you finished hunting the 50 Hodes?";
  62                         next;
  63                         switch(select("Yes:No:I want to quit")) {
  64                         case 1:
  65                                 mes "[Shone]";
  66                                 mes "Hmm, I don't think you've hunted 100 yet...";
  67                                 close;
  68                         case 2:
  69                                 mes "[Shone]";
  70                                 mes "Remember, I need help hunting Hodes so go and hunt 100 of them.";
  71                                 close;
  72                         case 3:
  73                                 mes "[Shone]";
  74                                 mes "Are you sure that you want to stop hunting?";
  75                                 mes "Any progress that you've made will be erased";
  76                                 next;
  77                                 switch(select("Yes:No")) {
  78                                 case 1:
  79                                         mes "[Shone]";
  80                                         mes "Ok then, well come back here if you change your mind.";
  81                                         erasequest 60105;
  82                                         close;
  83                                 case 2:
  84                                         mes "[Shone]";
  85                                         mes "Please kill 100 Hodes.";
  86                                         close;
  87                                 }
  88                         }
  89                 }
  90                 else {
  91                         mes "[Shone]";
  92                         mes "Amazing, you did that with speed.";
  93                         getexp 15775,1125;
  94                         getexp 15775,1125;
  95                         erasequest 60105;
  96                         close;
  97                 }
  98         }
  99         if (checkquest(60106) != -1) {
 100                 if (checkquest(60106,HUNTING) != 2 ) {
 101                         mes "[Shone]";
 102                         mes "Have you finished hunting the 150 Hodes?";
 103                         next;
 104                         switch(select("Yes:No:I want to quit")) {
 105                         case 1:
 106                                 mes "[Shone]";
 107                                 mes "Hmm, I don't think you've hunted 150 yet...";
 108                                 close;
 109                         case 2:
 110                                 mes "[Shone]";
 111                                 mes "Remember, I need help hunting Hodes so go and hunt 150 of them.";
 112                                 close;
 113                         case 3:
 114                                 mes "[Shone]";
 115                                 mes "Are you sure that you want to stop hunting?";
 116                                 mes "Any progress that you've made will be erased";
 117                                 next;
 118                                 switch(select("Yes:No")) {
 119                                 case 1:
 120                                         mes "[Shone]";
 121                                         mes "Ok then, well come back here if you change your mind.";
 122                                         erasequest 60106;
 123                                         close;
 124                                 case 2:
 125                                         mes "[Shone]";
 126                                         mes "Please kill 150 Hodes.";
 127                                         close;
 128                                 }
 129                         }
 130                 }
 131                 else {
 132                         mes "[Shone]";
 133                         mes "Amazing, you did that with speed.";
 134                         getexp 15775,1125;
 135                         getexp 15775,1125;
 136                         getexp 15775,1125;
 137                         erasequest 60106;
 138                         close;
 139                 }
 140         }
 141         //for minimum level
 142         if (BaseLevel > 24) {
 143                 //for maximum level
 144                 if (BaseLevel < 61) {
 145                         mes "[Shone]";
 146                         mes "Wait! You can see me?";
 147                         mes "Oh well, I haven't yet mastered my skills.";
 148                         next;
 149                         mes "[Shone]";
 150                         mes "Hey do you think you can help me?";
 151                         next;
 152                         switch(select("Sure:No")) {
 153                         case 1:
 154                                 mes "[Shone]";
 155                                 mes "Thanks a lot, pal!";
 156                                 next;
 157                                 switch(select("Gather Items:Hunt Hodes:Cancel")) {
 158                                 case 1:
 159                                         // Item turn in
 160                                         mes "[Shone]";
 161                                         mes "I am trying to collect ^00CE0025 Earthworm Peelings^000000.";
 162                                         mes "I will reward you if you help.";
 163                                         next;
 164                                         switch(select("I have 25 Earthworm Peelings:What was it again?")) {
 165                                         case 1:
 166                                                 /*
 167                                                 if (checkweight(502,10) == 0) {
 168                                                         mes "[Shone]";
 169                                                         mes "Hey, it looks like that the weight on";
 170                                                         mes "your back will crush you. Come back";
 171                                                         mes "after you have lost some weight.";
 172                                                         close;
 173                                                 }
 174                                                 */
 175                                                 if (countitem(1055) > 24) {
 176                                                         mes "Thank you for the 25 Earthworm";
 177                                                         mes "Peelings!";
 178                                                         mes "Here is that reward I promised you, I hope take this wisdom I have passed on to you and share it with others.";
 179                                                         delitem 1055,25; //Earthworm_Peeling
 180                                                         getexp 15775,1125;
 181                                                         //getitem 502,10; //Orange_Potion
 182                                                         close;
 183                                                 }
 184                                                 else {
 185                                                         mes "[Shone]";
 186                                                         mes "I don't see any ^00CE00Earthworm Peerlings^000000.";
 187                                                         mes "Are you trying to scam me?";
 188                                                         close;
 189                                                 }
 190                                         case 2:
 191                                                 mes "[Shone]";
 192                                                 mes "I need ^00CE0025 Earthworm Peelings^000000.";
 193                                                 close;
 194                                         }
 195                                 case 2:
 196                                         // Kill Count Quest
 197                                         mes "[Shone]";
 198                                         mes "Ah, ok I think you can help me out by hunting some Hodes.";
 199                                         mes "How many would you like to hunt?";
 200                                         next;
 201                                         switch(select("50 Hodes:100 Hodes:150 Hodes")) {
 202                                         case 1:
 203                                                 mes "[Shone]";
 204                                                 mes "Come back when you've finished your task and I will give you a small reward.";
 205                                                 setquest 60104;
 206                                                 close;
 207                                         case 2:
 208                                                 mes "[Shone]";
 209                                                 mes "Come back when you've finished your task and I will give you a small reward.";
 210                                                 setquest 60105;
 211                                                 close;
 212                                         case 3:
 213                                                 mes "[Shone]";
 214                                                 mes "Come back when you've finished your task and I will give you a small reward.";
 215                                                 setquest 60106;
 216                                                 close;
 217                                         }
 218                                 case 3:
 219                                         mes "[Shone]";
 220                                         mes "If you change your mind, please come back.";
 221                                         close;
 222                                 }
 223                         case 2:
 224                                 mes "[Shone]";
 225                                 mes "If you change your mind, please come back.";
 226                                 close;
 227                         }
 228                 }
 229                 else {
 230                         mes "[Shone]";
 231                         mes "You are much too strong to be fighting these things!";
 232                         close;
 233                 }
 234         }
 235         else {
 236                 mes "[Shone]";
 237                 mes "You need some help, but I can't provide that for you.";
 238                 mes "Come back when you are stronger and have earned much more wisdom.";
 239                 close;
 240         }
 241 }