Back to "b" tags

One key to recall to next rune in book (R) by Jaseowns

1# One key to recall to next rune in book by Jaseowns
2# UO Outlands
3
4if not varexist recallNextRunePosition
5    @setvar! recallNextRunePosition 0
6endif
7
8if recallNextRunePosition = 0
9    @setvar! recallNextRunePosition 1
10elseif recallNextRunePosition = 1
11    @setvar! recallNextRunePosition 2
12elseif recallNextRunePosition = 2
13    @setvar! recallNextRunePosition 3
14elseif recallNextRunePosition = 3
15    @setvar! recallNextRunePosition 4
16elseif recallNextRunePosition = 4
17    @setvar! recallNextRunePosition 5
18elseif recallNextRunePosition = 5
19    @setvar! recallNextRunePosition 6
20elseif recallNextRunePosition = 6
21    @setvar! recallNextRunePosition 7
22elseif recallNextRunePosition = 7
23    @setvar! recallNextRunePosition 8
24elseif recallNextRunePosition = 8
25    @setvar! recallNextRunePosition 9
26elseif recallNextRunePosition = 9
27    @setvar! recallNextRunePosition 10
28elseif recallNextRunePosition = 10
29    @setvar! recallNextRunePosition 11
30elseif recallNextRunePosition = 11
31    @setvar! recallNextRunePosition 12
32elseif recallNextRunePosition = 12
33    @setvar! recallNextRunePosition 13
34elseif recallNextRunePosition = 13
35    @setvar! recallNextRunePosition 14
36elseif recallNextRunePosition = 14
37    @setvar! recallNextRunePosition 15
38elseif recallNextRunePosition = 15
39    @setvar! recallNextRunePosition 16
40elseif recallNextRunePosition = 16
41    @setvar! recallNextRunePosition 17
42elseif recallNextRunePosition = 17
43    @setvar! recallNextRunePosition 18
44elseif recallNextRunePosition = 18
45    @setvar! recallNextRunePosition 19
46elseif recallNextRunePosition = 19
47    @setvar! recallNextRunePosition 20
48elseif recallNextRunePosition = 20
49    @setvar! recallNextRunePosition 21
50elseif recallNextRunePosition = 21
51    @setvar! recallNextRunePosition 22
52elseif recallNextRunePosition = 22
53    @setvar! recallNextRunePosition 23
54elseif recallNextRunePosition = 23
55    @setvar! recallNextRunePosition 24
56elseif recallNextRunePosition = 24
57    @setvar! recallNextRunePosition 25
58elseif recallNextRunePosition = 25
59    @setvar! recallNextRunePosition 26
60elseif recallNextRunePosition = 26
61    @setvar! recallNextRunePosition 1
62endif
63
64
65if not findtype "runebook" backpack and not findtype "runetome" backpack
66    overhead "We do not have a runebook or runetome" 34
67    stop
68endif
69
70if not varexist farmingBook
71    if counttype "runebook" backpack = 1 and counttype "runetome" backpack = 0 and findtype "runebook" backpack as myBook
72        overhead "Automatically selected your one runebook" 88
73        @setvar farmingBook myBook
74    elseif counttype "runebook" backpack = 0 and counttype "runetome" backpack = 1 and findtype "runetome" backpack as myBook
75        overhead "Automatically selected your one runetome" 88
76        @setvar farmingBook myBook
77    else
78        overhead "Select your farming book (runebook or runetome)" 88
79        @setvar farmingBook 
80    endif
81endif
82
83if farmingBook = 0 or not find farmingBook backpack
84    unsetvar farmingBook
85    replay
86endif
87
88if mana < 12
89    overhead "Need more mana... trying again" 34
90    wait 500
91    replay
92endif
93
94
95
96@setvar! escapePlanUseMagery 0
97if skill "Magery" >= 60
98    if counttype "Black Pearl%s%" self >= 1 and counttype "Blood Moss" self >= 1 and counttype "Mandrake Root%s%" self >= 1
99        @setvar! escapePlanUseMagery 1
100    else
101        if findtype "reagent satchel" self as satchel
102            if counttype "Black Pearl%s%" satchel >= 1 and counttype "Blood Moss" satchel >= 1 and counttype "Mandrake Root%s%" satchel >= 1
103                @setvar! escapePlanUseMagery 1
104            endif
105        endif
106        if escapePlanUseMagery = 0
107            overhead "No regs, using scroll instead" 34
108        endif
109    endif
110endif
111
112
113getlabel farmingBook desc
114@setvar! escapePlanGumpId 1551740969
115@setvar! secondaryGumpResponse 0
116if "rune tome" in desc
117    
118    if escapePlanUseMagery = 1 
119        if recallNextRunePosition = 1
120            @setvar! recallHomeGumpResponse 200
121        elseif recallNextRunePosition = 2
122            @setvar! recallHomeGumpResponse 201
123        elseif recallNextRunePosition = 3
124            @setvar! recallHomeGumpResponse 202
125        elseif recallNextRunePosition = 4
126            @setvar! recallHomeGumpResponse 203
127        elseif recallNextRunePosition = 5
128            @setvar! recallHomeGumpResponse 204
129        elseif recallNextRunePosition = 6
130            @setvar! recallHomeGumpResponse 205
131        elseif recallNextRunePosition = 7
132            @setvar! recallHomeGumpResponse 206
133        elseif recallNextRunePosition = 8
134            @setvar! recallHomeGumpResponse 207
135        elseif recallNextRunePosition = 9
136            @setvar! recallHomeGumpResponse 208
137        elseif recallNextRunePosition = 10
138            @setvar! recallHomeGumpResponse 209
139        elseif recallNextRunePosition = 11
140            @setvar! recallHomeGumpResponse 210
141        elseif recallNextRunePosition = 12
142            @setvar! recallHomeGumpResponse 211
143        elseif recallNextRunePosition = 13
144            @setvar! recallHomeGumpResponse 212
145        elseif recallNextRunePosition = 14
146            @setvar! recallHomeGumpResponse 213
147        elseif recallNextRunePosition = 15
148            @setvar! recallHomeGumpResponse 214
149        elseif recallNextRunePosition = 16
150            @setvar! recallHomeGumpResponse 215
151        elseif recallNextRunePosition = 16
152            @setvar! recallHomeGumpResponse 215
153        elseif recallNextRunePosition = 17
154            @setvar! recallHomeGumpResponse 216
155        elseif recallNextRunePosition = 18
156            @setvar! recallHomeGumpResponse 217
157        elseif recallNextRunePosition = 19
158            @setvar! recallHomeGumpResponse 218
159        elseif recallNextRunePosition = 20
160            @setvar! recallHomeGumpResponse 219
161        elseif recallNextRunePosition = 21
162            @setvar! recallHomeGumpResponse 220
163        elseif recallNextRunePosition = 22
164            @setvar! recallHomeGumpResponse 221
165        elseif recallNextRunePosition = 23
166            @setvar! recallHomeGumpResponse 222
167        elseif recallNextRunePosition = 24
168            @setvar! recallHomeGumpResponse 223
169        elseif recallNextRunePosition = 25
170            @setvar! recallHomeGumpResponse 224
171        elseif recallNextRunePosition = 26
172            @setvar! recallHomeGumpResponse 225
173        else
174            // default to start
175            @setvar! recallNextRunePosition 1
176            @setvar! recallHomeGumpResponse 200
177        endif
178
179        if recallHomeGumpResponse = 201 or recallHomeGumpResponse = 203 or recallHomeGumpResponse = 205 or recallHomeGumpResponse = 207 or recallHomeGumpResponse = 209 or recallHomeGumpResponse = 211 or recallHomeGumpResponse = 213 or recallHomeGumpResponse = 215 or recallHomeGumpResponse = 217 or recallHomeGumpResponse = 219 or recallHomeGumpResponse = 221 or recallHomeGumpResponse = 223 or recallHomeGumpResponse = 223 or recallHomeGumpResponse = 225
180            @setvar! secondaryGumpResponse 20
181        else 
182            @setvar! secondaryGumpResponse 10
183        endif
184    else
185        if recallNextRunePosition = 1
186            @setvar! recallHomeGumpResponse 100
187        elseif recallNextRunePosition = 2
188            @setvar! recallHomeGumpResponse 101
189        elseif recallNextRunePosition = 3
190            @setvar! recallHomeGumpResponse 102
191        elseif recallNextRunePosition = 4
192            @setvar! recallHomeGumpResponse 103
193        elseif recallNextRunePosition = 5
194            @setvar! recallHomeGumpResponse 104
195        elseif recallNextRunePosition = 6
196            @setvar! recallHomeGumpResponse 105
197        elseif recallNextRunePosition = 7
198            @setvar! recallHomeGumpResponse 106
199        elseif recallNextRunePosition = 8
200            @setvar! recallHomeGumpResponse 107
201        elseif recallNextRunePosition = 9
202            @setvar! recallHomeGumpResponse 108
203        elseif recallNextRunePosition = 10
204            @setvar! recallHomeGumpResponse 109
205        elseif recallNextRunePosition = 11
206            @setvar! recallHomeGumpResponse 110
207        elseif recallNextRunePosition = 12
208            @setvar! recallHomeGumpResponse 111
209        elseif recallNextRunePosition = 13
210            @setvar! recallHomeGumpResponse 112
211        elseif recallNextRunePosition = 14
212            @setvar! recallHomeGumpResponse 113
213        elseif recallNextRunePosition = 15
214            @setvar! recallHomeGumpResponse 114
215        elseif recallNextRunePosition = 16
216            @setvar! recallHomeGumpResponse 115
217        elseif recallNextRunePosition = 16
218            @setvar! recallHomeGumpResponse 115
219        elseif recallNextRunePosition = 17
220            @setvar! recallHomeGumpResponse 116
221        elseif recallNextRunePosition = 18
222            @setvar! recallHomeGumpResponse 117
223        elseif recallNextRunePosition = 19
224            @setvar! recallHomeGumpResponse 118
225        elseif recallNextRunePosition = 20
226            @setvar! recallHomeGumpResponse 119
227        elseif recallNextRunePosition = 21
228            @setvar! recallHomeGumpResponse 120
229        elseif recallNextRunePosition = 22
230            @setvar! recallHomeGumpResponse 121
231        elseif recallNextRunePosition = 23
232            @setvar! recallHomeGumpResponse 122
233        elseif recallNextRunePosition = 24
234            @setvar! recallHomeGumpResponse 123
235        elseif recallNextRunePosition = 25
236            @setvar! recallHomeGumpResponse 124
237        elseif recallNextRunePosition = 26
238            @setvar! recallHomeGumpResponse 125
239        else
240            // default to start
241            @setvar! recallNextRunePosition 1
242            @setvar! recallHomeGumpResponse 100
243        endif
244    endif
245
246
247    @setvar! escapePlanGumpId 167090027
248elseif "runebook" in desc
249
250    if escapePlanUseMagery = 1 
251        if recallNextRunePosition = 1
252            @setvar! recallHomeGumpResponse 5
253        elseif recallNextRunePosition = 2
254            @setvar! recallHomeGumpResponse 11
255        elseif recallNextRunePosition = 3
256            @setvar! recallHomeGumpResponse 17
257        elseif recallNextRunePosition = 4
258            @setvar! recallHomeGumpResponse 23
259        elseif recallNextRunePosition = 5
260            @setvar! recallHomeGumpResponse 29
261        elseif recallNextRunePosition = 6
262            @setvar! recallHomeGumpResponse 35
263        elseif recallNextRunePosition = 7
264            @setvar! recallHomeGumpResponse 41
265        elseif recallNextRunePosition = 8
266            @setvar! recallHomeGumpResponse 47
267        elseif recallNextRunePosition = 9
268            @setvar! recallHomeGumpResponse 53
269        elseif recallNextRunePosition = 10
270            @setvar! recallHomeGumpResponse 59
271        elseif recallNextRunePosition = 11
272            @setvar! recallHomeGumpResponse 65
273        elseif recallNextRunePosition = 12
274            @setvar! recallHomeGumpResponse 71
275        elseif recallNextRunePosition = 13
276            @setvar! recallHomeGumpResponse 77
277        elseif recallNextRunePosition = 14
278            @setvar! recallHomeGumpResponse 83
279        elseif recallNextRunePosition = 15
280            @setvar! recallHomeGumpResponse 89
281        elseif recallNextRunePosition = 16
282            @setvar! recallHomeGumpResponse 95  
283        else
284            // default to start
285            @setvar! recallNextRunePosition 1
286            @setvar! recallHomeGumpResponse 5
287        endif
288
289    else
290        if recallNextRunePosition = 1
291            @setvar! recallHomeGumpResponse 2
292        elseif recallNextRunePosition = 2
293            @setvar! recallHomeGumpResponse 8
294        elseif recallNextRunePosition = 3
295            @setvar! recallHomeGumpResponse 14
296        elseif recallNextRunePosition = 4
297            @setvar! recallHomeGumpResponse 20
298        elseif recallNextRunePosition = 5
299            @setvar! recallHomeGumpResponse 26
300        elseif recallNextRunePosition = 6
301            @setvar! recallHomeGumpResponse 32
302        elseif recallNextRunePosition = 7
303            @setvar! recallHomeGumpResponse 38
304        elseif recallNextRunePosition = 8
305            @setvar! recallHomeGumpResponse 44
306        elseif recallNextRunePosition = 9
307            @setvar! recallHomeGumpResponse 50
308        elseif recallNextRunePosition = 10
309            @setvar! recallHomeGumpResponse 56
310        elseif recallNextRunePosition = 11
311            @setvar! recallHomeGumpResponse 62
312        elseif recallNextRunePosition = 12
313            @setvar! recallHomeGumpResponse 68
314        elseif recallNextRunePosition = 13
315            @setvar! recallHomeGumpResponse 74
316        elseif recallNextRunePosition = 14
317            @setvar! recallHomeGumpResponse 80
318        elseif recallNextRunePosition = 15
319            @setvar! recallHomeGumpResponse 86
320        elseif recallNextRunePosition = 16
321            @setvar! recallHomeGumpResponse 92
322        else
323            // default to start
324            @setvar! recallNextRunePosition 1
325            @setvar! recallHomeGumpResponse 2
326        endif
327    endif
328else
329    overhead "Unknown escape plan" 34
330    unsetvar farmingBook
331    replay
332endif
333
334hotkey '> Interrupt'
335while targetexists  
336    hotkey 'Cancel Current Target'
337    wait 200
338endwhile
339
340while not gumpexists escapePlanGumpId
341    dclick farmingBook
342    wait 200
343endwhile
344gumpresponse recallHomeGumpResponse escapePlanGumpId
345if secondaryGumpResponse > 0
346    waitforgump escapePlanGumpId 5000
347    gumpresponse secondaryGumpResponse escapePlanGumpId
348endif
349wait 200
350gumpclose escapePlanGumpId
351if insysmsg "There are no charges left on that item."
352    overhead "Oh no! Out of charges!" 34
353endif
354
355if listexists jaseowns_PreviousScript
356    foreach myScript in jaseowns_PreviousScript
357        hotkey myScript
358    endfor
359endif
360
361if name = "Jase Owns"
362    hotkey "Play Script: Mage\MageBot"
363endif