Treasure Map Sorting Script

Discussion in 'Guides' started by Agneptic, Jun 17, 2021.

  1. Agneptic

    Agneptic Member

    Joined:
    Feb 5, 2021
    Messages:
    48
    Likes Received:
    30
    Recently I've gotten myself into running bulk level 1 treasure maps since it is pretty decent money and I'm a sucker for that chance to find level 7's. I found it increasingly annoying to sort all the maps by hand for each location, so I wrote a script to do the annoying part for me! A little bit of info about the setup: I split up the map into relative regions and sorted maps into bags for each region. I came up with 26 regions this way, most of which are simply each island being its own region. Makes it fairly easy to just grab a bag and clear an entire island's worth of maps in only a couple trips. This does not take into account what level the treasure map is, only the location. Set up a variable for each region, and one for the bag you are pulling from, and let 'er rip! (PS, this macro uses Item ID to get the map ID into system messages. I did not include a clause for failing to identify the map since I have a GM IDer. Should be easy to work in if you do not have that, though)

    This one is just to set up your variables. Feel free to ignore if you'd rather do it through the Razor interface.
    Code:
    setvar 'TmapPouch1'
    setvar 'NorthYewBag'
    setvar 'MinocBag'
    setvar 'ValleyofChaosBag'
    setvar 'CovetousBag'
    setvar 'ShameBag'
    setvar 'CrossroadsBag'
    setvar 'IversRoundingBag'
    setvar 'EiffelIslandBag'
    setvar 'OcarinaIsleBag'
    setvar 'BlancheIsleBag'
    setvar 'SouthBritBag'
    setvar 'HorseshoeIsleBag'
    setvar 'BucsDenBag'
    setvar 'BucsEastBag'
    setvar 'DestardBag'
    setvar 'WestTrinsicBag'
    setvar 'DragonIsleBag'
    setvar 'NorthJhelomBag'
    setvar 'DeepSouthBag'
    setvar 'BaldIsleBag'
    setvar 'TempleIsleBag'
    setvar 'SerpsHoldBag'
    setvar 'AmoebaIsleBag'
    setvar 'ValorIsleBag'
    setvar 'FireIsleBag'
    setvar 'OclloBag'
    This will stock a map, ensure that system messages are clear, ID the map, and call the sort script. It also includes a waiting period for skill use cooldown.
    Code:
    // Grab a new map
    restock 14
    wait 250
    target 'TmapPouch1'
    wait 1000
    clearsysmsg
    
    // use itemid on tmap to get
    // location number into sysmsg
    skill 'itemid'
    wait 250
    targettype '5356' backpack
    wait 8000
    
    script 'TmapSortDrop'
    This will pick up the map and drop it into the appropriate location. I tried to create a pleasant appearance to the way that the maps are placed in the bag, and the results are......acceptable.
    Code:
    lifttype  '5356' backpack
    wait 1000
    
    // Sort map by location number
    // into pre-specified bags
    
    // Ocllo Island maps 191-200
    if insysmsg '200'
        drop 'OclloBag' 100 100 0
    elseif insysmsg '199'
        drop 'OclloBag' 50 100 0
    elseif insysmsg '198'
        drop 'OclloBag' 0 100 0
    elseif insysmsg '197'
        drop 'OclloBag' 100 50 0
    elseif insysmsg '196'
        drop 'OclloBag' 67 50 0
    elseif insysmsg '195'
        drop 'OclloBag' 33 50 0
    elseif insysmsg '194'
        drop 'OclloBag' 0 50 0
    elseif insysmsg '193'
        drop 'OclloBag' 100 0 0
    elseif insysmsg '192'
        drop 'OclloBag' 50 0 0
    elseif insysmsg '191'
        drop 'OclloBag' 0 0 0
    
    // Fire Island maps 177-190
    elseif insysmsg '190'
        drop 'FireIsleBag' 100 100 0
    elseif insysmsg '189'
        drop 'FireIsleBag' 75 100 0
    elseif insysmsg '188'
        drop 'FireIsleBag' 50 100 0
    elseif insysmsg '187'
        drop 'FireIsleBag' 25 100 0
    elseif insysmsg '186'
        drop 'FireIsleBag' 0 100 0
    elseif insysmsg '185'
        drop 'FireIsleBag' 100 50 0
    elseif insysmsg '184'
        drop 'FireIsleBag' 67 50 0
    elseif insysmsg '183'
        drop 'FireIsleBag' 33 50 0
    elseif insysmsg '182'
        drop 'FireIsleBag' 0 50 0
    elseif insysmsg '181'
        drop 'FireIsleBag' 100 0 0
    elseif insysmsg '180'
        drop 'FireIsleBag' 75 0 0
    elseif insysmsg '179'
        drop 'FireIsleBag' 50 0 0
    elseif insysmsg '178'
        drop 'FireIsleBag' 25 0 0
    elseif insysmsg '177'
        drop 'FireIsleBag' 0 0 0
    
    // Valoe Island maps 167-176
    elseif insysmsg '176'
        drop 'ValorIsleBag' 100 100 0
    elseif insysmsg '175'
        drop 'ValorIsleBag' 50 100 0
    elseif insysmsg '174'
        drop 'ValorIsleBag' 0 100 0
    elseif insysmsg '173'
        drop 'ValorIsleBag' 100 50 0
    elseif insysmsg '172'
        drop 'ValorIsleBag' 67 50 0
    elseif insysmsg '171'
        drop 'ValorIsleBag' 33 50 0
    elseif insysmsg '170'
        drop 'ValorIsleBag' 0 50 0
    elseif insysmsg '169'
        drop 'ValorIsleBag' 100 0 0
    elseif insysmsg '168'
        drop 'ValorIsleBag' 50 0 0
    elseif insysmsg '167'
        drop 'ValorIsleBag' 0 0 0
    
    // Amoeba Island maps 161-166
    elseif insysmsg '166'
        drop 'AmoebaIsleBag' 67 100 0
    elseif insysmsg '165'
        drop 'AmoebaIsleBag' 0 100 0
    elseif insysmsg '164'
        drop 'AmoebaIsleBag' 100 50 0
    elseif insysmsg '163'
        drop 'AmoebaIsleBag' 33 50 0
    elseif insysmsg '162'
        drop 'AmoebaIsleBag' 67 0 0
    elseif insysmsg '161'
        drop 'AmoebaIsleBag' 0 0 0
    
    // Serpent's Hold maps 155-160
    elseif insysmsg '160'
        drop 'SerpsHoldBag' 67 100 0
    elseif insysmsg '159'
        drop 'SerpsHoldBag' 0 100 0
    elseif insysmsg '158'
        drop 'SerpsHoldBag' 100 50 0
    elseif insysmsg '157'
        drop 'SerpsHoldBag' 33 50 0
    elseif insysmsg '156'
        drop 'SerpsHoldBag' 67 0 0
    elseif insysmsg '155'
        drop 'SerpsHoldBag' 0 0 0
    
    // Temple Island maps 151-154
    elseif insysmsg '154'
        drop 'TempleIsleBag' 100 100 0
    elseif insysmsg '153'
        drop 'TempleIsleBag' 0 100 0
    elseif insysmsg '152'
        drop 'TempleIsleBag' 100 0 0
    elseif insysmsg '151'
        drop 'TempleIsleBag' 0 0 0
    
    // Bald Island maps 147-150
    elseif insysmsg '150'
        drop 'BaldIsleBag' 100 100 0
    elseif insysmsg '149'
        drop 'BaldIsleBag' 0 100 0
    elseif insysmsg '148'
        drop 'BaldIsleBag' 100 0 0
    elseif insysmsg '147'
        drop 'BaldIsleBag' 0 0 0
    
    // South of Trinsic maps 143-146
    elseif insysmsg '146'
        drop 'DeepSouthBag' 100 100 0
    elseif insysmsg '145'
        drop 'DeepSouthBag' 0 100 0
    elseif insysmsg '144'
        drop 'DeepSouthBag' 100 0 0
    elseif insysmsg '143'
        drop 'DeepSouthBag' 0 0 0
    
    // North Jhelom maps 139-142
    elseif insysmsg '142'
        drop 'NorthJhelomBag' 100 100 0
    elseif insysmsg '141'
        drop 'NorthJhelomBag' 0 100 0
    elseif insysmsg '140'
        drop 'NorthJhelomBag' 100 0 0
    elseif insysmsg '139'
        drop 'NorthJhelomBag' 0 0 0
    
    // Dragon Island maps 133-138
    elseif insysmsg '138'
        drop 'DragonIsleBag' 67 100 0
    elseif insysmsg '137'
        drop 'DragonIsleBag' 0 100 0
    elseif insysmsg '136'
        drop 'DragonIsleBag' 100 50 0
    elseif insysmsg '135'
        drop 'DragonIsleBag' 33 50 0
    elseif insysmsg '134'
        drop 'DragonIsleBag' 67 0 0
    elseif insysmsg '133'
        drop 'DragonIsleBag' 0 0 0
    
    // West Trinsic maps 128-132
    elseif insysmsg '132'
        drop 'WestTrinsicBag' 100 100 0
    elseif insysmsg '131'
        drop 'WestTrinsicBag' 0 100 0
    elseif insysmsg '130'
        drop 'WestTrinsicBag' 50 50 0
    elseif insysmsg '129'
        drop 'WestTrinsicBag' 100 0 0
    elseif insysmsg '128'
        drop 'WestTrinsicBag' 0 0 0
    
    // Destard region maps 122-127
    elseif insysmsg '127'
        drop 'DestardBag' 67 100 0
    elseif insysmsg '126'
        drop 'DestardBag' 0 100 0
    elseif insysmsg '125'
        drop 'DestardBag' 100 50 0
    elseif insysmsg '124'
        drop 'DestardBag' 33 50 0
    elseif insysmsg '123'
        drop 'DestardBag' 67 0 0
    elseif insysmsg '122'
        drop 'DestardBag' 0 0 0
    
    // Bucaneer's Den eastern island
    // maps 117-121
    elseif insysmsg '121'
        drop 'BucsEastBag' 100 100 0
    elseif insysmsg '120'
        drop 'BucsEastBag' 0 100 0
    elseif insysmsg '119'
        drop 'BucsEastBag' 50 50 0
    elseif insysmsg '118'
        drop 'BucsEastBag' 100 0 0
    elseif insysmsg '117'
        drop 'BucsEastBag' 0 0 0
    
    // Bucaneer's Den maps 109-116
    elseif insysmsg '116'
        drop 'BucsDenBag' 100 100 0
    elseif insysmsg '115'
        drop 'BucsDenBag' 50 100 0
    elseif insysmsg '114'
        drop 'BucsDenBag' 0 100 0
    elseif insysmsg '113'
        drop 'BucsDenBag' 67 50 0
    elseif insysmsg '112'
        drop 'BucsDenBag' 33 50 0
    elseif insysmsg '111'
        drop 'BucsDenBag' 100 0 0
    elseif insysmsg '110'
        drop 'BucsDenBag' 50 0 0
    elseif insysmsg '109'
        drop 'BucsDenBag' 0 0 0
    
    // Horseshoe Island maps 99-108
    elseif insysmsg '108'
        drop 'HorseshoeIsleBag' 100 100 0
    elseif insysmsg '107'
        drop 'HorseshoeIsleBag' 50 100 0
    elseif insysmsg '106'
        drop 'HorseshoeIsleBag' 0 100 0
    elseif insysmsg '105'
        drop 'HorseshoeIsleBag' 100 50 0
    elseif insysmsg '104'
        drop 'HorseshoeIsleBag' 67 50 0
    elseif insysmsg '103'
        drop 'HorseshoeIsleBag' 33 50 0
    elseif insysmsg '102'
        drop 'HorseshoeIsleBag' 0 50 0
    elseif insysmsg '101'
        drop 'HorseshoeIsleBag' 100 0 0
    elseif insysmsg '100'
        drop 'HorseshoeIsleBag' 50 0 0
    elseif insysmsg '99'
        drop 'HorseshoeIsleBag' 0 0 0
    
    // South Brit maps 75-98
    elseif insysmsg '98'
        drop 'SouthBritBag' 100 100 0
    elseif insysmsg '97'
        drop 'SouthBritBag' 80 100 0
    elseif insysmsg '96'
        drop 'SouthBritBag' 60 100 0
    elseif insysmsg '95'
        drop 'SouthBritBag' 40 100 0
    elseif insysmsg '94'
        drop 'SouthBritBag' 20 100 0
    elseif insysmsg '93'
        drop 'SouthBritBag' 0 100 0
    elseif insysmsg '92'
        drop 'SouthBritBag' 100 67 0
    elseif insysmsg '91'
        drop 'SouthBritBag' 80 67 0
    elseif insysmsg '90'
        drop 'SouthBritBag' 60 67 0
    elseif insysmsg '89'
        drop 'SouthBritBag' 40 67 0
    elseif insysmsg '88'
        drop 'SouthBritBag' 20 67 0
    elseif insysmsg '87'
        drop 'SouthBritBag' 0 0 0
    elseif insysmsg '86'
        drop 'SouthBritBag' 100 33 0
    elseif insysmsg '85'
        drop 'SouthBritBag' 80 33 0
    elseif insysmsg '84'
        drop 'SouthBritBag' 60 33 0
    elseif insysmsg '83'
        drop 'SouthBritBag' 40 33 0
    elseif insysmsg '82'
        drop 'SouthBritBag' 20 33 0
    elseif insysmsg '81'
        drop 'SouthBritBag' 0 33 0
    elseif insysmsg '80'
        drop 'SouthBritBag' 100 0 0
    elseif insysmsg '79'
        drop 'SouthBritBag' 80 0 0
    elseif insysmsg '78'
        drop 'SouthBritBag' 60 0 0
    elseif insysmsg '77'
        drop 'SouthBritBag' 40 0 0
    elseif insysmsg '76'
        drop 'SouthBritBag' 20 0 0
    elseif insysmsg '75'
        drop 'SouthBritBag' 0 0 0
    
    // Blanche Island map 74
    // Why did I bother making this
    // its own category?
    elseif insysmsg '74'
        drop 'BlancheIsleBag' 50 50 0
    
    // Ocarina Island 65-73
    elseif insysmsg '73'
        drop 'OcarinaIsleBag' 100 100 0
    elseif insysmsg '72'
        drop 'OcarinaIsleBag' 50 100 0
    elseif insysmsg '71'
        drop 'OcarinaIsleBag' 0 100 0
    elseif insysmsg '70'
        drop 'OcarinaIsleBag' 100 50 0
    elseif insysmsg '69'
        drop 'OcarinaIsleBag' 50 50 0
    elseif insysmsg '68'
        drop 'OcarinaIsleBag' 0 50 0
    elseif insysmsg '67'
        drop 'OcarinaIsleBag' 100 0 0
    elseif insysmsg '66'
        drop 'OcarinaIsleBag' 50 0 0
    elseif insysmsg '65'
        drop 'OcarinaIsleBag' 0 0 0
    
    // Eiffel Island maps 58-64
    elseif insysmsg '64'
        drop 'EiffelIsleBag' 67 100 0
    elseif insysmsg '63'
        drop 'EiffelIsleBag' 33 100 0
    elseif insysmsg '62'
        drop 'EiffelIsleBag' 100 50 0
    elseif insysmsg '61'
        drop 'EiffelIsleBag' 50 50 0
    elseif insysmsg '60'
        drop 'EiffelIsleBag' 0 50 0
    elseif insysmsg '59'
        drop 'EiffelIsleBag' 67 0 0
    elseif insysmsg '58'
        drop 'EiffelIsleBag' 33 0 0
    
    // Iver's Rounding maps 53-57
    // (Island next to Skara Brae)
    elseif insysmsg '57'
        drop 'IversRoundingBag' 100 100 0
    elseif insysmsg '56'
        drop 'IversRoundingBag' 0 100 0
    elseif insysmsg '55'
        drop 'IversRoundingBag' 50 50 0
    elseif insysmsg '54'
        drop 'IversRoundingBag' 100 0 0
    elseif insysmsg '53'
        drop 'IversRoundingBag' 0 0 0
    
    // Brit Crossroads maps 40-52
    elseif insysmsg '52'
        drop 'CrossroadsBag' 88 100 0
    elseif insysmsg '51'
        drop 'CrossroadsBag' 63 100 0
    elseif insysmsg '50'
        drop 'CrossroadsBag' 37 100 0
    elseif insysmsg '49'
        drop 'CrossroadsBag' 12 100 0
    elseif insysmsg '48'
        drop 'CrossroadsBag' 100 50 0
    elseif insysmsg '47'
        drop 'CrossroadsBag' 75 50 0
    elseif insysmsg '46'
        drop 'CrossroadsBag' 50 50 0
    elseif insysmsg '45'
        drop 'CrossroadsBag' 25 50 0
    elseif insysmsg '44'
        drop 'CrossroadsBag' 0 50 0
    elseif insysmsg '43'
        drop 'CrossroadsBag' 88 0 0
    elseif insysmsg '42'
        drop 'CrossroadsBag' 63 0 0
    elseif insysmsg '41'
        drop 'CrossroadsBag' 37 0 0
    elseif insysmsg '40'
        drop 'CrossroadsBag' 12 0 0
    
    // Shame region maps 34-39
    elseif insysmsg '39'
        drop 'ShameBag' 67 100 0
    elseif insysmsg '38'
        drop 'ShameBag' 0 100 0
    elseif insysmsg '37'
        drop 'ShameBag' 100 50 0
    elseif insysmsg '36'
        drop 'ShameBag' 33 50 0
    elseif insysmsg '35'
        drop 'ShameBag' 67 0 0
    elseif insysmsg '34'
        drop 'ShameBag' 0 0 0
    
    // Covetous region maps 21-29
    elseif insysmsg '29'
        drop 'CovetousBag' 100 100 0
    elseif insysmsg '28'
        drop 'CovetousBag' 50 100 0
    elseif insysmsg '27'
        drop 'CovetousBag' 0 100 0
    elseif insysmsg '26'
        drop 'CovetousBag' 100 50 0
    elseif insysmsg '25'
        drop 'CovetousBag' 50 50 0
    elseif insysmsg '24'
        drop 'CovetousBag' 0 50 0
    elseif insysmsg '23'
        drop 'CovetousBag' 100 0 0
    elseif insysmsg '22'
        drop 'CovetousBag' 50 0 0
    elseif insysmsg '21'
        drop 'CovetousBag' 0 0 0
    
    // Valley of Chaos maps 14-20
    elseif insysmsg '20'
        drop 'ValleyofChaosBag' 67 100 0
    elseif insysmsg '19'
        drop 'ValleyofChaosBag' 33 100 0
    elseif insysmsg '18'
        drop 'ValleyofChaosBag' 100 50 0
    elseif insysmsg '17'
        drop 'ValleyofChaosBag' 50 50 0
    elseif insysmsg '16'
        drop 'ValleyofChaosBag' 0 50 0
    elseif insysmsg '15'
        drop 'ValleyofChaosBag' 67 0 0
    elseif insysmsg '14'
        drop 'ValleyofChaosBag' 33 0 0
    
    // Minoc maps 6-12, 30-33
    elseif insysmsg '33'
        drop 'MinocBag' 100 100 0
    elseif insysmsg '32'
        drop 'MinocBag' 67 100 0
    elseif insysmsg '31'
        drop 'MinocBag' 33 100 0
    elseif insysmsg '30'
        drop 'MinocBag' 0 100 0
    elseif insysmsg '12'
        drop 'MinocBag' 84 50 0
    elseif insysmsg '11'
        drop 'MinocBag' 50 50 0
    elseif insysmsg '10'
        drop 'MinocBag' 16 50 0
    elseif insysmsg '9'
        drop 'MinocBag' 100 0 0
    elseif insysmsg '8'
        drop 'MinocBag' 67 0 0
    elseif insysmsg '7'
        drop 'MinocBag' 33 0 0
    elseif insysmsg '6'
        drop 'MinocBag' 0 0 0
    
    // North Yew maps 1-5, 13
    elseif insysmsg '13'
        drop 'NorthYewBag' 67 100 0
    elseif insysmsg '5'
        drop 'NorthYewBag' 0 100 0
    elseif insysmsg '4'
        drop 'NorthYewBag' 100 50 0
    elseif insysmsg '3'
        drop 'NorthYewBag' 33 50 0
    elseif insysmsg '2'
        drop 'NorthYewBag' 67 0 0
    else
        drop 'NorthYewBag' 0 0 0
    endif
    
    wait 1000
    clearsysmsg
    script 'TmapSortStart'
    Happy treasure hunting, y'all!
    Draccus, Buga and Keza like this.
  2. Lunzignanti

    Lunzignanti New Member

    Joined:
    May 8, 2022
    Messages:
    25
    Likes Received:
    10
    This is amazing thank you. Would you also happen to have a restock all or organize agents? Targeting individual items is brutal.

Share This Page