//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' 'Hythloth Altar'
  pushlist 'Names' "Destard Altar"
  pushlist 'Names' 'Cove Altar'
  pushlist 'Names' 'Arch Demon'
  pushlist 'Names' 'Baracoon East'
  pushlist 'Names' "Oaks South"
  pushlist 'Names' "Mephitis NthEast"
  pushlist 'Names' 'Rikktor East'
  pushlist 'Names' "Neira Altar"
  pushlist 'Names' 'Shame South'
  pushlist 'Names' 'Semidar West'
  pushlist 'Names' "Covetous South"
  pushlist 'Names' 'Semidar East'
  pushlist 'Names' 'Baracoon West'
  pushlist 'Names' 'Neira Teleporter'
  pushlist 'Names' "Akor Bottom"
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