ultimate farming

while not dead
  //Pop Pouch
  if paralyzed 'self'
    usetype '0xe79'
  endif
  // Auto Strength Buff if carrying too much
  if @injournal 'to move' 'system'
    cast 'Strength'
    waitfortarget 3000
    target! 'self'
    clearjournal
    if @findtype 0xf0b 0 'backpack'
      @setalias 'Refresh' 'found'
      useobject! 'Refresh'
    else
      headmsg 'NO REFRESH POTS'
    endif
  endif
  //Auto Protection --- DELETE FROM HERE IF YOU DONT WANT TO USE PROTECTION//
  if not timerexists 'Protect'
    createtimer 'Protect'
    settimer 'Protect' 300000
  endif
  if timer 'Protect' >= 300000
    cast 'Protection'
    settimer 'Protect' 0
  endif
  //End Auto Protection --- DELETE UP TO HERE IF YOU DONT WANT TO USE PROTECTION//
  //SET PET ONE AND PET TWO -- DOUBLE TARGET FOR SPIDER//
  if not findalias 'pet1'
    headmsg 'Select first pet'
    promptalias 'pet1'
  endif
  if not findalias 'pet2'
    headmsg 'Select second pet'
    promptalias 'pet2'
  endif
  //START ANTI THIEF MACRO---------------------------------------------------------------------------------------------------------------------------------------------------//
  //Safebox script
  //Safebox script
  if not findalias 'safebox'
    if @findtype 0x9aa 'any'
      setalias 'safebox' found
    elseif @findtype 0xe7d 'any' 'backpack'
      setalias 'safebox' found
      headmsg 'safebox set'
    endif
  endif
  if @findtype 0x2aa4 1153 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a relic!!!'
  endif
  if @findtype 0x2aa4 1196 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a relic!!!'
  endif
  if @findtype 0x2aa4 1368 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a relic!!!'
  endif
  if @findtype 0x2aa4 1157 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a relic!!!'
  endif
  if @findtype 0x2aa4 1157 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a relic!!!'
  endif
  if @findtype 0x2aa4 1360 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a relic!!!'
  endif
  if @findtype 0x2aa4 1372 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a relic!!!'
  endif
  if @findtype 0x2aa4 2955 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a relic!!!'
  endif
  if @findtype 0x2aa4 'any' 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a relic!!!'
  endif
  if @findtype 0x14f0 1153 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a PS'
  endif
  if @findtype 0x14f0 1153 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a PS'
  endif
  if @findtype 0x14f0 1153 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a PS'
  endif
  if @findtype 0x14f0 1153 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a PS'
  endif
  if @findtype 0x14f0 1153 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a PS'
  endif
  if @findtype 0x47e6 'any' 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got an egg'
  endif
  if @findtype 0xf21 1161 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a portal frag'
  endif
  if @findtype 0x2260 'any' 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a SS scroll'
  endif
  if @findtype 0x1ae1 'any' 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'You got a skull'
  endif
  if @findtype 0x1f19 'any' 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'champ crystal'
  endif
  if @findtype 0x35da 'any' 'backpack' 1 0
    moveitem found 'safebox'
    headmsg 'meta crystal'
  endif
  if not @findobject 'safebox' 'any' 'backpack' and @findalias 'safebox'
    unsetalias 'safebox'
    headmsg 'safebox gone'
  endif
  //END ANTI THIEF MACRO------------------------------------------------------------------------------------------------------------------------------------------------------//
  //END SET PET ONE AND TWO -- DOUBLE TARGET FOR SPIDER//
  //3. ATTACKING CLOSEST//
  //----------------------------------------------------------------------------------------------//
  Getenemy! 'Enemy' 'criminal' 'gray' 'closest'
  while @graphic 'enemy' == 400 or @graphic 'enemy' == 401
    getenemy 'criminal' 'gray'
    //Drink Cure Potion
    if poisoned
      if @findtype 0xf07 0 'backpack'
        @setalias 'Cure' 'found'
        useobject! 'Cure'
      else
        //Pop Pouch
        if paralyzed 'self'
          usetype '0xe79'
        endif
        //Cast cure if no potion
        headmsg 'NO CURE POTS'
        cast 'cure'
        waitfortarget 2000
        target! 'self'
      else
        //Pop Pouch
        if paralyzed 'self'
          usetype '0xe79'
        endif
        //cast mini heal if low damage
        if diffhits >= 10
          cast! 'Heal'
          waitfortarget 2000
          target! 'self'
        else
          //drink heal potion if high damage
          if diffhits >= 30
            if @findtype 0xf0c 0 'backpack'
              @setalias 'Heal' 'found'
              useobject! 'Heal'
            else
              headmsg 'NO HEAL POTS'
              cast! 'Heal'
              waitfortarget 2000
              target! 'self'
            endif
          endif
        endif
      endif
    endif
    //Drink Cure Potion
    if poisoned
      if @findtype 0xf07 0 'backpack'
        @setalias 'Cure' 'found'
        useobject! 'Cure'
      else
        //Pop Pouch
        if paralyzed 'self'
          usetype '0xe79'
        endif
        //Cast cure if no potion
        headmsg 'NO CURE POTS'
        cast 'cure'
        waitfortarget 2000
        target! 'self'
      endif
    endif
  else
  endwhile
  //Drink Cure Potion
  if poisoned
    if @findtype 0xf07 0 'backpack'
      @setalias 'Cure' 'found'
      useobject! 'Cure'
    else
      //Pop Pouch
      if paralyzed 'self'
        usetype '0xe79'
      endif
      //Cast cure if no potion
      headmsg 'NO CURE POTS'
      cast 'cure'
      waitfortarget 2000
      target! 'self'
    endif
  endif
  //Pop Pouch
  if paralyzed 'self'
    usetype '0xe79'
  endif
  //cast mini heal if low damage
  if diffhits >= 10
    cast! 'Heal'
    waitfortarget 2000
    target! 'self'
  endif
  //drink heal potion if high damage
  if diffhits >= 30
    if @findtype 0xf0c 0 'backpack'
      @setalias 'Heal' 'found'
      useobject! 'Heal'
    else
      headmsg 'NO HEAL POTS'
      cast! 'Heal'
      waitfortarget 2000
      target! 'self'
    endif
  endif
  //Drink Cure Potion
  if poisoned
    if @findtype 0xf07 0 'backpack'
      @setalias 'Cure' 'found'
      useobject! 'Cure'
    else
      //Pop Pouch
      if paralyzed 'self'
        usetype '0xe79'
      endif
      //Cast cure if no potion
      headmsg 'NO CURE POTS'
      cast 'cure'
      waitfortarget 2000
      target! 'self'
    endif
  endif
  attack! 'enemy'
  pause 200
  @clearusequeue
  @cancelautotarget
  //FINISHED ATTACKING CLOSEST//
  // VET PET HEALING MACRO--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------//
  //Start Healing Pet//
  //sets backup bandie timer just in case
  if not timerexists 'bandie'
    settimer 'bandie' 9999
  endif
  //provoke protection if target cursor exists
  if not targetexists
    //Pop Pouch
    if paralyzed 'self'
      usetype '0xe79'
    endif
    //Starts healing your pets
    // Checks sysmsg to see if you've finished healing
    if @injournal "little" 'system' or @injournal "finish" 'system'
      @clearjournal
      settimer "bandie" 9999
    elseif @injournal "barely" 'system' or @injournal "close" 'system'
      @clearjournal
      settimer "bandie" 9999
    endif
    //If vet started over 3 seconds ago it tries to cure
    if timer "bandie" > 3000 and timer "bandie" < 3500
      //checks to see if pets are poisoned and within range
      if poisoned 'healme' and @inrange 'healme' 1
        @autotargetobject! 'healme'
        cast 'Cure'
        waitfortarget 1000
      endif
    endif
    //if timer is up it checks to heal
    if timer "bandie" > 5400
      @cleartargetqueue
      ////////// Sets Macro to heal first pet
      @setalias 'healme' 'pet1'
      if @diffhits 'pet1' > diffhits 'pet2' and @inrange 'pet1' 1
      elseif not @inrange 'pet2' 1
      else
        //If Pet2 is more hurt or Pet1 is too far it heals pet2
        @setalias 'healme' 'pet2'
      endif
      //starts healing for real
      if diffhits 'healme' > 0 and @inrange 'healme' 1
        usetype 0xe21 'any' 'backpack'
        waitfortarget 3500
        target! 'healme'
        settimer 'bandie' 0
      endif
      clearjournal
    endif
  endif
  if @injournal 'too far away' 'system'
    @clearjournal
    headmsg 'GET CLOSER'
    playmacro 'Ultimate Farming'
  elseif @injournal 'stay close enough' 'system'
    @clearjournal
    headmsg 'GET CLOSER'
    playmacro 'Ultimate Farming'
  endif
  // FINISHED VET PET HEALING MACRO-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------//
  //Pop Pouch
  if paralyzed 'self'
    usetype '0xe79'
  endif
  // Auto Strength Buff if carrying too much
  if @injournal 'to move' 'system'
    cast 'Strength'
    waitfortarget 3000
    target! 'self'
    clearjournal
    if @findtype 0xf0b 0 'backpack'
      @setalias 'Refresh' 'found'
      useobject! 'Refresh'
    else
      headmsg 'NO REFRESH POTS'
    endif
  endif
  // to avoid getting lost in the time adding routine if pet is moving
  if not inrange 'Pet1' 2
    playmacro 'Ultimate Farming'
  endif
  if not inrange 'Pet2' 2
    playmacro 'Ultimate Farming'
  endif
  if @injournal 'not damaged' 'system'
    clearjournal
    playmacro 'Ultimate Farming'
    headmsg 'GET CLOSER'
  endif
  if @injournal 'did not' 'system'
    clearjournal
    headmsg 'GET CLOSER'
    playmacro 'Ultimate Farming'
  endif
  //endwhile pet-health check
  playmacro 'Ultimate Farming'
endwhile
//endwhile for living check
endwhile