Take all extracts from aspect tome by special_sy
Description: I got tired clicking the buttons so i wrote a script that does it for me.
It goes faster if you select "Remove all possible on selectoin" ;)
1# Script by [DoS] Chumber
2# This script takes all extracts out of your tome so you can make distills
3# Just stand 2 tiles within your Aspect Tome
4
5@setvar! myAspectTome 0
6if findtype 'book' ground 2618 -1 2 as tome
7 @setvar myAspectTome tome
8endif
9
10if myAspectTome = 0
11 overhead "No Aspect tome in range!"
12 stop
13endif
14
15dclick myAspectTome
16waitforgump 265325939
17
18if not listexists 'extractButtonsPageOne'
19 createlist extractButtonsPageOne
20endif
21if not listexists extractButtonsPageTwo
22 createlist extractButtonsPageTwo
23endif
24@setvar! nextTomePageButton 6
25clearlist extractButtonsPageOne
26pushlist extractButtonsPageOne 200
27pushlist extractButtonsPageOne 201
28pushlist extractButtonsPageOne 202
29pushlist extractButtonsPageOne 203
30pushlist extractButtonsPageOne 204
31pushlist extractButtonsPageOne 205
32pushlist extractButtonsPageOne 206
33pushlist extractButtonsPageOne 207
34pushlist extractButtonsPageOne 208
35pushlist extractButtonsPageOne 209
36pushlist extractButtonsPageOne 210
37pushlist extractButtonsPageOne 211
38pushlist extractButtonsPageOne 212
39pushlist extractButtonsPageOne 213
40pushlist extractButtonsPageOne 214
41
42clearlist extractButtonsPageTwo
43pushlist extractButtonsPageTwo 200
44pushlist extractButtonsPageTwo 201
45pushlist extractButtonsPageTwo 202
46pushlist extractButtonsPageTwo 203
47
48foreach takeButton in extractButtonsPageOne
49 while not insysmsg 'No aspect extracts'
50 gumpresponse takeButton
51 wait 100
52 waitforgump 265325939
53 endwhile
54 overhead "Next!"
55 clearsysmsg
56endfor
57
58gumpresponse nextTomePageButton
59
60foreach takeButton in extractButtonsPageTwo
61 while not insysmsg 'No aspect extracts'
62 gumpresponse takeButton
63 wait 100
64 waitforgump 265325939
65 endwhile
66 overhead "Next!"
67 clearsysmsg
68endfor
69overhead "All done!"
70