if not listexists 'Zwierzeta'
  createlist 'Zwierzeta'
  pushlist 'Zwierzeta' 0x65 //Cow
  pushlist 'Zwierzeta' 0xe7 //Cow2
endif
if not @inrange 'Zwierze' 15
  @unsetalias 'Zwierze'
  for 0 in 'Zwierzeta'
    if @findtype Zwierzeta[] 'any' 'ground' 1 15
      @setalias 'Zwierze' 'found'
      break
    endif
  endfor
endif
if not @inrange 'Zwierze' 15
  pause 4000
endif
if @findobject 'Zwierze' 'any' 'ground' 1 15
  attack 'Zwierze'
  if not @inrange 'Zwierze' 1
    if @x 'Zwierze' > x 'self' and @y 'Zwierze' > y 'self'
      walk 'Southeast'
    elseif @x 'Zwierze' < x 'self' and @y 'Zwierze' > y 'self'
      walk 'Southwest'
    elseif @x 'Zwierze' > x 'self' and @y 'Zwierze' < y 'self'
      walk 'Northeast'
    elseif @x 'Zwierze' < x 'self' and @y 'Zwierze' < y 'self'
      walk 'Northwest'
    elseif @x 'Zwierze' > x 'self' and @y 'Zwierze' == y 'self'
      walk 'East'
    elseif @x 'Zwierze' < x 'self' and @y 'Zwierze' == y 'self'
      walk 'West'
    elseif @x 'Zwierze' == x 'self' and @y 'Zwierze' > y 'self'
      walk 'South'
    elseif @x 'Zwierze' == x 'self' and @y 'Zwierze' < y 'self'
      walk 'North'
    endif
  endif
endif
if @findtype 0x2006 any ground 1 2
  if targetexists
    canceltarget
  endif
  useobject 0x40458567
  waitfortarget 2000
  target! 'found'
  ignoreobject 'found'
endif
if @counttype 0xf3f any backpack >= 330
  if targetexists
    canceltarget
  endif
  useobject 0x4022ffef
  waitfortarget 2000
  targettype 0x1081 any 1
endif