Advertisement
Guest User

MiningClay (Recall)

a guest
Apr 23rd, 2017
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.45 KB | None | 0 0
  1. set #SYSMSGCOL 1186
  2. event sysmessage My scripts never have Bugs
  3. event sysmessage It just develops random features - Picxie
  4. set %fruits TWI_QQD_FWI_UQE_YSD_FWI_YWI_AXI_QQD_UWI_TWI_KPE_CWE_AXI_YWI_MQE_ZPE_JQE
  5. if #MAXWEIGHT >= 400
  6. set %maxweight 300
  7. else
  8. set %maxweight #MAXWEIGHT - 100
  9.  
  10. set #TARGCURS 1
  11. event sysmessage Select rune to recall to clay
  12. repeat
  13. until #TARGCURS = 0
  14. set %rune #LTARGETID
  15.  
  16. set #TARGCURS 1
  17. event sysmessage Select rune home
  18. repeat
  19. until #TARGCURS = 0
  20. set %home #LTARGETID
  21.  
  22. set #TARGCURS 1
  23. event sysmessage Select chest to store clay
  24. repeat
  25. until #TARGCURS = 0
  26. set %chest #LTARGETID
  27.  
  28. gosub store
  29. gosub hunger
  30. gosub recall %rune
  31. while #TRUE
  32. {
  33. gosub mining
  34. gosub dced
  35. }
  36.  
  37. sub mining
  38. {
  39. for %titleX -1 1
  40. {
  41. for %titleY -1 1
  42. {
  43. set %mineX #CHARPOSX
  44. set %mineY #CHARPOSY
  45. set %mineX %mineX + %titleX
  46. set %mineY %mineY + %titleY
  47. gosub minpos %mineX %mineY
  48. }
  49. }
  50. return
  51. }
  52.  
  53. sub minpos
  54. {
  55. finditem TWF C_
  56. set #lobjectid #findid
  57. event macro 17 0
  58. set #lTargetKind 2
  59. set #lTargetX %1
  60. set #lTargetY %2
  61. set %jStart #JINDEX
  62. target
  63. event macro 22 0
  64.  
  65. set %time #SYSTIME + 3000
  66. while #TRUE
  67. {
  68. gosub panic
  69. if #JINDEX >= %jStart
  70. {
  71. For %j %jStart #JINDEX
  72. {
  73. ScanJournal %j
  74. if You_stop_digging_for in #journal || you_cant_dig_here in #journal
  75. {
  76. deleteJournal
  77. return
  78. }
  79. if #weight >= %maxweight
  80. {
  81. gosub home
  82. return
  83. }
  84. set %jStart %jStart + 1
  85. }
  86. }
  87. if #SYSTIME > %time
  88. return
  89. }
  90. return
  91. }
  92.  
  93. sub panic
  94. {
  95. if #HITS < #MAXHITS || #ENEMYHITS <> N/A
  96. {
  97. gosub recall %home
  98. gosub store
  99. while #TRUE
  100. {
  101. gosub dced
  102. msg $.age$
  103. msg $.accountage$
  104. wait 200s
  105. }
  106. }
  107. return
  108. }
  109.  
  110. sub home
  111. {
  112. gosub recall %home
  113. gosub store
  114. gosub hunger
  115. gosub recall %rune
  116. return
  117. }
  118.  
  119. sub store
  120. {
  121. finditem TMK C_ , #BACKPACKID
  122. if #LTARGETKIND <> -1
  123. {
  124. ExEvent Drag #FINDID #FINDSTACK
  125. wait 20
  126. ExEvent Dropc %chest
  127. wait 20
  128. }
  129. return
  130. }
  131.  
  132. sub recall
  133. {
  134. set %charX #CHARPOSX
  135. set %charY #CHARPOSY
  136. repeat
  137. {
  138. set #LSPELL 31
  139. event macro 16 0
  140. target 4s
  141. }
  142. until #targcurs = 1
  143. set #LTARGETID %1
  144. set #LTARGETKIND 1
  145. event macro 22 0
  146. repeat
  147. until #CHARPOSX <> 0 && #CHARPOSY <> 0 && ( #CHARPOSX <> %charX || #CHARPOSY <> %charY )
  148. return
  149. }
  150.  
  151. sub dced
  152. {
  153. if #CLILOGGED = 0
  154. {
  155. display you were DC. Script Stopped.
  156. stop
  157. }
  158. return
  159. }
  160.  
  161. sub hunger
  162. {
  163. set %eat N/A
  164. set %jstart #jIndex
  165. msg $.hunger$
  166. wait 20
  167. set %jend #jIndex
  168. for %ji %jstart %jend
  169. {
  170. scanjournal %ji
  171. if watch_your_weight in #journal
  172. return
  173. if three_square_meals in #journal
  174. return
  175. if Your_diet_is_consistent in #journal
  176. set %eat 1
  177. if food_would_be_welcome in #journal
  178. set %eat 3
  179. if stomach_is_growling in #journal
  180. set %eat 6
  181. if Are_you_Anorexic in #journal
  182. set %eat 8
  183. }
  184. if %eat = N/A
  185. return
  186. finditem %fruits c_
  187. if #findkind = -1
  188. {
  189. event sysmessage YOU HAVE NO FRUITS
  190. event sysmessage YOU HAVE NO FRUITS
  191. event sysmessage YOU HAVE NO FRUITS
  192. return
  193. }
  194. set #LOBJECTID #FINDID
  195. for %i 1 %eat
  196. {
  197. event macro 17
  198. wait 20
  199. }
  200. if %eat > 0
  201. gosub hunger
  202. return
  203. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement