Decipher Maps by jfrostp
Related: Cartography
Description: Deciphers all undeciphered or partially-deciphered maps in your backpack. Also drops any ore maps into an ore tome in your backpack if you have one.
1@clearignore
2@cleardragdrop
3for 5
4 gumpclose
5endfor
6
7while findtype 5356 backpack as map
8 getlabel map mapLabel
9 if "100.0%" in mapLabel
10 else
11 if findtype 'spyglass' backpack
12 usetype 'spyglass'
13 waitfortarget
14 target map
15 waitforgump 'any'
16 gumpresponse 4
17 else
18 overhead "No Spyglass!"
19 stop
20 endif
21
22 setvar! mapDone 0
23 while mapDone = 0
24 gumpresponse 4
25 wait 1750
26 if insysmsg 'do not have any spyglasses of that'
27 gumpclose
28 wait 500
29 if findtype 'spyglass' backpack
30 dclicktype 'spyglass'
31 waitfortarget 300
32 target 'map'
33 waitforgump 'any'
34 gumpresponse 4
35 wait 1750
36 else
37 overhead "No spyglass!" 55
38 stop
39 endif
40 endif
41
42 getlabel map mapLabel
43 if "100.0%" in mapLabel
44 setvar! mapDone 1
45 elseif insysmsg 'you have reached'
46 setvar! mapDone 1
47 endif
48 endwhile
49 endif
50
51 gumpclose
52 if findtype 29104 true 2796 as tome
53 lift map
54 wait 350
55 drop tome
56 wait 350
57 endif
58
59 @ignore map
60endwhile
61gumpclose
62removelist 'maps'
63overhead "All maps decoded!"
64@clearignore
65@cleardragdrop