Misty Acorns

[Caffeine]

Well folks, I wanted dem' acorns, so I made this little dealy. Its ugly, clunky, and filled with repetitive code. So far it has worked for me fairly nicely. I just got this MQ2 a few days ago, and I am loving it, but because my understanding of the .ini files is still very very poor, I had to stick the entire side-determining thing in the main macro.

The main reason I made my own instead of using the more generic "Green Leaf" macros, was that none that I had found accounted for the Misty Thicket's wall down the middle. This one does that. Without further delay, here is the macro:

P.S. If you folks likey, have requests on it, or find bugs (I haven't tested the program very throughly) feel free to post away.

P.P.S. By the way, what I say at the top about using psykotic and BrainDeath's code is refering to a very well made program by those authors which collects Fungi in Kaladim for brewing. Thanks to those guys even though I stole their code without any remose.

Code: Select all

| Misty Thicket Acorns Macro : acorns.mac
| Macro by "Caffeine"; 
| DummyMode portion contributed unknowingly by psykotic and BrainDeath

#chat tell
#event AcornsOut "[MQ2] NULL"
Sub Main
/declare Side int outer 2
/declare TSide int outer
/declare Pause timer outer
/declare X2 int outer
/declare Y2 int outer
/declare LocYP2 int outer
/declare LocYM2 int outer
/declare LocXP2 int outer
/declare LocXM2 int outer
| Time in minutes to wait if GM zones in or person gets too close.
/declare DummyTime int outer
/declare DummyTime2 int outer 15
/declare Count int outer
/declare X int outer
/declare Y int outer
/declare LocX int outer
/declare LocXP int outer
/declare LocXM int outer
/declare LocY int outer
/declare LocYP int outer
/declare LocYM int outer
:Begin
/varcalc DummyTime ${DummyTime2}*600
/doevents
/if (${Spawn[gm].ID}) /call DummyMode 
/varset Count 100
/itemtarget *Green
/doevents
|------------------------Begin Determine Side (Aimed for accuracy)----------------|
/varset X ${Me.X}
/varset Y ${Me.Y}
/if (${X}<-38.51 && ${Y}>-148.95) /varset Side 1
/if (${Y}<-148.95 && ${Y}>-180.77 && ${X}<-60.01) /varset Side 1
/if (${Y}<-180.77 && ${Y}>-217.53 && ${X}<-92.28) /varset Side 1
/if (${Y}<-217.53 && ${Y}>-250.21 && ${X}<-117.23) /varset Side 1
/if (${Y}<-250.21 && ${Y}>-281.90 && ${X}<-132.30) /varset Side 1
/if (${Y}<-281.90 && ${Y}>-318.48 && ${X}<-149.63) /varset Side 1
/if (${Y}<-318.48 && ${Y}>-353.96 && ${X}<-168.68) /varset Side 1
/if (${Y}<-353.96 && ${Y}>-372.38 && ${X}<-194.76) /varset Side 1
/if (${Y}<-372.38 && ${Y}>-406.97 && ${X}<-242.62) /varset Side 1
/if (${Y}<-406.97 && ${Y}>-436.08 && ${X}<-286.41) /varset Side 1
/if (${Y}<-436.08 && ${Y}>-458.42 && ${X}<-312.38) /varset Side 1
/if (${Y}<-458.42 && ${Y}>-487.87 && ${X}<-312.73) /varset Side 1
/if (${Y}<-487.87 && ${Y}>-552.88 && ${X}<-313.52) /varset Side 1
/if (${Y}<-552.88 && ${Y}>-580.92 && ${X}<-337.42) /varset Side 1
/if (${Y}<-580.92 && ${Y}>-604.01 && ${X}<-361.09) /varset Side 1
/if (${Y}<-604.01 && ${Y}>-623.84 && ${X}<-381.41) /varset Side 1
/if (${Y}<-623.84 && ${Y}>-646.12 && ${X}<-404.25) /varset Side 1
/if (${Y}<-646.12 && ${Y}>-656.06 && ${X}<-419.88) /varset Side 1
/if (${Y}<-656.06 && ${Y}>-701.68 && ${X}<-421.05) /varset Side 1
/if (${Y}<-701.68 && ${Y}>-760.85 && ${X}<-422.01) /varset Side 1
/if (${Y}<-760.85 && ${Y}>-788.74 && ${X}<-434.44) /varset Side 1
/if (${Y}<-788.74 && ${Y}>-844.72 && ${X}<-459.62) /varset Side 1
/if (${Y}<-844.72 && ${Y}>-860.35 && ${X}<-464.97) /varset Side 1
/if (${Y}<-860.35 && ${X}<-466.83) /varset Side 1
/if (${X}>-38.51 && ${Y}>-148.95) /varset Side 0
/if (${Y}<-148.95 && ${Y}>-180.77 && ${X}>-60.01) /varset Side 0
/if (${Y}<-180.77 && ${Y}>-217.53 && ${X}>-92.28) /varset Side 0
/if (${Y}<-217.53 && ${Y}>-250.21 && ${X}>-117.23) /varset Side 0
/if (${Y}<-250.21 && ${Y}>-281.90 && ${X}>-132.30) /varset Side 0
/if (${Y}<-281.90 && ${Y}>-318.48 && ${X}>-149.63) /varset Side 0
/if (${Y}<-318.48 && ${Y}>-353.96 && ${X}>-168.68) /varset Side 0
/if (${Y}<-353.96 && ${Y}>-372.38 && ${X}>-194.76) /varset Side 0
/if (${Y}<-372.38 && ${Y}>-406.97 && ${X}>-242.62) /varset Side 0
/if (${Y}<-406.97 && ${Y}>-436.08 && ${X}>-286.41) /varset Side 0
/if (${Y}<-436.08 && ${Y}>-458.42 && ${X}>-312.38) /varset Side 0
/if (${Y}<-458.42 && ${Y}>-487.87 && ${X}>-312.73) /varset Side 0
/if (${Y}<-487.87 && ${Y}>-552.88 && ${X}>-313.52) /varset Side 0
/if (${Y}<-552.88 && ${Y}>-580.92 && ${X}>-337.42) /varset Side 0
/if (${Y}<-580.92 && ${Y}>-604.01 && ${X}>-361.09) /varset Side 0
/if (${Y}<-604.01 && ${Y}>-623.84 && ${X}>-381.41) /varset Side 0
/if (${Y}<-623.84 && ${Y}>-646.12 && ${X}>-404.25) /varset Side 0
/if (${Y}<-646.12 && ${Y}>-656.06 && ${X}>-419.88) /varset Side 0
/if (${Y}<-656.06 && ${Y}>-701.68 && ${X}>-421.05) /varset Side 0
/if (${Y}<-701.68 && ${Y}>-760.85 && ${X}>-422.01) /varset Side 0
/if (${Y}<-760.85 && ${Y}>-788.74 && ${X}>-434.44) /varset Side 0
/if (${Y}<-788.74 && ${Y}>-844.72 && ${X}>-459.62) /varset Side 0
/if (${Y}<-844.72 && ${Y}>-860.35 && ${X}>-464.97) /varset Side 0
/if (${Y}<-860.35 && ${X}>-466.83) /varset Side 0
/echo ${Target.Name}
/varset X ${Target.X}
/varset Y ${Target.Y}
/if (${X}<-38.51 && ${Y}>-148.95) /varset TSide 1
/if (${Y}<-148.95 && ${Y}>-180.77 && ${X}<-60.01) /varset TSide 1
/if (${Y}<-180.77 && ${Y}>-217.53 && ${X}<-92.28) /varset TSide 1
/if (${Y}<-217.53 && ${Y}>-250.21 && ${X}<-117.23) /varset TSide 1
/if (${Y}<-250.21 && ${Y}>-281.90 && ${X}<-132.30) /varset TSide 1
/if (${Y}<-281.90 && ${Y}>-318.48 && ${X}<-149.63) /varset TSide 1
/if (${Y}<-318.48 && ${Y}>-353.96 && ${X}<-168.68) /varset TSide 1
/if (${Y}<-353.96 && ${Y}>-372.38 && ${X}<-194.76) /varset TSide 1
/if (${Y}<-372.38 && ${Y}>-406.97 && ${X}<-242.62) /varset TSide 1
/if (${Y}<-406.97 && ${Y}>-436.08 && ${X}<-286.41) /varset TSide 1
/if (${Y}<-436.08 && ${Y}>-458.42 && ${X}<-312.38) /varset TSide 1
/if (${Y}<-458.42 && ${Y}>-487.87 && ${X}<-312.73) /varset TSide 1
/if (${Y}<-487.87 && ${Y}>-552.88 && ${X}<-313.52) /varset TSide 1
/if (${Y}<-552.88 && ${Y}>-580.92 && ${X}<-337.42) /varset TSide 1
/if (${Y}<-580.92 && ${Y}>-604.01 && ${X}<-361.09) /varset TSide 1
/if (${Y}<-604.01 && ${Y}>-623.84 && ${X}<-381.41) /varset TSide 1
/if (${Y}<-623.84 && ${Y}>-646.12 && ${X}<-404.25) /varset TSide 1
/if (${Y}<-646.12 && ${Y}>-656.06 && ${X}<-419.88) /varset TSide 1
/if (${Y}<-656.06 && ${Y}>-701.68 && ${X}<-421.05) /varset TSide 1
/if (${Y}<-701.68 && ${Y}>-760.85 && ${X}<-422.01) /varset TSide 1
/if (${Y}<-760.85 && ${Y}>-788.74 && ${X}<-434.44) /varset TSide 1
/if (${Y}<-788.74 && ${Y}>-844.72 && ${X}<-459.62) /varset TSide 1
/if (${Y}<-844.72 && ${Y}>-860.35 && ${X}<-464.97) /varset TSide 1
/if (${Y}<-860.35 && ${X}<-466.83) /varset TSide 1
/if (${X}>-38.51 && ${Y}>-148.95) /varset TSide 0
/if (${Y}<-148.95 && ${Y}>-180.77 && ${X}>-60.01) /varset TSide 0
/if (${Y}<-180.77 && ${Y}>-217.53 && ${X}>-92.28) /varset TSide 0
/if (${Y}<-217.53 && ${Y}>-250.21 && ${X}>-117.23) /varset TSide 0
/if (${Y}<-250.21 && ${Y}>-281.90 && ${X}>-132.30) /varset TSide 0
/if (${Y}<-281.90 && ${Y}>-318.48 && ${X}>-149.63) /varset TSide 0
/if (${Y}<-318.48 && ${Y}>-353.96 && ${X}>-168.68) /varset TSide 0
/if (${Y}<-353.96 && ${Y}>-372.38 && ${X}>-194.76) /varset TSide 0
/if (${Y}<-372.38 && ${Y}>-406.97 && ${X}>-242.62) /varset TSide 0
/if (${Y}<-406.97 && ${Y}>-436.08 && ${X}>-286.41) /varset TSide 0
/if (${Y}<-436.08 && ${Y}>-458.42 && ${X}>-312.38) /varset TSide 0
/if (${Y}<-458.42 && ${Y}>-487.87 && ${X}>-312.73) /varset TSide 0
/if (${Y}<-487.87 && ${Y}>-552.88 && ${X}>-313.52) /varset TSide 0
/if (${Y}<-552.88 && ${Y}>-580.92 && ${X}>-337.42) /varset TSide 0
/if (${Y}<-580.92 && ${Y}>-604.01 && ${X}>-361.09) /varset TSide 0
/if (${Y}<-604.01 && ${Y}>-623.84 && ${X}>-381.41) /varset TSide 0
/if (${Y}<-623.84 && ${Y}>-646.12 && ${X}>-404.25) /varset TSide 0
/if (${Y}<-646.12 && ${Y}>-656.06 && ${X}>-419.88) /varset TSide 0
/if (${Y}<-656.06 && ${Y}>-701.68 && ${X}>-421.05) /varset TSide 0
/if (${Y}<-701.68 && ${Y}>-760.85 && ${X}>-422.01) /varset TSide 0
/if (${Y}<-760.85 && ${Y}>-788.74 && ${X}>-434.44) /varset TSide 0
/if (${Y}<-788.74 && ${Y}>-844.72 && ${X}>-459.62) /varset TSide 0
/if (${Y}<-844.72 && ${Y}>-860.35 && ${X}>-464.97) /varset TSide 0
/if (${Y}<-860.35 && ${X}>-466.83) /varset TSide 0
:Z
/doevents
/if (${Spawn[gm].ID}) /call DummyMode 
|------------------------End Determine Side (Aimed for accuracy)----------------|
/if (${Side}==${TSide}) /goto :GoTo
/if (${Side}!=${TSide}) /goto :Side
:GoTo
/if (${Target.Distance}<10) /goto :GoTo2
/delay 1
| -----------------------------------STUCK LOOP---------------------|
	/varset X2 ${Me.X}
	/varset Y2 ${Me.Y}
	/varcalc LocXP2 ${X2}+1
	/varcalc LocXM2 ${X2}-1
	/varcalc LocYP2 ${Y2}+1
	/varcalc LocYM2 ${Y2}-1
	/varset Count 100
	  /if (${Spawn[gm].ID}) /call DummyMode 
	/delay 5
	/if (${LocXP2}>${Me.X} && ${LocXM2}<${Me.X} && ${LocYP2}>${Me.Y} && ${LocYM2}<${Me.Y}) {
		/face loc ${Math.Rand[10000], ${Math.Rand[10000]
		/keypress forward hold
		/delay 2s
		/goto :Begin
		}
/keypress forward hold
/face
/varset Count ${Count}-1
/goto :GoTo
:GoTo2
/keypress forward
/click left item
/delay 8
/autoinv
  /if (${Spawn[gm].ID}) /call DummyMode 
/goto :Begin

:Side
/if (${Side}==0 && ${TSide}==1) {
/varset	LocY -100.00
/varset LocX 13.58
/varcalc LocXP ${LocX}+10
/varcalc LocXM ${LocX}-10
/varcalc LocYP ${LocY}+10
/varcalc LocYM ${LocY}-10
	/varset X2 ${Me.X}
	/varset Y2 ${Me.Y}
	/varset Count 100
	/delay 3
	/if (${X2}==${Me.X} && ${Y2}==${Me.Y}) {
		/face loc ${Math.Rand[10000], ${Math.Rand[10000]
		/keypress forward hold
		/delay 2s
		/goto :Begin
		}       
		  /if (${Spawn[gm].ID}) /call DummyMode          
:Loopa
/face loc ${LocY}, ${LocX}
/keypress forward hold
	/varset X2 ${Me.X}
	/varset Y2 ${Me.Y}
	/varcalc LocXP2 ${X2}+1
	/varcalc LocXM2 ${X2}-1
	/varcalc LocYP2 ${Y2}+1
	/varcalc LocYM2 ${Y2}-1
	/varset Count 100
	/delay 5
	/if (${LocXP2}>${Me.X} && ${LocXM2}<${Me.X} && ${LocYP2}>${Me.Y} && ${LocYM2}<${Me.Y}) {
		/face loc ${Math.Rand[10000], ${Math.Rand[10000]
		/keypress forward hold
		/delay 2s
		/goto :Begin
		}
		  /if (${Spawn[gm].ID}) /call DummyMode 
/varset X ${Me.X}
/varset Y ${Me.Y}
/if (${LocXP}>${Me.X} && ${LocXM}<${Me.X} && ${LocYP}>${Me.Y} && ${LocYM}<${Me.Y}) /goto :Loopb
/goto :Loopa
:Loopb
/varset LocY -100.00
/varset LocX -88.00
/varcalc LocXP ${LocX}+10
/varcalc LocXM ${LocX}-10
/varcalc LocYP ${LocY}+10
/varcalc LocYM ${LocY}-10
	/varset X2 ${Me.X}
	/varset Y2 ${Me.Y}
	/varcalc LocXP2 ${X2}+1
	/varcalc LocXM2 ${X2}-1
	/varcalc LocYP2 ${Y2}+1
	/varcalc LocYM2 ${Y2}-1
	/varset Count 100
	/delay 5
	/if (${LocXP2}>${Me.X} && ${LocXM2}<${Me.X} && ${LocYP2}>${Me.Y} && ${LocYM2}<${Me.Y}) {
		/face loc ${Math.Rand[10000], ${Math.Rand[10000]
		/keypress forward hold
		/delay 2s
		/goto :Begin
		}
/face loc ${LocY}, ${LocX}
/keypress forward hold
/if (${LocXP}>${Me.X} && ${LocXM}<${Me.X} && ${LocYP}>${Me.Y} && ${LocYM}<${Me.Y}) /goto :Begin
/goto :Loopb
}
/if (${Side}==1 && ${TSide}==0) {
:Loopc
/varset LocY -100.00
/varset LocX -88.00
/varcalc LocXP ${LocX}+10
/varcalc LocXM ${LocX}-10
/varcalc LocYP ${LocY}+10
/varcalc LocYM ${LocY}-10
		/varset X2 ${Me.X}
	/varset Y2 ${Me.Y}
	/varcalc LocXP2 ${X2}+1
	/varcalc LocXM2 ${X2}-1
	/varcalc LocYP2 ${Y2}+1
	/varcalc LocYM2 ${Y2}-1
	/varset Count 100
	/delay 5
	/if (${LocXP2}>${Me.X} && ${LocXM2}<${Me.X} && ${LocYP2}>${Me.Y} && ${LocYM2}<${Me.Y}) {
		/face loc ${Math.Rand[10000], ${Math.Rand[10000]
		/keypress forward hold
		/delay 2s
		/goto :Begin
		}
		  /if (${Spawn[gm].ID}) /call DummyMode 
/face loc ${LocY}, ${LocX}
/keypress forward hold
/if (${LocXP}>${Me.X} && ${LocXM}<${Me.X} && ${LocYP}>${Me.Y} && ${LocYM}<${Me.Y}) /goto :Loopd
/goto :Loopc
:Loopd
/varset	LocY -100.00
/varset LocX 13.58
/varcalc LocXP ${LocX}+10
/varcalc LocXM ${LocX}-10
/varcalc LocYP ${LocY}+10
/varcalc LocYM ${LocY}-10
		/varset X2 ${Me.X}
	/varset Y2 ${Me.Y}
	/varcalc LocXP2 ${X2}+1
	/varcalc LocXM2 ${X2}-1
	/varcalc LocYP2 ${Y2}+1
	/varcalc LocYM2 ${Y2}-1
	/varset Count 100
	/delay 5
	/if (${LocXP2}>${Me.X} && ${LocXM2}<${Me.X} && ${LocYP2}>${Me.Y} && ${LocYM2}<${Me.Y}) {
		/face loc ${Math.Rand[10000], ${Math.Rand[10000]
		/keypress forward hold
		/delay 2s
		/goto :Begin
		}           
/face loc ${LocY}, ${LocX}
/keypress forward hold
/varset X ${Me.X}
/varset Y ${Me.Y}
/if (${LocXP}>${Me.X} && ${LocXM}<${Me.X} && ${LocYP}>${Me.Y} && ${LocYM}<${Me.Y}) /goto :Begin
/goto :Loopd
}

:Pause
/echo PAUSE
/echo PAUSE
/echo PAUSE
/echo PAUSE
/endmacro
/return

Sub event_AcornsOut
/echo Acorns out, entering Delay sequence
/afk Back in a few my good friends.
/keypress forward
/sit
/delay 4m
/return

Sub event_chat
/call DummyMode
/return



Sub DummyMode 
   /beep 
   /beep 
   /beep 
   /echo Entering Dummy Mode... 
   /afk Be back in a wee bit.
   /sit on 
   :waitabit 
   /delay ${DummyTime} 
   /if (${Spawn[gm].ID}) /call DummyMode 
   /afk off 
   /stand
   /call Main 
/return 

[Icus]

Caffe, I tried your macro, it works pretty well, I got stuck in a crevice once but no biggie. One thing I noticed tho, there must be an embedded acorn on one hilltop, the character has an acorn targeted but continuously circles the one hill after she has picked up all the visible ones. She only went into macro delay to wait for spawns one time then started going to that hilltop. I cant tell what is or is not actually spawned under there. Im pretty new to MQ2 but spent a lot of time over at F-H. net.

Any suggestions on modifying your macro to disregard the target if it is not aquired and pocketed within a set time? I am not used to MQ2 format and a hand with this would help me to understand and make the macro that much smoother and efficient.

[Icus]

Went back and tried it a few times more. Macro works best without Speed buffs on. And there IS! a buried acorn on that hill at certain times LOL.

If you use Sow, wolf or bardie buffs, chances are you will overshoot the target, make a turn and try to aquire it again but you are still moving too fast to stop in time to pick it up, hence the circling effect on Non buried targets.

[Caffeine]

Well, I can't really think of a way to ignore a specific spawn without writing it in specifically. What server are you on? If it's still causing you problems with that one under the hill, I will come take a look at it if you want a write you a little script that will ignore that specific one if it is indeed impossible to pick up even manually.

On the subject of the speed buffs thing, today I ran it while walking, and probably due to the delay times it would assume the acorns were out, so basic running (I don't have any run aas) seems to work best, although it definately looks goofy while circling around.

Just now, as I was running it, I found one stuck in a tree stump. So far I haven't come up with a reasonable fix, perhaps allowing it to /click left item from a farther distance, but first I will need to test the max distance that this can be done from.

[jdelpheki]

looks like it targets nearest acorn you could have toon return to hole on delay so she targets a closer one. just an idea

[OBCENEIKON]

hmm, seems you cant have the map open while using this macro. It crashed on me twice, couldnt figure out why. Got back in the third time, ran macro and it started working, opened the map and boom, straight to desktop.

Also Runspeed 3 doesnt help this macro, I just watched the macro the whole time and turned on walk when i got close to an acorn.


***edit***
actually its a bug in MQ2, cant have map open while using /itemtarget

[bandrent]

This works most of the time as long as you have no speed buff. Alot of the time it will circle for a wile before grabing it. Still easyer that doing it manualy

[BrainDeath]

I had a similar problem with my ground spawn harvester.

I added a /delay 5 between

/face and

/keypress forward hold

as suggested by Grumpy and it fixed it right up.

[Vladiimir]

This is the most HELPFUL macro I've ever seen. I need acorns for Cultural Smithing for my paladin and druids armor and this has gotten me over 3 stacks in less then 20 minutes. Beautiful job Caff, best mac I've used yet =) only problem is while running it, You get stuck on the wall dividing Misty sometimes, but no biggy. Also when it goes into Dummy Mode or Turns off, is there a way to get it to start back up after a respawn is targetted, So I could run this overnight or something. Just curious



***** LoL don't mind this post, I messed something up so it wouldn't restart getting acorns. Fixed it, but it still goes dummy mode even when acorns are up, whats up with that? *****

[aChallenged1]

You should never ask for AFK macros, it leaves you wide open for flames.

[Vladiimir]

well not exactly AFK, but able to do chores and what not while I farm them. For instance, doing Laundry and coming back and checking to make sure everything is ok!

The main problem i'm having is geting stuck behind trees and running in circles around certain acorns with no run speed. Just happens sometimes, but no big deal. Challenge, stop following me

[aChallenged1]

I follow the new posts, hehe, not the poster.

I think I saw something in this thread about changing the delay time. Start by looking for that post and go from there.

[Vladiimir]

Alright, Thanks for the Info, I'll Check it Out, and maybe try and change the pathing so that it goes around trees