Vendor - Platemail Set Bag Filler

1# This is an automated backup - check out https://outlands.uorazorscripts.com/script/167beb6f-b091-4c5c-a3c7-200f75ee0454 for latest2# Automation by Jaseowns3## Script: Vendor - Platemail Set Bag Filler4## Created by: jfrostp#05#############################################6 7# Auto platemail vendor bags by Frost8# How to use this script:9# 1) Set all the bag hue values to the dye colors you use10# 2) Optionally, set the sourceBag and destinationBag variables to permanent values for convenience11#12# NOTES:13# ***THE SOURCE AND DESTINATION BAGS MUST BE DIFFERENT!***14# The script will halt if it encounters a non-exceptional item15# Any pieces that do not have a bag will remain in the source bag16 17# Set this to the container with your plate pieces18setvar! sourceBag19# Set this to the container with your dyed bags20setvar! destinationBag21 22setvar! delay 40023 24# Set the values below to the hues you dye your bags to (use >info to get the hues)25setvar! ironBagHue 026setvar! dullCopperBagHue 99327setvar! shadowBagHue 80328setvar! copperBagHue 64829setvar! bronzeBagHue 54330setvar! goldBagHue 24831setvar! agapiteBagHue 70832setvar! veriteBagHue 56833setvar! valoriteBagHue 48834setvar! avariteBagHue 51335 36removelist plateHues37createlist plateHues38pushlist plateHues 039pushlist plateHues 241940pushlist plateHues 240641pushlist plateHues 241342pushlist plateHues 241843pushlist plateHues 221344pushlist plateHues 242545pushlist plateHues 220746pushlist plateHues 221947pushlist plateHues 176348 49removelist bagHues50createlist bagHues51pushlist bagHues ironBagHue 52pushlist bagHues dullCopperHue 53pushlist bagHues shadowBagHue 54pushlist bagHues copperBagHue 55pushlist bagHues bronzeBagHue 56pushlist bagHues goldBagHue 57pushlist bagHues agapiteBagHue 58pushlist bagHues veriteBagHue 59pushlist bagHues valoriteBagHue 60pushlist bagHues avariteBagHue 61 62removelist plateTypes63createlist plateTypes64pushlist plateTypes 513865pushlist plateTypes 513966pushlist plateTypes 514267pushlist plateTypes 514368pushlist plateTypes 514469pushlist plateTypes 514670 71@clearignore 72cleardragdrop73 74while list plateHues > 075    foreach color in plateHues76        setvar! plateColor color77        break78    endfor79    if poplist plateHues front as throwaway80    endif81    82    # Commence janky syntax to get our array values83    foreach color in bagHues84        setvar! bagColor color85        break86    endfor87    if poplist bagHues front as throwaway88    endif89        90    removelist xPositions91    createlist xPositions92    pushlist xPositions 093    pushlist xPositions 7594    pushlist xPositions 10095    pushlist xPositions 096    pushlist xPositions 40097    pushlist xPositions 40098 99    removelist yPositions100    createlist yPositions101    pushlist yPositions 0102    pushlist yPositions 85103    pushlist yPositions 95104    pushlist yPositions 400105    pushlist yPositions 0106    pushlist yPositions 400107 108    removelist tempTypes109    createlist tempTypes110    111    # Cycle through item types to find them bags112    setvar! itemType 0113    while list plateTypes > 0114        foreach x in xPositions115            setvar! itemX x116            break117        endfor118        if poplist xPositions front as throwaway119        endif120        foreach y in yPositions121            setvar! itemY y122            break123        endfor124        if poplist yPositions front as throwaway125        endif126        127        foreach type in plateTypes128            setvar! itemType type129            break130        endfor131        if poplist plateTypes front as throwaway132        endif133        pushlist tempTypes itemType134        135        while findtype itemType sourceBag plateColor as item136            getlabel item itemLabel137            if "master" in itemLabel138            else139                sysmsg 'Non-exceptional item found, stopping script:' 33140                sysmsg itemLabel 33141                sysmsg 'Hue:' 33142                sysmsg plateColor 33143                stop144            endif145        146            # Find a bag that needs this color plate piece147            setvar! foundBagForItem 0148            while findtype 3701|3702 destinationBag bagColor as plateBag149                if findtype itemType plateBag150                else151                    lift item 1152                    wait delay153                    drop plateBag itemX itemY154                    wait delay155                    setvar! foundBagForItem 1156                    break157                endif158                @ignore plateBag159            endwhile160            161            @clearignore162            if foundBagForItem = 0163                #overhead 'Not enough bags'164                break165            endif166        endwhile167    endwhile168    169    foreach tempType in tempTypes170        pushlist plateTypes tempType171    endfor172endwhile173 174sysmsg 'Done filling platemail bags'175 176@clearignore177cleardragdrop