daily pastebin goal
64%
SHARE
TWEET

Untitled

a guest Mar 21st, 2018 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. if not @findobject 'KegBag'
  2.   headmsg 'Select container with Poison Kegs'
  3.   promptalias 'KegBag'
  4. endif
  5. if not @findobject 'EKegBag'
  6.   headmsg 'Select a container for Empty kegs'
  7.   promptalias 'EKegBag'
  8. endif
  9. if not @findobject 'ToPoison'
  10.   headmsg 'Select object you wish to continually poison'
  11.   promptalias 'ToPoison'
  12. endif
  13. if not @findtype '0xf0e' 'any' 'backpack' '2' '3'
  14.   headmsg 'Gonna need some bottles'
  15.   stop
  16. endif
  17. while skill 'poisoning' < '100.0'
  18.   if @findtype '0x1940' 'any' 'backpack' 'any' '2'
  19.     @setalias 'Pkeg' 'found'
  20.   else
  21.     useobject 'KegBag'
  22.     pause 600
  23.     @findtype '0x1940' 'any' 'KegBag' 'any' '2'
  24.     pause 600
  25.     moveitem 'found' 'backpack'
  26.     @setalias 'PKeg' 'found'
  27.     pause 600
  28.     @unsetalias 'found'
  29.   endif
  30.   if not @findtype '0xf0a' 'any' 'backpack' '2' '3'
  31.     @useobject 'PKeg'
  32.     pause 600
  33.     @useobject 'PKeg'
  34.     pause 600
  35.   endif
  36.   while @findtype '0xf0a' 'any' 'backpack' 'any' '3'
  37.     if poisoned 'self' or hits < maxhits
  38.       usetype '0xf07' 'any' 'backpack'
  39.     endif
  40.     useskill 'poisoning'
  41.     waitfortarget 5000
  42.     targettype '0xf0a' '0' '3'
  43.     waitfortarget 5000
  44.     target! 'ToPoison'
  45.     pause 11000
  46.   endwhile
  47.   if @injournal 'The keg is now empty.' 'system' or @injournal 'The keg is empty.' 'system'
  48.     moveitem 'PKeg' 'EKegBag'
  49.     pause 600
  50.     @unsetalias 'PKeg'
  51.     @clearjournal
  52.   endif
  53. endwhile
RAW Paste Data
Top