Take all extracts from aspect tome by special_sy

# Script by [DoS] Chumber # This script takes all extracts out of your tome so you can make distills # Just stand 2 tiles within your Aspect Tome @setvar! myAspectTome 0 if findtype 'book' ground 2618 -1 2 as tome @setvar myAspectTome tome endif if myAspectTome = 0 overhead "No Aspect tome in range!" stop endif dclick myAspectTome waitforgump 265325939 if not listexists 'extractButtonsPageOne' createlist extractButtonsPageOne endif if not listexists extractButtonsPageTwo createlist extractButtonsPageTwo endif @setvar! nextTomePageButton 6 clearlist extractButtonsPageOne pushlist extractButtonsPageOne 200 pushlist extractButtonsPageOne 201 pushlist extractButtonsPageOne 202 pushlist extractButtonsPageOne 203 pushlist extractButtonsPageOne 204 pushlist extractButtonsPageOne 205 pushlist extractButtonsPageOne 206 pushlist extractButtonsPageOne 207 pushlist extractButtonsPageOne 208 pushlist extractButtonsPageOne 209 pushlist extractButtonsPageOne 210 pushlist extractButtonsPageOne 211 pushlist extractButtonsPageOne 212 pushlist extractButtonsPageOne 213 pushlist extractButtonsPageOne 214 clearlist extractButtonsPageTwo pushlist extractButtonsPageTwo 200 pushlist extractButtonsPageTwo 201 pushlist extractButtonsPageTwo 202 pushlist extractButtonsPageTwo 203 foreach takeButton in extractButtonsPageOne while not insysmsg 'No aspect extracts' gumpresponse takeButton wait 100 waitforgump 265325939 endwhile overhead "Next!" clearsysmsg endfor gumpresponse nextTomePageButton foreach takeButton in extractButtonsPageTwo while not insysmsg 'No aspect extracts' gumpresponse takeButton wait 100 waitforgump 265325939 endwhile overhead "Next!" clearsysmsg endfor overhead "All done!"