set %pick NPF
set #sysmsgcol 1170
set %counter 1
set %food HND ; fish steaks
set %eat 1 ; turns eating on
set #SCNT 0
set %start 29
set %end 55
set %side 2800
set %badores LNVPSTE
set %goodores LNVPSTE
loop:
     finditem %pick C_ , #BACKPACKID
     if #findkind <> -1
     {
        set #LOBJECTID #findid
     }
     else
     {
         event sysmessage Can't find pick
         halt
     }
     ; -------- Target Relative --------------
     repeat
     tile Init
           set #LTARGETX ( #RANDOM % 4 ) - 2 + #CHARPOSX
           set #LTARGETY ( #RANDOM % 4 ) - 2 + #CHARPOSY
           set #LTARGETZ 17
           tile Cnt #LTARGETX #LTARGETY 1
           tile Get #LTARGETX #LTARGETY #TILECNT 1
           until #TILENAME = rock
           set #LTARGETZ #TILEZ
           set #LTARGETTILE #TILETYPE
           set #LTARGETKIND 3
           target:
           event macro 17 0
           target
           event macro 22 0

     until You_start_mining in #sysmsg
     ; --------- End Target Relative ---------
     a:
      repeat
      until ( There_is_no_ore_here_to_mine. in #sysmsg ) || ( There_is_no_more_ore_to_mine_here. in #sysmsg ) || ( Finished_Saving_World_Status in #sysmsg )

      if ( Finished_Saving_World_Status in #sysmsg )
      {
         goto a

      }

     if ( There_is_no_ore_here_to_mine. in #sysmsg ) || ( There_is_no_more_ore_to_mine_here in #sysmsg )
     {
      gosub ores
        if %eat = 1
        {
           if #SCNT >= 3600
           {
              set #SCNT 0
              finditem %food G_3

              if #findkind <> -1
              {
                 set #LOBJECTID #findid
                 event macro 17 0
              }
           }
        }

        set %counter ( %counter + 1 )
        if %counter < 7
        {
           event sysmessage Attempt: %counter at this location
           goto loop
        }
        else
        {
             set %counter 1

             set %current #charposy
             if %current >= %end
              {
                msg raise anchor$
                msg back$
                repeat
                until #charposy <= %start

                msg right$
                repeat
                until #charposx >= %side
                msg drop anchor$
                goto mine
              }

              msg raise anchor$
              wait 10
              msg forward$

              repeat
              until #charposy <> %current

              msg right$
              repeat
              until #charposx = %side
              msg drop anchor$
        }
     }
goto loop

sub ores
ores:
finditem DWJ C_ , #BACKPACKID
if #FINDKIND <> -1
{
if #FINDCOL <> 16 || #FINDCOL <> 80 || #FINDCOL <> 55 || #FINDCOL <> 35
{
exevent drag #FINDID #FINDSTACK
wait 5
exevent dropc %Goodores
wait 10
goto ores
}
exevent drag #FINDID #FINDSTACK
wait 5
exevent dropc %badores
wait 10
goto ores
}
return