ignoreobject 0xe66cd
if not findalias 'Steed'
  headmsg 'Please select your pet'
  promptalias 'Steed'
endif
if not listexists 'Runebooks'
  createlist 'Runebooks'
endif
if not listexists 'Runes'
  createlist 'Runes'
endif
if not timerexists 'visit'
  createtimer 'visit'
  settimer 'visit' 120000
endif
if not timerexists 'allkill'
  createtimer 'allkill'
  settimer 'allkill' 5000
endif
// INSERT THE SERIAL NUMBER OF YOUR RUNE BOOK WHERE YOU SEE 'SERIAL NUMBER'
poplist 'Runebooks' 'front'
if list 'Runebooks' == 0
  pushlist 'Runebooks' 0x40a30bf0
endif
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
endif
if list 'Runebooks' == 0
  pushlist 'Runebooks' '0x40a30bf0'
endif
if timer 'visit' > 120000
  pause 2000
  if not @inrange 'Steed' 6
    yellmsg 'all come'
    yellmsg 'all come'
    pause 3000
  endif
  if @inrange 'Steed' 1
    msg 'All follow me'
    msg 'All follow me'
    msg 'All follow me'
    pause 100
    for 0 to 'Runes'
      useobject! Runebooks[0]
      waitforgump 0x554b87f3 15000
      replygump 0x554b87f3 Runes[]
      msg 'All follow me'
      msg 'All follow me'
      msg 'All follow me'
      pause 800
      msg 'All follow me'
      msg 'All follow me'
      pause 5000
      msg 'All guard'
      settimer 'visit' 0
    else
      msg 'All Come'
      pause 1000
    endif
  endif
  // INSERT YOUR TOON'S SERIAL # WHEREVER YOU SEE 'NAME'
  if x > 3760 and x < 3762
    pause 2000
    msg 'bank'
    pause 2000
    organizer 'restock'
    pause 8000
    organizer 'goldtobank'
    pause 2000
  endif
  while timer 'visit' < 120000
    if timer 'allkill' > 10000
      if @findtype '0x83' 'any' 'any' 'any' '8'
        getenemy 'closest' 'murderer' 'red' 'criminal' 'grey'
        useskill 'peacemaking'
        waitfortarget 2000
        target! 'enemy'
        pause 600
        msg 'all kill'
        waitfortarget 3000
        target! 'found'
        pause 100
        msg 'all kill'
        waitfortarget 3000
        target! 'found'
        pause 100
        msg 'all kill'
        waitfortarget 3000
        target! 'found'
        pause 100
        settimer 'allkill' 0
      endif
      if @findtype '0xa' 'any' 'any' 'any' '10' and  timer 'allkill' > 10000
        getenemy 'closest' 'murderer' 'red' 'criminal' 'grey'
        useskill 'peacemaking'
        waitfortarget 2000
        target! 'enemy'
        pause 600
        msg 'all kill'
        waitfortarget 3000
        target! 'found'
        pause 100
        msg 'all kill'
        waitfortarget 3000
        target! 'found'
        pause 100
        msg 'all kill'
        waitfortarget 3000
        target! 'found'
        pause 100
        settimer 'allkill' 0
      endif
    endif
    if hits 'self' < maxhits 'self'
      if hits 'self' > 50 'self'
        miniheal
        pause 100
      else
        if hits 'self' < 50 'self'
          if poisoned 'self'
            msg '[drink greatercurepotion'
            pause 600
          endif
          msg '[drink greaterhealpotion'
          pause 200
          miniheal 'self'
          pause 100
        endif
      endif
    endif
    // INSERT YOUR STEEDS SERIAL # WHEREVER YOU SEE 'STEED'
    if poisoned 'Steed'
      cast cure 'Steed'
      pause 1000
    endif
    if hits 'Steed' < 85 'Steed' and @inrange 'Steed' 1
      bandage 'Steed'
      pause 5100
    else
      if hits 'Steed' < 85 'Steed' and @inrange 'Steed' 8
        bigheal 'Steed'
        pause 2000
      endif
      if hits 'Steed' < 30 'Steed' and @inrange 'Steed' 8
        bigheal 'Steed'
        pause 2000
        msg 'all come'
      endif
    endif
    if not @inrange 'Steed' 1
      if @x 'Steed' > x 'self' and @y 'Steed' > y 'self'
        walk 'Southeast'
      elseif @x 'Steed' < x 'self' and @y 'Steed' > y 'self'
        walk 'Southwest'
      elseif @x 'Steed' > x 'self' and @y 'Steed' < y 'self'
        walk 'Northeast'
      elseif @x 'Steed' < x 'self' and @y 'Steed' < y 'self'
        walk 'Northwest'
      elseif @x 'Steed' > x 'self' and @y 'Steed' == y 'self'
        walk 'East'
      elseif @x 'Steed' < x 'self' and @y 'Steed' == y 'self'
        walk 'West'
      elseif @x 'Steed' == x 'self' and @y 'Steed' > y 'self'
        walk 'South'
      elseif @x 'Steed' == x 'self' and @y 'Steed' < y 'self'
        walk 'North'
        msg 'all come'
      endif
    endif
    // INSERT YOUR TOON'S SERIAL # WHEREVER YOU SEE 'NAME'
    if hits 'self' < 90 'self'
      if hits 'self' > 50 'self'
        miniheal
        pause 100
      else
        if hits 'self' < 50 'self'
          if poisoned 'self'
            msg '[drink greatercurepotion'
            pause 600
          endif
          msg '[drink greaterhealpotion'
          pause 200
          miniheal 'self'
          pause 100
        endif
      endif
    endif
    if @findtype '0x8a' 'any' 'ground' 'any' '6'
      settimer 'visit' 0
    elseif @findtype '0x8c' 'any' 'ground' 'any' '6'
      settimer 'visit' 0
    elseif @findtype '0x8a' 'any' 'ground' 'any' '6'
      settimer 'visit' 0
    elseif @findtype '0x11' 'any' 'ground' 'any' '6'
      settimer 'visit' 0
    elseif @findtype '0xbd' 'any' 'ground' 'any' '6'
      settimer 'visit' 0
    elseif @findtype '0x11' 'any' 'ground' 'any' '6'
      settimer 'visit' 0
    elseif @findtype '0x83' 'any' 'ground' 'any' '6'
      settimer 'visit' 0
    elseif @findtype '0xa' 'any' 'ground' 'any' '10'
      settimer 'visit' 0
    else
      settimer 'visit' 120000
    endif
    if @findtype '0x191' 'any' 'ground' 'any' '12'
      settimer 'visit' 120000
    elseif @findtype '0x190' 'any' 'ground' 'any' '12'
      settimer 'visit' 120000
    endif
  endwhile
  poplist 'Runes' 'front'