Back to "b" tags

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'