Training Cartography and Selling Maps by Jaseowns

1# Training Cartography from Horseshoe Bay by Jaseowns
2# UO Outlands = https://youtu.be/k5oVW2HwJi8
3# Requirements:  Tons of blank maps, 40+ map maker pens
4#   restock agent 5   as      10 maps and 2 map maker pens
5#   sell agent        as      map and enabled
6####
7# UPDATED September 17th 2022 to no longer need counters
8####
9# Additional Info: 
10#   At the time of writing this script, the map maker is serial 0xAF5DF for Brad
11#   if Brad is no longer there, use >info on the map maker and update line 18
12#   Put your max skill on line 13 if you want to go beyond 100 skill.
13if skill 'cartography' >= 100
14    overhead 'Hit max!' 88
15    stop
16endif
17
18@setvar! mapMakerVendorId 0xAF5DF
19
20// sell if the maps we have in our backpack are used and not blank
21if counttype 5356 backpack 2669 > 0 and counttype 5356 backpack 2955 = 0
22    overhead 'Selling to Brad the mapmaker'
23    menu mapMakerVendorId 2
24    wait 2000
25    if counttype 5356 backpack 2669 > 0
26        overhead "Make sure your sell agent is active and set to map!" 34
27        wait 2000
28        replay
29    endif
30endif
31
32gumpclose 949095101
33if counttype 5356 backpack 2955 < 10 or not findtype "pen and ink" backpack
34    restock 5
35    waitfortarget 
36    hotkey 'Target Self'
37    wait 2000
38endif
39
40if not findtype "pen and ink" backpack
41    overhead "No map maker pen found!" 34
42    overhead "Make sure restock agent 5 is set as maps & pens" 88
43    wait 1000
44    replay
45endif
46
47if counttype 5356 backpack 2955 = 0
48    overhead "No blank maps" 34
49    overhead "Make sure restock agent 5 is set as maps & pens" 88
50    wait 1000
51    replay
52endif
53
54if skill 'cartography' < 50
55    overhead 'Train at vendor'
56    wait 1000
57    replay
58endif
59
60while skill 'cartography' < 75 and counttype 5356 backpack 2955 > 0 and findtype 'pen and ink' backpack
61    gumpclose 949095101
62    overhead '50-75 City Map'
63    dclicktype 'pen and ink' backpack
64    waitforgump 949095101 
65    gumpresponse 100 949095101
66    waitforgump 949095101 
67    gumpresponse 201 949095101
68    waitforgump 949095101
69    wait 3500
70endwhile
71
72while skill 'cartography' < 100 and counttype 5356 backpack 2955 > 0 and findtype 'pen and ink' backpack
73    gumpclose 
74    overhead '75-100 Regional Map'
75    dclicktype 'pen and ink' backpack
76    waitforgump 949095101 
77    gumpresponse 100 949095101
78    waitforgump 949095101 
79    gumpresponse 202 949095101
80    waitforgump 949095101
81    wait 3500
82endwhile
83
84while skill 'cartography' < 120 and counttype 5356 backpack 2955 > 0 and findtype 'pen and ink' backpack
85    gumpclose 
86    overhead '100-120 World Map'
87    dclicktype 'pen and ink' backpack
88    waitforgump 949095101 
89    gumpresponse 100 949095101
90    waitforgump 949095101 
91    gumpresponse 203 949095101
92    waitforgump 949095101
93    wait 3500
94endwhile
95
96loop