Results 1 to 7 of 7

Thread: Riath's MINER v1.0 (EasyUO)

  1. #1

    Riath's MINER v1.0 (EasyUO)

    Code:
    ;==============================================================================
    ; Script Name: Riath's MINER
    ; Author: Riath D'Ersines
    ; Version: 1.00
    ; Client Tested with: 7.0.55.4
    ; EUO version tested with: 1.5.1.307
    ; Shard OSI / FS: FS (Paradise Found)
    ; Revision Date: 12/26/2016
    ; Public Release: 12/26/2016
    ; Global Variables Used: *ignore
    ; Purpose: Press Hotkey - Automatically mines all tiles within 2 paces, permanently ignores
    ;          coordinates that cannot be mined, smelts on Portable Forge when near max weight.
    ;          F4 to mine, F5 to reset finished coordinates
    ;==============================================================================
    ;==============================================================================
    ;==========================  VARIABLES  =======================================
    ;
    set %tiles 220|221|222|223|224|225|226|227|228|229|230|231|236|237|238|239|240|241|242|243|
              +244|245|246|247|252|253|254|255|256|257|258|259|260|261|262|263|268|269|270|271|
              +272|273|274|275|276|277|278|279|286|287|288|289|290|291|292|293|294|296|296|297|
              +321|322|323|324|467|468|469|470|471|472|473|474|476|477|478|479|480|481|482|483|
              +484|485|486|487|492|493|494|495|543|544|545|546|547|548|549|550|551|552|553|554|
              +555|556|557|558|559|560|561|562|563|564|565|566|567|568|569|570|571|572|573|574|
              +575|576|577|578|579|581|582|583|584|585|586|587|588|589|590|591|592|593|594|595|
              +596|597|598|599|600|601|610|611|612|613|1010|1741|1742|1743|1744|1745|1746|1747|
              +1748|1749|1750|1751|1752|1753|1754|1755|1756|1757|1771|1772|1773|1774|1775|1776|
              +1777|1778|1779|1780|1781|1782|1783|1784|1785|1786|1787|1788|1789|1790|1801|1802|
              +1803|1804|1805|1806|1807|1808|1809|1811|1812|1813|1814|1815|1816|1817|1818|1819|
              +1820|1821|1822|1823|1824|1831|1832|1833|1834|1835|1836|1837|1838|1839|1840|1841|
              +1842|1843|1844|1845|1846|1847|1848|1849|1850|1851|1852|1853|1854|1861|1862|1863|
              +1864|1865|1866|1867|1868|1869|1870|1871|1872|1873|1874|1875|1876|1877|1878|1879|
              +1880|1881|1882|1883|1884|1981|1982|1983|1984|1985|1986|1987|1988|1989|1990|1991|
              +1992|1993|1994|1995|1996|1997|1998|1999|2000|2001|2002|2003|2004|2028|2029|2030|
              +2031|2032|2033|2100|2101|2102|2103|2104|2105|1339|1340|1341|1342|1343|1344|1345|
              +1346|1347|1348|1349|1350|1351|1352|1353|1354|1355|1356|1357|1358|1359|
    set %tool TWF_WWF_NPF_QPF_ ;ID of shovels/picks
    set %range 2
    set %finished
    finditem PMF c_
    if #findcnt = 0
        display ok A Portable Forge is required by this script. Please go get one.
    else
        set %forgeid #findid
    ;
    ;=========================  PROGRAM LOOP  =====================================
    ;
    mainloop:
        onhotkey f5
             {
             set %finished
             }
        onhotkey f4
             {
             linespercycle 1000
             gosub tilescan
             sound
             event exmsg #charid 3 0 DONE IN THIS SPOT! PLEASE MOVE!
             linespercycle 10
             }
        goto mainloop
    ;
    ;=============================  SUBS  =========================================
    ;
    sub tilescan
        tile init noOverrides
        set %minX #charPosX - %range
        set %maxX #charPosX + %range
        set %minY #charPosY - %range
        set %maxY #charPosY + %range
        for %x %minX %maxX
             {
             for %y %minY %maxY
                  {
                  tile cnt %x %y
                  for %t 1 #tilecnt
                       {
                       tile get %x %y %t
                       gosub tiletest
                       }
                  }
             }
    return
    ;
    ;------------------------------------------------------------------------------
    ;
    sub mine
    mineloop:
        key esc
        gosub checkweight
        finditem %tool c_ #backpackid
        set #lobjectid #findid
        set %jstart #jindex + 1
        event macro 17 0
        target 3
        event macro 22 0
        wait 20
        set %jend #jindex
        for %i %jstart %jend
             {
             scanjournal %i
             if seen in #journal || reach in #journal || far in #journal || can't_mine in #journal
                  {
                  gosub addcoord
                  return
                  }
             if no_metal in #journal
                  {
                  gosub finishspot
                  return
                  }
             }
    goto mineloop
    return
    ;
    ;------------------------------------------------------------------------------
    ;
    sub smelt
        finditem DWJ_EWJ c_ , #backpackid
        while #findcnt > 0
             {
             finditem DWJ_EWJ c_ , #backpackid
             set #lobjectid #findid
             gosub storeloc
             set #ltargetid %forgeid
             set #ltargetkind 1
             event macro 17
             wait 15
             event macro 22
             wait 15
             gosub recoverloc
             }
    return
    ;
    ;------------------------------------------------------------------------------
    ;
    sub checkweight
        if #maxweight > 550
             set %maxweight 450
        else
             set %maxweight #maxweight - 100
        if #weight > %maxweight
             {
             gosub smelt
             }
    return
    ;
    ;------------------------------------------------------------------------------
    ;
    sub tiletest
        if #tiletype in %tiles && floor notin #tilename
             {
             set #ltargetkind 2
             set #ltargetx %x
             set #ltargety %y
             set #ltargetz #tilez
             set #ltargettile #tiletype
             set %coords x , #ltargetx , y , #ltargety , z , #ltargetz
             }
        if #tiletype in %tiles && floor in #tilename
             {
             set #ltargetkind 3
             set #ltargetx %x
             set #ltargety %y
             set #ltargetz #charposz
             set #ltargettile #tiletype
             set %coords x , #ltargetx , y , #ltargety , z , #ltargetz
             }
        gosub checkifignored
    return
    ;
    ;------------------------------------------------------------------------------
    ;
    sub addcoord
        set *ignore *ignore , _ , %coords
    return
    ;
    ;------------------------------------------------------------------------------
    ;
    sub finishspot
        set %finished %finished , _ , %coords
    return
    ;
    ;------------------------------------------------------------------------------
    ;
    sub checkifignored
        if %coords notin *ignore && %coords notin %finished
             gosub mine
    return
    ;
    ;------------------------------------------------------------------------------
    ;
    sub storeloc
        set %locx #ltargetx
        set %locy #ltargety
        set %locz #ltargetz
        set %lockind #ltargetkind
        set %loctile #ltargettile
        return
    ;
    ;------------------------------------------------------------------------------
    ;
    sub recoverloc
        set #ltargetx %locx
        set #ltargety %locy
        set #ltargetz %locz
        set #ltargetkind %lockind
        set #ltargettile %loctile
        return
    ;
    ;==============================================================================
    Last edited by Riath D'Ersines; 12-26-2016 at 08:55 PM. Reason: Updating

  2. #2
    This is as good a place to post as any lol... After finishing that batch of scripts, I think I need to take a day or two off to avoid a burn out. Take some time for some completely mindless Minecrafting lol. I'll see everybody at some point before the weekend. Anyone wants to join me let me know, I'll pass along the modpack I'm using and my IP so you can connect.

  3. #3
    Seer you when you return if u get a moment i will try out this script. Soggybottom and myself were away due to frontier having equipment problems. The internet was down a few towns in each direction.

  4. #4
    I'll hop on for a bit today (Friday), with the intent of actually being AROUND on Saturday, be it for champs/hunt/what-have-you. Or, if nobody's around, I'll go back to working on my scripts lol. Bedtime. See y'all in awhile.

  5. #5
    Nice of you to share these Riath, I am certain people will find them most useful.

  6. #6
    yes it was very nice to have some thing other players might find useful and you did.

  7. #7
    Will have to try this script out and let you know how it is !

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •