|
Post by Experience on Mar 11, 2017 6:05:44 GMT
//Experience
//this version makes 5 copies of the selected book to save on regs.
//You will need to insert your own rune names to match ToBeCloned Book
//You will also need 150 Black Pearl, Mandrake, and Blood Moss
promptalias 'ToBeCloned'
promptalias 'Blank Runebook'
promptalias 'Blank Runebook2'
promptalias 'Blank Runebook3'
promptalias 'Blank Runebook4'
promptalias 'Blank Runebook5'
clearlist 'Runes'
clearlist 'Names'
if not listexists 'Runes'
createlist 'Runes'
endif
if list 'Runes' == 0
pushlist 'Runes' 5
pushlist 'Runes' 11
pushlist 'Runes' 17
pushlist 'Runes' 23
pushlist 'Runes' 29
pushlist 'Runes' 35
pushlist 'Runes' 41
pushlist 'Runes' 47
pushlist 'Runes' 53
pushlist 'Runes' 59
pushlist 'Runes' 65
pushlist 'Runes' 71
pushlist 'Runes' 77
pushlist 'Runes' 83
pushlist 'Runes' 89
pushlist 'Runes' 95
endif
if not listexists 'Names'
createlist 'Names'
endif
if list 'Names' == 0
pushlist 'Names' 'Brit West'
pushlist 'Names' "Brit East"
pushlist 'Names' 'Jhelom'
pushlist 'Names' 'Minoc'
pushlist 'Names' 'Moonglow'
pushlist 'Names' "Magincia"
pushlist 'Names' "Nu'Jelm"
pushlist 'Names' 'Occlo'
pushlist 'Names' "Serp. Hold"
pushlist 'Names' 'Skara Brae'
pushlist 'Names' 'Trinsic West'
pushlist 'Names' "Trinsic East"
pushlist 'Names' 'Vesper'
pushlist 'Names' 'Wind'
pushlist 'Names' 'Yew'
pushlist 'Names' "Experience's Rune Library"
endif
clearjournal
if not @findtype 0x1f14 any 'backpack'
sysmsg 'Out of blank runes!' 25
messagebox 'Error' '*No Runes restock & restart*'
stop
endif
clearjournal
for 0 to 'Runes'
if mana <= 60
useskill 'Meditation'
while not mana == maxmana
endwhile
endif
pause 1500
useobject! 'ToBeCloned'
waitforgump 0x554b87f3 15000
pause 900
replygump 0x554b87f3 Runes[0]
pause '3500'
if injournal 'blocked' 'system'
replay
endif
if @findtype 0x1f14 0 'backpack' 1 2
autotargetobject 'found'
cast 'Mark'
pause 3500
useobject! 'found'
waitforprompt 15000
promptmsg Names[0]
pause 2000
moveitem 'found' 'Blank Runebook'
pause 3000
endif
if mana <= 60
useskill 'Meditation'
while not mana == maxmana
endwhile
endif
if @findtype 0x1f14 0 'backpack' 1 2
autotargetobject 'found'
cast 'Mark'
pause 3500
useobject! 'found'
waitforprompt 15000
promptmsg Names[0]
pause 2000
moveitem 'found' 'Blank Runebook2'
pause 3000
endif
if mana <= 60
useskill 'Meditation'
while not mana == maxmana
endwhile
endif
if @findtype 0x1f14 0 'backpack' 1 2
autotargetobject 'found'
cast 'Mark'
pause 3500
useobject! 'found'
waitforprompt 15000
promptmsg Names[0]
pause 2000
moveitem 'found' 'Blank Runebook3'
pause 3000
endif
if mana <= 60
useskill 'Meditation'
while not mana == maxmana
endwhile
endif
if @findtype 0x1f14 0 'backpack' 1 2
autotargetobject 'found'
cast 'Mark'
pause 3500
useobject! 'found'
waitforprompt 15000
promptmsg Names[0]
pause 2000
moveitem 'found' 'Blank Runebook4'
pause 3000
endif
if mana <= 60
useskill 'Meditation'
while not mana == maxmana
endwhile
endif
if @findtype 0x1f14 0 'backpack' 1 2
autotargetobject 'found'
cast 'Mark'
pause 3500
useobject! 'found'
waitforprompt 15000
promptmsg Names[0]
pause 2000
moveitem 'found' 'Blank Runebook5'
if @injournal 'Names[0]' 'system'
@poplist 'Names' 'front'
@poplist 'Runes' 'front'
pause 5000
else
playsound 984
pause 100
playsound 987
pause 100
playsound 988
pause 100
messagebox 'Error' '*No Runes restock & restart*'
stop
endif
endif
if mana <= 60
useskill 'Meditation'
while not mana == maxmana
endwhile
endif
endfor
|
|
|
Post by bakataumana on Mar 11, 2017 6:43:34 GMT
my hero
|
|