;====================================================================================
; Script Name: Boat Miner
; Author: SenDogg
; Version: 2.0
; Client Tested with: 2.0.0
; EUO version tested with: 1.5 237
; Shard OSI / FS: Free Shard Neverlands
; Notes: Remember to take a chest with you
;==========================================================================


set %ores DWJ_ENK_DWJ_RVH_EVF_FVF_RVF_BVF_HVF_MWF_GVF_VUF_OVF_ZLF
set %chest EFDYLOF


Start:

if #weight > 350
gosub Bank
{
gosub boat
wait 1s
goto MineGrid

;===================================
Minegrid:

gosub Mine 0 0
gosub Mine 0 1
gosub Mine 0 2
gosub Mine 1 0
gosub Mine 1 1
gosub Mine 1 2
gosub Mine 2 0
gosub Mine 2 1
gosub Mine 2 2
gosub Mine 0 -1
gosub Mine 0 -2
gosub Mine -1 0
gosub Mine -1 -1
gosub Mine -1 -2
gosub Mine -2 0
gosub Mine -2 -1
gosub Mine -2 -2

goto start

;==================================================
sub Mine

finditem WTH_NPF C_ , #BACKPACKID
if #findkind = -1
{
event sysmessage No Tool
halt
}
set #lobjectid #findid
set #ltargetkind 3
set #ltargetx #charposx + %1
set #ltargety #charposy + %2
set #ltargetz #charposz
event macro 17 0
target
event macro 22 0
wait 20
deletejournal
set #sCnt 1

Looping:
FindItem DWJ G_2
if #FINDKIND = 1
{
ExEvent Drag #FINDID #FINDSTACK
wait 10
ExEvent Dropc #backpackid
wait 10
}

if #jindex > %jrnl
set %jrnl %jrnl + 1
scanjournal %jrnl
if You_stop_mining in #JOURNAL || That_is_too_far_away in #JOURNAL || There_is_no_more_ore_to_mine_here in #JOURNAL || you_fail_to_find_any_ore in #JOURNAL || you_fail_to_find_any_usable_ore in #JOURNAL || You_fail_to_find_usable_ore in #JOURNAL
{
wait 10
return
}
if ore_in_your_backpack in #JOURNAL
if #CONTNAME = waiting_gump && #CONTSIZE = 356_212

if #sCnt > 60
{
event sysmessage 60s timer reached, resetting..
wait 10
return
}
finditem %Moongate G_10
if #findkind <> -1
goto Moongate
goto Looping
;==============================================
sub boat

msg raise anchor$
wait 2s
msg forward one$
wait 2s
msg raise anchor$
wait 2s
msg forward one$
wait 3s
msg drop anchor$
wait 10
return
;===============================================
sub Bank

Finditem %Chest G_2
set #lobjectid #Findid
event macro 17
wait 1s
ignoreitem

finditem %ores C_ , #BACKPACKID
if #FINDKIND <> -1
{
for %n 1 #FINDCNT
{
set #FINDINDEX %n
exevent Drag #FINDID #FINDSTACK
wait 5
exevent Dropc %Chest
wait 5
}
}
set %Weight #WEIGHT
return
;====================================================