API tools faq
paste
Guest User

Untitled

a guest
Jul 23rd, 2018
75
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.74 KB | None | 0 0
raw download clone embed print report
  1. Function WhichHerb: integer;
  2. Begin
  3. if (Lowercase(Herb) = 'guam') then
  4. Begin
  5. withdrawex(6, 0, 14, ['Clean', 'guam']);
  6. Wait(100+Random(90));
  7. withdrawex(7, 0, 14, ['Vial', 'water']);
  8. CloseBank; end else
  9. if (Lowercase(Herb) = 'harralander') then
  10. Begin
  11. withdrawex(6, 0, 14, ['Clean', 'harralander']);
  12. Wait(100+Random(90));
  13. withdrawex(7, 0, 14, ['Vial', 'water']);
  14. CloseBank; end else
  15. if (Lowercase(Herb) = 'ranarr') then
  16. Begin
  17. withdrawex(6, 0, 14, ['Clean', 'ranarr']);
  18. Wait(100+Random(90));
  19. withdrawex(7, 0, 14, ['Vial', 'water']);
  20. CloseBank; end else
  21. if (Lowercase(Herb) = 'toadflax') then
  22. Begin
  23. withdrawex(6, 0, 14, ['Clean', 'toadflax']);
  24. Wait(100+Random(90));
  25. withdrawex(7, 0, 14, ['Vial', 'water']);
  26. CloseBank; end else
  27. if (Lowercase(Herb) = 'irit') then
  28. Begin
  29. withdrawex(6, 0, 14, ['Clean', 'irit']);
  30. Wait(100+Random(90));
  31. withdrawex(7, 0, 14, ['Vial', 'water']);
  32. CloseBank; end else
  33. if (Lowercase(Herb) = 'avantoe') then
  34. Begin
  35. withdrawex(6, 0, 14, ['Clean', 'avantoe']);
  36. Wait(100+Random(90));
  37. withdrawex(7, 0, 14, ['Vial', 'water']);
  38. CloseBank; end else
  39. if (Lowercase(Herb) = 'kwuarm') then
  40. Begin
  41. withdrawex(6, 0, 14, ['Clean', 'kwuarm']);
  42. Wait(100+Random(90));
  43. withdrawex(7, 0, 14, ['Vial', 'water']);
  44. CloseBank; end else
  45. if (Lowercase(Herb) = 'snapdragon') then
  46. Begin
  47. withdrawex(6, 0, 14, ['Clean', 'snapdragon']);
  48. Wait(100+Random(90));
  49. withdrawex(7, 0, 14, ['Vial', 'water']);
  50. CloseBank; end else
  51. if (Lowercase(Herb) = 'cadantine') then
  52. Begin
  53. withdrawex(6, 0, 14, ['Clean', 'cadantine']);
  54. Wait(100+Random(90));
  55. withdrawex(7, 0, 14, ['Vial', 'water']);
  56. CloseBank; end else
  57. if (Lowercase(Herb) = 'lantadyme') then
  58. Begin
  59. withdrawex(6, 0, 14, ['Clean', 'lantadyme']);
  60. Wait(100+Random(90));
  61. withdrawex(7, 0, 14, ['Vial', 'water']);
  62. CloseBank; end else
  63. if (Lowercase(Herb) = 'dwarf') then
  64. Begin
  65. withdrawex(6, 0, 14, ['Clean', 'dwarf']);
  66. Wait(100+Random(90));
  67. withdrawex(7, 0, 14, ['Vial', 'water']);
  68. CloseBank; end else
  69. if (Lowercase(Herb) = 'torstol') then
  70. Begin
  71. withdrawex(6, 0, 14, ['Clean', 'torstol']);
  72. Wait(100+Random(90));
  73. withdrawex(7, 0, 14, ['Vial', 'water']);
  74. CloseBank; end else
  75. end;
Add Comment
Please, Sign In to add comment
Public Pastes
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!