Macro to buy royal spears

[Hunger]

Code:

2000 {RS Reffil} VarSetEx(Total, 40) VarSet(Potnow) Misc.ItemCountEx(7378) VarSub(Total, !Potnow!) HUD.Display(!Total!) Self.Say(hi) Macro.Wait(2000) NPC.Say(trade) NPC.Buy(7378, !Total!, 1) Macro.Wait(2000) NPC.Say(bye))