• You've discovered RedGuides 📕 an EverQuest multi-boxing community 🛡️🧙🗡️. We want you to play several EQ characters at once, come join us and say hello! 👋
  • IS THIS SITE UGLY? Change the look. To dismiss this notice, click the X --->
  • There is a suspension/ban wave happening, we're still gathering information. Please keep regular discussion to Suspension MegaThread and please consider submitting a Suspension report to RG.
Resource icon

Trade / Skill TSRL.mac Tradeskill Recipe List 1.0

Download now:  Join us with Level 2 access or earn your way in with  RedCents.
Software Requirements
[Plugins]
MQ2Log
Server Type
🏢 Live Test
Ok, so I got bored...

TradeSkill Recipe List (TSRL.mac) by hoosierbilly Jan 2017
outputs to your MQ2Log file and TSRL_Name_Server

You must have the tradeskill window open.
You should decide how to sort the list (Recipe Name or Trivial), the macro will not do any sorting of the list.

NOTE: Recipes with a trivial of 15 (or less) are excluded from the listing.
There are simple too many non-trivial recipes to get a complete list.

Also Note: Recipe lists are limited by your skill. As your skill goes up more recipes become available.
You should run this macro periodically as your tradeskill increases.

Rich (BB code):
|**
TradeSkill Recipe List (TSRL.mac) by hoosierbilly Jan 2017
outputs to your MQ2Log file and TSRL_${Me.Name}_${EverQuest.Server}

You must have the tradeskill window open.
You should decide how to sort the list (Recipe Name or Trivial), the macro will not do any sorting of the list.
NOTE: Recipes with a trivial of 15 (or less) are excluded from the listing.
There are simple too non-trivial many recipes to get a complete list.
**|


Sub Main

/declare    LC        int        outer
/declare    TX        int        outer
/declare    MinTriv    int        outer    16
/declare    MaxTriv    int        outer    40
/declare    Min        string    outer
/declare    Max        string    outer
/declare    TotalList    int    outer    0


    /if (!${Plugin[MQ2Log].Name.Length}) {
        /plugin MQ2Log
        /delay 10
    }
    /mlog on
    /if (!${Window[TradeskillWnd].Open}) {
        /echo You must open tradeskill window and start over...
        /end
    }
    /echo TradeSkill Recipe List for: ${Window[TradeskillWnd].Child[COMBW_SkillLabel].Text.Arg[1,]}
    :searchloop
    /varset Min ${MinTriv}
    /varset Max ${MaxTriv}
    /nomodkey /notify TradeskillWnd COMBW_MinTrivialEdit leftmouseup
    /nomodkey /keypress backspace chat
    /nomodkey /keypress backspace chat
    /nomodkey /keypress backspace chat
    /for TX 1 to 3
    /if (${Min.Mid[${TX},1].Length}) /nomodkey /keypress ${Min.Mid[${TX},1]} chat
    /next TX

    /nomodkey /notify TradeskillWnd COMBW_MaxTrivialEdit leftmouseup
    /nomodkey /keypress backspace chat
    /nomodkey /keypress backspace chat
    /nomodkey /keypress backspace chat
    /for TX 1 to 3
    /if (${Max.Mid[${TX},1].Length}) /nomodkey /keypress ${Max.Mid[${TX},1]} chat
    /next TX
    /delay 2s
    /nomodkey /notify TradeskillWnd COMBW_SearchButton leftmouseup
    /delay 6s

    /if (${Window[TradeskillWnd].Child[COMBW_RecipeList].Items}==0) {
        /echo List Complete. Total Recipes listed: ${TotalList}
        /squelch /windowstate TradeskillWnd close
        /squelch /windowstate InventoryWindow close
        /end
    }
    /if (${Window[TradeskillWnd].Child[COMBW_RecipeList].Items}>=100) {
        /echo Incomplete list resulted, restricting the search...
        /varcalc MaxTriv ${MaxTriv}-5
        /if (${MaxTriv}<1) /varset MaxTriv 1
        /goto :searchloop
    }

    /echo Recipe List for Triv: ${MinTriv} to ${MaxTriv}
    /for LC 1 to ${Window[TradeskillWnd].Child[COMBW_RecipeList].Items}
    /ini "TSRL_${Me.Name}_${EverQuest.Server}" "${Window[TradeskillWnd].Child[COMBW_SkillLabel].Text.Arg[1,]}" "${Window[TradeskillWnd].Child[COMBW_RecipeList].List[${LC},1]}" ${Window[TradeskillWnd].Child[COMBW_RecipeList].List[${LC},2]}
    /echo ${Window[TradeskillWnd].Child[COMBW_RecipeList].List[${LC},1]},${Window[TradeskillWnd].Child[COMBW_RecipeList].List[${LC},2]}
    /next LC
    /varcalc TotalList ${TotalList}+${Window[TradeskillWnd].Child[COMBW_RecipeList].Items}
  
    /if (${MinTriv}<900) {
        /varcalc MinTriv ${MinTriv}+${Math.Calc[${MaxTriv}-${MinTriv}]}+1
        /varcalc MaxTriv ${MinTriv}+25
        /goto :searchloop
    } else {
        /echo List Complete. Total Recipes listed: ${TotalList}
        /squelch /windowstate TradeskillWnd close
        /squelch /windowstate InventoryWindow close
        /end
    }

/return
Author
hoosierbilly
First release
Last update
Rating
0.00 star(s) 0 ratings

More resources from hoosierbilly

Share this resource

Back
Top