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