SHARE
TWEET

Untitled

a guest Oct 16th, 2019 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #The Converter - Purchase Varlyndrian Augments - Created by Drakiyth
  2.  
  3. ###WORKS REALLY WELL. ONLY KNOWN ISSUE IS DISPLAY ERRORS###
  4.  
  5. ###133564   0   Varlyndrian Jewel of Minor Power
  6. ###133565   0   Varlyndrian Jewel of Lesser Power
  7. ###133566   0   Varlyndrian Jewel of Moderate Power
  8. ###133567   0   Varlyndrian Jewel of Greater Power
  9. ###133568   0   Varlyndrian Jewel of Immense Power
  10. ###133569   0   Varlyndrian Jewel of Extreme Power  - NOT SOLD HERE - DROP BOSSES
  11. ###133570   0   Varlyndrian Jewel of Cosmic Power - NOT SOLD HERE - DROP BOSSES
  12. ###133571   0   Varlyndrian Jewel of Godly Power - NOT SOLD HERE - DROP BOSSES
  13.  
  14. sub EVENT_SAY{
  15.  
  16. my $total = $client->GetAAPoints();
  17. my $purchase = quest::saylink("Purchase Augments");
  18. my $convert = quest::saylink("Convert AA Points into Platinum");
  19. my $buyminor = quest::saylink("Purchase Minor");
  20. my $buylesser = quest::saylink("Purchase Lesser");
  21. my $buymoderate = quest::saylink("Purchase Moderate");
  22. my $buygreater = quest::saylink("Purchase Greater");
  23. my $buyimmense = quest::saylink("Purchase Immense");
  24. my $buyextreme = quest::saylink("Purchase Extreme");
  25.  
  26. my $convaa1 = quest::saylink("Convert 1 AA Point into 250 Platinum");
  27. my $convaa10 = quest::saylink("Convert 10 AA Points into 2500 Platinum");
  28. my $convaa50 = quest::saylink("Convert 50 AA Points into 12500 Platinum");
  29. my $convaa100 = quest::saylink("Convert 100 AA Points into 25000 Platinum");
  30. my $convaa500 = quest::saylink("Convert 500 AA Points into 125000 Platinum");
  31. my $convaa1000 = quest::saylink("Convert 1000 AA Points into 250000 Platinum");
  32. my $convaa5000 = quest::saylink("Convert 5000 AA Points into 1250000 Platinum");
  33.  
  34.  
  35. my $showminor = quest::varlink(133564);
  36. my $showlesser = quest::varlink(133565);
  37. my $showmoderate = quest::varlink(133566);
  38. my $showgreater = quest::varlink(133567);
  39. my $showimmense = quest::varlink(133568);
  40. my $showextreme = quest::varlink(133569);
  41.  
  42. ################################################################################################################
  43. #####################################AA POINT SYSTEM### AUTO UPDATES############################################
  44. ################################################################################################################
  45.  
  46. if ($text=~/hail/i)
  47. {
  48. plugin::Whisper("Greetings $name, I am Dria, the Wise, one of the many Daughter's of Veeshan. I hope you're enjoying your stay in New Sarith. I can help you advance further in your travels by offering you countless power,
  49. but I also wish to know of your adventures and what you have earned in your lifetime. I wish to know of your heroism and villainy. The grey matter is all that matters in this world and I understand it's hard for you mortals to fully grasp.
  50. The balance must never end, or we truly will face oblivion one day. Do you wish to $purchase or $convert today?");
  51. }
  52.  
  53. if ($text=~/Purchase/i)
  54. {
  55. plugin::Whisper("Greetings $name, I am Dria, the Wise, one of the many Daughter's of Veeshan. I hope you're enjoying your stay in New Sarith. I can help you advance further in your travels by offering you countless power,
  56. but I also wish to know of your adventures and what you have earned in your lifetime. I wish to know of your heroism and villainy. The grey matter is all that matters in this world and I understand it's hard for you mortals to fully grasp.
  57. The balance must never end, or we truly will face oblivion one day. Do you wish to $purchase or $convert today?");
  58. $client->Message(327, "__________________________________________________________________________________________");
  59. $client->Message(327, "YOU CURRENTLY HAVE $total AA POINTS TO SPEND. WHAT WOULD YOU LIKE TO PURCHASE?");
  60. $client->Message(327, "__________________________________________________________________________________________");
  61. $client->Message(327, "I can offer you a $showminor -- [COST: 2 AA POINTS EACH] -- $buyminor --");
  62. $client->Message(327, "I can offer you a $showlesser -- [COST: 25 AA POINTS EACH] -- $buylesser --");
  63. $client->Message(327, "I can offer you a $showmoderate -- [COST: 150 AA POINTS EACH] -- $buymoderate --");
  64. $client->Message(327, "I can offer you a $showgreater -- [COST: 650 AA POINTS EACH] -- $buygreater --");
  65. $client->Message(327, "I can offer you a $showimmense -- [COST: 1590 AA POINTS EACH] -- $buyimmense --");
  66. $client->Message(327, "I can offer you a $showextreme -- [COST: 4900 AA POINTS EACH] -- $buyextreme --");
  67. $client->Message(327, "__________________________________________________________________________________________");
  68. }
  69.  
  70. if ($text=~/Convert/i)
  71. {
  72. $client->Message(327, "__________________________________________________________________________________________");
  73. $client->Message(327, "YOU CURRENTLY HAVE $total AA POINTS TO CONVERT INTO PLATINUM. WHAT DO YOU WANT TO DO?");
  74. $client->Message(327, "__________________________________________________________________________________________");
  75. $client->Message(327, "------------- $convaa1 -----------------");
  76. $client->Message(327, "------------- $convaa10 ----------------");
  77. $client->Message(327, "------------- $convaa50 ----------------");
  78. $client->Message(327, "------------- $convaa100 ---------------");
  79. $client->Message(327, "------------- $convaa500 ---------------");
  80. $client->Message(327, "------------- $convaa1000 --------------");
  81. $client->Message(327, "------------- $convaa5000 --------------");
  82. $client->Message(327, "__________________________________________________________________________________________");
  83. }
  84.  
  85. ###############################################################################################################
  86. ########################################### PURCHASE AUGMENTS #################################################
  87. ###############################################################################################################
  88. if($text=~/^Purchase Minor$/i && $total >= 2)
  89. {
  90. plugin::Whisper("My power is yours.");
  91. quest::summonitem(133564);  
  92. $client->AddAAPoints(-2);
  93. }
  94.  
  95. if($text=~/^Purchase Minor$/i && $total < 2)
  96. {
  97. $client->Message(13, "You can't afford that.");
  98. }
  99. ############################################################
  100. if($text=~/^Purchase Lesser$/i && $total >= 25)
  101. {
  102. plugin::Whisper("My power is yours.");
  103. quest::summonitem(133565);  
  104. $client->AddAAPoints(-25);
  105. }
  106.  
  107. if($text=~/^Purchase Lesser$/i && $total < 25)
  108. {
  109. $client->Message(13, "You can't afford that.");
  110. }
  111. ############################################################
  112. if($text=~/^Purchase Moderate$/i && $total >= 150)
  113. {
  114. plugin::Whisper("My power is yours.");
  115. quest::summonitem(133566);  
  116. $client->AddAAPoints(-150);
  117. }
  118.  
  119. if($text=~/^Purchase Moderate$/i && $total < 150)
  120. {
  121. $client->Message(13, "You can't afford that.");
  122. }
  123. ############################################################
  124. if($text=~/^Purchase Greater$/i && $total >= 650)
  125. {
  126. plugin::Whisper("My power is yours.");
  127. quest::summonitem(133567);  
  128. $client->AddAAPoints(-650);
  129. }
  130.  
  131. if($text=~/^Purchase Greater$/i && $total < 650)
  132. {
  133. $client->Message(13, "You can't afford that.");
  134. }
  135. ############################################################
  136. if($text=~/^Purchase Immense$/i && $total >= 1590)
  137. {
  138. plugin::Whisper("My power is yours.");
  139. quest::summonitem(133568);  
  140. $client->AddAAPoints(-1590);
  141. }
  142.  
  143. if($text=~/^Purchase Immense$/i && $total < 1590)
  144. {
  145. $client->Message(13, "You can't afford that.");
  146. }
  147. ############################################################
  148. if($text=~/^Purchase Extreme$/i && $total >= 4900)
  149. {
  150. plugin::Whisper("My power is yours.");
  151. quest::summonitem(133569);  
  152. $client->AddAAPoints(-4900);
  153. }
  154.  
  155. if($text=~/^Purchase Extreme$/i && $total < 4900)
  156. {
  157. $client->Message(13, "You can't afford that.");
  158. }
  159.  
  160. ###############################################################################################################
  161. ################################### CONVERT AA TO MONEY #######################################################
  162. ###############################################################################################################
  163.  
  164. my $convaa1 = quest::saylink("Convert 1 AA Point into 250 Platinum");
  165. my $convaa10 = quest::saylink("Convert 10 AA Points into 2500 Platinum");
  166. my $convaa50 = quest::saylink("Convert 50 AA Points into 12500 Platinum");
  167. my $convaa100 = quest::saylink("Convert 100 AA Points into 25000 Platinum");
  168. my $convaa500 = quest::saylink("Convert 500 AA Points into 125000 Platinum");
  169. my $convaa1000 = quest::saylink("Convert 1000 AA Points into 250000 Platinum");
  170. my $convaa5000 = quest::saylink("Convert 5000 AA Points into 1250000 Platinum");
  171.  
  172.  
  173. #####################################################################################
  174. if($text=~/^Convert 1 AA Point into 250 Platinum$/i && $total >= 1)
  175. {
  176. plugin::Whisper("It is done.");
  177. quest::givecash(0,0,0,250);
  178. $client->AddAAPoints(-1);
  179. }
  180.  
  181. if($text=~/^Convert 1 AA Point into 250 Platinum$/i && $total < 1)
  182. {
  183. $client->Message(13, "You can't afford that.");
  184. }
  185. #####################################################################################
  186. if($text=~/^Convert 10 AA Points into 2500 Platinum$/i && $total >= 10)
  187. {
  188. plugin::Whisper("It is done.");
  189. quest::givecash(0,0,0,2500);
  190. $client->AddAAPoints(-10);
  191. }
  192.  
  193. if($text=~/^Convert 10 AA Points into 2500 Platinum$/i && $total < 10)
  194. {
  195. $client->Message(13, "You can't afford that.");
  196. }
  197. #####################################################################################
  198. if($text=~/^Convert 50 AA Points into 12500 Platinum$/i && $total >= 50)
  199. {
  200. plugin::Whisper("It is done.");
  201. quest::givecash(0,0,0,12500);
  202. $client->AddAAPoints(-50);
  203. }
  204.  
  205. if($text=~/^Convert 10 AA Points into 12500 Platinum$/i && $total < 50)
  206. {
  207. $client->Message(13, "You can't afford that.");
  208. }
  209. #####################################################################################
  210. if($text=~/^Convert 100 AA Points into 25000 Platinum$/i && $total >= 100)
  211. {
  212. plugin::Whisper("It is done.");
  213. quest::givecash(0,0,0,25000);
  214. $client->AddAAPoints(-100);
  215. }
  216.  
  217. if($text=~/^Convert 100 AA Points into 25000 Platinum$/i && $total < 100)
  218. {
  219. $client->Message(13, "You can't afford that.");
  220. }
  221. #####################################################################################
  222. if($text=~/^Convert 500 AA Points into 125000 Platinum$/i && $total >= 500)
  223. {
  224. plugin::Whisper("It is done.");
  225. quest::givecash(0,0,0,125000);
  226. $client->AddAAPoints(-500);
  227. }
  228.  
  229. if($text=~/^Convert 500 AA Points into 125000 Platinum$/i && $total < 500)
  230. {
  231. $client->Message(13, "You can't afford that.");
  232. }
  233. #####################################################################################
  234. if($text=~/^Convert 1000 AA Points into 250000 Platinum$/i && $total >= 1000)
  235. {
  236. plugin::Whisper("It is done.");
  237. quest::givecash(0,0,0,250000);
  238. $client->AddAAPoints(-1000);
  239. }
  240.  
  241. if($text=~/^Convert 1000 AA Points into 250000 Platinum$/i && $total < 1000)
  242. {
  243. $client->Message(13, "You can't afford that.");
  244. }
  245. #####################################################################################
  246. if($text=~/^Convert 5000 AA Points into 1250000 Platinum$/i && $total >= 5000)
  247. {
  248. plugin::Whisper("It is done.");
  249. quest::givecash(0,0,0,1250000);
  250. $client->AddAAPoints(-5000);
  251. }
  252.  
  253. if($text=~/^Convert 5000 AA Points into 1250000 Platinum$/i && $total < 5000)
  254. {
  255. $client->Message(13, "You can't afford that.");
  256. }
  257.  
  258. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top