Mechy.mac [20ish-35ish] afkable - ((SexY))

Post your completed (working) macros here. Only for macros using MQ2Data syntax!

Moderator: MacroQuest Developers

xantan2
a lesser mummy
a lesser mummy
Posts: 51
Joined: Sat Apr 08, 2006 6:51 pm
Location: nv
Contact:
Contact xantan2

Mechy.mac [20ish-35ish] afkable - ((SexY))

Post by xantan2 » Fri Aug 25, 2006 1:37 am

Yo, im back from oregon and with good news! santa claus is back with another horrible present, you guessed it, a macro for necros, yet again, I left this on for 5 days straight, i kid you not, well the macro didnt actually go for 5 days lolz it camped and such,i used macro #2, of course i dont ever afk, my brother *watched* it! i went 23-36, and apparently i died somehow at 36, probably got trained, or i was so freakishly laggy and it all went down hill.
Ok - some things you need to know
The first macro i tested for awhile and it seemed to work, its for if you DO NOT i repeat DO NOT have a pet buff spell like intensify dead, burnout, whatev. I spent less time on this macro, because, at 23 necros got a pet buff and i happend to get it, so, i used it. Ok, and to get to the mechy you find ryin colin, i think u can search for him, tinkering man i suppose, and just start the macro before you go up to him after you cross that little bridge thing before the tunnel and before the mechanic, ish that area? duynno. Heres first macro: (not the greattt one)

Code: Select all

|Mechy.mac By Xantan2/Xantan
|Directions:
|Kill a Mechanic and pick up the money on him (MODIFY IF YOU WILL GET BURDENED)
|Start this macro Near Ryan Colin or the mechanic in akanon near the water... lots of water. or just somewhere near there... cant find it? go to the necro from the front of akanon, ok, so before you go through the second tunnel look to your left, and wallah, a mechanic, start this macro after you cross the bridge.
|Spells:
|Mem a shielding or random buff in gem 5 I used Shielding.
|Mem a mana regen buff or random buff in gem 6 I used Alluring Death.
|Mem a nuke or lifesteal buff in gem 1 I used LifeDraw
|Mem a dot or another nuke in Slot 2 I used Heat Blood
|Mem a snare or another dot or another nuke in slot 4 I used Clinging Darkness
|Mem your pet spell in slot 7 or a buff if you have no pet... but i dont see how you could do this macro with no pet, I used animate dead
|Make sure you NEVER click anything, it could screw with the macro, and also, make sure you let it do the moving and casting or it might miss something important.
|This macro can be easilly modified for anyone with a pet, or, if your crazy, you can even modify it easilly for someone without a pet.
|Considering i did this on a level 20 necro with no gear at all besides cloth, I think it'd be easy for anyone to do it.
|Make sure you have lots of food and drink, and lots of whatever it takes to summon your pet!
|Make sure your pet is level 16+ and you have at least a dot as good as heat blood, or just alot of good nukes. GL. Its just like my other macros cept for this is one mob only. CARGO Is Cancelled. Grep is probably next.COMPLETELY NEW CODE NOT THIS GAYASS HORRID SHIT! :-) Skelly.mac 8-13 coggy macro 13-20, mechy 20-35ish grep till 40? ish!OMGZ! and even more to come after that!


#turbo

Sub Main
/echo Getting to med point, medding to full, buffing, getting pet, then medding, then we'll start killing some Mechs in Akanon
/keypress ESC
/goto :oom


:Mechy
/keypress ESC
/if (${Me.PctMana} < 80) /goto :oom
/target npc a mechanic radius 200
/if (${Target.ID}==FALSE) {
/delay 180
/goto :oom2
} else {
/pet attack
/delay 15
/pet attack
/delay 15
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/delay 60
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/delay 180
/cast 4
/delay 60
/cast 1
/delay 1
/cast 1
/delay 1
/cast 1
/delay 1
/cast 1
/delay 1
/cast 1
/delay 1
/cast 1
/delay 1
/cast 1
/delay 1
/cast 1
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 55
/cast 1
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 4
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 60
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 4
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 40
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 4
/delay 60
/if (${Target.ID}==FALSE) /goto :mob1dead
/if (${Target.ID}==TRUE) /cast 4
/delay 30
:mob1dead
/if (${Target.ID}==TRUE) /delay 100
/delay 10
/cast 6
/delay 70
/sit down
/delay 100
/target pet radius 200
/delay 10
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/if (${Target.PctHPs}<80) {
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 1
/target pet
/delay 5
/goto :sell
} else {
/delay 5
/goto :sell



:oom
/pet follow me
/delay 2
/keypress ESC
/delay 10
/echo heading to oom spot, then medding + buffing.
/delay 5
/moveto loc 1516.37 -173.21
/delay 120
/target pet radius 30
/if (${Target.ID}==FALSE) /delay 80
/pet guard here
/delay 20
/pet sit down
/moveto loc 1666.04 -239.69
/delay 130
/keypress F1
/delay 10
/cast 6
/delay 1
/cast 6
/delay 1
/cast 6
/delay 1
/cast 6
/delay 1
/cast 6
/delay 90
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 80
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 10
/target pet radius 200
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 130
/tar pet radius 200
/delay 5
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
:oom2
/target pet radius 200
/delay 3
/if (${Target.ID}==FALSE) /goto :makepet
/delay 10
/if (${Me.PctMana} > 90) /goto :mechy
/delay 20
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 140
/if (${Me.PctMana} > 90) /goto :mechy
/goto :oom2





:sell
/delay 2
/keypress ESC
/delay 10
/pet follow me
/delay 10
/tar a mechanic's corpse radius 45
/delay 6
/if (${Me.Sitting} && !${Me.Mount.ID}) /stand
/delay 4
/if (${Target.ID}==FALSE) /moveto loc 1676.21 -257.77
/delay 55
/tar a mechanic's corpse radius 80
/delay 25
/if (${Target.ID}==FALSE) /goto :oom
/delay 10
/face
/delay 10
/if (${Target.Distance}>14) /goto :close
/delay 10
/face
/delay 10
/loot
/delay 10
/keypress forward
/delay 1
/keypress back
/delay 10
/keypress forward hold
/delay 2
/keypress forward
/delay 60
/moveto loc 1676.21 -257.77
/delay 50
/moveto loc 1666.04 -239.69
/delay 70
/goto :oom





:makepet
/target pet radius 200
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/if (${Target.ID}==TRUE) /goto :oom
/delay 110
/goto :oom




:close
/face
/delay 10
/if (${Target.Distance}<14) /goto :sell
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/delay 10
/goto :sell
Ok that was macro 1, it kills the mechanic, puts the pet back over where he should be, should loot the gold off the guy too, then go back and med in time for the nect one. This macro is less advanced as the next one because i didnt use it for very long, just level 20-25 or something.


Heres macro #2. Uses a pet buff in slot 3 a gate in slot 8 and everything else is the same as my others... just be smart.

Code: Select all

|Mechy2.mac By Xantan2/Xantan
|Directions:
|Kill a Mechanic and sell the first thing he drops (nothing else, im too dumb. =\
|Start this macro Near Ryan Colin or the mechanic in akanon near the water... lots of water.
|Spells:
|Mem a shielding or random buff in gem 5 I used Shielding.
|Mem a mana regen buff or random buff in gem 6 I used Alluring Death.
|Mem a nuke or lifesteal buff in gem 1 I used LifeDraw
|Mem a dot or another nuke in Slot 2 I used Heat Blood
|Mem a snare or another dot or another nuke in slot 4 I used Clinging Darkness
|Mem your pet spell in slot 7 or a buff if you have no pet... but i dont see how you could do this macro with no pet, I used Bone Walk
|Make sure you NEVER click anything, it could screw with the macro, and also, make sure you let it do the moving and casting or it might miss something important.
|This macro can be easilly modified for anyone with a pet, or, if your crazy, you can even modify it easilly for someone without a pet.
|Considering i did this on a level 20 necro with no gear at all besides cloth, I think it'd be easy for anyone to do it.
|Make sure you have lots of food and drink, and lots of whatever it takes to summon your pet!
|Make sure your pet is level 16+ and you have at least a dot as good as heat blood, or just alot of good nukes. GL. Its just like my other macros cept for this is one mob only. CARGO Is Cancelled. Grep is probably next.COMPLETELY NEW CODE NOT THIS GAYASS HORRID SHIT! :-) Skelly.mac 8-13 coggy macro 13-20, mechy 20-30ish grep till 35 ish!OMGZ! and even more to come after that!
|Because i suck at coding, heres how you set this up if you want it to sell: Open your inventory.
Put the inventory so that your bottum right slot is free, and no other slots are, and make sure that your inventory is at the bottum right of your screen so that only slot 8 shows up.
|Good.
|Now kill something, put the first slot of the window at the spot where slot 8 is.
|Now open a merchant, buy something that is stackable, put the accept button near where all the others are.
|Good. Now keep your mouse where both of those slots 
|and accept button|are for the rest of your life, then start the macro.

#turbo

Sub Main
/echo Getting to med point, medding to full, buffing, getting pet, then medding, then we'll start killing some Mechs in Akanon
/keypress ESC
/goto :oom


:Mechy
/delay 4
/if (${Me.PctMana} < 80) /goto :oom
/delay 4
/keypress ESC
/delay 2
/if (${Me.PctHPs}<10) /goto :heal4
/target npc a mechanic radius 200
/delay 4
/if (${Target.ID}==FALSE) {
/delay 130
/goto :oom2
} else {
/keypress ESC
/if (${Me.PctHPs}<10) /goto :heal4
/pet follow me
/delay 70
/cast 3
/delay 2
/cast 3
/delay 2
/if (${Me.PctHPs}<10) /goto :heal4
/cast 3
/delay 2
/cast 3
/delay 2
/cast 3
/delay 2
/cast 3
/delay 2
/if (${Me.PctHPs}<10) /goto :heal4
/cast 3
/delay 20
/target npc a mechanic radius 200
/delay 70
/pet attack
/if (${Me.PctHPs}<10) /goto :heal4
/delay 15
/pet attack
/delay 90
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/delay 60
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 2
/delay 1
/cast 2
/delay 180
/cast 4
/delay 60
/cast 1
/delay 1
/cast 1
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 1
/delay 1
/cast 1
/delay 1
/cast 1
/delay 1
/cast 1
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/cast 1
/delay 1
/cast 1
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 55
/cast 1
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 60
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 4
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 40
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/delay 60
/if (${Target.ID}==FALSE) /goto :mob1dead
/if (${Target.ID}==TRUE) /cast 4
/delay 30
:mob1dead
/if (${Target.ID}==TRUE) /delay 100
/delay 10
/if (${Me.PctHPs}<10) /goto :heal4
/cast 6
/delay 70
/sit down
/delay 100
/target pet radius 200
/delay 10
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/if (${Target.PctHPs}<80) {
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 1
/target pet
/delay 5
/if (${Me.PctHPs}<10) /goto :heal4
/goto :sell
} else {
/delay 5
/if (${Me.PctHPs}<10) /goto :heal4
/goto :sell



:oom
/pet follow me
/delay 2
/keypress ESC
/delay 1
/target pc yourfriend
/delay 3
/if (${Target.ID}==TRUE) /goto :yourfriend
/delay 2
/keypress ESC
/delay 3
/target Watchman Grep
/delay 3
/if (${Target.ID}==TRUE) /goto :grep
/delay 2
:pastgrep
/delay 1
:pastyourfriend
/delay 1
/pet follow me
/keypress ESC
/delay 10
/if (${Me.PctHPs}<10) /goto :heal4
/echo heading to oom spot, then medding + buffing.
/delay 55
/target pet radius 40
/if (${Target.ID}==FALSE) /goto :makepet
/delay 10
/if (${Me.PctHPs}<10) /goto :heal4
/pet sit down
/moveto loc 1666.04 -239.69
/delay 50
/keypress F1
/delay 10
/cast 6
/delay 1
/cast 6
/delay 1
/cast 6
/delay 1
/cast 6
/delay 1
/cast 6
/if (${Me.PctHPs}<10) /goto :heal4
/delay 90
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 80
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 10
/target pet radius 200
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 130
/tar pet radius 200
/delay 5
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
:oom2
/target pet radius 200
/delay 3
/if (${Target.ID}==FALSE) /goto :makepet
/delay 10
/if (${Me.PctMana} > 90) /goto :mechy
/delay 20
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 140
/if (${Me.PctMana} > 90) /goto :mechy
/goto :oom2





:sell
/delay 2
/keypress ESC
/delay 10
/pet follow me
/delay 10
/if (${Me.PctHPs}<10) /goto :heal4
/tar a mechanic's corpse radius 45
/delay 6
/if (${Me.Sitting} && !${Me.Mount.ID}) /stand
/delay 4
/if (${Target.ID}==FALSE) /moveto loc 1676.21 -257.77
/delay 55
/if (${Me.PctHPs}<10) /goto :heal4
/tar a mechanic's corpse radius 80
/delay 25
/if (${Target.ID}==FALSE) /moveto loc 1634.13 -220.52
/delay 65
/tar a mechanic's corpse radius 65
/delay 3
/if (${Me.PctHPs}<10) /goto :heal4
/delay 20
/if (${Target.ID}==FALSE) /goto :oom
/delay 4
/face
/delay 10
/if (${Target.Distance}>14) /goto :close
/if (${Me.PctHPs}<10) /goto :heal4
/delay 10
/face
/delay 10
/loot
/delay 10
/keypress forward
/delay 1
/keypress back
/delay 10
/keypress forward hold
/delay 2
/keypress forward
/if (${Me.PctHPs}<10) /goto :heal4
/delay 60
/moveto loc 1676.21 -257.77
/delay 50
/moveto loc 1666.04 -239.69
/delay 70
/goto :oom





:makepet
/target pet radius 200
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Target.ID}==FALSE) /cast 7
/if (${Target.ID}==TRUE) /goto :oom
/delay 110
/goto :oom




:close
/face
/delay 10
/if (${Target.Distance}<14) /goto :sell
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/if (${Me.PctHPs}<10) /goto :heal4
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/if (${Me.PctHPs}<10) /goto :heal4
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/delay 10
/goto :sell




:heal4
/echo Your hurt! getting you the hell out of here.
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 3
/cast 8
/delay 3
/cast 8
/delay 3
/cast 8
/delay 3
/cast 8
/delay 3
/cast 8
/delay 3
/cast 8
/delay 3
/cast 8
/delay 3
/cast 8
/delay 400
/camp desktop
/delay 10
/echo Camping to desktop.
/delay 280
/echo Good day!
/endmacro





:yourfriend
/delay 5
/t yourfriend Hey, this is my macro talking, i see ur in the zone, if u come to within 60 of me i will gate + camp and you can have the spot. Im already high enough, so just take it.
/delay 10
/keypress ESC
/delay 10
/target pc yourfriend 
/delay 40
/if (${Target.ID}==TRUE) /goto :yourfrienddist
/delay 5
/if (${Target.ID}==FALSE) /goto :pastyourfriend
/delay 20
:yourfrienddist
/if (${Target.Distance}>60) /goto :pastyourfriend
/delay 30
/if (${Target.Distance}<60) /goto :heal4
/delay 30
/goto :pastyourfriend




:grep
/delay 5
/t yourfriend Hey, spots all urs whenever u want, i died, im in the zone steamfont. this is macro talking. Im camping and gating.
/delay 40
/mem gate 8
/delay 100
/goto :heal4

This second macro camps when hurt, or tries, and gates, checks for watchman so it camps if he comes up cause he shouldnt be in zone, also checks for a friend, look for :yourfriend or yourfriend along this macro, press Ctrl+F (find) then search for " friend" and edit these with a friends name or learn what it does and modify it out, or just leave it, wont really do anything but check for grep. This buffs your pet, then sends it, then waits, then casts, so pet tanks for not so long, its expected for you to take the agro, macro #1 kinda does this too, except pet is put closer rather then further.


The second macro is alot better for about everything. SOOOO, you need to modify it or use it and you will do better than if you use the first, but if your lazy and dont have a clue, use the first., its smarter then the other, less moving, less gay, lol.

A few things you might know already or might need to know
-I suck at coding
-I like people that respond in comments or private messages
-I will help if you ask, not flame.
-I probably will check this more often as im back from oregon.

Yes, i also wrote a heal macro that follows this macroer around in the other macros, well, it works for this too, surprize surprize, so go use it or use whatever, or dont use it, do what i did, lasted like 4 days without dying, 23-36, lol.



**WARNING** heres the big part, it loots the mechanics gold / plat / copper / silver, doesnt delete any or whatever, keeps it, and loots nothing else cause after awhile the only people that sell to you are the people in the necro guild, i had a macro that sells to them but i doubt it works, only tested once and had this interfearance with some key binds so i fixed it then didnt test, but ill post the macro see what you can do with it, its outdated compared to 1 and 2 of mechy though
The good news about this: Money is good! after 2-4 or so days i had like 700 pp which is good i suppose, but i was encumbered...ish, so you might wanna edit this, depends... it wont really affect if you dont, i hope....lol will if you use macro 1, but not 2... well 1 a bit.. anyways, whatever

**End Warning**
Good luck, and kill some freaking mechanics.


btw: heres mechy3, tries to sell only 1 item to necro guild (NOT WORKING , JUST FOR SHOw/MAYBE FOR FREAKS THAT ARE GOOD AT CODING)
(no offense btw)

EDIT: OK I CANNOT FIGURE OUT WHAT THE HELL HAPPEND TO MY :SELL IN MECHY 3, ITS REALLY HARD TO UNDERSTAND THIS, the thing below this line, so good luck, it kinda combines 2 different spots to sell in one.
dont use this btw, unless you want it to sell and you can fix, wee? =\ necro guild = good everyone else = kos over time = no.

Code: Select all

:sell
/delay 10
/pet follow me
/delay 10
/tar a mechanic's corpse radius 50
/if (${Me.Sitting} && !${Me.Mount.ID}) /stand
/delay 4
/if (${Target.ID}==FALSE) /moveto 1676.21 -257.77
/delay 10
/tar a mechanic's corpse radius 78
/if (${Target.ID}==FALSE) /goto :oom
/face
/delay 10
/if (${Target.Distance}>14) /goto :close
/delay 10
/face
/delay 10
/loot
/delay 10
|/click right
|/delay 10
/keypress forward hold
/delay 1
/keypress back
/delay 1
/goto :oom
|/moveto 1676.21 -257.77
|/delay 50
|/moveto loc 1666.04 -239.69
|/delay 60
|/cast 3
|/delay 3
|/cast 3
|/delay 3
|/cast 3
|/delay 3
|/cast 3
|/delay 60
|/click right
|/delay 10
|/moveto loc 1666.04 -239.69
|/delay 40
|/moveto off
|/moveto loc 1558.69, -182.14
|/delay 80
|/moveto loc 1523.30 -176.80
|/delay 40
|/moveto off
|/moveto loc 1502.58 -189.54
|/delay 30
|/moveto loc 1474.29 -178.31
|/delay 40
|/moveto off
|/tar npc rylin Coil
|/delay 10
|/face
|/delay 10
|/click right target
|/delay 10
|/click left
|/delay 10
|/notify MerchantWnd MW_Sell_Button leftmouseup
|/delay 10
|/click left
|/delay 10
|/notify MerchantWnd MW_Done_Button leftmouseup
|/delay 10
|/pet guard here
|HERES OPTION # 2
|/delay 10
|/keypress Page_Down Hold
|/delay 6
|/keypress Page_Up
|/moveto loc 1689.77 -277.84
|/delay 60
|/moveto loc 2023.44 -319.40
|/delay 80
|/target npc silox azrix
|/delay 2
|/keypress Num_5
|/delay 3
|/keypress Page_UP hold
|/delay 9
|/keypress Page_Down
|:silox
|/if (${Target.Distance}<60) /goto :silox2
|/delay 20
|/goto :silox
|:silox2
|/delay 75
|/moveto loc 2002.08 -325.69
|/delay 80
|/cast 3
|/delay 1
|/cast 3
|/delay 1
|/cast 3
|/delay 1
|/cast 3
|/delay 1
|/cast 3
|/delay 1
|/cast 3
|/delay 60
|/moveto loc 2038 -182
|/delay 50
|/keypress Num_5
|/delay 10
|/click left
|/delay 10
|/moveto loc 2029.39 -405.51
|/delay 40
|/moveto loc 2091.76 -404.17
|/delay 60
|/tar npc Clockwork Merchant
|/delay 10
|/face
|/delay 10
|/click right target
|/delay 10
|/click left
|/delay 10
|/notify MerchantWnd MW_Sell_Button leftmouseup
|/delay 10
|/click left
|/delay 10
|/notify MerchantWnd MW_Done_Button leftmouseup
|/delay 10
|/goto :gate
heres the :sell stuff, this is not a working macro, just info.
OK GL OUT THERE GUYZ

PS: EDIT: IGNORE THE CODE WHERE IT LOOTS STUFF AND STUFF. WE DONT NEED TO LOOT ITEMS! IGNORE THAT BS.

Edit3: ok so i had this problem when i first ran this with the mq2moveutils automactially made keybinds, so basically open macroquest.ini go to the key binds, now save as macroquestreal.ini and delete all the key binds, not the [keybinds] though. then save it as macroquest.ini over the last one and dont reload mq2moveutils or you gotta do it again, heres what mine looked like:

Code: Select all

[MacroQuest]
(blah blah) [ (blah blah)  = that it isnt important, just leave it, go to what isnt blah blah and change it so it looks like that in yours, then save it as macroquest.ini ]

[Aliases]
(blah blah)

[Substitutions]
(blah blah)

[Plugins]
(blah blah)
mq2moveutils=mq2moveutils

[Key Binds]


[SWho Filter]
(blah Blah)

[Captions]
(blah blah)
[Caption Colors]
(blah blah)
----------------
http://SCII.us
Xantan
Top
User avatar
dont_know_at_all
Developer
Developer
Posts: 5450
Joined: Sun Dec 01, 2002 4:15 am
Location: Florida, USA
Contact:
Contact dont_know_at_all

Post by dont_know_at_all » Fri Aug 25, 2006 3:33 am

ITS REALLY HARD TO UNDERSTAND THIS
Try using comments.
Top
xantan2
a lesser mummy
a lesser mummy
Posts: 51
Joined: Sat Apr 08, 2006 6:51 pm
Location: nv
Contact:
Contact xantan2

ok

Post by xantan2 » Fri Aug 25, 2006 11:21 am

yeah so if you want him to loot all of the insane drops... (lots etc) heres the macro that does that:
This is a modification to mechy2, which buffs pet, then sends, and uses all other same spells....
you need ninjadvloot which is after this macro

Code: Select all

|Mechy.mac By Xantan2/Xantan
|same bs as the other ones.

#turbo
#include Ninjadvloot.inc

Sub Main
/echo Getting to med point, medding to full, buffing, getting pet, then medding, then we'll start killing some Mechs in Akanon
/delay 1
/call SetupAdvLootVars
/delay 1
/keypress ESC
/delay 1
/goto :oom


:Mechy
/delay 4
/if (${Me.PctMana} < 80) /goto :oom
/delay 4
/keypress ESC
/delay 2
/if (${Me.PctHPs}<10) /goto :heal4
/target npc a mechanic radius 200
/delay 4
/if (${Target.ID}==FALSE) {
/delay 130
/goto :oom2
} else {
/keypress ESC
/if (${Me.PctHPs}<10) /goto :heal4
/pet follow me
/delay 70
/cast 3
/delay 2
/cast 3
/delay 2
/if (${Me.PctHPs}<10) /goto :heal4
/cast 3
/delay 2
/cast 3
/delay 2
/cast 3
/delay 2
/cast 3
/delay 2
/if (${Me.PctHPs}<10) /goto :heal4
/cast 3
/delay 20
/target npc a mechanic radius 200
/delay 70
/pet attack
/if (${Me.PctHPs}<10) /goto :heal4
/delay 15
/pet attack
/delay 90
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/delay 60
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 2
/delay 1
/cast 2
/delay 180
/cast 4
/delay 60
/cast 1
/delay 1
/cast 1
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 1
/delay 1
/cast 1
/delay 1
/cast 1
/delay 1
/cast 1
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/cast 1
/delay 1
/cast 1
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 55
/cast 1
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/cast 1
/delay 55
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 60
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 4
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 40
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/delay 60
/if (${Target.ID}==FALSE) /goto :mob1dead
/if (${Target.ID}==TRUE) /cast 4
/delay 30
:mob1dead
/if (${Target.ID}==TRUE) /delay 100
/delay 10
/if (${Me.PctHPs}<10) /goto :heal4
/cast 6
/delay 70
/sit down
/delay 100
/target pet radius 200
/delay 10
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/if (${Target.PctHPs}<80) {
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 1
/target pet
/delay 5
/if (${Me.PctHPs}<10) /goto :heal4
/goto :sell
} else {
/delay 5
/if (${Me.PctHPs}<10) /goto :heal4
/goto :sell



:oom
/pet follow me
/delay 2
/keypress ESC
/delay 1
/target pc yourfriend necromancer
/delay 3
/if (${Target.ID}==TRUE) /goto :yourfriend
/delay 2
/keypress ESC
/delay 3
/target Watchman Grep
/delay 3
/if (${Target.ID}==TRUE) /goto :grep
/delay 2
:pastgrep
/delay 1
:pastyourfriend
/delay 1
/pet follow me
/keypress ESC
/delay 10
/if (${Me.PctHPs}<10) /goto :heal4
/echo heading to oom spot, then medding + buffing.
/delay 55
/target pet radius 40
/if (${Target.ID}==FALSE) /goto :makepet
/delay 10
/if (${Me.PctHPs}<10) /goto :heal4
/pet sit down
/moveto loc 1666.04 -239.69
/delay 50
/keypress F1
/delay 10
/cast 6
/delay 1
/cast 6
/delay 1
/cast 6
/delay 1
/cast 6
/delay 1
/cast 6
/if (${Me.PctHPs}<10) /goto :heal4
/delay 90
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Me.PctMana} > 10) /cast 5
/delay 1
/if (${Me.PctMana} > 10) /cast 5
/delay 80
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 10
/target pet radius 200
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 130
/tar pet radius 200
/delay 5
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
:oom2
/target pet radius 200
/delay 3
/if (${Target.ID}==FALSE) /goto :makepet
/delay 10
/if (${Me.PctMana} > 90) /goto :mechy
/delay 20
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 140
/if (${Me.PctMana} > 90) /goto :mechy
/goto :oom2





:sell
/delay 2
/keypress ESC
/delay 10
/pet follow me
/delay 10
/if (${Me.PctHPs}<10) /goto :heal4
/tar a mechanic's corpse radius 45
/delay 6
/if (${Me.Sitting} && !${Me.Mount.ID}) /stand
/delay 4
/if (${Target.ID}==FALSE) /moveto loc 1676.21 -257.77
/delay 55
/if (${Me.PctHPs}<10) /goto :heal4
/tar a mechanic's corpse radius 80
/delay 25
/if (${Target.ID}==FALSE) /moveto loc 1634.13 -220.52
/delay 65
/tar a mechanic's corpse radius 65
/delay 3
/if (${Me.PctHPs}<10) /goto :heal4
/delay 20
/if (${Target.ID}==FALSE) /goto :oom
/delay 4
/face
/delay 10
/if (${Target.Distance}>14) /goto :close
/if (${Me.PctHPs}<10) /goto :heal4
/delay 10
/face
/call LootCorpse
/delay 50
/loot
/delay 10
/keypress forward
/delay 1
/keypress back
/delay 10
/keypress forward hold
/delay 2
/keypress forward
/if (${Me.PctHPs}<10) /goto :heal4
/delay 60
/moveto loc 1676.21 -257.77
/delay 50
/moveto loc 1666.04 -239.69
/delay 70
/goto :oom





:makepet
/target pet radius 200
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Target.ID}==FALSE) /cast 7
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Target.ID}==FALSE) /cast 7
/if (${Target.ID}==TRUE) /goto :oom
/delay 110
/goto :oom




:close
/face
/delay 10
/if (${Target.Distance}<14) /goto :sell
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/if (${Me.PctHPs}<10) /goto :heal4
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/if (${Me.PctHPs}<10) /goto :heal4
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/delay 10
/if (${Target.Distance}>14) /moveto ID
/if (${Target.Distance}<14) /goto :sell
/delay 10
/goto :sell




:heal4
/echo Your hurt! getting you the hell out of here.
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 1
/cast 8
/delay 1
/cast 8
/delay 1
/delay 3
/cast 8
/delay 3
/cast 8
/delay 3
/cast 8
/delay 3
/cast 8
/delay 3
/cast 8
/delay 3
/cast 8
/delay 3
/cast 8
/delay 3
/cast 8
/delay 400
/camp desktop
/delay 10
/echo Camping to desktop.
/delay 280
/echo Good day!
/endmacro





:yourfriend
/delay 5
/t yourfriend Hey, this is my macro talking, i see ur in the zone, if u come to within 60 of me i will gate + camp and you can have the spot. Im already high enough, so just take it.
/delay 10
/keypress ESC
/delay 10
/target pc yourfriend necromancer
/delay 40
/if (${Target.ID}==TRUE) /goto :yourfrienddist
/delay 5
/if (${Target.ID}==FALSE) /goto :pastyourfriend
/delay 20
:yourfrienddist
/if (${Target.Distance}>60) /goto :pastyourfriend
/delay 30
/if (${Target.Distance}<60) /goto :heal4
/delay 30
/goto :pastyourfriend




:grep
/delay 5
/t yourfriend Hey, spots all urs whenever u want, i died, im in the zone steamfont. this is macro talking. Im camping and gating.
/delay 40
/mem gate 8
/delay 100
/goto :heal4
your probably gonna get encumbered, but if your running it for only a short while, use it, lotsa good stuffs, pet weapons always look cool, whatever. fine steel, gems, weird stuff.... =\

Heres ninjadvloot.inc by a_druid_00 hella nice for n00bs like myself.
I have it setup to my liking, so you might wanna just use this one i post here:
copy code like you would a macro, open a document, text notepad or something, then copy all this code, then save as ninjadvloot.inc as all files.

Code: Select all

| Ninjadvloot.inc v1.3
#Event ALCantLoot         "#*#may not loot this corpse#*#"

Sub SetupAdvLootVars
/declare ALDontLoot      int    outer
/declare CorpseRotTimer  timer  outer
/call ALLoadVar Settings LootMobs      TRUE  bool
/call ALLoadVar Settings CorpseRadius  40   int
/call ALLoadVar Settings MobsTooClose  10    int
/call ALLoadVar Settings CorpseRotTime 440s  string
/call ALLoadVar Settings ReportLoot    FALSE bool
/call ALLoadVar Settings LootChannel   echo  string
/if (!${Defined[${AlertList}]}) /declare AlertList int outer 1
/squelch /alert clear 25
/return

Sub ALLoadVar(IniSection,IniVar,IniValue,VarType)
/if (!${Defined[${IniVar}]} && ${Defined[VarType]}) /declare ${IniVar} ${VarType} outer
/declare IniString string local ${Ini[Loot.ini,${IniSection},${IniVar},NOTFOUND]}
/varset ${IniVar} ${IniString}
/if (${IniString.Equal["NOTFOUND"]}) {
  /if (${IniString.Equal["NOTFOUND"]}) /varset ${IniVar} ${IniValue}
  /ini "Loot.ini" "${IniSection}" "${IniVar}" "${${IniVar}}"
}
/return

Sub LootCorpse
/declare i          int    local
/declare LootList   string local
/call CheckCursor
/loot
/delay 3s ${Corpse.Open}
/doevents CantLoot
/if (${Target.ID}==${ALDontLoot} && ${Spawn[${ALDontLoot}].ID}) /squelch /alert add 25 id ${ALDontLoot}
/delay 3s ${Corpse.Items} || ${Target.ID}==${ALDontLoot}
/if (${Corpse.Open} && ${Corpse.Items}) {
 /declare loottotal  int    local
  :ALlootlag
  /varset loottotal ${Corpse.Items}
  /delay 1s ${loottotal}!=${Corpse.Items}
  /if (${loottotal}!=${Corpse.Items}) /goto :ALlootlag
  /for i 1 to ${loottotal}
  /if (${Corpse.Item[${i}].ID} && !${Select[${Ini[Loot.ini,"${Corpse.Item[${i}].Name.Left[1]}","${Corpse.Item[${i}]}"]},Ignore,Keep,Destroy]}) {
    /if (${Corpse.Item[${i}].NoDrop}) /ini "loot.ini" "${Corpse.Item[${i}].Name.Left[1]}" "${Corpse.Item[${i}]}" Ignore
    /if (!${Corpse.Item[${i}].NoDrop}) /ini "loot.ini" "${Corpse.Item[${i}].Name.Left[1]}" "${Corpse.Item[${i}]}" Keep
  }
  /if (${Ini[Loot.ini,"${Corpse.Item[${i}].Name.Left[1]}","${Corpse.Item[${i}]}"].NotEqual[Destroy]} && !${Me.FreeInventory} && (!${FindItemCount[=${Corpse.Item[${i}].Name}]} || (${FindItemCount[=${Corpse.Item[${i}].Name}]} && ${Corpse.Item[${i}].Stackable} && !${Corpse.Item[${i}].FreeStack})) || (${Corpse.Item[${i}].Lore} && ${FindItem[${Corpse.Item[${i}]}].ID}) || ${Ini[Loot.ini,"${Corpse.Item[${i}].Name.Left[1]}","${Corpse.Item[${i}]}"].Equal[Ignore]}) /varset LootList ${LootList}${Corpse.Item[${i}]},
  /if ((!${Corpse.Item[${i}].Lore} || !${FindItem[${Corpse.Item[${i}]}].ID}) && (${Me.FreeInventory} || (${FindItemCount[=${Corpse.Item[${i}].Name}]} && ${Corpse.Item[${i}].Stackable} && ${Corpse.Item[${i}].FreeStack})) && ${Ini[Loot.ini,"${Corpse.Item[${i}].Name.Left[1]}","${Corpse.Item[${i}]}"].Equal[Keep]}) /call LootItem ${i} Keep right
  /if (${Ini[Loot.ini,"${Corpse.Item[${i}].Name.Left[1]}","${Corpse.Item[${i}]}"].Equal[Destroy]}) /call LootItem ${i} Destroy left
  /next i
  /if (${Corpse.Items}) {
    /if (${ReportLoot}) /${LootChannel} ${LootList} left on corpse.
    /if (${Target.ID}) /squelch /alert add 25 id ${Target.ID}
    /varset CorpseRotTimer ${CorpseRotTime}
  }
}
:clickdoneffs
/nomodkey /notify LootWnd LW_DoneButton leftmouseup
/delay 5s !${Corpse.Open}
/if (${Corpse.Open}) /goto :clickdoneffs
/return

Sub LootItem(int i,DoWhat,WhichButton)
/declare CorpseItemID int local ${Corpse.Item[${i}].ID}
/nomodkey /itemnotify loot${i} ${WhichButton}mouseup
/delay 5s ${Window[ConfirmationDialogBox].Open} || !${Corpse.Item[${i}].NoDrop}
/if (${Window[ConfirmationDialogBox].Open}) /nomodkey /notify ConfirmationDialogBox Yes_Button leftmouseup
/delay 5s ${Cursor.ID} || ${WhichButton.NotEqual[left]}
/if (${DoWhat.Equal[Destroy]} && ${Cursor.ID}==${CorpseItemID}) /destroy
/delay 3s !${Corpse.Item[${i}].ID} && !${Cursor.ID}
/return

Sub LootMobs
/if (!${LootMobs} || ${SpawnCount[npc radius ${MobsTooClose} zradius 100 noalert ${AlertList}]} || !${SpawnCount[corpse radius ${CorpseRadius} zradius 100 noalert 25]} || ${Me.Combat} || (${Cursor.NoDrop} && !${Me.FreeInventory})) /return
/if (!${CorpseRotTimer}) /squelch /alert clear 25
/declare i int local
/declare CorpseList string local |
/for i 1 to ${SpawnCount[corpse radius ${CorpseRadius} zradius 100 noalert 25]}
/varset CorpseList ${CorpseList}${NearestSpawn[${i},corpse radius ${CorpseRadius} noalert 25].ID}|
/next i
/declare DeadCount int local ${SpawnCount[corpse radius ${CorpseRadius} zradius 100 noalert 25]}
/if (${Me.Mount.ID}) /dismount
/for i 1 to ${DeadCount}
/if (${Spawn[${CorpseList.Arg[${i},|]}].Deity.ID} && ${Spawn[${CorpseList.Arg[${i},|]}].ID}) /squelch /alert add 25 id ${Spawn[${CorpseList.Arg[${i},|]}].Deity.ID}
/if (!${Spawn[${CorpseList.Arg[${i},|]}].Deity.ID}) {
  /if (${Target.ID}!=${Spawn[${CorpseList.Arg[${i},|]}].ID}) /target id ${Spawn[${CorpseList.Arg[${i},|]}].ID}
  /if (!${Me.Standing}) /stand
  /delay 2s ${Target.ID}==${Spawn[${CorpseList.Arg[${i},|]}].ID} && ${Me.Standing}
  /if (${Spawn[${CorpseList.Arg[${i},|]}].Distance}>10) /moveto loc ${Spawn[${CorpseList.Arg[${i},|]}].Y} ${Spawn[${CorpseList.Arg[${i},|]}].X}
  /delay 10s ${Spawn[${CorpseList.Arg[${i},|]}].Distance}<10
  /if (${Spawn[${CorpseList.Arg[${i},|]}].Distance}<15) /call LootCorpse
  /stick off
}
/next i
/return

Sub Event_ALCantLoot
/varset ALDontLoot ${Target.ID}
/return

Sub CheckCursor
:ALauto_inv
/if (${Cursor.ID}) {
  /if (${Cursor.NoDrop} && !${Me.FreeInventory}) /return
  /timed 5 /autoinventory
  /delay 2s !${Cursor.ID}
  /goto :ALauto_inv
}
/return
oh and i suppose i can post my heal macro here too:

Code: Select all

|Healpet.mac Made for skelly.mac but can be used anywhere and modified for anything.
|uhhh i didnt really add any checks for your health, so hope you dont die and gl.
|Stays within 85 range of your macroer and heals both the macroer and pet, pet first priority.
|Uses Gem 1 to cast a heal spell. put the heal spell there, I used Light Healing
#turbo

Sub Main


:loop
/delay 1
/keypress ESC
/delay 1
/keypress back hold
/delay 1
/keypress forward
/delay 1
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/tar pet radius 100
/delay 1
/if (${Target.ID}==FALSE) /goto :move2
/delay 1
/if (${Target.Distance}>85) /goto :move2
/delay 1
/if (${Target.PctHPs}<55) /goto :heal
/delay 1
/keypress ESC
/delay 1
/tar pc yourmacroer
/delay 1
/if (${Target.ID}==FALSE) /goto :camp
/delay 1
/if (${Target.Distance}>85) /goto :move
/delay 1
/keypress ESC
/delay 1
/target pet radius 80
/delay 1
/if (${Target.ID}==FALSE) /goto :move2
/delay 1
/if (${Target.PctHPs}<55) {
/goto :heal
} else {
/keypress ESC
/delay 1
/target pc yourmacroer
/delay 1
/if (${Target.ID}==FALSE) /goto :camp
/delay 1
/if (${Target.PctHPs}<65) /goto heal2
/delay 1
/goto :loop
}



:heal
/keypress ESC
/delay 1
/tar pet radius 98
/delay 2
/if (${Target.ID}==FALSE) /goto :move2
/delay 2
/cast 1
/delay 2
/cast 1
/delay 2
/cast 1
/delay 2
/cast 1
/delay 50
|/tar pet radius 98
|/if (${Target.ID}==FALSE) /goto :move2
|/delay 1
|/cast 2
|/delay 2
|/cast 2
|/delay 2
|/cast 2
|/delay 2
|/cast 2
|/delay 50
|take off all these |'s if you want it to cast a second spell after healing the pet... ie. thorns, but hell, its a horrid way to set it up, im just lazy.
/goto :loop


:heal2
/keypress ESC
/delay 1
/tar pc yourmacroer
/delay 2
/if (${Target.ID}==FALSE) /goto :camp
/delay 2
/if (${Target.Distance}>85) /goto :move
/delay 2
/cast 1
/delay 2
/cast 1
/delay 2
/cast 1
/delay 2
/cast 1
/delay 50
/goto :loop


:move
/keypress ESC
/delay 1
/tar pc yourmacroer
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/if (${Target.ID}==FALSE) /goto :camp
/delay 15
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 15
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/if (${Target.ID}==FALSE) /goto :camp
/delay 15
/tar pc yourmacroer
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 15
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/if (${Target.ID}==FALSE) /goto :camp
/delay 15
/tar pc your macroer
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/if (${Target.ID}==FALSE) /goto :camp
/delay 10
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/tar pc yourmacroer
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/if (${Target.ID}==FALSE) /goto :camp
/delay 10
/tar pc yourmacroer
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/tar pc yourmacroer
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/if (${Target.ID}==FALSE) /goto :camp
/delay 10
/goto :loop




:move2
/keypress ESC
/tar pet radius 150
/delay 1
/if (${Target.ID}==FALSE) /tar pet radius 200
/delay 2
/if (${Target.ID}==FALSE) /tar pet radius 250
/delay 1
/if (${Target.ID}==FALSE) /tar pet radius 300
/delay 1
/if (${Target.ID}==FALSE) /tar pet radius 400
/delay 1
/if (${Target.ID}==FALSE) /tar pet radius 500
/delay 1
/if (${Target.ID}==FALSE) /tar pet radius 600
/delay 1
/if (${Target.ID}==FALSE) /tar pet radius 700
/delay 1
/if (${Target.ID}==FALSE) /tar pet radius 800
/delay 1
/if (${Target.ID}==FALSE) /tar pet radius 1000
/delay 1
/if (${Target.ID}==FALSE) /tar pet radius 1500
/delay 1
/if (${Target.ID}==FALSE) /goto :nopet
/delay 1
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/tar pet radius 700
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/tar pet radius 600
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/tar pet radius 500
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/tar pet radius 400
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/tar pet radius 300
/face
/if (${Target.Distance}>75) /moveto ID
/if (${Target.Distance}<75) /goto :loop
/delay 10
/goto :loop



:camp
/echo Hey silly, your friend yourmacroer is not in the zone. You better camp out. If your at your computer, maybe log him back in, and stop this macrofrom camping.
/camp desktop
/delay 100
/echo YOUR CAMPING
/delay 100
/t yourmacroer IM CAMPING out in 10 seconds.
/delay 90
/endmacro



:nopet
/delay 1
/echo no pet to follow, sending a tell and delaying for awhile.
/delay 1
/t yourmacroer Yo yo, you dont have a pet, please get one within 20 seconda brotha.
/delay 1
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 190
/goto :loop
that about sums it up, oh, and DKAA, do you actually use this macro or a modification of it? just curious, lol.
oh and when i say this macro i mean ANY of my several macros, :o
----------------
http://SCII.us
Xantan
Top

Return to “MQ2::Macros::Macro Depot v3.0”