Distillation/Map-bot 3000

1# This is an automated backup - check out https://outlands.uorazorscripts.com/script/522a39ec-6e01-40d9-8754-0dbf3e77f32a for latest2# Automation by Jaseowns3## Script: Distillation/Map-bot 30004## Created by: daklue#05#############################################6 7///////////////////////////////////////////////////////////   8# Distillation/Map-bot 30009# UO Outlands10# By: SCGuy11# Minor Edits by DaKlue 12# Most Scripts copied and modified from uorazorscritpts.com13///////////////////////////////////////////////////////////14 15# select the drop bag where people will place extracts16if not varexist chestToLookIn17    overhead 'Select the bag to watch for all items in.'18    @setvar! chestToLookIn19    dclick chestToLookIn20endif21 22if not varexist chestToDropIn23    overhead 'Select the bag to drop all items after bot has finished with it.'24    @setvar! chestToDropIn25    dclick chestToDropIn26endif27 28@setvar! alchGumpID 94909510129@setvar! aspectPageID 10830@setvar! nextPageResponse 1131 32if not timerexists "botTimer"33    createtimer "botTimer"34    settimer "botTimer" 035endif36if timer botTimer >= 6000037    wait 100038    say "Distillation/Map-bot 3000  ONLINE!" 8839    wait 50040    settimer "botTimer" 041endif42 43if not findtype "bottle" backpack44    dclick chestToLookIn45    wait 20046    overhead "Restock Extract" 8847    if findtype "bottle" chestToLookIn as bottle48        lift bottle49        drop backpack -1 -1 -150        wait 65051    endif52endif53    54if findtype 'bottle' self as extract55    overhead "Found a extract. Give us a moment as we turn it into a distilation." 8856    # pickup bottles on the floor57    if counttype 'empty bottle%s%' self = 058        @setvar bottleID 059        if findtype 'empty bottle%s%' ground -1 -1 2 as bottles60            @setvar bottleID bottles 61        elseif findtype 'empty bottle%s%'  as bottles62            @setvar bottleID bottles 63        endif64        65        if bottleID > 066            lift bottleID 6000067            drop backpack -1 -1 -168            say 'Thank you for the bottles!'69            wait 100070        endif71    endif72 73    # pickup mortal and pestle on the floor74    if counttype 'mortar and pestle' self = 0 75        @setvar! toolID 076        if findtype 'mortar and pestle' ground -1 -1 2 as tool77            @setvar! toolID tool78        elseif findtype 'mortar and pestle' chestToLookIn as tool79            @setvar! toolID tool80        endif81        82        if toolID > 083            lift toolID 6000084            drop backpack -1 -1 -185            say 'Thank you for the tools!'86            wait 100087       endif88    endif89 90    # check for an extract in the drop bag91    @setvar! foundExtract 092    @setvar! shouldSpeak 193    while findtype 'bottle' chestToLookIn as extract94        @setvar! foundExtract 195        overhead 'Found an extract! Creating a new distill...'96        getlabel extract extractName97        98        if shouldSpeak = 199            @setvar! shouldSpeak 0100            say 'Ah, an extract. Let me distill that for you...'101            wait 250102        endif103 104        # check for empty bottles105        if not findtype 'empty bottle%s%' self106            overhead 'Need more empty bottles!' 38107            say "I am out of empty bottles! Please drop some on the floor for me."108            wait 3000109            loop110        endif111 112        # open the alch gump, and go to page 2113        # of the aspect section where distills begin114        if findtype 'mortar and pestle' self as tool115            gumpclose alchGumpID116            dclick tool117            waitforgump alchGumpID118            119            # goto 'Aspect Items'120            gumpresponse aspectPageID121            waitforgump alchGumpID122            wait 650123            124            # goto page 3125            gumpresponse nextPageResponse126            waitforgump alchGumpID127            wait 650128            gumpresponse nextPageResponse129            waitforgump alchGumpID130            wait 650131        else132            overhead 'Need more mortal and pestles!' 38133            say "I am out of mortar and pestles! Please drop some on the floor for me."134            wait 3000135            loop136        endif137 138        # move the extract once we know we can make a distill139        lift extract 1140        drop backpack -1 -1 -1141        wait 650142 143        # go to the page for this extract,144        # then create it145        // page 3146        if 'Air' in extractName147            overhead 'Air' 1001148            gumpresponse 200 alchGumpID149 150        elseif 'Artisan' in extractName151            overhead 'Artisan' 544152            gumpresponse 201 alchGumpID153 154        elseif 'Blood' in extractName155            overhead 'Blood' 38        156            gumpresponse 202 alchGumpID157            158        elseif 'Command' in extractName159            overhead 'Command' 68160            gumpresponse 203 alchGumpID161 162        elseif 'Death' in extractName163            overhead 'Death' 923164            gumpresponse 204 alchGumpID165 166        elseif 'Discipline' in extractName167            overhead 'Discipline' 442168            gumpresponse 205 alchGumpID169 170        elseif 'Earth' in extractName171            overhead 'Earth' 544172            gumpresponse 206 alchGumpID173 174        elseif 'Eldritch' in extractName175            overhead 'Eldritch' 24176            gumpresponse 207 alchGumpID177 178        elseif 'Fire' in extractName179            overhead 'Fire' 38180            gumpresponse 208 alchGumpID181 182        elseif 'Fortune' in extractName183            overhead 'Fortune' 53184            gumpresponse 209 alchGumpID185        186        // page 4187        elseif 'Gadget' in extractName188            overhead 'Gadget' 53189            gumpresponse nextPageResponse alchGumpID190            waitforgump alchGumpID191            gumpresponse 200 alchGumpID192            193        elseif 'Harvest' in extractName194            overhead 'Harvest' 53195            gumpresponse nextPageResponse alchGumpID196            waitforgump alchGumpID197            gumpresponse 201 alchGumpID198 199        elseif 'Holy' in extractName200            overhead 'Holy' 53201            gumpresponse nextPageResponse alchGumpID202            waitforgump alchGumpID203            gumpresponse 202 alchGumpID204 205        elseif 'Lyric' in extractName206            overhead 'Lyric' 38207            gumpresponse nextPageResponse alchGumpID208            waitforgump alchGumpID209            gumpresponse 203 alchGumpID210 211        elseif 'Poison' in extractName212            overhead 'Poison' 68213            gumpresponse nextPageResponse alchGumpID214            waitforgump alchGumpID215            gumpresponse 204 alchGumpID216 217        elseif 'Shadow' in extractName218            overhead 'Shadow' 923219            gumpresponse nextPageResponse220            waitforgump alchGumpID221            gumpresponse 205 alchGumpID222 223        elseif 'Void' in extractName224            overhead 'Void' 14225            gumpresponse nextPageResponse alchGumpID226            waitforgump alchGumpID227            gumpresponse 206 alchGumpID228 229        elseif 'War' in extractName230            overhead 'War' 44231            gumpresponse nextPageResponse alchGumpID232            waitforgump alchGumpID233            gumpresponse 207 alchGumpID234            235        elseif 'Water' in extractName236            overhead 'Water' 8237            gumpresponse nextPageResponse alchGumpID238            waitforgump alchGumpID239            gumpresponse 208 alchGumpID240 241        else 242            overhead 'Unknown extract type! {{extractName}}' 38243            say 'DISTILLO-BOT FATAL ERROR! CANNOT COMPUTE! CANNOT COMPUTE!'244        endif245 246        waitforgump alchGumpID 1000247        gumpclose alchGumpID248        wait 3000249    endwhile250else 251    overhead "Out of Extracts!" 34252    wait 650253endif254 255# move the new distillations back into the drop bag256while findtype 'flask' self as distillation257    lift distillation 99258    drop chestToDropIn -1 -1 -1259    wait 1500260endwhile261 262if foundExtract == 1263    say 'There you go! Thank you for using Distillo-bot 3000 and have a nice day.'264endif265 266 267 268 269@setvar! globalTimeout 650270 271 272#################################273##### Item Id274###########################275 276if skill "Item Identification" >= 120277    278    if not find chestToLookIn ground -1 -1 2279        unsetvar chestToLookIn280        replay281    endif282    283    if not timerexists "itemIdTimer"284        createtimer "itemIdTimer"285        settimer "itemIdTimer" 20000286    endif287    288    if not timerexists "detectHidingPlayersTimer"289        createtimer "detectHidingPlayersTimer"290        settimer "detectHidingPlayersTimer" 11000291    endif292    293    getlabel chestToLookIn descItemId294    295    if "0 items, 0 stones" in descItemId296        // do nothing297    elseif timer "detectHidingPlayersTimer" >= 11000 and timer "itemIdTimer" >= 20000298        useskill 'itemidentification'299        wft 500300        target chestToLookIn301        settimer "detectHidingPlayersTimer" 9000302        settimer "itemIdTimer" 0303    endif304endif305 306 307 308 309if skill "Lockpicking" >= 50310        311    if not timerexists "unlockChestTimer"312        createtimer "unlockChestTimer"313        settimer "unlockChestTimer" 2000314    endif315 316    if not varexist haveParagonToOpen317        @setvar! haveParagonToOpen 0318    endif319 320    if findtype "lockpicks" backpack and findtype "drill" backpack321        @clearignore322        if not varexist chestToLookIn323            overhead "Select a chest to look in" 88324            @setvar! chestToLookIn325        endif326 327        if not find chestToLookIn ground -1 -1 2328            unsetvar chestToLookIn329            replay330        endif331 332        if haveParagonToOpen = 0333            while findtype 2473|3644|3645|3646|3647|3710|3701|3702|29832|29833|2472|2475|3648|3649|3708|29078|41449|41450|3705|3712|2474|3709|3650|3651|29077 chestToLookIn as container334                getlabel container desc335                if "sealed" in desc336                    overhead "paragon found"337                    lift container338                    drop backpack -1 -1 -1339                    wait globalTimeout340                endif341                342                if find container backpack343                    @setvar! haveParagonToOpen container344                else345                    @ignore! container346                endif347            endwhile348        elseif timer unlockChestTimer >= 3500349            if gumpexists 736038070350                if ingump "Cleared of Traps" 736038070351                    gumpresponse 4 736038070352                else353                    overhead "Remove Trap"354                    gumpresponse 7 736038070        355                endif356                settimer unlockChestTimer 0357            else358                getlabel haveParagonToOpen sealedDesc359                if "sealed" in sealedDesc360                    dclick haveParagonToOpen361                else362                    overhead "we done"363                    lift haveParagonToOpen364                    drop chestToLookIn -1 -1 -1365                    wait globalTimeout366                    if not find haveParagonToOpen backpack367                        @setvar! haveParagonToOpen 0368                    endif369                endif370            endif371        endif372    else373        overhead "No more lockpicks or drills bro" 34374    endif375 376endif377 378# All types of map decoder by Jaseowns379if skill 'cartography' >= 50380    if not findtype "spyglass" backpack381        if findtype "spyglass" chestToLookIn as item382            overhead "Grabbing spyglass" 34383            lift item384            drop backpack -1 -1 -1385            wait 650386        else387            overhead "Need spyglass" 34388            wait 5000        389        endif390        replay391    endif392 393    if not findtype "map" backpack394        dclick chestToLookIn395        wait 200396        overhead "Restock Map" 88397        if findtype "map" chestToLookIn as map398            lift map399            drop backpack -1 -1 -1400            wait 650401        endif402    endif403 404    # Close map gump405    // ore406    gumpclose 3367641484407    // skinning408    gumpclose 3473029237409    // lumber410    gumpclose 1332805401411    // treasure412    gumpclose 1520869851413    // fishing414    gumpclose 2589357942415 416 417    if findtype "map" backpack as my_map418        getlabel my_map desc419        overhead desc   420        dclicktype "spyglass" backpack421        wft 1500422        target my_map423        424        @setvar! gumpIdToCheck 0425        426        if "ore" in desc427            @setvar! gumpIdToCheck 3367641484428        elseif "skinning" in desc429            @setvar! gumpIdToCheck 3473029237430        elseif "lumber" in desc431            @setvar! gumpIdToCheck 1332805401432        elseif "treasure" in desc433            @setvar! gumpIdToCheck 1520869851434        elseif "fishing" in desc435            @setvar! gumpIdToCheck 2589357942436        else437           overhead "Unknown gump!" 34438        endif439        440        waitforgump gumpIdToCheck 1000441        442        if "[100.0%" in desc or "(100.0%" in desc443            dclick chestToDropIn444            wait 200445            overhead "Moving map..." 88446            lift my_map447            drop chestToDropIn -1 -1 -1448            wait 650449        else450            overhead "Updating..."451            clearsysmsg 452            while gumpexists gumpIdToCheck453                gumpresponse 4 gumpIdToCheck454                wait 500455                if insysmsg "maximum accuracy"456                    gumpclose gumpIdToCheck457                    lift my_map458                    drop chestToDropIn -1 -1 -1459                    wait 650460                endif461            endwhile462        endif    463        wait 200464        replay465    else466        overhead "Out of maps!" 34467        wait 5000468        replay469    endif470endif471if not listexists "friendsofthehouse"472    createlist "friendsofthehouse"473endif474 475if not timerexists "detectHidingPlayersTimer"476    createtimer "detectHidingPlayersTimer"477    settimer "detectHidingPlayersTimer" 11000478endif479 480if not timerexists "sayBanTimer"481    createtimer "sayBanTimer"482    settimer "sayBanTimer" 2000483endif484 485if timer "detectHidingPlayersTimer" >= 11000486    useskill 'detectinghidden'487    wft 500488    target 'self'489    settimer "detectHidingPlayersTimer" 0490endif491 492hotkey 'Next non-friendly player target'493wait 200494if insysmsg "no one matching"495    // do nothing496else 497    @setvar! removeTarget lasttarget498    if inlist "friendsofthehouse" removeTarget 499        // do nothing500    elseif timer sayBanTimer >= 2000501        say "I ban thee" 502        wft 1000503        target removeTarget 504        wait 200505        if insysmsg "You cannot eject a friend of the house!"506            pushlist "friendsofthehouse" removeTarget 507        endif  508        settimer "sayBanTimer" 0509    endif510endif511 512wait 50513loop