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