SHARE
TWEET

Untitled

a guest Aug 25th, 2019 71 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //walks south and chops to the right or east
  2. while not @findalias beetle
  3.   if mounted self
  4.     useobject self
  5.     pause 1000
  6.   endif
  7.   headmsg 'Select beetle..' 65
  8.   promptalias beetle
  9.   pause 500
  10. endwhile
  11. if not mounted self
  12.   useobject beetle
  13.   pause 1000
  14. endif
  15. canceltarget
  16. clearjournal
  17. if not listexists monster
  18.   @createlist monsters
  19. endif
  20. if list monsters == 0
  21.   pushlist monsters 0x1 //ogre
  22.   pushlist monsters 0x12 //Ettin
  23.   pushlist monsters 0x15 //LJ Serpent
  24. endif
  25. // !! Find and equip any axe in backpack ***
  26. if not listexists 'AxeList'
  27.   createlist 'AxeList'
  28. endif
  29. // !! axe data
  30. @clearlist 'AxeList'
  31. @pushlist 'AxeList' 0xf43 //Hatchet
  32. @pushlist 'AxeList' 0xf45 //Executioner's Axe
  33. @pushlist 'AxeList' 0xf4b  //Double Axe
  34. @pushlist 'AxeList' 0x13fb //Large Battle Axe
  35. @pushlist 'AxeList' 0x1443 //Two Handed Axe
  36. @pushlist 'AxeList' 0xf47  //Battle Axe
  37. @pushlist 'AxeList' 0xf49  //Axe
  38. //
  39. // !! Equip Axe
  40. for 0 to 'AxeList'
  41.   if @findtype 'AxeList[]' 'any' 'backpack'
  42.     unsetalias 'AXE'
  43.     setalias 'AXE' 'found'
  44.   endif
  45. endfor
  46. if not @findlayer 'self' 2
  47.   equipitem 'AXE' 2
  48.   pause 600
  49. endif
  50. //******************************************
  51. // !! Main chopping routine
  52. //
  53. useobject 'LeftHand'
  54. waitfortarget 2000
  55. targettileoffset! 1 0 0
  56. pause 500
  57. //////////////
  58. if @injournal "You can't" system
  59.   sysmsg 'No Tree!' 289
  60.   walk south
  61.   pause 100
  62.   clearjournal
  63.   replay
  64. endif
  65. if @injournal 'not enough wood' system
  66.   sysmsg 'no more wood' 23
  67.   walk south
  68.   pause 100
  69.   clearjournal
  70.   replay
  71. endif
  72. //----------------------------------------------------
  73. //Monster check
  74. //----------------------------------------------------
  75. if not @findobject targ any ground 1 10
  76.   for 0 to monsters
  77.     if @findtype monsters[] any ground 1 10
  78.       headmsg 'Monster found'
  79.       @setalias targ found
  80.       break
  81.     endif
  82.   endfor
  83. endif
  84. //----------------------------------------------------
  85. //Monster attack and skin/loot
  86. //----------------------------------------------------
  87. if @findobject targ any world 1 2
  88.   headmsg 'Attacking'
  89.   attack targ
  90.   while @findobject targ any world 1 2
  91.   endwhile
  92. endif
  93. //******************************************
  94. if diffweight < 10
  95.   headmsg 'Backpack Full' 42
  96.   if mounted self
  97.     useobject self
  98.     pause 1000
  99.   endif
  100.   waitforcontext beetle 10 5000
  101.   pause 1000
  102.   headmsg 'Moving Wood' 65
  103.   while @findtype 0x1bdd any backpack
  104.     moveitem found beetle
  105.     pause 1000
  106.   endwhile
  107.   pause 500
  108.   if not mounted self
  109.     useobject beetle
  110.     pause 1000
  111.   endif
  112. endif
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