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.
1overhead 'Select MapBook'
2@setvar 'MapBook'
3
4@removelist 'ToolHues'
5@createlist 'ToolHues'
6@removelist 'MapHues'
7@createlist 'MapHues'
8@removelist 'MapGumps'
9@createlist 'MapGumps'
10
11pushlist 'ToolHues' 0
12pushlist 'ToolHues' 2419
13pushlist 'ToolHues' 2406
14pushlist 'ToolHues' 2413
15pushlist 'ToolHues' 2418
16pushlist 'ToolHues' 2213
17pushlist 'ToolHues' 2425
18pushlist 'ToolHues' 2207
19pushlist 'ToolHues' 2219
20pushlist 'ToolHues' 1763
21
22pushlist 'MapHues' 0
23pushlist 'MapHues' 2091
24pushlist 'MapHues' 2904
25pushlist 'MapHues' 2651
26pushlist 'MapHues' 2799
27pushlist 'MapHues' 2796
28
29pushlist 'MapGumps' 1520869851 'front'
30pushlist 'MapGumps' 1520869851 'front'
31pushlist 'MapGumps' 2589357942 'front'
32pushlist 'MapGumps' 3473029237 'front'
33pushlist 'MapGumps' 1332805401 'front'
34pushlist 'MapGumps' 3367641484 'front'
35
36foreach 'Color' in 'MapHues'
37 foreach 'x' in 'MapGumps'
38 @setvar 'Gump' 'x'
39 endfor
40 poplist 'MapGumps' 'back'
41
42 while findtype '5356' 'backpack' 'Color' as 'Map'
43 while find 'Map' 'backpack'
44
45 if not find 'Tool1' 'backpack'
46 foreach 'y' in 'ToolHues'
47 if @findtype '5365' 'backpack' 'y' as 'found' and not find 'Tool1' 'backpack'
48 @setvar 'Tool1' 'found'
49 @setvar 'Hue1' 'y'
50 endif
51 endfor
52 endif
53 if not find 'Tool1' 'backpack'
54 overhead 'Low End Tool not found' 33
55 stop
56 endif
57 if not find 'Tool2' 'backpack'
58 foreach 'y' in 'ToolHues'
59 if @findtype '5365' 'backpack' 'y' as 'found'
60 @setvar 'Tool2' 'found'
61 @setvar 'Hue2' 'y'
62 endif
63 endfor
64 endif
65 if not find 'Tool2' 'backpack'
66 overhead 'High End Tool not found' 33
67 stop
68 endif
69
70 overhead 'Using Low End Tool' 'Hue1'
71 clearsysmsg
72 dclick 'Tool1'
73 pause 100
74 wft 5000
75 target 'Map'
76 pause 100
77 waitforgump 'Gump'
78 gumpresponse 4
79 pause 1500
80
81 if insysmsg 'You have reached the maximum'
82 clearsysmsg
83 pause 1000
84 while find 'Map' 'backpack' and find 'Tool2' 'backpack'
85 overhead 'Using High End Tool' 'Hue2'
86 clearsysmsg
87 dclick 'Tool2'
88 pause 100
89 wft 5000
90 target 'Map'
91 pause 100
92 waitforgump 'Gump'
93 gumpresponse 4
94 pause 1500
95
96 if insysmsg 'You have reached the maximum accuracy'
97 overhead 'Map Decoded!' 88
98 pause 100
99 lift 'Map' 9999
100 drop 'MapBook'
101 pause 500
102 endif
103 endwhile
104 endif
105 endwhile
106 endwhile
107endfor
