Brewing.mac [MAX at 300]

[unknown405]

Edited Brewing.mac so it brews to 248.
Created Brew2.mac so it brews to 300.

Brew.mac [Get brewing from 0-248]

| Brew.mac version 1.0
|
| Written by Armysoldier
|
| March 5 2006
|
| Modifications:
|
| 26 MAR 2006: moved 2 subs and event declarations to CommonSubs.inc
| 23 NOV 2006: made brewing go up to 248
|
| This new line of tradeskill macros uses the NEW UI and the OLD UI for TS containers
| 
| The Macro will attempt to find the recipe using the NEW UI first
| If no recipe is found it will go Old school and do a set of combines
| these macros take into account the SALVAGE function and react accordingly
| 
|
| A special thanks to A_Druid_00 for advising on some streamlining modifications
| and to Override for his Tradeskill Code that has been around for so long 
| and is the inspiration for this code
|
| Some of the code was pulled from other macros and modified and manipulated 
| to do the tasks set forth.
|
| This code is designed for Abysmal Sea
|
| *** FOR THIS CODE TO WORK ***
| You need to Stand between Dray Curves and Galidnus Corkpopper
| You need to be in the first person view
| You need to ensure that when you click the tradeskill container the NEW UI comes up first
| the 5 FILES need to be in the macro\common folder (see includes below)


#include common/sell.inc
#include common/buy.inc
#include common/packs.inc
#include common/cleanpacks.inc
#include common/CommonSubs.inc


Sub Main
    /declare OldSkill int outer ${Me.Skill[Brewing]}
    /declare SkillMaxWanted int outer
    /declare PackCode string outer 
    /declare Component[10] string outer
    /declare i int outer
    /declare MerchantNameA string Outer
    /declare MerchantNameB string Outer
    /declare CombItemName string outer
    /declare ItemTo string outer
    /declare ItemToB string outer
    /declare ItemToC string outer
    /declare EndingVar int outer
    /declare DelayMult int outer
    /declare Container string outer
    /declare Checkrecipe string outer
    /declare NewUI int outer

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Customize these settings if you want
|                    
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    /varset MerchantNameA "Galidnus Corkpopper" 
    /varset MerchantNameB "Dray Cuves" 
    /varset SkillMaxWanted 248
    /varset DelayMult 1
    /declare Filename string outer Brewing.ini

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Call Read INI for locations array
|                    
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    /call ReadINIA ${Filename} "Abysmal Sea" 
    /if (!${Defined[LocArray]}) { 
       /echo No Loc Array Created...
       /endmacro 
    } 

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Begin 
|
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    :start

|--- Check Current Skill against Skill wanted 
    /echo Brewing is at ${Me.Skill[Brewing]}

    /if (${Me.Skill[Brewing]}>=${SkillMaxWanted}) {
      /echo Brewing is at ${SkillMaxWanted}. Quiting!
      /endmacro
    }
      /varset CombItemName "MHB"
      /varset ItemTo "Minotaur Hero's Brew"
      /varset ItemToB "bottle"
      /varset ItemToC "cask"

    /call ReadIni "${CombItemName}"
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Buy Components
|
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    /varset EndingVar 1
    /varset NewUI 1

    /target ${MerchantNameA}

    /nomodkey /click right target

    /delay 5s ${Window[MerchantWnd].Open}

    /call OpenPacks

    /call Buy "${Component[1]}" 80

    /call Buy "${Component[2]}" 240

    /call Buy "${Component[3]}" 80

    /nomodkey /notify MerchantWnd MW_Done_Button LeftMouseUp

    /echo Buying from ${MerchantNameB}

    /target ${MerchantNameB}
   
    /delay 5s ${Target.ID}==${Spawn[${MerchantNameB}].ID}

    /nomodkey /click right target

    /delay 5s ${Window[MerchantWnd].Open}

    /call Buy "${Component[4]}" 180

    /call Buy "${Component[5]}" 160

    /nomodkey /notify MerchantWnd MW_Done_Button LeftMouseUp

    /call ClosePacks

    /echo Moving to the Barrel

    /call Movement 1 1 0
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| MAKE Items
|
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


      /nomodkey /itemtarget Brew Barrel notarget 
      /face item nolook 
      /click left
/delay 3s ${Window[TradeskillWnd].Open} 
      /doevents
      /delay 3s ${Window[TradeskillWnd].Open} 
      /if (!${Window[TradeskillWnd].Open}) /nomodkey /click left Item 
      /delay 3s ${Window[TradeskillWnd].Open} 
      /call ChooseRecipe
      /call ClosePacks

    /echo Moving to ${MerchantNameA}
    /echo Selling off and starting over
    /call Movement 2 2 0

    /target ${MerchantNameA}
   
    /delay 5s ${Target.ID}==${Spawn[${MerchantNameA}].ID}

    /nomodkey /click right target

/delay 5s ${Window[MerchantWnd].Open} 

    /call OpenPacks

    /call Sell ${ItemTo}

    /call Sell ${ItemToB}

    /nomodkey /notify MerchantWnd MW_Done_Button LeftMouseUp

    /call ClosePacks

    /doevents

    /goto :start

    /return


|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Sub Event Skill up
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub Event_Skillup
        /if (${Me.Skill[Brewing]}>${OldSkill}) {
        /echo Your Brewing Went Up!! It's now ${Me.Skill[Brewing]}!
        /varset OldSkill ${Me.Skill[Brewing]}
/return

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Sub Event No Longer Advance 
|used if there are some subcombines that need to be made in some TS
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub Event_Advance
    /varset EndingVar 2
/return

Brew2.mac [Get brewing from 248-300]
This one is a little more difficult, see instructions at next post

| Brew2.mac version 1.0
|
| Written by Armysoldier
| Tweaked by UnkNowN
|
| November 24 2006
|
| Modifications: This is completely re-written brew.mac by UnkNowN
|                So you can now max out brewing at 300
|
| 24 NOV 2006:   Brew2 created. max out brew AFK in Crescent Reach
|
|
| This new line of tradeskill macros uses the NEW UI and the OLD UI for TS containers
| 
| The Macro will attempt to find the recipe using the NEW UI first
| If no recipe is found it will go Old school and do a set of combines
| these macros take into account the SALVAGE function and react accordingly
| 
|
| A special thanks to A_Druid_00 for advising on some streamlining modifications
| and to Override for his Tradeskill Code that has been around for so long 
| and is the inspiration for this code
|
| Some of the code was pulled from other macros and modified and manipulated 
| to do the tasks set forth.
|
| This code is designed for Crescent Reach
|
| *** FOR THIS CODE TO WORK ***
| You need to Stand between the brew and Brewmaster Ishaq
| You need to have at least 15 Soda Water [will auto-make 100 if you have less than 15]
| You need to have at least 100 Champagne Magnum
| To make Champagne Magnum see eqtraders.com
| You need to be in the first person view
| You need to ensure that when you click the tradeskill container the NEW UI comes up first
| the 5 FILES need to be in the macro\common folder (see includes below)


#include common/sell.inc
#include common/buy.inc
#include common/packs.inc
#include common/cleanpacks.inc
#include common/CommonSubs.inc


Sub Main
    /declare OldSkill int outer ${Me.Skill[Blacksmithing]}
    /declare SkillMaxWanted int outer
    /declare PackCode string outer 
    /declare Component[10] string outer
    /declare i int outer
    /declare MerchantNameA string Outer
    /declare MerchantNameB string Outer
    /declare MerchantNameC string Outer
    /declare CombItemName string outer
    /declare ItemTo string outer
    /declare EndingVar int outer
    /declare DelayMult int outer
    /declare Container string outer
    /declare Checkrecipe string outer
    /declare NewUI int outer

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Customize these settings if you want
|                    
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    /varset MerchantNameA Brewmaster Ishaq
    /varset SkillMaxWanted 300
    /varset DelayMult 1
    /declare Filename string outer Brewing.ini


|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Call Read INI for locations array
|                    
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    /call ReadINIA ${Filename} "Crescent Reach" 
    /if (!${Defined[LocArray]}) { 
       /echo No Loc Array Created...
       /endmacro 
    } 

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Begin 
|
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    :start

|--- Check Current Skill against Skill wanted 
    /echo Brewing is at ${Me.Skill[Brewing]}

    /if (${Me.Skill[Brewing]}>=${SkillMaxWanted}) {
      /echo Brewing is at ${SkillMaxWanted}. Quiting!
      /endmacro
    }

    /if (${FindItemCount[=Soda Water]}<15) {
    /varset CombItemName MQSW
    /varset ItemTo "Soda Water"
    /call ReadIni "${CombItemName}"
    /target "${MerchantNameA}"

    /nomodkey /click right target

    /delay 5s ${Window[MerchantWnd].Open}

    /call OpenPacks

    /call Buy "${Component[2]}" 100
    /call Buy "${Component[1]}" 100

    /nomodkey /notify MerchantWnd MW_Done_Button LeftMouseUp

      } ELSE {

    /if (${Me.Skill[Brewing]}>=248 && ${Me.Skill[Brewing]}<=300) {
    /echo start making Brut Champagne
    /varset CombItemName MQBC
    /varset ItemTo Brut Champagne
    }
}

    /call ReadIni "${CombItemName}"
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Buy Components
|
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    /varset EndingVar 1
    /varset NewUI 1

    /echo Moving to ${MerchantNameA}

    /if (!${CombItemName.Equal[MQSW]}) {

    /target "${MerchantNameA}"
   
    /delay 5s ${Target.ID}==${Spawn[${MerchantNameA}].ID}

    /nomodkey /click right target

    /delay 5s ${Window[MerchantWnd].Open}

    /call Buy "${Component[2]}" 300
    /call Buy "${Component[4]}" 100


    /nomodkey /notify MerchantWnd MW_Done_Button LeftMouseUp

    }

    /call ClosePacks

    /echo Opening the Brew Barrel...
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| MAKE Items
|
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

      
      /nomodkey /itemtarget drop notarget 
      /face item nolook 
      /click left item 

/doevents 
/delay 3s ${Window[TradeskillWnd].Open} 
/if (!${Window[TradeskillWnd].Open}) /nomodkey /click left Item 
/delay 3s ${Window[TradeskillWnd].Open} 

      /call ChooseRecipe
      /call ClosePacks

    /echo Moving to ${MerchantNameA}
    /echo Selling off and starting over

    /if (${CombItemName.NotEqual[MQSW]}) {

    /target ${MerchantNameA}
   
    /delay 5s ${Target.ID}==${Spawn[${MerchantNameA}].ID}

    /nomodkey /click right target

/delay 5s ${Window[MerchantWnd].Open} 

    /call OpenPacks



    /call Sell "${ItemTo}"

    /call Sell "Brut Champagne"

    }

    /nomodkey /notify MerchantWnd MW_Done_Button LeftMouseUp

    /call ClosePacks

    /doevents

    /goto :start

    /return


|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Sub Event Skill up
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub Event_Skillup

      /if (${Me.Skill[Brewing]}>${OldSkill}) {
        /echo Your Brewing Went Up!! It's now ${Me.Skill[Brewing]}!
        /varset OldSkill ${Me.Skill[Blacksmithing]}
/return

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Sub Event No Longer Advance
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub Event_Advance
    /if (${CombItemName.NotEqual[MQSW]}) /varset EndingVar 2
/return

Brewing.ini

[Abysmal Sea]
Value=2
Loc1=-212.82,169.36
Loc2=-167.32,171.46

[Crescent Reach]
Value=1
Loc1=-1152.77,-1613.64


[MHB]
Cont=Enviro
Comp0=yeast
Comp1=malt
Comp2=cask
Comp3=Water flask
Comp4=short beer
Comp5=short beer
Comp6=water flask
Comp7=malt
Comp8=malt

[MQBC]
Cont=Enviro
Comp0=Champagne Magnum
Comp1=Grapes
Comp2=Soda Water
Comp3=Wine Yeast
Comp4=Grapes
Comp5=Grapes

[MQSW]
Cont=Enviro
Comp0=Water Flask
Comp1=Soda

 

[unknown405]

All credit on brew.mac goes to ARMYSOLDIER, all I did was change /varset SkillMaxWanted 248 So that it brews to 248 skill instead of 199, I think it was.

Instructions for Brew2.mac
For this macro to work, you need to have at least 15 Soda Water's and 100 Champagne Magnum's in your inventory. The macro will auto-make 100 Soda Water's if you don't already have the 15 required, but you must make or buy your own Champagne Magnum.

How to make Champagne Magnum:
You must have a jewelery making skill of at least 196. I suggest running jeweler.mac before brew2.mac, to save time. The combine items you need are: Bottle, Enchanted Gold Bar, and Opal. For full instructions, visit This Site. Here's a little tip to getting this done really fast. First, leave jeweler.mac running for about an hour, just watch tv or go to the movies or something. Then buy 3 bag fulls of gold bars, that's how many I used. Then have an enchanter mass enchant all of your gold bars. Last step is to open up the jewelers kit, search champagne magnum, highlight it, then /macro combine.mac so it will auto make them until you run out of supplies. Though you might want to use more than 3 bags of gold bars, don't think that will be enough to get from 248-300 I'll let you know how many I needed just as soon as I get to 300.

**PS**
Sorry if this macro isn't more convenient, I searched all over EQTraders.com for an easier recipe to get to 300. This is the easiest one I could find, almost all others needed at least 5 components, only 1 or 2 could be bought and in different locations. Any feedback appreciated. Remember I'm not taking any credit at all for brew.mac as all I did was change one line to get brew2.mac to work easier. I suggest having 8-10k on your person while starting this, after 100 Brut Champagne's I only went from 148-150.

Thanks,

UnkNowN

 

[unknown405]

One more note to finish this off. This is my very first macro ever, edited or created. I have absolutely NO previous macro, plugin, etc. experience. I read brew.mac and some other macros to try and get a feel for what all these commands mean, I didn't read any tutorials or anything. Which is why this macro took me about 8-10 hours to make. So if you're going to give any negative feedback, don't be an ass about it please, as this is my first macro. Though, any feedback is appreciated, good or bad.

-UnkNowN

 

[dobey]

can you figure one out to get tinkering up to 300?

 

[unknown405]

I only posted this one because it's my first macro and I was pretty excited about it. I'm holding off for a week or two to post the whole zip file of all tradeskill macros. I'm re-coding every single one to get them up to 300. I'm even creating a new shaman so I can figure out how to get the alchemy one up to 300, if it's not already. I haven't even read all the tradeskill macs yet, but I'll let you know when I max them all out.

-UnkNowN

 

[Maxixero]

I'm having trouble with the brewing.ini file. It only shows files for Abysmal Sea. Any help?

 

[unknown405]

Oops, forgot to put the INI up. I'm surprised it's taken 73 views for someone to notice that, let me edit the top post and add the INI.

 

[Maxixero]

Working with it now. Works great from what I see. Redcent to you

 

[Devlin]

Good work to take the initiative to do this!

Keep up the good work, and very nice job on your first macro!

 

[unknown405]

UPDATE:

I was planning on having tradeskill macros done within a week might take more like 3 weeks for a few reasons. One is I'm working on other macros right now, that are more important to me to finish up. Two is I have some real life stuff going on right now, nothing bad, but just gives me less time to be on the computer. So whenever I'm done I'll let you know and include a zip file of all the macros.