counteragent_mixture.txt 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262
  1. //===== eAthena Script =======================================
  2. //= Counteragent and Mixture Quest(Morgenstein)
  3. //===== By: ==================================================
  4. //= kobra_k88
  5. //= added some dialogs for Morgenstein by Komurka
  6. //===== Current Version: =====================================
  7. //= 1.4
  8. //===== Compatible With: =====================================
  9. //= eAthena 7.15 +
  10. //===== Description: =========================================
  11. //= Counteragent and mixtures for making dyes
  12. //===== Additional Comments: =================================
  13. //= Fully working
  14. //= Update for Alchemist Quest.
  15. //= 1.2 added check for Empty Bottle [Lupus]
  16. //= Fixed some lil thingys [Darkchild]
  17. //= More li'l thing, added comments for items IDs [Lupus]
  18. //============================================================
  19. // Merchant Louitz -----------------------------------------------------------
  20. alberta_in.gat,130,54,2 script Merchant Louitz 84,{
  21. mes "[Louitz]";
  22. mes "What's going on?";
  23. if(countitem(970) > 0 && countitem(971) > 0 && countitem(972) > 0) goto M_Menu2;//Items: Alcohol, Detrimindexta, Karvodailnirol,
  24. M_Menu:
  25. next;
  26. menu "Talk",M_Talk,"Cancel",M_Cancel;
  27. M_Menu2:
  28. next;
  29. menu "Talk",M_Talk,"More about solutions",M_Solut,"Cancel",M_Cancel;
  30. M_Talk:
  31. mes "[Merchant Louitz]";
  32. mes "I was in Geffen for a while trying to find magic tools when I heard some rumors about a Mad Scientist.";
  33. mes "I became very interested in the man and tried to meet with him on serveral occasions.";
  34. next;
  35. mes "[Merchant Louitz]";
  36. mes "After many attempts, I finally got to meet him. Unfortunately he was too immersed in his work and didn't even take notice of me.";
  37. next;
  38. mes "[Merchant Louitz]";
  39. mes "He kept on mumbling to himself ^0000ff'Karvodainirol... Detrimindexta... Alcohol^000000...'";
  40. next;
  41. mes "[Merchant Louitz]";
  42. mes "I had know idea what he was talking about at first, but I later learned that those were names for some unique and rare solutions.";
  43. if(countitem(970) > 0 && countitem(971) > 0 && countitem(972) > 0) goto M_Menu2;//Items: Alcohol, Detrimindexta, Karvodailnirol,
  44. goto M_Menu;
  45. M_Solut:
  46. set MORGEN,1;
  47. mes "[Merchant Louitz]";
  48. mes "Apparently that scientist uses those solutions to make other agents and mixtures.";
  49. mes "You should speak with ^0000ddAure Dupon^000000 in Geffen to find out more about it. ";
  50. next;
  51. mes "[Merchant Louitz]";
  52. mes "You can find him near the ^0000ddEast end^000000 of town. Ask him about ^0000ddMorgenstein^000000. That's the mad scientists' name.";
  53. goto M_Menu2;
  54. M_Cancel:
  55. mes "[Louitz]";
  56. mes "Um... Now I've seen everything.";
  57. close;
  58. }
  59. // Aure Dupon ------------------------------------------------------------------------
  60. geffen.gat,181,114,4 script Aure Dupon 55,{
  61. mes "[Aure Dupon]";
  62. mes "TIME never WAITS for you!! Even MAGIC cannot SLOW it down! I can feel it passing me by even as we speak!!....";
  63. emotion 0;
  64. next;
  65. mes "[Aure Dupon]";
  66. mes "So... why did you stop me??";
  67. emotion 20;
  68. if(MORGEN == 1) goto M_Menu2;
  69. M_Menu:
  70. next;
  71. menu "Talk",M_Talk,"Cancel",M_Cancel;
  72. M_Menu2:
  73. next;
  74. menu "Talk",M_Talk,"More about Morgenstein",M_Morgen,"Cancel",M_Cancel;
  75. M_Talk:
  76. mes "[Aure Dupon]";
  77. mes "It's true that I'm a little excentric because of my quest to gain the power of magic, but I assure that there are others out there that are even stranger than myself.";
  78. next;
  79. mes "[Aure Dupon]";
  80. mes "Like that mad scientist ^0000ddMorgenstein^000000. Anyway, if it were up to you, would you be able to devote your ENTIRE life to one single purpose?";
  81. next;
  82. mes "[Aure Dupon]";
  83. mes "Would you be able to give up everthing else in your life to achieve that goal? Even if it meant risking insanity??";
  84. if(MORGEN == 1) goto M_Menu2;
  85. goto M_Menu;
  86. M_Morgen:
  87. set MORGEN,2;
  88. mes "[Aure Dupon]";
  89. mes "Morgenstein? Now that man definatley has a few screws loose. He's always in the ^0000ddBlasksmith Guild Building^000000 making crazy potions.";
  90. mes "He calls them ^ff0000Mixtures^000000 and ^ff0000Counteragents^000000. I'm not sure what there used for though.";
  91. next;
  92. mes "[Aure Dupon]";
  93. mes "You should go speak with him if your that curious about his work.";
  94. goto M_Menu2;
  95. M_Cancel:
  96. mes "[Aure Dupon]";
  97. mes "Human beings are just a small part of Nature.... therefore the human will is that of Natures will.....";
  98. close;
  99. }
  100. // Chemist Morgenstein -----------------------------------------------------------
  101. geffen_in.gat,141,140,2 script Morgenstein 121,{
  102. if(MORGEN == 2) goto L_0;
  103. if(MORGEN == 3) goto L_1;
  104. mes "[Chemist Morgenstein]";
  105. mes "Heheheheheh... Sniff Sniff... I can smell something appetizing here.";
  106. mes "It is a Human Being... living one... umm yummy... Heheheheheh";
  107. emotion 38;
  108. close;
  109. L_0:
  110. mes "[Chemist Morgenstein]";
  111. mes "So you've been asking about me huh? What is it that you want to know?";
  112. M_Menu:
  113. next;
  114. menu "Ask about research",M_Rsrch,"Nothing",M_End;
  115. M_Rsrch:
  116. mes "[Chemist Morgenstein]";
  117. mes "Heheheheheh... You probably already heard about what I do ...";
  118. mes "Okay.. I will tell you everything... there is nothing left for me to hide.... Heheheheheh...";
  119. emotion 29;
  120. next;
  121. mes "[Chemist Morgenstein]";
  122. mes "As far as I'm concerned my research has already been completed.....";
  123. mes "I am a genius you know, and I can make anything!! Heheheheh... it's only a matter how long it will take...";
  124. next;
  125. mes "[Chemist Morgenstein]";
  126. mes "You know what I mean..... time?.... Hehehehehehehya....";
  127. emotion 29;
  128. next;
  129. mes "[Chemist Morgenstein]";
  130. mes "Um.... did you say you want to know about my Research?... Oh it's all very simple.... I'm just trying to find ways to combine different materials...";
  131. next;
  132. mes "[Chemist Morgenstein]";
  133. mes "Isn't it interesting? I'm perfecting a method that melts materials, such as iron and stone, and then mixes them into a new substance!!!";
  134. mes "Once it is perfected, I will be able to turn anything in the word into a new substance.....";
  135. next;
  136. mes "[Chemist Morgenstein]";
  137. mes "~~~~ !! Hehe!!!...Heheheheheh!!!...squash squash!!!..Kekekekekelll!!!!";
  138. emotion 43;
  139. next;
  140. mes "[Chemist Morgenstein]";
  141. mes "Ack!~cough~cough~ Ahem.... Though it is not yet possible, I did figure out something else incredible.";
  142. mes "Through my research I found out how to make different types of liquids. I call them ^5533FF'counteragents and mixtures'^000000.";
  143. next;
  144. mes "[Chemist Morgenstein]";
  145. mes "I can make one for you right now,if you want?? Ahhh... Talking about my experiments and research makes me.... 'excited'.......";
  146. mes "You too can feel my 'excitement' if you wish..... Ahhhhh.... I can make you feel...";
  147. set MORGEN,3;
  148. if(ALCH_Q == 4) set al_morgen,1;
  149. close;
  150. L_1:
  151. mes "[Chemist Morgenstein]";
  152. mes "What do you want now?";
  153. M_Menu2:
  154. next;
  155. menu "Ask about research",M_Rsrch,"Make a new one",M_Make, "Nothing",M_End;
  156. M_Make:
  157. mes "[Chemist Morgenstein]";
  158. mes "Heheheheheheh.... So I see you are interested in my creations?..... Who woudn't.... Kekekekekekeke!!!";
  159. mes "So what do you want me to make for you?? Huh? Heheheheheh.............";
  160. emotion 29;
  161. next;
  162. menu "-Counteragent",sM_Counter, "-Mixture",sM_Mixture, "-Forget it",M_End;
  163. sM_Counter:
  164. mes "[Chemist Morgenstein]";
  165. mes "Oh... You said Counteragent... Kekekekekekeke... Let's see.... I'll need some items.......";
  166. mes "... Let me check... Oh... Oh...... Ahhhh..... Hmmm.....";
  167. next;
  168. mes "[Chemist Morgenstein]";
  169. mes "Oh.... As I recall I need....:";
  170. mes "^5533FF1 Alcohol";
  171. mes "1 Detrimindexta^000000......";
  172. mes "and ^5533FF1 Empty Bottle^000000....";
  173. next;
  174. mes "[Chemist Morgenstein]";
  175. mes "With these 3 things I'll be able to make you a counteragent. It won't be a big deal to make..... Kekekekekekeke....";
  176. mes "Oh, and there will be a fee of ^5533FF3000 zeny^000000 okay? Heheheheheh..... Oh, surely you don'ty think it's rip-off?...";
  177. next;
  178. mes "[Chemist Morgenstein]";
  179. mes "Alright?....";
  180. next;
  181. menu "Make",-,"Cancel",M_End;
  182. mes "[Chemist Morgenstein]";
  183. if(countitem(970)>0 && countitem(971)>0 && countitem(713)>0 && Zeny>=3000) goto sl_GetCounter;//Items: Alcohol, Detrimindexta, Empty Bottle,
  184. mes "I'm sorry but you need 1 Alcohol, 1 Detrimindexta, and 3000 Zeny for me to make a Counteragent.";
  185. close;
  186. sl_GetCounter:
  187. mes "OhOhOhOh...... Heheheheheh...... Fine... Like this..... Fine... Keep... More........ Heheheheheh";
  188. mes ".... Ahhhh.... ..... OhOh.... OhOh!..... OhOhOhOhOhOh!!!...!!!!!!";
  189. next;
  190. getitem 973,1;//Items: Counteragent,
  191. delitem 970,1;//Items: Alcohol,
  192. delitem 713,1;//Items: Empty Bottle,
  193. delitem 971,1;//Items: Detrimindexta,
  194. set Zeny, Zeny-3000;
  195. mes "[Chemist Morgenstein]";
  196. mes ".... Hmmm......";
  197. close;
  198. sM_Mixture:
  199. mes "Oh... You said Mixture?... Kekekekekekeke... Let's see... I'll need some items.......";
  200. mes "... Let me check... Oh... Oh...... Ahhhh..... Hmmm.....";
  201. next;
  202. mes "[Chemist Morgenstein]";
  203. mes "Oh.... As I recall I need....:";
  204. mes "^5533FF1 Alcohol";
  205. mes "1 Karvodailnirol^000000.....";
  206. mes "and ^5533FF1 Empty Bottle^000000...........";
  207. next;
  208. mes "[Chemist Morgenstein]";
  209. mes "With these 3 things I'll be able to make you a mixture. It won't be a big deal to make..... Kekekekekekeke....";
  210. mes "Oh, and there will be a fee of ^5533FF4000 zeny^000000 okay? Heheheheheh..... Oh, surely you don'ty think it's rip-off?...";
  211. next;
  212. mes "[Chemist Morgenstein]";
  213. mes "Alright??...";
  214. next;
  215. menu "Make",-,"Cancel",M_End;
  216. if(countitem(970)>0 && countitem(972)>0 && countitem(713)>0 && Zeny>=4000) goto sl_GetMix;//Items: Alcohol, Karvodailnirol, Empty Bottle,
  217. mes "I'm sorry but you need 1 Alcohol, 1 Karvodainirol, and 4000 Zeny for me to make a Mixture.";
  218. close;
  219. sl_GetMix:
  220. mes "[Chemist Morgenstein]";
  221. mes "OhOhOhOh...... Heheheheheh...... Fine... Like this..... Fine... Keep... More........ Heheheheheh";
  222. mes ".... Ahhhh.... ..... OhOh.... OhOh!..... OhOhOhOhOhOh!!!...!!!!!!";
  223. next;
  224. getitem 974,1;//Items: Mixture,
  225. delitem 970,1;//Items: Alcohol,
  226. delitem 713,1;//Items: Empty Bottle,
  227. delitem 972,1;//Items: Karvodailnirol,
  228. set Zeny, Zeny-4000;
  229. mes "[Chemist Morgenstein]";
  230. mes ".... Hmmm......";
  231. close;
  232. M_End:
  233. mes "[Chemist Morgenstein]";
  234. mes "... Kekekekekekeke....";
  235. close;
  236. }