taming-zell steam script

gistfile1.txt

// AutoTame v2.0
// Written by: a rideable llama (Rewritten cause it was fucking awful by: Zell)
////////////////
if not listexists 'hp'
  @createlist 'hp'
endif
@cleartargetqueue
if hits == 100
  @removelist 'hp'
  @createlist 'hp'
endif
if hits < 100
  if list 'hp' == 0
    setskill 'animal taming' locked
    msg 'All kill'
    pause 1000
    target! 'pet'
    warmode 'on'
    pause 500
    warmode 'off'
    pause 8000
    msg 'All follow me'
    setskill 'animal taming' up
    pushlist 'hp' 1
  endif
endif
if not listexists 'pets'
  @createlist 'pets'
endif
if not listexists 'pet'
  @createlist 'pet'
endif
if not @findobject 'tank'
  sysmsg 'Please select your tanking pet
  promptalias 'tank'
endif
ignoreobject 'tank'
if not @timerexists 'bandageTimer'
  createtimer 'bandageTimer'
  settimer 'bandageTimer' 0
endif
if timer 'bandageTimer' > 11000
  //if hits 'tank' < maxhits 'tank'
  if diffhits 'tank' > 15
    bandage
    autotargetobject 'tank'
  endif
  if @injournal 'not damaged' 'system'
    settimer 'bandageTimer' 4000
  else
    settimer 'bandageTimer' 0
  endif
endif
@cleartargetqueue
if list 'pets' == 0
  //Frogs (50.0 - 60.0)
  pushlist 'pets' 0x50
  //Cave Bear (60.0 - 70.0)
  pushlist 'pets' 0xd5
  //Scarab (70.0 - 72.5)
  pushlist 'pets' 0xa9
  //Drake Whelp (75.0 - 77.5)
  pushlist 'pets' 0x2ce
  //Crawler (80.0 - 82.5)
  pushlist 'pets' 0x13b
  //Drake (85.0 - 87.5)
  pushlist 'pets' 0x3c
  pushlist 'pets' 0x3d
  //Husk Crab (90.0 - 92.5)
  pushlist 'pets' 0x2d9
  //Molten Mongbat (95.0 - 97.5)
  pushlist 'pets' 0x27
  //Dragons
  pushlist 'pets' 0xc
  // wyvern hatchling
  pushlist 'pets' 0x2dd
  //Snow Drift (100.0 - 102.5)
  pushlist 'pets' 0x33
  pushlist 'pets' 0x86
  pushlist 'pets' 0x2e2
  //Earth Drake (105.0 - 107.5)
  pushlist 'pets' 0x3c
  pushlist 'pets' 0x3d
  //Aegis Minion (110.0 - 112.5)
  pushlist 'pets' 0x308
  //Earth Dragon (115.0 - 117.5)
  pushlist 'pets' 0x3a
  pushlist 'pets' 0x3b
endif
if not @findobject 'pet' 'any' 'any' 'any' 3
  removelist 'pet'
  createlist 'pet'
  for 0 to 'pets'
    if @findtype pets[] 'any' 'ground' 'any' 3
      @setalias 'pet' 'found'
      break
    endif
  endfor
endif
pause 2000
// Tame
if not @timerexists 'tamingTimer'
  createtimer 'tamingTimer'
  settimer 'tamingTimer' 0
endif
@rename 'pet' 'pathrip'
if name 'pet' != 'pathrip'
  setskill 'animal taming' 'up'
  if timer 'tamingTimer' > 13000
    useskill 'animal taming'
    waitfortarget 1000
    target! 'pet'
    settimer 'tamingTimer' 0
  endif
elseif name 'pet' == 'pathrip'
  setskill 'animal taming' 'locked'
  if skill 'animal taming' < 60
    msg "pathrip kill"
    @cleartargetqueue
    pause 1000
    if @findtype 0x8
      pause 1000
      target! 'found'
      pause 5000
    endif
  else
    msg "pathrip release"
    pause 500
    @replygump 0x909cc741 1
    pause 500
    msg "all kill"
    pause 1000
    target! 'pet'
    warmode 'on'
    pause 500
    warmode 'off'
  endif
endif