• You've discovered RedGuides 📕 an EverQuest multi-boxing community 🛡️🧙🗡️. We want you to play several EQ characters at once, come join us and say hello! 👋
  • IS THIS SITE UGLY? Change the look. To dismiss this notice, click the X --->

yafm forage macro (1 Viewer)

shadowman33

Member
Joined
Jan 26, 2005
RedCents
70¢
The macro that I have always used for my foraging is the yafm.mac
It is a great macro that has never given me any problems at all. What I am trying to do is find out a way to build into it, the ability to check to see if I am camo'd (druid) and if not, recast "Improved Superior Camouflage" in order to keep me invis. I use this macro alot to sit in Broodlands to forage scale ore while I box on an alt. All attempts so far to do this by me has just mutilated the macro LOL being the horrible (understatement) coder that I am. I am still trying to figure it out, but if anyone has maybe already done this let me know plz. This is not the original code, it has been altered to sit you back down and check for combat, but works great.


Rich (BB code):
 yafm.mac 
 Yet Another Forage Macro 
 Ini File: yafm.ini 
 0 = destroy 
 1 = keep 
 Idea borrowed from bootyjuice, twisted and warped by steggo to fill his 
 needs. Beware if you are an iksar monk and fiegn, then your forage skill 
 resets while you're down... you will stand up, then sit back down, likely 
 getting beat on the whole time. 
 You've been warned, easy to fix, just no point as a ranger. 
**| 

#event Success "You have scrounged #*#" 
#event Camp "It will take about #*#" 

|||||||||||||||||||| 
| Main 
|||||||||||||||||||| 
sub Main 

/declare Forage int outer 
/varset Forage 1 

   | Verify that we have the ability to forage. 
   /if (${Me.Skill[Forage]}==0) { 
      /echo You cannot forage, silly person! 
      /goto :Exit 
   } 

   :Forage 
   | If we can forage then prepare to do so and return to previous state-- 
   | sitting or attacking so far. 

   /if ( ${Forage}==1 && ${Me.AbilityReady[Forage]}) { 
         /if ( ${Window[BigBankWnd].Open}) { 
            /goto :Forage 
         } 
         /if ( ${Window[SpellBookWnd].Open}) { 
            /goto :Forage 
         } 
         /if ( ${Me.Casting.ID}) { 
            /goto :Forage 
         } 
      /if (${Me.State.NotEqual[STAND]}) { 
        /stand 
        /delay 1s 
        /doability forage 
        /sit 
      } else /if (${Me.Combat})   { 
        /attack off 
        /delay 1s 
        /doability forage 
        /delay 1s 
        /attack on 
      } else { 
      /doability forage 
      } 
   } 
   /doevents      
   /goto :Forage  

:Exit 
/return 
|||||||||||||||||||| 
| Success 
|||||||||||||||||||| 
sub Event_Success 
   /if (${Cursor.ID}) { 
      /call HandleItem 
   } 
/return 

|||||||||||||||||||| 
| Camp 
|||||||||||||||||||| 
sub Event_Camp 
   /echo "Camping, macro ended." 
   /endmacro 
/return 
|||||||||||||||||||| 
| HandleItem 
|||||||||||||||||||| 
sub HandleItem 

   /declare ItemSetting int local 
   /declare NotFound int local 
   /varset NotFound -1 
   | Look up this item in yafm.ini 
   /varset ItemSetting ${Ini[yafm.ini,ForageList,${Cursor.Name},${NotFound}]} 
   /delay 5 
   | If the item isn't in the .ini file then add it. 
   /if (${ItemSetting}==${NotFound}) { 
      /ini "yafm.ini" "ForageList" "${Cursor.Name}" "1" 
      /varset ItemSetting 1 
   } 
   | If we're keeping this item then stash it in our bags. 
   | Otherwise, just destroy it. 
   /if (${ItemSetting}==1) { 
      :LootIt 
      /autoinventory 
      /delay 5 
      /if (${Cursor.ID}) /goto :LootIt 
   } else { 
      /destroy 
   } 

/return
 
you will need to talk to Siddin perhaps but you should be able to have it check for "buff" status but you will probly need to run another scrpit in conjuction with it.
 
yafm forage macro

Users who are viewing this thread

Back
Top