Back to "b" tags

Grab items off shelf for boating by Jaseowns

1# Grab items off shelf for boating by Jaseowns
2# UO Outlands
3# Easy way to get items off shelf with no loadout (boat edition)
4
5gumpclose 3232825965
6
7@setvar! jaseowns_MaxCannonBallCountWeWantToGrab 150
8@setvar! jaseowns_MaxShipRepairKitCountWeWantToGrab 20
9@setvar! jaseowns_MaxBoardingRopesCountWeWantToGrab 20
10@setvar! jaseowns_MaxBigBombCountWeWantToGrab 5
11
12@setvar! jaseowns_HelperTextTimerCD 2000
13settimer jaseowns_HelperTextTimer jaseowns_HelperTextTimerCD
14
15if findtype "storage shelf" ground -1 -1 2 as jhelf
16
17    clearsysmsg 
18
19    dclick jhelf
20    waitforgump 3232825965 5000
21
22    # is going to next page
23    gumpresponse 21 3232825965
24    waitforgump 3232825965 5000
25
26    # is going to ships
27    gumpresponse 54 3232825965
28    waitforgump 3232825965 5000
29
30    # Check for Retrieve One
31    if ingump "Retrieve One" 3232825965
32       // do nothing
33    else
34        gumpresponse 23 3232825965
35    endif
36
37    settimer jaseowns_HelperTextTimer jaseowns_HelperTextTimerCD
38    
39    # cannon balls
40    while counttype 3699 backpack 2492 < jaseowns_MaxCannonBallCountWeWantToGrab
41        gumpresponse 130 3232825965
42        waitforgump 3232825965 5000
43        if timer jaseowns_HelperTextTimer >= jaseowns_HelperTextTimerCD
44            overhead "Grabbing Cannon balls" 88
45            sysmsg "Grabbing Cannon balls" 88
46            settimer jaseowns_HelperTextTimer 0
47        endif
48        if insysmsg "That item is unavailable."
49            overhead "Out of Cannon balls" 34
50            sysmsg "Out of Cannon balls" 34
51            break
52        endif
53    endwhile
54    
55    # ship repair kit
56    while counttype 25758 backpack 0 < jaseowns_MaxShipRepairKitCountWeWantToGrab
57        gumpresponse 131 3232825965
58        waitforgump 3232825965 5000
59        if timer jaseowns_HelperTextTimer >= jaseowns_HelperTextTimerCD
60            overhead "Grabbing repair kits" 88
61            sysmsg "Grabbing repair kits" 88
62            settimer jaseowns_HelperTextTimer 0
63        endif
64        if insysmsg "That item is unavailable."
65            overhead "Out of repair kits" 34
66            sysmsg "Out of repair kits" 34
67            break
68        endif
69    endwhile
70    
71    settimer jaseowns_HelperTextTimer jaseowns_HelperTextTimerCD
72    
73    # boarding rope
74    while counttype 5370 backpack 0 < jaseowns_MaxBoardingRopesCountWeWantToGrab
75        gumpresponse 132 3232825965
76        waitforgump 3232825965 5000
77        if timer jaseowns_HelperTextTimer >= jaseowns_HelperTextTimerCD
78            overhead "Grabbing boarding ropes" 88
79            sysmsg "Grabbing boarding ropes" 88
80            settimer jaseowns_HelperTextTimer 0
81        endif
82        if insysmsg "That item is unavailable."
83            overhead "Out of boarding ropes" 34
84            sysmsg "Out of boarding ropes" 34
85            break
86        endif
87    endwhile
88    
89    settimer jaseowns_HelperTextTimer jaseowns_HelperTextTimerCD
90    
91    # big bombs
92    while counttype 5188 backpack 2825 < jaseowns_MaxBigBombCountWeWantToGrab
93        gumpresponse 132 3232825965
94        waitforgump 3232825965 5000
95        if timer jaseowns_HelperTextTimer >= jaseowns_HelperTextTimerCD
96            overhead "Grabbing big bombs" 88
97            sysmsg "Grabbing big bombs" 88
98            settimer jaseowns_HelperTextTimer 0
99        endif
100        if insysmsg "That item is unavailable."
101            overhead "Out of big bombs" 34
102            sysmsg "Out of big bombs" 34
103            break
104        endif
105    endwhile
106
107endif
108
109