Copy Rune Book

// 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' 'Abyss North'
  pushlist 'Names' "Baracoon South"
  pushlist 'Names' "Baracoon West"
  pushlist 'Names' 'Cove East'
  pushlist 'Names' "Cove West"
  pushlist 'Names' "Deceit Alter"
  pushlist 'Names' 'Destard North'
  pushlist 'Names' 'Destard South'
  pushlist 'Names' "Oaks Rooftop"
  pushlist 'Names' 'Oaks South'
  pushlist 'Names' "Orc East"
  pushlist 'Names' 'Orc West'
  pushlist 'Names' 'Shame West'
  pushlist 'Names' 'Terathan East'
  pushlist 'Names' 'Terathan North'
  pushlist 'Names' 'Water'
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 == 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 2000
    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