Page 1 of 2
KISS Forage
Posted: Thu Jun 03, 2004 6:09 am
by MoonRaverX
Ok, everyone has such elaborate forage macros, though I'd release a nice, simple one that you can run anytime, and it never loses anything. You're required only to have free inventory space.
Code: Select all
| Name: KISS Forage
| File: forage.mac
| Ver : 1.0 Final
| Date: 6/3/04
| Auth: MoonRaver
| Desc: forage, autoinventory. keep it simple ...
Sub Main
:loop
/if (${Me.AbilityReady["Forage"]}) {
/call CheckCursor
/doability "Forage"
/delay 20
/call CheckCursor
}
/goto :loop
/endmacro
sub CheckCursor
:checkcursor
/if (${Cursor.ID}) {
/autoinventory
/goto :checkcursor
}
/return
Re: KISS Forage
Posted: Thu Jun 03, 2004 8:50 am
by Fuergrissa
MoonRaverX wrote:Ok, everyone has such elaborate forage macros, though I'd release a nice, simple one that you can run anytime, and it never loses anything. You're required only to have free inventory space.
Code: Select all
| Name: KISS Forage
| File: forage.mac
| Ver : 1.0 Final
| Date: 6/3/04
| Auth: MoonRaver
| Desc: forage, autoinventory. keep it simple ...
Sub Main
:loop
/if (${Me.AbilityReady["Forage"]}) {
[color=red] /call CheckCursor[/color]
/doability "Forage"
/delay 20
[color=red] /call CheckCursor[/color]
}
/goto :loop
/endmacro
sub ClearCursor
:checkcursor
/if (${Cursor.ID}) {
/autoinventory
/goto :checkcursor
}
/return
Did you run this before you posted it ?
Posted: Thu Jun 03, 2004 8:51 am
by Oid
I am guessing..... no
Posted: Fri Jun 04, 2004 11:50 am
by Glasscoin
Code: Select all
| Name: KISS Forage
| File: forage.mac
| Ver : [color=red]1.0 Final[/color]
| Date: 6/3/04
| Auth: MoonRaver
| Desc: forage, autoinventory. keep it simple ...
Now it'll never be fixed!
Posted: Fri Jun 04, 2004 1:02 pm
by Chill
Guys wtf? I'm telling you:
Code: Select all
Sub Main
:Loop[b]
/if (${Cursor.ID}) /autoinventory
/if (${Me.AbilityReady[Forage]}) /doability Forage[/b]
/goto :Loop
/return
/sigh
I
challenge anyone to break this code (before the next patch) or produce a dedicated forage macro that will produce more forages per hour.
If you want a KISS forage macro, why add the fluff?
Posted: Fri Jun 04, 2004 1:17 pm
by s16z
Check this thread out for short forage macros, you might have to read down some:
http://macroquest2.com/phpBB2/viewtopic.php?t=7326
Posted: Fri Jun 04, 2004 2:09 pm
by Fuergrissa
i think you have missed the point here, i made a comment because someone had posted NON WORKING macros in a section without even bothering to test the code, fixing the macro is easy but thats not the point. If your going to post macros at least run them first to see if they work.
Posted: Fri Jun 04, 2004 5:47 pm
by MoonRaverX
don't ask me what i did... i SWEAR they matched prior... not quite final i guess, final now
Posted: Fri Jun 04, 2004 5:48 pm
by MoonRaverX
oh, and what heppens to you macro when you have multiple items on your cursor?
Posted: Fri Jun 04, 2004 6:16 pm
by Glasscoin
It will go through the loop and /autoinventory until there's nothing left on the cursor.
Posted: Sat Jun 05, 2004 4:24 pm
by Chill
MoonRaverX wrote:oh, and what heppens to you macro when you have multiple items on your cursor?
Nothing. Foraging only ever finds 1 item. So if its running on its own, it will only ever get 1 item per cycle. You could have something on your cursor before you start, but my macro checks the cursor before it tries to forrage, so that takes care of that.
Of course there is the timing issue and there could be a bit of lag before the item appears, but the only time the cursor needs to be empty is immediately before you attempt to forage so that the forrage attempt is not wasted. Again, putting the /autoinventory just before the forage line takes care of that.
Posted: Sat Jun 19, 2004 11:22 pm
by NBarnes
Chill wrote:Guys wtf? I'm telling you:
Code: Select all
Sub Main
:Loop[b]
/if (${Cursor.ID}) /autoinventory
/if (${Me.AbilityReady[Forage]}) /doability Forage[/b]
/goto :Loop
/return
/sigh
I
challenge anyone to break this code (before the next patch) or produce a dedicated forage macro that will produce more forages per hour.
If you want a KISS forage macro, why add the fluff?
I am not that familiar with the technicalities of this, but... won't this run in an uncontrolled loop? Would adding a /delay call to this be a good idea, to let the rest of the system catch a breath from running this loop? Again, I don't know, it's certainly possible that MQ2 takes care of that iteself and you know that and I don't so I'm being ignorant in my paranoia, but I am concerned.
Posted: Mon Jun 21, 2004 5:59 am
by Fuergrissa
NBarnes wrote:Chill wrote:Guys wtf? I'm telling you:
Code: Select all
Sub Main
:Loop[b]
/if (${Cursor.ID}) /autoinventory
/if (${Me.AbilityReady[Forage]}) /doability Forage[/b]
/goto :Loop
/return
/sigh
I
challenge anyone to break this code (before the next patch) or produce a dedicated forage macro that will produce more forages per hour.
If you want a KISS forage macro, why add the fluff?
I am not that familiar with the technicalities of this, but... won't this run in an uncontrolled loop? Would adding a /delay call to this be a good idea, to let the rest of the system catch a breath from running this loop? Again, I don't know, it's certainly possible that MQ2 takes care of that iteself and you know that and I don't so I'm being ignorant in my paranoia, but I am concerned.
Not technically no, the code here:
Code: Select all
/if (${Me.AbilityReady[Forage]}) /doability Forage[/b]
will only do forage if it is available, it is a loop of course but not Uncontrolled.
Posted: Wed Jul 28, 2004 11:35 am
by Noobalicious
So I save this code in a file forage.mac and stick it in the macrs folder, right? But what do I do then?
Posted: Wed Jul 28, 2004 12:58 pm
by Fuergrissa
Noobalicious wrote:So I save this code in a file forage.mac and stick it in the macrs folder, right? But what do I do then?
What you need to do then is
Read and Inwardly Digest the manual.
We are not here to hand to you ON A PLATE ways for YOU to Cheat in Everquest. Learn Like every other person here has too, I don't mind helping but YOUR takin the piss.