Runebook copier

thestand

Grandmaster
This one has worked nicely for me. You might need to change it a bit at the end of the macro. I added some code to recall to my house and walk inside when it's finished.

// Author: Hawt
// Description: Automatic Runebook Cloner.
// You need to insert the names of each rune on the "Names" List. IT will run over and over if a location is blocked untill it makes it passed too the rune.
//===========================================================
//Select runebook to be cloned
promptalias 'ToBeCloned'
//Select a blank book
promptalias 'Blank Runebook'
//Lists
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' 'Buccs Den'
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' 'Yew'
pushlist 'Names' 'Cove'
pushlist 'Names' 'Vesper'
endif
if not @findtype 0x1f14 any 'backpack'
sysmsg 'Out of blank runes!' 25
pause 100
playsound 984
pause 100
playsound 987
pause 100
playsound 988
pause 100
messagebox 'Error' '*No Runes restock & restart*'
stop
endif
clearjournal
for 0 to 'Runes'
if mana <= 30
useskill 'Meditation'
while not mana == 60
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 500
useskill 'Meditation'
pause 1500
if @injournal 'Names[0]' 'system'
@poplist 'Names' 'front'
@poplist 'Runes' 'front'
endif
else
playsound 984
pause 100
playsound 987
pause 100
playsound 988
pause 100
messagebox 'Error' '*No Runes restock & restart*'
stop
endif
endfor
if not findobject 'Home' 'any' 'backpack'
sysmsg 'Target a runebook with default rune set' '53'
promptalias 'Home'
endif
autotargetobject 'Home'
cast recall
pause 3000
walk "North"
pause 250
walk "North"
pause 250
walk "North"
 
Top