Truespirit Faction Fix Macro works for anyone

[Atheos32]

[CODE title="Truespirit Faction Macro (Readme with Instructions in the macro)"]||Trade certain amount of money to a certain amount of times to a certain NPC
||Credit to Artien for posting the Original Macro here https://www.redguides.com/community/threads/automoney2npc.72792/
||README:
||Step 1: Go to Solomen in Temple of Solusek Ro (Lavastorm) get the note to give to Camin
||Step 2: Put Note and plat in character bank (not shared) 1000 x 10 points of Truespirit faction you need if you need 500 faction put in 50k
||Step 3: Go to PoK talk to Shroudkeeper Learu to turn into a lvl 50+ Imp Wizard (under Aberrations heading)
||Step 4: Go to Bank and withdraw desired amount of Platinum and the note to Camin
||Step 5: (Optional) Get a some type of run speed buff
||Step 6: Go to Camin he's on the second floor of the Vasty Deep Inn in Erudin
||Step 7: Hail Camin, then give Camin the note you got from Solomen and then say 'What are you searching for?'
||Step 8: Target Camin and run this macro. Use Spirit Sending from the AA window to return to Shroudkeeper Learu when done and remove the shroud.
||This is the first part of the wizard epic ( https://everquest.allakhazam.com/db/quest.html?quest=769 )
Sub Main
|---------------------------------------
||Change the name below to the name of the NPC you want to hand the currency to.
/declare NPCName string local Camin
|Set amount you want to trade PER TIME
/declare TradePlat int outer 1000
/declare TradeGold int outer 0
/declare TradeSilver int outer 0
/declare TradeBronze int outer 0
/declare HowOften int local 50
|---------------------------------------
/declare i int local
/target npc ${NPCName}
/delay 3s
/if ( ${Target.CleanName.NotEqual[${NPCName}]} ) {
/echo I cannot target ${NPCName}, quitting
/return
}
/for i 1 to ${HowOften}
/echo Trade ${i} of ${HowOften}
/call Trade
/delay 2s
/next i
/return
Sub Trade()
/declare mmuch int local 0
/invoke ${Window[InventoryWindow].DoOpen}
/delay 2s
|platinum
/if (${TradePlat} > 0) {
/call Gimme "IW_Money0" ${TradePlat)
}
|gold
/if (${TradeGold} > 0) {
/call Gimme "IW_Money0" ${TradeGold)
}
|silver
/if (${TradeSilver} > 0) {
/call Gimme "IW_Money0" ${TradeSilver}
}
|bronze
/if (${TradeBronze} > 0) {
/call Gimme "IW_Money0" ${TradeBronze)
}
|Accept the "give"
/notify GiveWnd GVW_Give_Button leftmouseup
/delay 1s
/return
Sub Gimme(string moneyz, int cashflow)
/echo open inventory
/notify InventoryWindow ${moneyz} leftmouseup
/delay 1s
/notify QuantityWnd QTYW_Slider newvalue 1000
/delay 1s
/notify QuantityWnd QTYW_Accept_Button leftmouseup
/delay 1s
/click left target
/delay 2s
/return[/CODE]

 

[q8reflex]

Note poofs when you switch to shroud, do you get the note in temple of Solusek while in shroud form?

 

[q8reflex]

For some reason macro giving only 3 plat.

 

[Atheos32]

For some reason macro giving only 3 plat.

Should be fixed now, and you need to put the note in the bank before entering the shroud.

 

[q8reflex]

thanks a lot