Boat Miner by Brozan (Syal)
Related: Snippet
Description: It mines. On a boat
1#Set this to 1 if you want to fish also
2@setvar! fishAlso 1
3
4###Have a bag or something in your hold to dump in
5
6#Put a bag in your hold and target that
7overhead "Target a pouch in your hold to dump ore into"
8@setvar! hullPouch
9wait 500
10
11if not timerexists "miner"
12 #We use this as a first run loop to set vars
13 overhead 'First Run!'
14 createtimer "miner"
15 settimer "miner" 1100
16endif
17
18if not timerexists "fishy"
19 createtimer "fishy"
20 settimer "fishy" 99999
21endif
22
23overhead "Target organizer 20 hotbag"
24organizer 20 set
25while not insysmsg "Container set successfully"
26 wait 250
27endwhile
28
29# Equip a pickaxe
30if rhandempty
31 dclicktype '3718'
32 wait 600
33endif
34
35#hit it once
36hotkey 'use item in hand'
37settimer "miner" 0
38wait 1200
39
40
41#Harvest Loop
42while not dead
43 if diffweight <= 50
44 wait 600
45 say "Dumping my Ore!"
46 while findtype 6585 backpack as found
47 lift found 60000
48 drop hullPouch -1 -1 0
49 wait 600
50 endwhile
51 endif
52
53 if timer "miner" >= 1000
54 if insysmsg 'You have worn out your tool!'
55 wait 600
56 dclicktype '3718'
57 wait 600
58 endif
59
60 if timer "fishy" > 8550 and fishAlso = 1
61 dress 'Fishing'
62 wait 600
63 say "[greaterability"
64 hotkey 'Use item in hand'
65 settimer "fishy" 0
66 #put pick back on
67 dclicktype '3718'
68 wait 600
69 endif
70
71 //captcha check
72 if not insysmsg "skill gain" and not insysmsg "do not see" and not insysmsg 'world is saving' and not insysmsg 'world will save' and not insysmsg 'World save complete' and not insysmsg 'You dig' and not insysmsg 'You loosen' and not insysmsg 'Distance to destination' and not insysmsg 'Now tracking'
73 //pause and check again
74 wait 250
75 if not insysmsg "skill gain" and not insysmsg "do not see" and not insysmsg 'world is saving' and not insysmsg 'world will save' and not insysmsg 'World save complete' and not insysmsg 'You dig' and not insysmsg 'You loosen' and not insysmsg 'Distance to destination' and not insysmsg 'Now tracking'
76 overhead 'Captcha break or Done!' 34
77 while not insysmsg "successful" or insysmsg "save complete"
78 wait 1000
79 say "Catpcha!" 33
80 endwhile
81 endif
82 endif
83
84 hotkey 'use item in hand'
85 settimer "miner" 0
86 wait 100
87 endif
88 wait 50
89endwhile