SHARE
TWEET

Untitled

a guest Jan 20th, 2020 75 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ///////////////////////
  2. //Kill/Tame script ///
  3. //Made by Aga edited by Fubs       ///
  4. //Do not loop       ///
  5. ///////////////////////
  6. @clearlist 'nameoftames'
  7. @clearlist 'numberoffollowers'
  8. @clearlist 'peacemakeyesorno'
  9. @clearlist 'pathfinding'
  10. @clearlist 'tameables'
  11. @createlist 'nameoftames'
  12. @createlist 'numberoffollowers'
  13. @createlist 'peacemakeyesorno'
  14. @createlist 'pathfinding'
  15. /////////////////////////
  16. //Setup section      ////
  17. /////////////////////////
  18. pushlist 'nameoftames' 'Apples' //Change thxaga to whatever name you want
  19. pushlist 'numberoffollowers' '1'  //Change 1 to however many followers you currently have
  20. pushlist 'peacemakeyesorno' 'no' //yes or no if you want to peacemake
  21. pushlist 'pathfinding' 'yes' //yes or no if you want to pathfind to tame
  22. /////////////////////////
  23. //End Setup          ////
  24. /////////////////////////
  25. @clearjournal
  26. if not timerexists 'skilltimer'
  27.   createtimer 'skilltimer'
  28.   settimer 'skilltimer' 10000
  29. endif
  30. @createlist 'unstuck'
  31. if list 'unstuck' == 0
  32.   pushlist 'unstuck' 'east'
  33.   pushlist 'unstuck' 'west'
  34.   pushlist 'unstuck' 'south'
  35.   pushlist 'unstuck' 'north'
  36. endif
  37. @clearlist 'timestried'
  38. @createlist 'timestried'
  39. @createlist 'tameables'
  40. unsetalias 'currentlytaming'
  41. unsetalias 'found'
  42. pushlist 'tameables' 0x22 //white wolf
  43. pushlist 'tameables' 0x25 //white wolf
  44. pushlist 'tameables' 0xe8 //bull
  45. pushlist 'tameables' 0xd4 //grizzly bear
  46. pushlist 'tameables' 0xdd //walrus
  47. pushlist 'tameables' 0xd5 //polar bear
  48. pushlist 'tameables' 0x40 //snow leapord
  49. pushlist 'tameables' 0x62 //Hellhound
  50. pushlist 'tameables' 0xbc //Savage Ridgeback
  51. pushlist 'tameables' 0xbb //Ridgeback
  52. pushlist 'tameables' 0x17 //Dire Wolf
  53. pushlist 'tameables' 0xce //Lava Lizard
  54. pushlist 'tameables' 0x14 //Frost spider
  55. pushlist 'tameables' 0xc9 //Hellcat (Small)
  56. pushlist 'tameables' 0xda //Frenzied Ostard
  57. pushlist 'tameables' 0x50 //Giant Toad
  58. pushlist 'tameables' 0xe8 //Bull
  59. pushlist 'tameables' 0xe9 //Bull2
  60. pushlist 'tameables' 0x22 //White Wolf
  61. pushlist 'tameables' 0x25 //White Wolf2
  62. // **************more pushlist from another macro******************
  63. pushlist 'tameables' 0x7f //Hellcat (Large)
  64. pushlist 'tameables' 0x62 //Hellhound
  65. pushlist 'tameables' 0xbc //Savage Ridgeback
  66. pushlist 'tameables' 0xbb //Ridgeback
  67. pushlist 'tameables' 0x17 //Dire Wolf
  68. pushlist 'tameables' 0xce //Lava Lizard
  69. pushlist 'tameables' 0x14 //Frost spider
  70. pushlist 'tameables' 0xc9 //Hellcat (Small)
  71. pushlist 'tameables' 0xda //Frenzied Ostard
  72. pushlist 'tameables' 0x50 //Giant Toad
  73. pushlist 'tameables' 0xe8 //Bull
  74. pushlist 'tameables' 0xe9 //Bull2
  75. pushlist 'tameables' 0x22 //White Wolf
  76. pushlist 'tameables' 0x25 //White Wolf2
  77. pushlist 'tameables' 0x1c //Giant Spider
  78. pushlist 'tameables' 0xd4 //Grizzly Bear
  79. pushlist 'tameables' 0xea //Great Hart
  80. pushlist 'tameables' 0x41 //Snow leopard
  81. pushlist 'tameables' 0x40 //Snow leopard
  82. pushlist 'tameables' 0x19 //Gray wolf
  83. pushlist 'tameables' 0x1b //Gray wolf2
  84. pushlist 'tameables' 0x30 //Scorpion
  85. pushlist 'tameables' 0xca //Alligator
  86. pushlist 'tameables' 0x3f //Cougar
  87. pushlist 'tameables' 0xd6 //Panther
  88. pushlist 'tameables' 0xa7 //Brown Bear
  89. pushlist 'tameables' 0xdd //Walrus
  90. pushlist 'tameables' 0xd5 //Polar Bear
  91. pushlist 'tameables' 0xd3 //Black Bear
  92. pushlist 'tameables' 0xdc //Llama
  93. pushlist 'tameables' 0x124 //Pack Llama
  94. pushlist 'tameables' 0x123 //Pack Horse
  95. pushlist 'tameables' 0xc8 //Horse
  96. pushlist 'tameables' 0xe2 //Horse2
  97. pushlist 'tameables' 0xcc //Horse3
  98. pushlist 'tameables' 0xe4
  99. //Horse4
  100. pushlist 'tameables' 0xed //Giant Rat
  101. pushlist 'tameables' 0xdb //Forest Ostard
  102. pushlist 'tameables' 0xd2 //Desert Ostard
  103. pushlist 'tameables' 0x122 //Boar
  104. pushlist 'tameables' 0xe1 //Timber Wolf
  105. pushlist 'tameables' 0xed //Hind
  106. pushlist 'tameables' 0x51 //Bullfrog
  107. // ************above and below are more pushlist from other macros***********
  108. pushlist "tameables" 0xe1 //Hellhound Colors - Dull, Blood, Bright, Magenta
  109. pushlist "tameables" 0x62 //Hellhound
  110. pushlist "tameables" 0xe8 //Bull
  111. pushlist "tameables" 0xe9 //Bull2
  112. pushlist "tameables" 0x22 //White Wolf
  113. pushlist "tameables" 0x25 //White Wolf2
  114. pushlist "tameables" 0xda // frenzied
  115. // ****************above a 3rd macro pushlist *****************
  116. // **************my extra list below******************
  117. // pushlist 'tameables' 0x3c //young dragon
  118. // ****************my extra list above****************************
  119. while not dead 'self'
  120.   if list 'timestried' > 25
  121.     clearlist 'timestried'
  122.     msg 'all kill'
  123.     attack 'last'
  124.     target 'currentlytaming'
  125.     // THE ABOVE 2 LINES REPLACED: ignoreobject 'currentlytaming'
  126.     unsetalias 'currentlytaming'
  127.     removetimer 'stucktimer'
  128.     headmsg 'Tried more than 10 times to tame. Ignoring' 5
  129.   endif
  130.   warmode 'on'
  131.   warmode 'on'
  132.   if hits 'self' != maxhits 'self'
  133.     if @inlist 'peacemakeyesorno' 'Yes' or @inlist 'peacemakeyesorno' 'yes'
  134.       getenemy 'red' 'criminal' 'nearest'
  135.       while war 'enemy'
  136.         if timer 'skilltimer' > 10000
  137.           @cleartargetqueue
  138.           @canceltarget
  139.           while not targetexists 'any'
  140.             useskill 'Peacemaking'
  141.           endwhile
  142.           settimer 'skilltimer' 0
  143.           target 'enemy'
  144.           if war 'self'
  145.             warmode 'on'
  146.           endif
  147.         endif
  148.       endwhile
  149.     endif
  150.   endif
  151.   if hits < 80
  152.     bandageself
  153.     pause 10000
  154.   endif
  155.   if not @inrange 'currentlytaming' 12
  156.     @headmsg 'Too far away! Ignoring for now.' 34 'currentlytaming'
  157.     @unsetalias 'currentlytaming'
  158.     removetimer 'stucktimer'
  159.     for 0 to 'tameables'
  160.       if @findtype tameables[] 'any' 'ground' 1 8
  161.         @setalias 'currentlytaming' 'found'
  162.         createtimer 'stucktimer'
  163.         settimer 'stucktimer' 0
  164.         createtimer 'imstuck'
  165.         settimer 'imstuck' 0
  166.         if innocent 'currentlytaming'
  167.           @headmsg 'This is already tame' 34 'currentlytaming'
  168.           ignoreobject 'currentlytaming'
  169.           unsetalias 'currentlytaming'
  170.           removetimer 'stucktimer'
  171.           removetimer 'imstuck'
  172.         endif
  173.       endif
  174.     endfor
  175.   endif
  176.   if not @inrange 'currentlytaming' 2
  177.     @headmsg 'Not close enough!' 34 'currentlytaming'
  178.   endif
  179.   if @inlist 'peacemakeyesorno' 'Yes' or @inlist 'peacemakeyesorno' 'yes'
  180.     if war 'currentlytaming'
  181.       if war 'self'
  182.         warmode 'on'
  183.       endif
  184.       if timer 'skilltimer' > 10000
  185.         @cleartargetqueue
  186.         @canceltarget
  187.         if not targetexists 'any'
  188.           useskill 'Peacemaking'
  189.         endif
  190.         if @injournal 'Whom do you wish to calm?' 'system'
  191.           settimer 'skilltimer' 0
  192.           clearjournal
  193.         endif
  194.         target 'currentlytaming'
  195.         if war 'self'
  196.           warmode 'on'
  197.         endif
  198.       endif
  199.     endif
  200.   endif
  201.   if @inlist 'peacemakeyesorno' 'No' or @inlist 'peacemakeyesorno' 'no'
  202.     if @inrange 'currentlytaming' 2
  203.       if war 'self'
  204.         warmode 'on'
  205.       endif
  206.       if timer 'skilltimer' > 10000
  207.         @cleartargetqueue
  208.         @canceltarget
  209.         @clearjournal
  210.         if not targetexists 'any'
  211.           useskill 'Animal Taming'
  212.         endif
  213.         pause 500
  214.         if @injournal 'Tame which animal?' 'system'
  215.           pushlist 'timestried' 1
  216.           @settimer 'skilltimer' 0
  217.           @clearjournal
  218.         endif
  219.         target 'currentlytaming'
  220.         pause 500
  221.         if @injournal 'That is too far away' 'system' or @injournal 'Target cannot be seen' 'system'
  222.           settimer 'skilltimer' 10501
  223.           ignoreobject 'currentlytaming'
  224.           unsetalias 'currentlytaming'
  225.           removetimer 'stucktimer'
  226.           removetimer 'imstuck'
  227.           clearlist 'timestried'
  228.           @clearjournal
  229.         endif
  230.         if @injournal 'You fail to tame the creature' 'system' or @injournal 'You must wait a few moments to use another skill' 'system'
  231.           settimer 'skilltimer' 10501
  232.           @clearjournal
  233.         endif
  234.         if @injournal 'You have no chance of taming this creature' 'system' or @injournal 'do not have a clear path to the animal' 'system'
  235.           msg 'all kill'
  236.           pause 800
  237.           target 'currentlytaming'
  238.           // THE ABOVE 2 LINES REPLACED:  ignoreobject 'currentlytaming'
  239.           settimer 'skilltimer' 10501
  240.           unsetalias 'currentlytaming'
  241.           removetimer 'stucktimer'
  242.           removetimer 'imstuck'
  243.           clearlist 'timestried'
  244.           @clearjournal
  245.         endif
  246.         if @injournal 'This animal has had too many owners' 'system' or @injournal 'That animal looks tame already' 'system'
  247.           settimer 'skilltimer' 10501
  248.           msg 'all kill'
  249.           attack 'last'
  250.           target 'currentlytaming'
  251.           // THE ABOVE 2 LINES REPLACED: ignoreobject 'currentlytaming'
  252.           unsetalias 'currentlytaming'
  253.           removetimer 'stucktimer'
  254.           removetimer 'imstuck'
  255.           clearlist 'timestried'
  256.           @clearjournal
  257.         endif
  258.       endif
  259.     endif
  260.   endif
  261.   if @inlist 'peacemakeyesorno' 'Yes' or @inlist 'peacemakeyesorno' 'yes'
  262.     if not war 'currentlytaming'
  263.       if @inrange 'currentlytaming' 2
  264.         if war 'self'
  265.           warmode 'on'
  266.         endif
  267.         if timer 'skilltimer' > 10500
  268.           @cleartargetqueue
  269.           @canceltarget
  270.           @clearjournal
  271.           if not targetexists 'any'
  272.             useskill 'Animal Taming'
  273.           endif
  274.           pause 500
  275.           if @injournal 'Tame which animal?' 'system'
  276.             pushlist 'timestried' 1
  277.             @settimer 'skilltimer' 0
  278.             @clearjournal
  279.           endif
  280.           target 'currentlytaming'
  281.           pause 500
  282.           if @injournal 'That is too far away' 'system' or @injournal 'Target cannot be seen' 'system'
  283.             settimer 'skilltimer' 10501
  284.             ignoreobject 'currentlytaming'
  285.             unsetalias 'currentlytaming'
  286.             removetimer 'stucktimer'
  287.             removetimer 'imstuck'
  288.             clearlist 'timestried'
  289.             @clearjournal
  290.           endif
  291.           if @injournal 'You fail to tame the creature' 'system' or @injournal 'You must wait a few moments to use another skill' 'system'
  292.             settimer 'skilltimer' 10501
  293.             @clearjournal
  294.           endif
  295.           if @injournal 'You have no chance of taming this creature' 'system' or @injournal 'do not have a clear path to the animal' 'system'
  296.             msg 'all kill'
  297.             attack 'last'
  298.             target 'currentlytaming'
  299.             // THE ABOVE 2 LINES REPLACED: ignoreobject 'currentlytaming'
  300.             settimer 'skilltimer' 10501
  301.             unsetalias 'currentlytaming'
  302.             removetimer 'stucktimer'
  303.             removetimer 'imstuck'
  304.             clearlist 'timestried'
  305.             @clearjournal
  306.           endif
  307.           if @injournal 'This animal has had too many owners' 'system' or @injournal 'That animal looks tame already' 'system'
  308.             settimer 'skilltimer' 10501
  309.             msg 'all kill'
  310.             attack 'last'
  311.             target 'currentlytaming'
  312.             // THE ABOVE 2 LINES REPLACED: ignoreobject 'currentlytaming'
  313.             unsetalias 'currentlytaming'
  314.             removetimer 'stucktimer'
  315.             removetimer 'imstuck'
  316.             clearlist 'timestried'
  317.             @clearjournal
  318.           endif
  319.         endif
  320.       endif
  321.     endif
  322.   endif
  323.   if @inlist 'numberoffollowers' '0'
  324.     while followers > 0
  325.       pause 500
  326.       @rename 'currentlytaming' nameoftames[0]
  327.       pause 500
  328.       if name 'currentlytaming' == nameoftames[0]
  329.         waitforcontext 'currentlytaming' 8 20000
  330.         waitforgump 0x909cc741 15000
  331.         @replygump 0x909cc741 2
  332.         pause 700
  333.         clearlist 'timestried'
  334.         msg 'all kill'
  335.         attack 'last'
  336.         target 'currentlytaming'
  337.         // THE ABOVE 2 LINES REPLACED: ignoreobject 'currentlytaming'
  338.         unsetalias 'currentlytaming'
  339.         removetimer 'stucktimer'
  340.         removetimer 'imstuck'
  341.         pause 500
  342.       endif
  343.     endwhile
  344.   endif
  345.   if @inlist 'numberoffollowers' '1'
  346.     while followers > 1
  347.       pause 500
  348.       @rename 'currentlytaming' nameoftames[0]
  349.       pause 500
  350.       if name 'currentlytaming' == nameoftames[0]
  351.         waitforcontext 'currentlytaming' 8 20000
  352.         waitforgump 0x909cc741 15000
  353.         @replygump 0x909cc741 2
  354.         pause 700
  355.         clearlist 'timestried'
  356.         msg 'all kill'
  357.         attack 'last'
  358.         target 'currentlytaming'
  359.         // THE ABOVE 2 LINES REPLACED: ignoreobject 'currentlytaming'
  360.         unsetalias 'currentlytaming'
  361.         removetimer 'stucktimer'
  362.         removetimer 'imstuck'
  363.         pause 500
  364.       endif
  365.     endwhile
  366.   endif
  367.   if @inlist 'numberoffollowers' '2'
  368.     while followers > 2
  369.       pause 500
  370.       @rename 'currentlytaming' nameoftames[0]
  371.       pause 500
  372.       if name 'currentlytaming' == nameoftames[0]
  373.         waitforcontext 'currentlytaming' 8 20000
  374.         waitforgump 0x909cc741 15000
  375.         @replygump 0x909cc741 2
  376.         pause 700
  377.         clearlist 'timestried'
  378.         msg 'all kill'
  379.         attack 'last'
  380.         target 'currentlytaming'
  381.         // THE ABOVE 2 LINES REPLACED: ignoreobject 'currentlytaming'
  382.         unsetalias 'currentlytaming'
  383.         removetimer 'stucktimer'
  384.         removetimer 'imstuck'
  385.         pause 500
  386.       endif
  387.     endwhile
  388.   endif
  389.   if @inlist 'numberoffollowers' '3'
  390.     while followers > 3
  391.       pause 500
  392.       @rename 'currentlytaming' nameoftames[0]
  393.       pause 500
  394.       if name 'currentlytaming' == nameoftames[0]
  395.         waitforcontext 'currentlytaming' 8 20000
  396.         waitforgump 0x909cc741 15000
  397.         @replygump 0x909cc741 2
  398.         pause 700
  399.         clearlist 'timestried'
  400.         msg 'all kill'
  401.         attack 'last'
  402.         target 'currentlytaming'
  403.         // THE ABOVE 2 LINES REPLACED: ignoreobject 'currentlytaming'
  404.         unsetalias 'currentlytaming'
  405.         removetimer 'stucktimer'
  406.         removetimer 'imstuck'
  407.         pause 500
  408.       endif
  409.     endwhile
  410.   endif
  411.   if @inlist 'numberoffollowers' '4'
  412.     while followers > 4
  413.       pause 500
  414.       @rename 'currentlytaming' nameoftames[0]
  415.       pause 500
  416.       if name 'currentlytaming' == nameoftames[0]
  417.         waitforcontext 'currentlytaming' 8 20000
  418.         waitforgump 0x909cc741 15000
  419.         @replygump 0x909cc741 2
  420.         pause 700
  421.         clearlist 'timestried'
  422.         msg 'all kill'
  423.         attack 'last'
  424.         target 'currentlytaming'
  425.         // THE ABOVE 2 LINES REPLACED: ignoreobject 'currentlytaming'
  426.         unsetalias 'currentlytaming'
  427.         removetimer 'stucktimer'
  428.         removetimer 'imstuck'
  429.         pause 500
  430.       endif
  431.     endwhile
  432.   endif
  433.   if @inlist 'pathfinding' 'yes' or @inlist 'pathfinding' 'Yes'
  434.     if timerexists 'stucktimer'
  435.       if @inrange 'currentlytaming' 1
  436.         settimer 'stucktimer' 0
  437.         settimer 'imstuck' 0
  438.       endif
  439.       if not @inrange 'currentlytaming' 1
  440.         if timer 'imstuck' >= 20000
  441.           headmsg 'Stuck. Ignoring current animal' 5
  442.           msg 'all kill'
  443.           attack 'last'
  444.           target 'currentlytaming'
  445.           // THE ABOVE 2 LINES REPLACED: ignoreobject 'currentlytaming'
  446.           unsetalias 'currentlytaming'
  447.           removetimer 'stucktimer'
  448.           removetimer 'imstuck'
  449.         endif
  450.         if timer 'stucktimer' >= 5000
  451.           if direction == 0
  452.             @poplist 'unstuck' 'north'
  453.           elseif direction == 2
  454.             @poplist 'unstuck' 'east'
  455.           elseif direction == 4
  456.             @poplist 'unstuck' 'south'
  457.           elseif direction == 6
  458.             @poplist 'unstuck' 'west'
  459.           endif
  460.           if list 'unstuck' != 0
  461.             headmsg 'Trying to pathfind' 5
  462.             for 5
  463.               run 'unstuck[0]'
  464.               pause 100
  465.             endfor
  466.             poplist 'unstuck' 'front'
  467.             settimer 'stucktimer' 0
  468.           endif
  469.         endif
  470.         if @x 'currentlytaming' > x 'self' and @y 'currentlytaming' > y 'self'
  471.           walk 'Southeast'
  472.         elseif @x 'currentlytaming' < x 'self' and @y 'currentlytaming' > y 'self'
  473.           walk 'Southwest'
  474.         elseif @x 'currentlytaming' > x 'self' and @y 'currentlytaming' < y 'self'
  475.           walk 'Northeast'
  476.         elseif @x 'currentlytaming' < x 'self' and @y 'currentlytaming' < y 'self'
  477.           walk 'Northwest'
  478.         elseif @x 'currentlytaming' > x 'self' and @y 'currentlytaming' == y 'self'
  479.           walk 'East'
  480.         elseif @x 'currentlytaming' < x 'self' and @y 'currentlytaming' == y 'self'
  481.           walk 'West'
  482.         elseif @x 'currentlytaming' == x 'self' and @y 'currentlytaming' > y 'self'
  483.           walk 'South'
  484.         elseif @x 'currentlytaming' == x 'self' and @y 'currentlytaming' < y 'self'
  485.           walk 'North'
  486.         endif
  487.       endif
  488.     endif
  489.   endif
  490. endwhile
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