SHARE
TWEET

Untitled

a guest May 25th, 2019 68 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. // AutoTame v1.1
  2. // Written by: a rideable llama
  3. ////////////////
  4. //Define the tank pet
  5. if not listexists 'Tankpet'
  6.   sysmsg 'Please select your tanking pet
  7.   promptalias 'Tankpet'
  8.   createlist 'Tankpet'
  9. endif
  10. //Clear taming alias
  11. @cleartargetqueue
  12. @unsetalias 'pet'
  13. @createlist 'pets'
  14. @clearlist 'pets'
  15. //Heals pet even if there's no tame target (just in case something else aggros)
  16. if maxhits 'Tankpet' > diffhits 'Tankpet'
  17.   if inrange 'Tankpet' 1
  18.     headmsg 'Healing Tankpet'
  19.     bandage
  20.     autotargetobject 'Tankpet'
  21.     pause 6000
  22.   endif
  23. endif
  24. //Clears target queue from previous heal
  25. @cleartargetqueue
  26. //Define graphics of the pets you wish to tame
  27. //Shallow Water (50.0 - 52.5)
  28. //pushlist 'pets' 0x33
  29. //Sand Crab (55.0 - 70.0)
  30. pushlist 'pets' 0x2d9
  31. //Cave Bear (60.0 - 62.5)
  32. pushlist 'pets' 0xd5
  33. //Carrion Beetle (65.0 - 67.5)
  34. pushlist 'pets' 0xa9
  35. //Scarab (70.0 - 72.5)
  36. pushlist 'pets' 0xa9
  37. //Drake Whelp (75.0 - 77.5)
  38. pushlist 'pets' 0x2ce
  39. //Bullvore (80.0 - 82.5)
  40. pushlist 'pets' 0x11f
  41. //Drake (85.0 - 87.5)
  42. pushlist 'pets' 0x125
  43. pushlist 'pets' 0x50
  44. //Husk Crab (90.0 - 92.5)
  45. pushlist 'pets' 0x2d9
  46. //Molten Mongbat (95.0 - 97.5)
  47. //pushlist 'pets' 0x27
  48. //Snow Drift (100.0 - 102.5)
  49. //pushlist 'pets' 0x33
  50. //Earth Drake (105.0 - 107.5)
  51. pushlist 'pets' 0x3c
  52. pushlist 'pets' 0x3d
  53. //Aegis Minion (110.0 - 112.5)
  54. pushlist 'pets' 0x308
  55. //Earth Dragon (115.0 - 117.5)
  56. pushlist 'pets' 0xc
  57. pushlist 'pets' 0x3b
  58. // Search
  59. if not @findobject 'pet'
  60.   for 0 to 'pets'
  61.     if @findtype 'pets[]' 'any' 'ground'
  62.       @setalias 'pet' 'found'
  63.       break
  64.     endif
  65.   endfor
  66. endif
  67. // tame
  68. if @inrange 'pet' 7
  69.   headmsg 'Taming Pet'
  70.   clearjournal
  71.   useskill 'animal taming'
  72.   waitfortarget 1000
  73.   target! 'pet'
  74.   pause 1000
  75.   // wait for tame, heal tank pet
  76.   while name 'pet' != 'killme'
  77.     useskill 'animal taming'
  78.     waitfortarget 1000
  79.     target! 'pet'
  80.     pause 1000
  81.     if maxhits 'Tankpet' > diffhits 'Tankpet'
  82.       if inrange 'Tankpet' 1
  83.         headmsg 'Healing Tankpet'
  84.         bandage
  85.         autotargetobject 'Tankpet'
  86.         pause 9000
  87.         bandage
  88.         autotargetobject 'Tankpet'
  89.       endif
  90.     endif
  91.     pause 6000
  92.     @rename 'pet' 'killme'
  93.   endwhile
  94.   // kill
  95.   while target 'pet' name 'killme'
  96.     headmsg 'Killing Pet'
  97.     // msg "all kill"
  98.     waitfortarget 5000
  99.     //target! 'pet'
  100.     //attack! 'pet'
  101.     pause 5000
  102.     if maxhits 'Tankpet' > diffhits 'Tankpet'
  103.       if inrange 'Tankpet' 1
  104.         headmsg 'Healing Tankpet'
  105.         bandage
  106.         autotargetobject 'Tankpet'
  107.         pause 6100
  108.       endif
  109.     endif
  110.     @unsetalias 'pet'
  111.     replay
  112.     pause 1000
  113.   endwhile
  114. endif
  115. @unsetalias 'pet'
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