MacroQuest64

Posted: **Tue Aug 16, 2005 3:48 pm**

I wanted to see if it was possible for me to check an item's price from my Bazaar INI at any given time. So I came up with this.

Syntax: /mac bazitem "Link Your Item Here In Quotes"

As far as I know it will work with anything. If you don't have the item in your INI, it will just return zero.

Code: Select all

#define NOT_FOUND         "0"
#define INI_FILE          "C:\Program Files\EverQuest\BZR_${Me.CleanName}_${MacroQuest.Server}.ini"

Sub Main
   /declare ConvertedPrice string outer
   /declare Gold string outer
   /declare Silver string outer
   /declare Copper string outer
   /declare ItemName string outer ${Param0.Right[-46]}
   /varset ItemName ${ItemName.Left[-1]}
   /echo ${ItemName}
   |/echo ${Ini[INI_FILE,ItemToSell,${ItemName},NOT_FOUND]}
   /call Convert ${Ini[INI_FILE,ItemToSell,${ItemName},NOT_FOUND]}
   /echo ${ConvertedPrice}
/return

Sub Convert(string Price)
   /if (${Price.Equal["0"]}||${Price}<1) {
      /varset ConvertedPrice 0
      /return
   }
   /varset Gold ${Price.Right[3]}
   /varset Silver ${Price.Right[2]}
   /varset Copper ${Price.Right[1]}
   /varset ConvertedPrice ${Price.Left[-3]}p${If[${Gold.Left[1]}>1, ${Gold.Left[1]}g,]}${If[${Silver.Left[1]}>1, ${Silver.Left[1]}s,]}${If[${Copper}>1, ${Copper}c,]}
/return

Suggestions on making it better are welcome