Razor:Mining/en

This script mines in five directions - 4 perpendicular to the configured walking direction and one directly below you. When these 5 fields are mined, the script will move you one field in the configured direction, dump all the configured ore from the backpack on the ground, and put the ore under your character. Warning - it takes all ore 2 squares away from your character, so stay away from other players unless you love drama. 😊

Requirements

• Have a shovel or pickaxe in hand and preferably some spares in your pack.
• Run to a mineable cave.

Script

// Mining
// version 1.1
//
// Changelog:
// 1.1: added food checking

if listexists 'mine-direction'
    removelist 'mine-direction'
endif
createlist 'mine-direction'
if listexists 'mine-orehues'
    removelist 'mine-orehues'    
endif
createlist 'mine-orehues'
if listexists 'mine-foodtypes'
    removelist 'mine-foodtypes'    
endif
createlist 'mine-foodtypes'

### start of configuration ###

# change mining direction here
# must be exactly one of these values: West East North South
pushlist 'mine-direction' 'West'

# change which ores you want dropped on ground and dragged behind here
# note that if ore drops to ground due to weight and is not listed here it will be left on the spot
# iron ore
pushlist 'mine-orehues' "0"
# copper ore
pushlist 'mine-orehues' "1118"
# tin ore
pushlist 'mine-orehues' "2401"
# lead ore
pushlist 'mine-orehues' "1045"
# zinc ore
pushlist 'mine-orehues' "2403"
# silver ore
pushlist 'mine-orehues' "2951"
# gold ore
pushlist 'mine-orehues' "2213"
# gorinite ore
pushlist 'mine-orehues' "1645"
# chlorite ore
pushlist 'mine-orehues' "2128"
# hieronite ore
pushlist 'mine-orehues' "2428"
# sangvine ore
pushlist 'mine-orehues' "41"
# arite ore
pushlist 'mine-orehues' "1344"

# change which foods do you want to try to consume from your backpack
# cuts of ribs
pushlist 'mine-foodtypes' 2546
# fish steak 
pushlist 'mine-foodtypes' 2427

### end of configuration ###

if listexists 'mine-locations'
    removelist 'mine-locations'
endif
createlist 'mine-locations'
pushlist 'mine-locations' -2
pushlist 'mine-locations' -1
pushlist 'mine-locations' 0
pushlist 'mine-locations' 1
pushlist 'mine-locations' 2

# eat
setvar! 'mine-hungry' 1
while varexist! 'mine-hungry'
    clearsysmsg 

    setvar! 'mine-eating' 1
    foreach foodtype in 'mine-foodtypes'
        if varexist! 'mine-eating' and findtype foodtype 'backpack' as 'food'
            dclick 'food'
            unsetvar! 'mine-eating'
            wait 250
        endif
    endfor
    
    if varexist! 'mine-eating'
        sysmsg 'Warning: no food'
        unsetvar! 'mine-hungry'
    endif
    
    if insysmsg 'You are too full to eat any more'
        unsetvar! 'mine-hungry'
    endif
    
endwhile

# cut gems
@clearignore
while findtype 5031 'backpack' as 'chunk'
    if findtype 7868 'backpack' 5 as 'tool'
        clearsysmsg 
        dclick 'tool'
        waitfortarget 
        target 'chunk'
        while 1 = 1
            if insysmsg 'Your tool broke'
                break;
            endif
            if insysmsg 'You have created a gem'
                break;
            endif
            if insysmsg 'You have failed to create a gem'
                break;
            endif
            
            wait 50
        endwhile
        wait 250
    else
        break
    endif
endwhile

# mine locations
foreach loc in 'mine-locations'
    if inlist 'mine-direction' 'West' or inlist 'mine-direction' 'East'
        sysmsg 'Mining at 0 {{loc}}'
    elseif inlist 'mine-direction' 'North' or inlist 'mine-direction' 'south'
        sysmsg 'Mining at {{loc}} 0'
    else
        sysmsg 'Mining direction is misconfigured'
        stop
    endif

    setvar! 'mine_minespot' 1
    while varexist 'mine_minespot'
        clearsysmsg
        
        // shovel > rhand > pickaxe in bag
        if findtype 3897 'backpack' as 'tool'
            dclick 'tool'    
        elseif not rhandempty
            hotkey 'use item in hand'
        elseif findtype 3718 'backpack' as 'tool' or findtype 3717 'backpack' as 'tool'
            dress 'tool'
            while rhandempty
                wait 50
            endwhile
            wait 500
            dclick 'tool'
        else
            sysmsg 'No tool found'
            stop
        endif
        
        waitfortarget 
        if inlist 'mine-direction' 'West' or inlist 'mine-direction' 'East'
            targetrelloc 0 loc
        elseif inlist 'mine-direction' 'North' or inlist 'mine-direction' 'south'
            targetrelloc loc 0
        else
            sysmsg 'Mining direction is misconfigured'
            stop
        endif
        
        setvar! 'mine_wait' 1
        while varexist 'mine_wait'
            if insysmsg 'You can mine only from cave floor' or insysmsg 'That is too far away' or insysmsg "You cannot see that"
                unsetvar! 'mine_wait'
                unsetvar! 'mine_minespot'
            elseif insysmsg 'there is no more'
                unsetvar! 'mine_wait'
                unsetvar! 'mine_minespot'
            elseif insysmsg 'tool broke'
                unsetvar! 'mine_wait'
            endif
            wait 500
        endwhile

    endwhile
endfor

# change direction to next spot
foreach step in 'mine-direction'
    walk step
endfor
# make step on next spot
foreach step in 'mine-direction'
    walk step
endfor

wait 500

# drop ores from backpack
@clearignore
foreach orehue in 'mine-orehues'
    while findtype 6585 'backpack' orehue as 'backpackstack'
        @ignore 'backpackstack'
        while findtype 6585 'backpack' orehue as 'otherstack'
            @ignore 'otherstack'
        endwhile
        
        lift 'backpackstack' 0
        if findtype 6585 true orehue as 'groundstack'
            sysmsg 'Dropping {{orehue}} to ground stack'
            drop 'groundstack'
        else
            sysmsg 'Dropping {{orehue}} to ground location'
            droprelloc 0 0
        endif
        wait 150
        
        @clearignore
    endwhile
endfor

wait 500

# drag ores under our character
@clearignore
foreach orehue in 'mine-orehues'
    // backpack ores should have been dropped already
    // but to be sure lets ignore them
    while findtype 6585 'backpack' orehue as 'stack'
        @ignore 'stack'
    endwhile
    
    // first stack
    unsetvar! 'minevacuumgroundstack';
    while findtype 6585 true orehue as 'stack'
        lift 'stack' 0
        if varexist! 'minevacuumgroundstack'
            drop 'minevacuumgroundstack'
        else
            droprelloc 0 0
            setvar! 'minevacuumgroundstack' 'stack'
        endif
        wait 150
        @ignore 'stack'
    endwhile
endfor

wait 500

// pickup all chunks
@clearignore
while findtype 5031 'backpack' as 'chunk'
    @ignore 'chunk'
endwhile
while findtype 5031 true as 'chunk'
    lift 'chunk' 0
    drop 'backpack' -1 -1
    wait 150
    @ignore 'chunk'
endwhile

// go again
loop