***USE AT YOUR OWN RISK. USES MASS WARPS AND ZONES. AND IS PROBABLY WATCHED***
I've decided to move this into a new post as I've completely rewritten the macro. If I'm wrong please just let me know and move it into the old post.
It now runs much faster than the original found Here
On average I'm bringing in 20plat per minute. Results will vary based on loading times.
If you have any other ideas on things that would be great to be automated like this just let me know the details of the quest and I'll get it taken care of.
*Edit* added in the warning, I'm sorry guys I figured every one here knew the use of active hacks is asking for a banning.
I've decided to move this into a new post as I've completely rewritten the macro. If I'm wrong please just let me know and move it into the old post.
It now runs much faster than the original found Here
On average I'm bringing in 20plat per minute. Results will vary based on loading times.
If you have any other ideas on things that would be great to be automated like this just let me know the details of the quest and I'll get it taken care of.
Rich (BB code):
|********************************************************************************************************************
PlatPimp.mac 3.0 for www.redguides.com
Made by Tiikimagick
Completely Rewritten by Getin, Quest Idea by Tiikimagick
-----------------------------------------------General Overview-----------------------------------------------------------
You need to be bound in PoKnowledge
Although any class/race may use this mac. A Darkelf Enchanter is the easiest.
You need at least 1 jasper to start this macro
You will need mq2rwarp and mq2piggyzone.
Add this code to your piggyzone.ini: [neriakc] default= 805.97 -1415.28 -80.84
It lands you right by the vendor(telnor the jewelry merch) to sell the loot and buy jasper.
***NOTE*** You Need 2 free Top-Level Spots in your inventory, for the jasper and quest item.
I have removed the playercheck, this allows for running more than one at a time, as it is almost inevitable that they will be on the same step at the same time every once and a while
Added PPM(plat per minute), Total Time and Run Counter stats,
Customize the number for "MaxRuns" to define after how many runs the macro stops.
Customize the ChatIn for where you would like the Stats spam to go, NO SLASHES!
echo, bc, i,gsay,tell soandso, and so forth are all acceptable but I wouldn't advise using /gsay or any other EQ chat.
/echo,/bc,/i,/gsay,/tell soandso are all NOT acceptable and will cause errors!
********************************************************************************************************************|
#Define DEBUG_1 /squelch /echo
#include common/buy.inc
Sub Main
/declare MaxRuns int outer 1000
/declare TimesRan int outer 0
/declare StartPlat float outer ${Math.Calc[${Me.Cash}/1000]}
/declare ChatIn string outer bc
DEBUG_1 StartPlat: ${StartPlat}
DEBUG_1 ChatIn ${ChatIn}
/if (${FindItem[=klok's seal].InvSlot}) /call Handin2
/if (${FindItem[=a sealed letter].InvSlot}) /call Handin3
:MainLoop
/if (${Zone.ShortName.NotEqual[neriakc]}) /call PiggyZone neriakc
/if (${FindItem[combine].InvSlot}) /call SellItem
/if (!${FindItem[=jasper].InvSlot}) /call BuyJasper
/if (!${FindItem[=klok's seal].InvSlot} || !${FindItem[=a sealed letter].InvSlot}) /call Handin1
/if (${FindItem[=klok's seal].InvSlot}) /call Handin2
/if (${FindItem[=a sealed letter].InvSlot}) /call Handin3
/goto :MainLoop
/return
Sub PiggyZone(zonename)
/if (${zonename.Equal[gate]}) {
/gate
/call WaitTilThere PoKnowledge
} else {
/zone ${zonename}
/call WaitTilThere ${zonename}
}
/return
Sub WaitTilThere(zonename)
:WaitLoop
/delay 1s
/if (${Zone.ShortName.NotEqual[${zonename}]}) /goto :WaitLoop
/if (${Spawn[gm].ID}) {
/docommand ${ChatIn} GM IN THE ZONE GET THIS PLAT SOON!
/quit
}
/return
Sub SellItem
/target npc Telnor
/delay 5s ${Target.CleanName.Equal[Telnor D`Unnar]}
/if (!${Window[MerchantWnd].Open}) /nomodkey /click right target
/delay 10s ${Window[MerchantWnd].Open}
/nomodkey /itemnotify ${FindItem[combine].InvSlot} leftmouseup
/delay 3
/nomodkey /notify MerchantWnd MW_Sell_Button leftmouseup
/if (!${FindItem[=jasper].InvSlot}) /call Buy "Jasper" 100
/delay 3
/nomodkey /notify MerchantWnd MW_done_Button leftmouseup
/delay 10s !${Window[MerchantWnd].Open}
/call EchoStats
/return
Sub EchoStats
/varcalc TimesRan ${TimesRan}+1
DEBUG_1 TimesRan: ${TimesRan}
/declare CurrentPlat float local ${Math.Calc[${Me.Cash}/1000]}
DEBUG_1 CurrentPlat ${CurrentPlat}
/declare PlatMade float local ${Math.Calc[${CurrentPlat}-${StartPlat}]}
DEBUG_1 PlatMade ${PlatMade}
/declare TotalTime float local ${Math.Calc[${Macro.RunTime}/60]}
DEBUG_1 TotalTime: ${TotalTime}
/declare PPM float local ${Math.Calc[${PlatMade}/${TotalTime}]}
DEBUG_1 PPM: ${PPM}
/docommand /${ChatIn} I have made ${PlatMade}.
/docommand /${ChatIn} In ${TotalTime} minutes.
/docommand /${ChatIn} That's ${PPM} plat per minute!
/docommand /${ChatIn} I have done this quest ${TimesRan} out of ${MaxRuns} times
/if (${TimesRan}>=${MaxRuns}) {
/camp desktop
/docommand /${ChatIn} I have done the quest ${TimesRan} time to take a break
/end macro
}
/return
Sub Handin1
/warp loc ${Spawn[Mare X`Lottl].Y} ${Spawn[Mare X`Lottl].X} ${Spawn[Mare X`Lottl].Z}
/delay 5
/target npc Mare X`Lottl
/delay 5s ${Target.CleanName.Equal[Mare X`Lottl]}
/ctrlkey /itemnotify ${FindItem[=jasper].InvSlot} leftmouseup
/call GiveItem
/return
Sub Handin2
/call PiggyZone gate
/call PiggyZone cabeast
/warp loc ${Spawn[Half Elf Maiden].Y} ${Spawn[Half Elf Maiden].X} ${Spawn[Half Elf Maiden].Z}
/delay 5
/target npc Half Elf Maiden
/delay 5s ${Target.CleanName.Equal[Half Elf Maiden]}
/ctrlkey /itemnotify ${FindItem[=klok's seal].InvSlot} leftmouseup
/call GiveItem
/return
Sub Handin3
/call PiggyZone gate
/call PiggyZone qeynos2
/warp loc ${Spawn[Brohan Ironforge].Y} ${Spawn[Brohan Ironforge].X} ${Spawn[Brohan Ironforge].Z}
/delay 5
/target npc Brohan Ironforge
/delay 5s ${Target.CleanName.Equal[Brohan Ironforge]}
/ctrlkey /itemnotify ${FindItem[=a sealed letter].InvSlot} leftmouseup
/call GiveItem
/return
Sub GiveItem
/face fast nolook
/delay 5s ${Cursor.ID}
/nomodkey /click left target
/delay 5s ${Window[GiveWnd].Open} || !${Cursor.ID}
/notify GiveWnd GVW_Give_Button leftmouseup
/delay 9s !${Window[GiveWnd].Open}
/return
Sub BuyJasper
/target npc Telnor
/delay 5s ${Target.CleanName.Equal[Telnor D`Unnar]}
/if (!${Window[MerchantWnd].Open}) /nomodkey /click right target
/if (!${FindItem[=jasper].InvSlot}) /call Buy "Jasper" 100
/delay 3
/nomodkey /notify MerchantWnd MW_done_Button leftmouseup
/delay 10s !${Window[MerchantWnd].Open}
/return*Edit* added in the warning, I'm sorry guys I figured every one here knew the use of active hacks is asking for a banning.
Last edited:
