41-55.txt 5.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091
  1. //===== rAthena Script =======================================
  2. //= Eden Group Quests - Mission [41 - 55]
  3. //===== By: ==================================================
  4. //= L0ne_W0lf
  5. //===== Current Version: =====================================
  6. //= 1.4
  7. //===== Compatible With: =====================================
  8. //= rAthena Project
  9. //===== Description: =========================================
  10. //= Repetable Quests for Players between Baselevel 41 - 55.
  11. //===== Additional Comments: =================================
  12. //= 1.0 First Version.
  13. //= 1.1 Some little optimization here and there. [Masao]
  14. //= 1.2 Optimized. [Euphy]
  15. //= 1.3 Added support to Para_Team_Mark_ in Eden Group. [Ragno]
  16. //= 1.4 Added use of F_HasEdenGroupMark function. [Ragno]
  17. //============================================================
  18. moc_para01,40,38,3 script Mission [41 - 55] 857,{
  19. if (!callfunc("F_HasEdenGroupMark")) {
  20. mes "You are not an Eden group member. You are not qualified to access the bulletin board.";
  21. close;
  22. }
  23. if (checkweight(1201,1) == 0 || (MaxWeight - Weight) < 1000) {
  24. mes "^008800Wait a sec!!";
  25. mes "You cannot receive any more items because you're carrying too many items. Please try again after you lighten up.^000000";
  26. close;
  27. }
  28. if (checkquest(12088) == -1) {
  29. if (BaseLevel < 41 || BaseLevel > 55) {
  30. mes "Mission bulletin board for Lv41~55 adventurers.";
  31. close;
  32. }
  33. mes "[Mission Board]";
  34. mes "Mission bulletin board.";
  35. next;
  36. if(select("Check the Missions.:Cancel.") == 2) {
  37. mes "^000077Ok. Let's check the missions next time.^000000.";
  38. close;
  39. }
  40. switch(select("Thara Frog Hunting:Cruiser Hunting:Kukre Hunting:Orc Baby Hunting:Orc Warrior Hunting:Vadon Hunting:Megalodon Hunting:Marse Hunting:Cornutus Hunting:Myst Hunting:Shellfish Hunting:Marine Sphere Hunting")) {
  41. case 1: callsub L_Quest,12072,"Have you seen a red frog? It is called Thara Frog and it's very rare. We are trying to verify where it inhabits. So please hunt 20 Thara Frogs.";
  42. case 2: callsub L_Quest,12073,"I heard of some toys attacking people. It is ridiculous! Let's show them our power! We have to hunt 15 Cruisers!";
  43. case 3: callsub L_Quest,12074,"Someone got robbed near the beach! The possible suspect is a criminal monster called Kukre. Please hunt 30 Kukre.";
  44. case 4: callsub L_Quest,12075,"Orc Babies are getting more violent these days. Please hunt 15 Orc Babies.";
  45. case 5: callsub L_Quest,12076,"Orc Warriors are increasing their aggression. Please hunt 20 Orc Warriors.";
  46. case 6: callsub L_Quest,12077,"Have you seen crabs with thick shells? They are Vadons. Please hunt 15 Vadons.";
  47. case 7: callsub L_Quest,12078,"Dead fish are all around the beach and it is getting worse. Please hunt 30 Megalodon.";
  48. case 8: callsub L_Quest,12079,"Can you hunt Marse? I need 15 Marse for my study. Please help me.";
  49. case 9: callsub L_Quest,12080,"An idiot Cornutus bit the Mayor's foot. The Mayor is upset so we need to hunt 20 Cornutus to make him happy!";
  50. case 10: callsub L_Quest,12081,"People are freaking out because of Myst. It looks like a ghost so, it scares people. Please hunt 15 Myst.";
  51. case 11: callsub L_Quest,12082,"Don't ask why, but please hunt 30 Shellfish. It is a secret mission!";
  52. case 12: callsub L_Quest,12083,"Marine Sphere? Do you know what a Marine Sphere is? I got a mission for you to hunt 15 Marine Sphere, so please do so.";
  53. case 13: callsub L_Quest,12084,"The mayor wants to eat a delicious fish dish. Phen will be the perfect ingredient for it. Please hunt 20 Phen!";
  54. case 14: callsub L_Quest,12085,"Dead Orc monsters got back to our town and they've revived as Orc Skeletons. We are in chaos! Please hunt 15 Orc Skeleton.";
  55. case 15: callsub L_Quest,12086,"Some weird monsters called Zenorc are attacking us. Please hunt 30 Zenorc.";
  56. case 16: callsub L_Quest,12087,"Be prepared! It is a cruel mission! Hunt 15 Mummies!! I tried once, but I couldn't succeed. It is too scary!";
  57. }
  58. end;
  59. }
  60. setarray .@Exp[0],9600,7200,15750,7875,11100,8550,17100,9000,12300,9900,20250,10350,13800,11025,22500,11250;
  61. for(set .@i,0; .@i<16; set .@i,.@i+1)
  62. if (checkquest(12072+.@i,HUNTING) == 2) {
  63. mes "[Mission Board]";
  64. mes "You have completed the mission.";
  65. mes "Here is your reward.";
  66. erasequest 12088;
  67. erasequest 12072+.@i;
  68. specialeffect2 EF_STEAL;
  69. getexp .@Exp[.@i],0;
  70. close;
  71. }
  72. if ((checkquest(12072,HUNTING) == 0) && (checkquest(12073,HUNTING) == 0) && (checkquest(12074,HUNTING) == 0) && (checkquest(12075,HUNTING) == 0) && (checkquest(12076,HUNTING) == 0) && (checkquest(12077,HUNTING) == 0) && (checkquest(12078,HUNTING) == 0) && (checkquest(12079,HUNTING) == 0) && (checkquest(12080,HUNTING) == 0) && (checkquest(12081,HUNTING) == 0) && (checkquest(12082,HUNTING) == 0) && (checkquest(12083,HUNTING) == 0) && (checkquest(12084,HUNTING) == 0) && (checkquest(12085,HUNTING) == 0) && (checkquest(12086,HUNTING) == 0) && (checkquest(12087,HUNTING) == 0)) {
  73. mes "You may now view the bulletin board.";
  74. erasequest 12088;
  75. close;
  76. }
  77. mes "There is nothing special to do.";
  78. close;
  79. L_Quest:
  80. mes "[Mission Board Memo]";
  81. mes getarg(1);
  82. next;
  83. if(select("Accept the mission.:Cancel.") == 1) {
  84. mes "[Mission Board]";
  85. mes "You have accepted the mission. For more details, please press 'alt + u' keys, you can get information from the Quest Window.";
  86. setquest 12088;
  87. setquest getarg(0);
  88. }
  89. close;
  90. }