Complete Spellbook by FewUnderstandThis
Description: Get all spell scrolls from tome, add to spellbook
1# Complete Spellbook by @FewUnderstandThis
2# Requires spell scroll tome and spellbook in backpack
3
4clearsysmsg
5
6# Set variables
7overhead 'Set spell scroll tome:' 1150
8setvar tome
9wait 250
10overhead 'Set spellbook:' 1150
11setvar book
12wait 250
13
14# Extract scrolls from tome
15overhead 'Extracting spells...' 1150
16dclick tome
17waitforgump 4172222127 500
18for 8
19 gumpresponse 100
20 waitforgump 4172222127 500
21 gumpresponse 101
22 waitforgump 4172222127 500
23 gumpresponse 102
24 waitforgump 4172222127 500
25 gumpresponse 103
26 waitforgump 4172222127 500
27 gumpresponse 104
28 waitforgump 4172222127 500
29 gumpresponse 105
30 waitforgump 4172222127 500
31 gumpresponse 106
32 waitforgump 4172222127 500
33 gumpresponse 107
34 waitforgump 4172222127 500
35 gumpresponse 4
36 waitforgump 4172222127 500
37endfor
38gumpclose
39wait 500
40if insysmsg 'You do not have any'
41 overhead 'Spells are missing!' 38
42endif
43
44# Add to spellbook, add unused to tome
45overhead 'Adding to spellbook...' 1150
46menu book 0
47wait 500
48dclick tome
49waitforgump 4172222127 500
50gumpresponse 2
51waitforgump 4172222127 500
52gumpclose
53
54overhead 'Script complete!' 1150