Deathrolls Lorebook creator 2.0 by jesaug205
Description: Will scan your loretome and automatically create lorebooks if possible.
1//DEATHROLLS LOREBOOK MAKER v. 2.0
2
3//________________________
4//Set there variables below
5
6//The Lorebook containing all the pages
7@setvar myrunetome 0x40763925
8//The container where you have the empty lore books
9@setvar container_emptybooks 0x5989547B
10//The container where you want the completed lore books to end up
11@setvar container_fullbooks 0x40BC0CB9
12//The container where you want the treasure maps to end up
13@setvar container_maps backpack
14//The container where you want the links to end up
15@setvar container_links backpack
16//________________________
17
18
19
20
21
22
23
24while not varexist myrunetome
25 overhead 'Set the runetome that has your pages'
26wait 2000
27endwhile
28while not varexist container_emptybooks
29 overhead 'Set the container that contain your unused (blank) lorebooks'
30wait 2000
31endwhile
32while not varexist container_fullbooks
33 overhead 'Set the container where you want to stash the completed lorebooks'
34 wait 2000
35 endwhile
36while not varexist container_maps
37 overhead 'Set the container where you want the T8 maps do end up'
38 wait 2000
39 endwhile
40while not varexist container_links
41 overhead 'Set the container where you want the links to end up'
42 wait 2000
43 endwhile
44
45 menu myrunetome 0
46dclick container_emptybooks
47wait 1000
48dclick container_fullbooks
49wait 1000
50dclick myrunetome
51waitforgump 1274830955
52while findtype 29105 container_fullbooks as book
53 @ignore book
54endwhile
55while findtype 5356 backpack as map
56 @ignore map
57endwhile
58while findtype 43206 backpack as link
59 @ignore link
60endwhile
61
62while not dead
63
64if ingump 'Creatures of Aegis Keep' 1274830955
65 @setvar set1 1
66 elseif ingump 'Creatures of Cavernam' 1274830955
67 @setvar set1 2
68 elseif ingump 'Creatures of Darkmire Temple' 1274830955
69 @setvar set1 3
70 elseif ingump 'Creatures of Inferno' 1274830955
71 @setvar set1 4
72 elseif ingump 'Creatures of Mount Petram' 1274830955
73 @setvar set1 5
74 elseif ingump 'Creatures of Nusero' 1274830955
75 @setvar set1 6
76 elseif ingump 'Creatures of Ossuary' 1274830955
77 @setvar set1 7
78 elseif ingump 'Creatures of Pulma' 1274830955
79 @setvar set1 8
80 elseif ingump 'Creatures of The Mausoleum' 1274830955
81 @setvar set1 9
82 elseif ingump 'History of Andaria' 1274830955
83 @setvar set1 10
84 elseif ingump 'History of Cambria' 1274830955
85 @setvar set1 11
86 elseif ingump 'History of Corpse Creek' 1274830955
87 @setvar set1 12
88 elseif ingump 'History of Horseshoe Bay' 1274830955
89 @setvar set1 13
90 elseif ingump 'History of Outpost' 1274830955
91 @setvar set1 14
92 elseif ingump 'History of Prevalia' 1274830955
93 @setvar set1 15
94 elseif ingump 'History of Terran' 1274830955
95 @setvar set1 16
96 elseif ingump 'Outlands Mythology Vol 1' 1274830955
97 @setvar set1 17
98 elseif ingump 'Outlands Mythology Vol 2' 1274830955
99 @setvar set1 18
100 elseif ingump 'Outlands Mythology Vol 3' 1274830955
101 @setvar set1 19
102 elseif ingump 'Outlands Mythology Vol 4' 1274830955
103 @setvar set1 20
104 elseif ingump 'Outlands Mythology Vol 5' 1274830955
105 @setvar set1 21
106 elseif ingump 'Outlands Mythology Vol 6' 1274830955
107 @setvar set1 22
108 elseif ingump 'Outlands Mythology Vol 7' 1274830955
109 @setvar set1 23
110 elseif ingump 'Tales of Aegis Keep' 1274830955
111 @setvar set1 24
112 elseif ingump 'Tales of Cavernam' 1274830955
113 @setvar set1 25
114 elseif ingump 'Tales of Darkmire Temple' 1274830955
115 @setvar set1 26
116 elseif ingump 'Tales of Inferno' 1274830955
117 @setvar set1 27
118 elseif ingump 'Tales of Mount Petram' 1274830955
119 @setvar set1 28
120 elseif ingump 'Tales of Nusero' 1274830955
121 @setvar set1 29
122 elseif ingump 'Tales of Ossuary' 1274830955
123 @setvar set1 30
124 elseif ingump 'Tales of Pulma' 1274830955
125 @setvar set1 31
126 elseif ingump 'Tales of The Mausoleum' 1274830955
127 @setvar set1 32
128endif
129
130
131
132
133
134
135 if ingump 'Page 15' 1274830955
136 overhead '15 pages'
137 clearsysmsg
138 wait 250
139 gumpresponse 10
140 waitforgump 1274830955
141 gumpresponse 11
142 waitforgump 1274830955
143 gumpresponse 12
144 waitforgump 1274830955
145 gumpresponse 13
146 waitforgump 1274830955
147 gumpresponse 14
148 waitforgump 1274830955
149 gumpresponse 15
150 waitforgump 1274830955
151 gumpresponse 16
152 waitforgump 1274830955
153 gumpresponse 17
154 waitforgump 1274830955
155 gumpresponse 18
156 waitforgump 1274830955
157 gumpresponse 19
158 waitforgump 1274830955
159 gumpresponse 20
160 waitforgump 1274830955
161 gumpresponse 21
162 waitforgump 1274830955
163 gumpresponse 22
164 waitforgump 1274830955
165 gumpresponse 23
166 waitforgump 1274830955
167 gumpresponse 24
168 waitforgump 1274830955
169 wait 250
170 if insysmsg 'particular'
171 overhead 'Missing pages'
172 wait 250
173 menu myrunetome 0
174 wait 250
175 clearsysmsg
176 wait 250
177 else
178 overhead 'I have all pages! Making a book'
179 if findtype 29105 'container_emptybooks' 2897 as thisbook
180 lift thisbook 1
181 drop backpack
182 while queued
183 wait 50
184 endwhile
185 while findtype 27612 backpack as nextpage
186 lift nextpage
187 drop thisbook
188 while queued
189 wait 50
190 endwhile
191 endwhile
192 lift thisbook
193 drop container_fullbooks
194 while queued
195 wait 50
196 endwhile
197 else
198 overhead 'Cant find an empty runebook!'
199 break
200 endif
201 if findtype 5356 backpack 2091 as map
202 lift map
203 drop container_maps
204 while queued
205 wait 50
206 endwhile
207 @ignore map
208 else
209 overhead 'Cant find the map, something has gone wrong!'
210 stop
211 endif
212 if findtype 43206 backpack 2750 as link
213 overhead 'Got a bronze link'
214 lift link
215 drop container_links
216 while queued
217 wait 50
218 endwhile
219 @ignore link
220 elseif findtype 43206 backpack 2875 as link
221 overhead 'Got a SILVER link'
222 lift link
223 drop container_links
224 while queued
225 wait 50
226 endwhile
227 @ignore link
228 elseif findtype 43206 backpack 2091 as link
229 overhead 'GOT A GOLD LINK!!!!'
230 guild 'Creating T8 maps have yielded a GOLD LINK! Hurray!'
231 lift link
232 drop container_links
233 while queued
234 wait 50
235 endwhile
236 @ignore link
237 else
238 overhead 'Cant find the link, something has gone wrong!'
239 stop
240 endif
241 endif
242else
243 overhead '10 pages'
244clearsysmsg
245wait 250
246gumpresponse 10
247waitforgump 1274830955
248gumpresponse 11
249waitforgump 1274830955
250gumpresponse 12
251waitforgump 1274830955
252gumpresponse 13
253waitforgump 1274830955
254gumpresponse 14
255waitforgump 1274830955
256gumpresponse 15
257waitforgump 1274830955
258gumpresponse 16
259waitforgump 1274830955
260gumpresponse 17
261waitforgump 1274830955
262gumpresponse 18
263waitforgump 1274830955
264gumpresponse 19
265waitforgump 1274830955
266wait 250
267 if insysmsg 'particular'
268 overhead 'Missing pages'
269 wait 250
270 menu myrunetome 0
271 wait 250
272 clearsysmsg
273 wait 250
274 else
275 overhead 'I have all pages! Making a book'
276 if findtype 29105 'container_emptybooks' 2897 as thisbook
277 lift thisbook 1
278 drop backpack
279 while queued
280 wait 50
281 endwhile
282 while findtype 27612 backpack as nextpage
283 lift nextpage
284 drop thisbook
285 while queued
286 wait 50
287 endwhile
288 endwhile
289 lift thisbook
290 drop container_fullbooks
291 while queued
292 wait 50
293 endwhile
294 else
295 overhead 'Cant find an empty runebook!'
296 break
297 endif
298 if findtype 5356 backpack 2091 as map
299 lift map
300 drop container_maps
301 while queued
302 wait 50
303 endwhile
304 @ignore map
305 else
306 overhead 'Cant find the map, something has gone wrong!'
307 stop
308 endif
309 if findtype 43206 backpack 2750 as link
310 overhead 'Got a bronze link'
311 lift link
312 drop container_links
313 while queued
314 wait 50
315 endwhile
316 @ignore link
317 elseif findtype 43206 backpack 2875 as link
318 overhead 'Got a SILVER link'
319 lift link
320 drop container_links
321 while queued
322 wait 50
323 endwhile
324 @ignore link
325 elseif findtype 43206 backpack 2091 as link
326 overhead 'GOT A GOLD LINK!!!!'
327 lift link
328 drop container_links
329 while queued
330 wait 50
331 endwhile
332 @ignore link
333 else
334 overhead 'Cant find the link, something has gone wrong!'
335 stop
336 endif
337 endif
338endif
339 if ingump 'Tales of the Mausoleum' 1274830955
340 break
341 endif
342endif
343
344if ingump 'Creatures of Aegis Keep' 1274830955
345 @setvar set2 1
346 elseif ingump 'Creatures of Cavernam' 1274830955
347 @setvar set2 2
348 elseif ingump 'Creatures of Darkmire Temple' 1274830955
349 @setvar set2 3
350 elseif ingump 'Creatures of Inferno' 1274830955
351 @setvar set2 4
352 elseif ingump 'Creatures of Mount Petram' 1274830955
353 @setvar set2 5
354 elseif ingump 'Creatures of Nusero' 1274830955
355 @setvar set2 6
356 elseif ingump 'Creatures of Ossuary' 1274830955
357 @setvar set2 7
358 elseif ingump 'Creatures of Pulma' 1274830955
359 @setvar set2 8
360 elseif ingump 'Creatures of The Mausoleum' 1274830955
361 @setvar set2 9
362 elseif ingump 'History of Andaria' 1274830955
363 @setvar set2 10
364 elseif ingump 'History of Cambria' 1274830955
365 @setvar set2 11
366 elseif ingump 'History of Corpse Creek' 1274830955
367 @setvar set2 12
368 elseif ingump 'History of Horseshoe Bay' 1274830955
369 @setvar set2 13
370 elseif ingump 'History of Outpost' 1274830955
371 @setvar set2 14
372 elseif ingump 'History of Prevalia' 1274830955
373 @setvar set2 15
374 elseif ingump 'History of Terran' 1274830955
375 @setvar set2 16
376 elseif ingump 'Outlands Mythology Vol 1' 1274830955
377 @setvar set2 17
378 elseif ingump 'Outlands Mythology Vol 2' 1274830955
379 @setvar set2 18
380 elseif ingump 'Outlands Mythology Vol 3' 1274830955
381 @setvar set2 19
382 elseif ingump 'Outlands Mythology Vol 4' 1274830955
383 @setvar set2 20
384 elseif ingump 'Outlands Mythology Vol 5' 1274830955
385 @setvar set2 21
386 elseif ingump 'Outlands Mythology Vol 6' 1274830955
387 @setvar set2 22
388 elseif ingump 'Outlands Mythology Vol 7' 1274830955
389 @setvar set2 23
390 elseif ingump 'Tales of Aegis Keep' 1274830955
391 @setvar set2 24
392 elseif ingump 'Tales of Cavernam' 1274830955
393 @setvar set2 25
394 elseif ingump 'Tales of Darkmire Temple' 1274830955
395 @setvar set2 26
396 elseif ingump 'Tales of Inferno' 1274830955
397 @setvar set2 27
398 elseif ingump 'Tales of Mount Petram' 1274830955
399 @setvar set2 28
400 elseif ingump 'Tales of Nusero' 1274830955
401 @setvar set2 29
402 elseif ingump 'Tales of Ossuary' 1274830955
403 @setvar set2 30
404 elseif ingump 'Tales of Pulma' 1274830955
405 @setvar set2 31
406 elseif ingump 'Tales of The Mausoleum' 1274830955
407 @setvar set2 32
408endif
409
410
411if set1 = set2
412overhead 'Done!'
413wait 500
414gumpresponse 5 1274830955
415waitforgump 1274830955
416wait 250
417else
418 overhead 'MISSMATCH! Skipping forward one extra step...'
419wait 500
420gumpresponse 5 1274830955
421waitforgump 1274830955
422wait 1000
423gumpresponse 5 1274830955
424waitforgump 1274830955
425wait 250
426endif
427endwhile
428overhead 'SCRIPT COMPLETED'