Map Decoder by AreYouKidden🐲
Description: Will decode all maps in backpack, and put them in MapBook (or container) that you select using the lowest quality spyglass in your backpack to decode to max, then finishing it off with the highest quality spyglass.
Suggested Use: One type of map at a time so you can select the mapbook.
overhead 'Select MapBook' @setvar 'MapBook' @removelist 'ToolHues' @createlist 'ToolHues' @removelist 'MapHues' @createlist 'MapHues' @removelist 'MapGumps' @createlist 'MapGumps' pushlist 'ToolHues' 0 pushlist 'ToolHues' 2419 pushlist 'ToolHues' 2406 pushlist 'ToolHues' 2413 pushlist 'ToolHues' 2418 pushlist 'ToolHues' 2213 pushlist 'ToolHues' 2425 pushlist 'ToolHues' 2207 pushlist 'ToolHues' 2219 pushlist 'ToolHues' 1763 pushlist 'MapHues' 0 pushlist 'MapHues' 2091 pushlist 'MapHues' 2904 pushlist 'MapHues' 2651 pushlist 'MapHues' 2799 pushlist 'MapHues' 2796 pushlist 'MapGumps' 1520869851 'front' pushlist 'MapGumps' 1520869851 'front' pushlist 'MapGumps' 2589357942 'front' pushlist 'MapGumps' 3473029237 'front' pushlist 'MapGumps' 1332805401 'front' pushlist 'MapGumps' 3367641484 'front' foreach 'Color' in 'MapHues' foreach 'x' in 'MapGumps' @setvar 'Gump' 'x' endfor poplist 'MapGumps' 'back' while findtype '5356' 'backpack' 'Color' as 'Map' while find 'Map' 'backpack' if not find 'Tool1' 'backpack' foreach 'y' in 'ToolHues' if @findtype '5365' 'backpack' 'y' as 'found' and not find 'Tool1' 'backpack' @setvar 'Tool1' 'found' @setvar 'Hue1' 'y' endif endfor endif if not find 'Tool1' 'backpack' overhead 'Low End Tool not found' 33 stop endif if not find 'Tool2' 'backpack' foreach 'y' in 'ToolHues' if @findtype '5365' 'backpack' 'y' as 'found' @setvar 'Tool2' 'found' @setvar 'Hue2' 'y' endif endfor endif if not find 'Tool2' 'backpack' overhead 'High End Tool not found' 33 stop endif overhead 'Using Low End Tool' 'Hue1' clearsysmsg dclick 'Tool1' pause 100 wft 5000 target 'Map' pause 100 waitforgump 'Gump' gumpresponse 4 pause 1500 if insysmsg 'You have reached the maximum' clearsysmsg pause 1000 while find 'Map' 'backpack' and find 'Tool2' 'backpack' overhead 'Using High End Tool' 'Hue2' clearsysmsg dclick 'Tool2' pause 100 wft 5000 target 'Map' pause 100 waitforgump 'Gump' gumpresponse 4 pause 1500 if insysmsg 'You have reached the maximum accuracy' overhead 'Map Decoded!' 88 pause 100 lift 'Map' 9999 drop 'MapBook' pause 500 endif endwhile endif endwhile endwhile endfor
