F-U-C-K THE WORLD ((Sexy)) [Grep] {MONEY}

[xantan2]

Ok ok so there i was right just hit 36 from mechanic macro wooo hooo and i slept, and i woke, and i was determined to make a macro that killed watchman grep, the guard in steamfont who used to be watchman halv, he always used to give great exp AND great loot, but someone, ie. GOD who btw can go suck a fatass cock... i mean, a FATTTTTASSS cock, made it so the guy
Watchman grep, the guard, who gave leet exp and leet loot, no longer GIVES EXPERIANCE, NO LONGER!!!! So, im like, FUCK THE WORLD, and i made a macro for it which btw took the longest out of any of my macros, and ALL IT DOES is kill + loot + sell + repeat. Heres the macro, enjoy, NO EXP LIKE A FUCKING WALRUS, lol, im really not that pissed, but, its fun pretending.

What you need: A necro/magician/someone cool to run this macro.
Heres what is (REC)ommended/(REQ)uired(without modifying macro)
Spells:
(REQ)|1: Siphon Life/lifetap/nuke
(REC)|2:Boil Blood/DoT/NuKE
(REC)|3:Augment Death/Pet Buff/Buff
(REQ)|4:Clinging Darkness/Snare/DoT Snare/RooT(if you use this you need to modify macro)
(REC)|5:Greater Shielding/Buff
(REC)|6:Allure of Death/mana regen spell/Buff
(REQ)|7:Summon Dead/pet spell/(change macro for no pet)
(REQ)|8:GATE

One last thing you need to do, Get to steamfont, go to the druid ring (where druids port in, duhhh) go to Crisyn the vendor near there, then, work your way to loc: -1763.17, 1650.65 -109.85 or somewhere near there. BIND YOURSELF HERE.

Then as simple as one two three, get to watchman halv, if hes KOS then just go near him, far away sorta, like 180 away near that tree by the mountain, or a loc of: -724.35 706.43 -111.84

|--WAIT WAIT THERES ONE MORE THING I REMEMBERED!
|--MOST IMPORTANT THING OF ALL: You have to have only 3 bag slots, |--two at the top of your inventory and one below the top left of your |--inventory, the rest have |to be empty for looting and selling.
heres a diagram:

|1(bag) -- 2(bag) |
|3(bag) -- 4(empty)|
|5(empty) --6(empty) |
|(7(empty) --8(empty) |

That and you need food, drink, and whatever it takes to summon the pet.

Now you are prepared to make money. Good money if your on the progression server, ok if not. Any level can do this macro, but i was level 36 using horrid gear and horrid spells, meaning out of date. Now that i've gotten all of my anger out, FUCKING FUCK FUCKER, now that i have i mean, i can post the macro, then go make a macro that ACTUALLY GETS ME EXP BUT PROBABLY WONT GIVE GOLD ((((((((

Code: Select all

|Grep.mac By Xantan2/Xantan
|Directions are above this macro on the post
|Kill Watchman Grep and sell his stuff and stuff
|Start this macro Watchman grep or the tree by him
|Make sure you have lots of food and drink, and lots |of whatever it takes |to summon your pet!
|MOST IMPORTANT THING OF ALL: You have to have only 3 |bag slots, two at the top of your inventory and one |below the top left of your inventory, the rest have |to be empty for looting and selling.

#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


:Grep
/delay 4
/if (${Me.PctMana} < 85) /goto :oom
/delay 4
/keypress ESC
/delay 2
/if (${Me.PctHPs}<10) /goto :heal4
/target npc Watchman Grep radius 200
/delay 4
/if (${Target.ID}==FALSE) {
/delay 150
/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 70
/sit down
/delay 10
/target npc Watchman Grep radius 200
/delay 20
/pet attack
/if (${Me.PctHPs}<10) /goto :heal4
/delay 15
/pet attack
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 80
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 4
/delay 1
/cast 4
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 1
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 4
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/cast 4
/delay 1
/cast 4
/delay 1
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/delay 68
/cast 2
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 2
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 1
/cast 2
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 2
/delay 1
/cast 2
/delay 1
/cast 2
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 2
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/cast 2
/delay 70
/cast 4
/delay 1
/cast 4
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 2
/cast 4
/delay 4
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/delay 27
/moveto loc -551.30 634.97 10
/delay 80
/cast 1
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 1
/cast 1
/delay 1
/cast 1
/delay 2
/if (${Me.PctHPs}<10) /goto :heal4
/cast 1
/delay 30
/moveto loc -397.29 972.96 10
/delay 130
/cast 2
/delay 2
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 2
/delay 2
/cast 2
/delay 2
/cast 2
/if (${Me.PctHPs}<10) /goto :heal4
/delay 2
/cast 2
/delay 53
/if (${Target.ID}==FALSE) /goto :mob1dead
/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
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/if (${Me.PctHPs}<10) /goto :heal4
/cast 1
/delay 1
/cast 1
/if (${Target.ID}==FALSE) /goto :mob1dead
/delay 30
/moveto loc -110.32 1142.26 10
/delay 120
/cast 4
/delay 1
/cast 4
/delay 1
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 4
/delay 3
/cast 4
/if (${Me.PctHPs}<10) /goto :heal4
/delay 1
/moveto loc 77.55 1338.61 10
/delay 120
/cast 1
/delay 1
/if (${Target.ID}==FALSE) /goto :mob1dead
/cast 1
/delay 1
/cast 1
/delay 2
/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 10
/if (${Me.PctHPs}<10) /goto :heal4
/echo heading to oom spot, then medding + buffing.
/delay 40
/target pet radius 40
/delay 10
/if (${Target.ID}==FALSE) /goto :makepet
/delay 10
/if (${Me.PctHPs}<10) /goto :heal4
/moveto loc -724.35 706.43 -111.84 10
/delay 50
/pet sit down
/delay 4
/keypress F1
/delay 3
/if (${Me.PctHPs}<70) /goto :past6
/delay 3
/cast 6
/delay 1
/cast 6
/delay 1
/cast 6
/delay 1
/cast 6
/delay 1
/cast 6
:past6
/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 5
/if (${Me.PctHPs}<10) /goto :heal4
/delay 5
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
:oom2
/target pet radius 200
/delay 20
/if (${Target.ID}==FALSE) /goto :makepet
/delay 40
/if (${Me.PctMana} > 90) /goto :grep
/delay 50
/if (${Me.PctHPs}<10) /goto :heal4
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 150
/if (${Me.PctMana} > 90) /goto :grep
/goto :oom2





:sell
/delay 2
/keypress ESC
/delay 5
/pet follow me
/delay 5
/if (${Me.PctHPs}<10) /goto :heal4
/delay 2
/tar Watchman Grep's corpse radius 500
/delay 6
/if (${Me.Sitting} && !${Me.Mount.ID}) /stand
/delay 4
/if (${Target.ID}==FALSE) /goto :tooom2
/delay 5
/if (${Me.PctHPs}<10) /goto :heal4
/delay 5
/if (${Target.ID}==FALSE) /goto :tooom2
/delay 5
/if (${Me.PctHPs}<10) /goto :heal4
/delay 5
/if (${Target.ID}==FALSE) /goto :tooom2
/delay 4
/face
/delay 4
/if (${Target.Distance}>14) /goto :close
/if (${Me.PctHPs}<10) /goto :heal4
/delay 10
/face
/call LootCorpse
/delay 50
/pet guard here
/delay 3
/pet sit down
/delay 10
/keypress forward
/delay 1
/keypress back
/delay 10
/keypress forward hold
/delay 2
/keypress forward
/delay 20
:crisyn
/cast 8
/delay 2
/cast 8
/delay 2
/cast 8
/delay 2
/cast 8
/delay 2
/cast 8
/delay 100
/keypress ESC
/delay 4
/target npc crisyn
/delay 3
/if (${Target.Distance}>100) /goto :crisyn
/delay 2
/if (${Target.Distance}<100) /goto :pastcrisyn
/delay 2
/if (${Target.ID}==FALSE) /goto :heal4
/delay 4
:pastcrisyn
/target npc crisyn
/delay 3
/face
/delay 2
/sit down
/delay 2
/click right target
/delay 10
/itemnotify 24 leftmouseup
/delay 7
/nomodkey /shift /notify MerchantWnd MW_Sell_Button leftmouseup
/delay 7
/itemnotify 25 leftmouseup
/delay 7
/nomodkey /shift /notify MerchantWnd MW_Sell_Button leftmouseup
/delay 7
/itemnotify 27 leftmouseup
/delay 7
/nomodkey /shift /notify MerchantWnd MW_Sell_Button leftmouseup
/delay 7
/itemnotify 28 leftmouseup
/delay 7
/nomodkey /shift /notify MerchantWnd MW_Sell_Button leftmouseup
/delay 7
/itemnotify 29 leftmouseup
/delay 7
/nomodkey /shift /notify MerchantWnd MW_Sell_Button leftmouseup
/delay 10
/notify MerchantWnd MW_Done_Button leftmouseup
/delay 3
/goto :tooom





:makepet
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/if (${Me.PctMana} < 30) /echo Ok, we are medding for awhile, then we can make your pet and start the buff/stuff.
/if (${Me.PctMana} < 30) /delay 200
/if (${Me.PctMana} < 10) /delay 400
/if (${Me.PctMana} > 30) /goto :makepet2
/goto :makepet
:makepet2
/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
/stand up
/delay 2
/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




:tooom
/delay 2
/moveto loc -1756.88 1395.50 10
/delay 105
/moveto loc -1033.58 760.17 10
/delay 180
/pet follow me
/delay 190
/moveto loc -997.35 724.10 10
/delay 45
/moveto loc -823.10 723.67 10
/delay 83
/goto :oom




:tooom2
/moveto loc -823.10 723.67 10
/delay 600
/goto :oom

Ok and one SINGLE more thing, you need this .inc, Ninjadvloot.

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

Save the macro as grep.mac all files
save the inc file as Ninjadvloot.inc all files


I hate myself for wasting my own time like this.. writing a macro that did not even work. (for exp anyways).

Follow the directions and you will receive.

Post replies, I like them, send me PMs, whatever, ill help,

[JimJohnson]

You might want to try to get ride of some of the /delays, your code could be about 3/4 of its lenght with just putting in a few if /goto or even /for loops

[xantan2]

Yeah i know, im just not very smart, + im just copying the code from my other macros basically and modifying them for the different person, this one looted and sold though, thats why it took long, and did other fun stuff, lots of movement, and btw, just for fun, heres a macro that loots corpses with ninjadvloot.inc, lol

Code: Select all

#turbo
#include Ninjadvloot.inc

Sub Main
/delay 1
/call SetupAdvLootVars
:loop
/delay 1
/target yourname's corpse
/delay 1
/call LootCorpse
/delay 50
/echo Corpse = All Loooteddd!
/endmacro

Thanks for the reply.

[Vayeco Dynn]

Damn this is ghetto.

Ever hear of subs?

[mekaniak]

Honestly, who cares about subs, loops, and calls. If this is what the guy made and it works, let him do it his way. You guys could go ahead and change it to loops and calls and repost it if you wanted to (and give him credit), but I dont see you guys doing that. Its not just this one either, its every macro this guy made. Instead of wasting time telling him its ghetto and what-not why dont you tell him good job making a macro and not asking for one handed to him on a silver platter.

Grats to you on making your own macro that works for you.

[Vayeco Dynn]

Honestly, who cares about subs, loops, and calls.

Anyone who wants to have code that will make sense if they ever have to make changes to it, that's who. Plus, the reusability factor is a huge plus. If you make everything into subs, you can just copy and paste those subs into new macros and save yourself a lot of time, that you might otherwise spend trying to sift through your cluttered code and figure out what's what. Also, the small degree of object orientedness you achieve has its own plusses.

The other advantage to subs is that you can pass variables to them, which has its own inherent benefits.

It would also be a good idea to make proper use of the "tab" key. Code that is easier on the eyes is much easier to manage.

Just a word of advice from a fairly experienced programmer.

[Kroak]

You guys could go ahead and change it to loops and calls and repost it if you wanted to (and give him credit), but I dont see you guys doing that.

Well, sorry, I can't cuz it makes me dizzy looking at that. Maybe someone would try, but he wasn't asking for help. Also, I don't think he wants it that way because the same thing was metioned to him before in other posts, and he doesn't care.

Instead of wasting time telling him its ghetto and what-not why dont you tell him good job making a macro and not asking for one handed to him on a silver platter.

Grats to you on making your own macro that works for you.

While I agree with that point, most people here are working on learning code and propper coding practices. To me it's more important to create something readable and reusable than it is to make a ton of plat while AFK. But that's just me. Propper code can be somewhat like art, and then you have the grafitti...
But you're right, Grats to OP for making a macro that works for you.

[Bigguy70]

Honestly, who cares about subs, loops, and calls. If this is what the guy made and it works, let him do it his way. You guys could go ahead and change it to loops and calls and repost it if you wanted to (and give him credit), but I dont see you guys doing that. Its not just this one either, its every macro this guy made. Instead of wasting time telling him its ghetto and what-not why dont you tell him good job making a macro and not asking for one handed to him on a silver platter.

Grats to you on making your own macro that works for you.

I did for his Coggy.mac http://www.macroquest2.com/phpBB2/viewtopic.php?t=13703 like he said this is basicly a rehash of his older mac so modding the mac i posted should be easy enough. Keep up the good work Xantan, you write macs that I would like to get around to but never seem to have the time, its alot quicker to rework yours then write my own from scratch.

[PhoenixZorn]

I did for his Coggy.mac http://www.macroquest2.com/phpBB2/viewtopic.php?t=13703 like he said this is basicly a rehash of his older mac so modding the mac i posted should be easy enough. Keep up the good work Xantan, you write macs that I would like to get around to but never seem to have the time, its alot quicker to rework yours then write my own from scratch.

Bigguy70,

I think you should start working on converting all of Xantan's Macros to Loops and Subs... you do good work, and it'll get you some practice... =)

For the rest of you guys, while Xantan's work may not conform to the original Macro Posting Guidelines that Amadeus and I set up a few years ago, it IS a functional macro, and I would be proud to log onto my necro right now and start using it... Granted, I would likely do a bit of tweaking, but his macros - in general - do work as is. If you don't like the way he does his coding, then don't bother reading them. You guys used to code like that too in the old days, especially when writing a first draft macro. Give the guy some time, and maybe you'll start seeing more optimized code coming from him in the near future. I'm even willing to help him get to that point, and the rest of you - considering his efforts - should be too.

Xantan, keep up the good work bro.

PZ

[JimJohnson]

You guys used to code like that too in the old days, especially when writing a first draft macro. Give the guy some time, and maybe you'll start seeing more optimized code coming from him in the near future. I'm even willing to help him get to that point, and the rest of you - considering his efforts - should be too.

Xantan, keep up the good work bro.

PZ

I intitially posted in his thread to get him to ask for help if he didnt understand part of it, If you notice 2 of the people who commented here are pretty active in the VIP Help. VD was kinda harsh with his comment, but hey some people are. Hes not doing to bad for starting out but he could save himself alot of copy past of delays if he spent 5 minutes to learn a few more options. On top of that he could also probably make the same core macro that all he would need to do is change the declare spells + add in the pull / camp spots.

[Vayeco Dynn]

If you don't like the way he does his coding, then don't bother reading them.

I didn't bother

Just trying to enlighten the brotha.

[PhoenixZorn]

Hehe... it's all good. sheesh... it's hard to look at code after a year and a half away... =(

[xantan2]

better code sounds like a plan, I'll start making macros the way you guys want the day i come up with a macro thats actually worth half a penny. For now, deal with it, and, if you want to, use it, if not, then you dont really have any point posting here, besides a little fun, and if thats what you want? go ahead. I havn't been playing EQ lately, got a little bored plus school just came around the corner, so, if you need me for something, post a PM. I'll probably start making more macros later, for now, all my macros can do is get you from 8-37 or something, and some will make you great money.

Thanks for all the comments, and sorry I have not been around to join in the flame wars.

If you actually need something, like say, something is wrong with this macro, then ask that, if not, I don't see why you need to ask anything at all.

I explained why I'm not changing the code much, many times actually, so, if your on this forum just to flame people for coding badly, Don't use the macro, don't waste your time trying to piss me off, make your own macro and you might get some respect.

Alot of people are going to respond to my comments with another flame or something, so, feel free! I'm not going to be back here for awhile, so you got time to think of how you can make fun of me. I don't really mind.

Anyways, enjoy the macros, and i'm sorry to say i will not be continuing to make macros for awhile.

[Bigguy70]

Good luck in school. Hope to see you back on the boards when you have the time to play eq again.

[Vayeco Dynn]

I'll start making macros the way you guys want the day i come up with a macro thats actually worth half a penny

You misunderstand my intentions. I don't "want" you to write macros a particular way, I'm simply apalled that you choose to code the way that you do.