(Assist) Runebook cloner (5x copies)

[Experience]

//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



[bakataumana]

my hero