Self Automated Tradeskill Macros

Timbuktu · Post by **Timbuktu** » Wed Feb 23, 2005 9:53 pm

I'm pretty sure the reason it works sometimes and not others is because /click left just targets whatever is under the mouse... I rarely leave my mouse in the middle of my screen where it will click the forge or kiln or whatnot... Ya.. I'm having the same problem btw, and that same line is where I tracked it down to.. I'm in the process of searching the boards now to find a fix... good luck ya'll.

outlander · Post by **outlander** » Thu Feb 24, 2005 9:41 am

I was having the same problem with both the Forge in the Smithing and the Brew Barrel either not working at all or popping up a bogus container window.

Below is MY fix for the problem that works for me, the X and Y values may need to be changed depending on if your an Ogre or a Gnome, I'm High Elf.

Same X and Y work for both Forge and Brew Barrel.

To answer the question YES this works if EQ is minimized or in the background (IE another window on top). BUT DON'T MESS WITH VIEW ANGLE ONCE YOU GOT IT SETUP, SEE BELOW.

/call GoToBarrel
/look
/delay ${Math.Calc[${DelayMult}*1]}s

|My fix to the Barrel not being opened properly
/mouseto 700x 700y
/nomodkey /click left

/delay ${Math.Calc[${DelayMult}*2]}s

Of course 5 min after I post this I go to EQ while I'm still brewing and change my view port to check out to see how I look while brewing (don't ask why I don't know). I discovered with my macro I need to be in First Person view or the mouse click clickes else where and not on the brew barrel so while this method works, don't mess with your view once you got it setup.

Timbuktu · Post by **Timbuktu** » Fri Feb 25, 2005 1:07 am

SumBitch... they patch today to fix the /click left item... and now I try a macro... and EQ has changed the text in the window when you open the loom... it says sewing kit... not sure how long it's been like that.. I've been using my personal deluxe sewing kit...

So, /whotarget gives you loom... but if you search the text in the COMBW, you will not find "loom".... so my macro says the thing isn't opening for me. GRRR

aChallenged1 · Post by **aChallenged1** » Fri Feb 25, 2005 7:05 am

so find "loom" in the code and replace it with "sewing kit".

rayray119 · Post by **rayray119** » Mon Feb 28, 2005 2:20 am

Hey on all of these macros it appears that its not opening the combine container and clicking exoeriment. Am I doing something wrong or any ideas how to fix it?

rayray119 · Post by **rayray119** » Mon Feb 28, 2005 3:14 pm

Nevermind I got it figured out, macro works great now

wasted · Post by **wasted** » Tue Mar 01, 2005 11:48 am

Well folks, I have donated and I tried this one out, it doesn't work perfectly, but hey, maybe it will be useful to the rest of you. First off, you can get the code off this page:

http://www.soc-music.com/mq2/don.php

tailoring.ini

Code: Select all

[WUCL] 

Cont=Large Sewing Kit

Comp0=gorget pattern

Comp1=heady kiola

Comp2=heady kiola

Comp3=heady kiola

Comp4=heady kiola

Comp5=silk swatch

Comp6=vial of viscous mana



[WUC] 

Cont=Large Sewing Kit

Comp0=cap pattern

Comp1=heady kiola

Comp2=heady kiola

Comp3=heady kiola

Comp4=heady kiola

Comp5=silk swatch

Comp6=vial of viscous mana



[WUS] 

Cont=Large Sewing Kit

Comp0=sleeve pattern

Comp1=heady kiola

Comp2=heady kiola

Comp3=heady kiola

Comp4=heady kiola

Comp5=silk swatch

Comp6=silk swatch

Comp7=vial of viscous mana



[SS] 

Cont=Large Sewing Kit 

Comp0=spider silk

Comp1=spider silk

tailoring.mac

Code: Select all

| 

| Tailoring.mac

| Tailoring Macro from 1 to 151

| Version 1.1

| Date: September 14, 2004

|

| Please be sure to get the lastest updates at http://www.soc-music.com/mq2/

|

| Before are the settings you need to change for you.

| This Macro can take you up to 151 in tailoring. 

| SkillMaxWanted can be change to what skill you want to stop at.

|

| You will need to be in front of Caerlyna in the bazaar before you start it.

|

| Disclaimer:

| Code was used from other programers also from the MQ Forums.

| 







#event CombineError "#*#There was no place to put that#*#" 

#event CombineError "#*#You cannot combine these items in this container type!#*#" 

#event CombineError "#*#did not accept these items#*#" 

#include common/sell.inc

#include common/packs.inc

#include common/cleanpacks.inc

#include common/bazaarbuy.inc

#include common/buy.inc

#include common/gogetitem.inc



Sub Main 



   /declare ItemToBuy string inner

   /declare HighestPriceToPay int inner

   /declare TotalYouWant int inner

   /declare OldSkill int outer

   /declare SkillMaxWanted int outer

   /declare PackCode string outer 

   /declare Component[10] string outer 

   /declare i int outer

   /declare CombItemName string outer

   /declare ItemTo string outer

   /declare EndingVar int outer

   /declare SSwatch item outer

   /declare VMana item outer

   /declare PatternT item outer

   /declare HKiola item outer

   /varset OldSkill ${Me.Skill[Tailoring]}



| ************************************************

| *   Change these settings to what you want.    *

| ************************************************

 

   /varset SkillMaxWanted 151



| ************************************************

| ************************************************



   :start



    /echo Tailoring is at ${Me.Skill[Tailoring]}



    /if (${Me.Skill[Tailoring]}>=${SkillMaxWanted}) {

      /echo Tailoring is at ${SkillMaxWanted}. Quiting!

      /endmacro

    }



    /if (${Me.Skill[Tailoring]}<128) {

      /varset HKiola "heady kiola" 

      /varset SSwatch "silk swatch" 

      /varset VMana "vial of viscous mana" 

      /varset PatternT "gorget pattern" 

      /varset CombItemName "WUCL" 

      /varset ItemTo "Wu's Fighting Collar" 

    } 

    /if (${Me.Skill[Tailoring]}>=128 && ${Me.Skill[Tailoring]}<142) { 

      /varset HKiola "heady kiola" 

      /varset SSwatch "silk swatch" 

      /varset VMana "vial of viscous mana" 

      /varset PatternT "cap pattern" 

      /varset CombItemName "WUC" 

      /varset ItemTo "Wu's Fighting Cap" 

    } 

    /if (${Me.Skill[Tailoring]}>=142 && ${Me.Skill[Tailoring]}<151) { 

      /varset HKiola "heady kiola" 

      /varset SSwatch "silk swatch" 

      /varset VMana "vial of viscous mana" 

      /varset PatternT "sleeve pattern" 

      /varset CombItemName "WUS" 

      /varset ItemTo "Wu's Fighting Sleeves" 

    } 



| *****************************************************

| *              Buying Heady Kiola                   *

| *****************************************************

   :headykiola

   /varset ItemToBuy Heady Kiola

   /varset HighestPriceToPay 10000

   /varset TotalYouWant 80



   /call BazaarBuy "${ItemToBuy}" ${HighestPriceToPay} ${TotalYouWant}



   /if (${FindItemCount[=${ItemToBuy}]}<${TotalYouWant}) /goto :headykiola

   /ech Done getting Heady Kiola!



| *****************************************************

| *****************************************************





| *****************************************************

| *           Buying Vial of Viscous Mana             *

| *****************************************************



   :viscousmana

   /varset ItemToBuy Vial of Viscous Mana

   /varset HighestPriceToPay 10000

   /varset TotalYouWant 20



   /call BazaarBuy "${ItemToBuy}" ${HighestPriceToPay} ${TotalYouWant}



   /if (${FindItemCount[=${ItemToBuy}]}<${TotalYouWant}) /goto :viscousmana

   /ech Done getting Vial of Viscous Mana!



| *****************************************************

| *****************************************************





| *****************************************************

| *                  Buying Pattern                   *

| *****************************************************



  :MovePattern

  /if (${Me.State.Equal[SIT]}) /stand 

  /face nolook loc -766.00,0.00

  /if (${Math.Distance[-766.00,0.00]}>2) /nomodkey /keypress forward hold 

  /if (${Math.Distance[-766.00,0.00]}<=2) {

    /nomodkey /keypress forward

    /goto :MovePatterna

  }

  /goto :MovePattern

  :MovePatterna

  /if (${Me.State.Equal[SIT]}) /stand 

  /face nolook loc -604.45,-19.68

  /if (${Math.Distance[-604.45,-19.68]}>2) /nomodkey /keypress forward hold 

  /if (${Math.Distance[-604.45,-19.68]}<=2) {

    /nomodkey /keypress forward

    /goto :DonePattern

  }

  /goto :MovePatterna

  :DonePattern

  /varset EndingVar 1

  /target Dolsoj

  /face

  /delay 1s

  /nomodkey /click right target

  /delay 2s

  /call Buy ${PatternT} 20

  /delay 1s

  /nomodkey /notify MerchantWnd DoneButton leftmouseup

  /delay 2s

  :MoveLoopPatternb

  /if (${Me.State.Equal[SIT]}) /stand 

  /face nolook loc -604.45,-19.68

  /if (${Math.Distance[-604.45,-19.68]}>2) /nomodkey /keypress forward hold 

  /if (${Math.Distance[-604.45,-19.68]}<=2) {

    /nomodkey /keypress forward

    /goto :MovePatternc

  }

  /goto :MovePatternb

  :MovePatternc

  /if (${Me.State.Equal[SIT]}) /stand 

  /face nolook loc -766.00,0.00

  /if (${Math.Distance[-766.00,0.00]}>2) /nomodkey /keypress forward hold 

  /if (${Math.Distance[-766.00,0.00]}<=2) {

    /nomodkey /keypress forward

    /goto :DonePatterna

  }

  /goto :MovePatternc

  :DonePatterna

  /echo Done getting Patterns!



| *****************************************************

| *****************************************************





| *****************************************************

| *               Getting Silk Swatch                 *

| *****************************************************



  /if (${FindItemCount[=Silk Swatch]}<40) {

     /call GetSwatch

     /echo Done getting Silk Swatches!

  } else {

     /echo Already have Swatches!

  }



| *****************************************************

| *****************************************************





| *****************************************************

| *                  Doing Combine                    *

| *****************************************************

  /varset EndingVar 1

  /call OpenPacks

  /delay 1s

  /call readIni "${CombItemName}" 

  :Begin 

     /if (${EndingVar}==1) /call ClearCursor 

     /for i 1 to 10 

           /if (${EndingVar}==1) /call AddComp "${Component[${i}]}" ${i} 

     /next i 

     /if (${EndingVar}==1) /call DoCombine 

     /if (${EndingVar}==1) /goto :Begin

  /call ClosePacks



| *****************************************************

| *****************************************************





| *****************************************************

| *                 Selling Combines                  *

| *****************************************************



  :MoveSell

  /if (${Me.State.Equal[SIT]}) /stand 

  /face nolook loc -766.00,0.00

  /if (${Math.Distance[-766.00,0.00]}>2) /nomodkey /keypress forward hold 

  /if (${Math.Distance[-766.00,0.00]}<=2) {

    /nomodkey /keypress forward

    /goto :MoveSella

  }

  /goto :MoveSell

  :MoveSella

  /if (${Me.State.Equal[SIT]}) /stand 

  /face nolook loc -604.45,-19.68

  /if (${Math.Distance[-604.45,-19.68]}>2) /nomodkey /keypress forward hold 

  /if (${Math.Distance[-604.45,-19.68]}<=2) {

    /nomodkey /keypress forward

    /goto :DoneSell

  }

  /goto :MoveSella

  :DoneSell

  /varset EndingVar 1

  /target Dolsoj

  /face

  /delay 1s

  /nomodkey /click right target

  /call OpenPacks

  /delay 2s

  /call Sell ${ItemTo}

  /delay 1s

  /nomodkey /notify MerchantWnd DoneButton leftmouseup

  /call ClosePacks

  :MoveSellb

  /if (${Me.State.Equal[SIT]}) /stand 

  /face nolook loc -604.45,-19.68

  /if (${Math.Distance[-604.45,-19.68]}>2) /nomodkey /keypress forward hold 

  /if (${Math.Distance[-604.45,-19.68]}<=2) {

    /nomodkey /keypress forward

    /goto :MoveSellc

  }

  /goto :MoveSellb

  :MoveSellc

  /if (${Me.State.Equal[SIT]}) /stand 

  /face nolook loc -766.00,0.00

  /if (${Math.Distance[-766.00,0.00]}>2) /nomodkey /keypress forward hold 

  /if (${Math.Distance[-766.00,0.00]}<=2) {

    /nomodkey /keypress forward

    /goto :DoneSella

  }

  /goto :MoveSellc

  :DoneSella

  /echo Done Selling!



| *****************************************************

| *****************************************************



  /goto :start



/return









Sub readIni(RecipeName) 

   /declare Container string local



   /echo Running ${RecipeName} recipe, which makes ${ItemTo}.



   /if (${Ini["tailoring.ini","${RecipeName}",-1,"NOTFOUND"].Equal["NOTFOUND"]}) { 

        /echo Recipe ${RecipeName} not found 

        /endmacro 

    } 



   /varset Container ${Ini[tailoring.ini,${RecipeName},Cont,Enviro]} 



   /if (${Container.Equal[Enviro]}) { 

        /varset PackCode Enviro 

   } else { 

        /varset PackCode ${FindItem[=${Container}].InvSlot} 

       

      /if (${PackCode.Equal[NULL]}) { 

         /echo Could not find container ${Container} 

         /varset EndingVar 2

         /return

      } 

      | pack1 = 22, ... , pack8 = 29 

      /varset PackCode pack${Math.Calc[${PackCode}-21].Int} 

   }



   /call cleanPack "${Container}"



   /for i 1 to 10 

      /varset Component[${i}] ${Ini[tailoring.ini,${RecipeName},Comp${Math.Calc[${i}-1].Int},NOTFOUND]} 

   /next i 

/return 



sub ClearCursor 

    :Loop 

      /if (!${Cursor.ID}) /return 

      /autoinv 

|      /destroy	

      /delay 5 

      /doevents 

      /goto :Loop 

    /return 



sub DoCombine 

    :Loop 

      /combine ${PackCode} 

      /delay 1s 

      /if (${PackCode.Equal[Enviro]}) /delay 1s 

      /doevents 

      /if (${InvSlot[${PackCode}].Item.Items}) /goto :Loop 

      /delay 5 

      /if (${Me.Skill[Tailoring]}>${OldSkill}) {

        /echo Your Tailoring Went Up!! It's now ${Me.Skill[Tailoring]}!

        /varset OldSkill ${Me.Skill[Tailoring]}

      }

/return 



sub AddComp(CompName, PackSlot) 

   /if (${CompName.Equal[NOTFOUND]}) /return 



   /if (!${FindItem[=${CompName}].ID}) { 

      /echo Could not find ${CompName} in inventory 

      /beep 

      /varset EndingVar 2

      /return 

    } 



   :Loop 

      /nomodkey /ctrl /itemnotify ${FindItem[=${CompName}].InvSlot} leftmouseup 



      /if (!${Cursor.ID}) { 

         /delay 1 

         /goto :Loop 

      } 



   /if (${PackCode.Equal[Enviro]}) { 

      /nomodkey /itemnotify ${InvSlot[enviro${PackSlot}]} leftmouseup 

   } else { 

      /nomodkey /itemnotify in ${PackCode} ${PackSlot} leftmouseup 

   }    

/return 



Sub Event_CombineError 

   /varset EndingVar 2

/return



Sub GetSwatch

   /declare ItemToBuy string inner

   /declare HighestPriceToPay int inner

   /declare TotalYouWant int inner



   :swatch

   /varset ItemToBuy Spider Silk

   /varset HighestPriceToPay 10000

   /varset TotalYouWant 200



   /call BazaarBuy "${ItemToBuy}" ${HighestPriceToPay} ${TotalYouWant}



   /if (${FindItemCount[=${ItemToBuy}]}<${TotalYouWant}) /goto :swatch



  /call OpenPacks

  /call readIni "SS" 

  :Begin 

     /if (${EndingVar}==1) /call ClearCursor 

     /for i 1 to 10 

           /if (${EndingVar}==1) /call AddComp "${Component[${i}]}" ${i} 

     /next i 

     /if (${EndingVar}==1) /call DoCombine 

     /if (${EndingVar}==1) /goto :Begin

  /call ClosePacks

/return

Best of luck folks.

rayray119 · Post by **rayray119** » Tue Mar 01, 2005 11:51 am

Great, thanks a lot man. I was hoping someone would at least post the beta. What problems have you had with this out of curiosity?

shadowman33 · Post by **shadowman33** » Thu Mar 03, 2005 12:03 pm

Ok, I have used all the macros you have listed on your website. All of them worked great except for having to fix the "left click item" problem which was easily enough taken care of. I love these macros! There is one problem though that I run into. It's not the macro performace itself, but how busy Abysmal Sea has gotten lately. What is was wondering about is the brewing macro. Everyone in Abysmal that I have seen uses that brew barrell in the main room where you get brewing supplies. Is it possible that your brewing macro could be modified so if that brew barrell is in use by someone else, it would take you to the brew barrell in the room across from the banker room? Other than that, the macros are wonderful.

Thaner · Post by **Thaner** » Thu Mar 10, 2005 2:21 pm

I adjusted this to run in PoK (haven;t checked the other 20 pages to see ifi its been done.

ran this overnight, made 0 to 191 skill in JC with only 7k! very happy, so this shouldn't error out on you as ran fine for hours

Code: Select all

|
| jc.mac
| Takes you from 1 to 250 in Jewelry Crafting
| Version 2.2
| Date: August 3, 2004
|
| Please be sure to get the lastest updates at 
|  http://www.soc-music.com/mq2/index.htm
|
| Before are the settings you need to change for you.
| This Macro can take you up to 250 in Jewelry Crafting.
| SkillMaxWanted can be change to what skill you want to stop at.
| MerchantName is which merchant you are at.
|
| This Macro has been adjusted by Thaner to work in Plane of Knowledge, | 
| for those of us without GoD,
| you must be standing inbetween Kirem Deepfacet and Audri Deepfacet
| Might wanna do a manual check by right clicking on 
| vendors to see if they are both in range.
| Also, be sure you have a lot of money on you to go from 1 to 250.
| **This was a quick fix and i ran it overnight, 
| went from 0 to 191 for 7k pp
| 
| Requirements:
| You will need a Jewelry Kit (in the last slot).
|
| Disclaimer:
| Code was used from other programers also from the MQ Forums.
|


#event CombineError "#*#There was no place to put that#*#"
#event CombineError "#*#You cannot combine these items in this container type!#*#"
#event CombineError "#*#did not accept these items#*#"
#include common/sell.inc
#include common/buy.inc
#include common/packs.inc

Sub Main
    /declare OldSkill int outer
    /declare SkillMaxWanted int outer
    /declare PackCode string outer
    /declare Component[10] string outer
    /declare i int outer
    /declare MerchantName1 string Outer
    /declare MerchantName2 string Outer
    /declare BarItem item outer
    /declare GemItem item outer
    /declare CombItemName string outer
    /declare ItemTo string outer
    /declare EndingVar int outer
    /declare Levelname int outer
    /varset OldSkill ${Me.Skill[Jewelry Making]}

| ************************************************
| *   Change these settings to what you want.    *
| ************************************************

    /varset SkillMaxWanted 250
    /varset MerchantName1 "Kirem Deepfacet"
    /varset MerchantName2 "Audri Deepfacet"
    

| ************************************************
| ************************************************

    :start
    /echo Jewelry Crafting is at ${Me.Skill[Jewelry Making]}

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

    /if (${Me.Skill[Jewelry Making]}>=220 && ${Me.Skill[Jewelry Making]}<250) {
      /varset BarItem "platinum bar"
      /varset GemItem "jade"
      /varset CombItemName "PJ"
      /varset ItemTo "Jaded Platinum Ring"
    }

    /if (${Me.Skill[Jewelry Making]}>=202 && ${Me.Skill[Jewelry Making]}<220) {
      /varset BarItem "platinum bar"
      /varset GemItem "lapis lazuli"
      /varset CombItemName "PLL"
      /varset ItemTo "Platinum Lapis Lazuli Necklace"
    }

    /if (${Me.Skill[Jewelry Making]}>=191 && ${Me.Skill[Jewelry Making]}<202) {
      /varset BarItem "gold bar"
      /varset GemItem "fire emerald"
      /varset CombItemName "GFE"
      /varset ItemTo "Fire Emerald Golden Bracelet"
    }

    /if (${Me.Skill[Jewelry Making]}>=183 && ${Me.Skill[Jewelry Making]}<191) {
      /varset BarItem "gold bar"
      /varset GemItem "star ruby"
      /varset CombItemName "GSA"
      /varset ItemTo "Golden Star Ruby Ring"
    }

    /if (${Me.Skill[Jewelry Making]}>=183 && ${Me.Skill[Jewelry Making]}<191) {
      /varset BarItem "gold bar"
      /varset GemItem "opal"
      /varset CombItemName "GO"
      /varset ItemTo "Golden Opal Amulet"
    }

    /if (${Me.Skill[Jewelry Making]}>=172 && ${Me.Skill[Jewelry Making]}<183) {
      /varset BarItem "gold bar"
      /varset GemItem "topaz"
      /varset CombItemName "GT"
      /varset ItemTo "Golden Topaz Earring"
    }

    /if (${Me.Skill[Jewelry Making]}>=146 && ${Me.Skill[Jewelry Making]}<172) {
      /varset BarItem "gold bar"
      /varset GemItem "amber"
      /varset CombItemName "GA"
      /varset ItemTo "Golden Amber Earring"
    }

    /if (${Me.Skill[Jewelry Making]}>=100 && ${Me.Skill[Jewelry Making]}<146) {
      /varset BarItem "gold bar"
      /varset GemItem "malachite"
      /varset CombItemName "GM"
      /varset ItemTo "Gold Malachite Bracelet"
    }

    /if (${Me.Skill[Jewelry Making]}>=76 && ${Me.Skill[Jewelry Making]}<100) {
      /varset BarItem "electrum bar"
      /varset GemItem "amber"
      /varset CombItemName "EA"
      /varset ItemTo "Electrum Amber Earring"
    }

    /if (${Me.Skill[Jewelry Making]}<76) {
      /varset BarItem "electrum bar"
      /varset GemItem "lapis lazuli"
      /varset CombItemName "EL"
      /varset ItemTo "Electrum Lapis Lazuli Earring"
    }

    /varset EndingVar 1
    /target ${MerchantName2}
    /face fast
    /click right target
    /delay 3s
    /call Buy ${BarItem} 20
    /delay 3s
    /notify MerchantWnd DoneButton leftmouseup
    /delay 5s
    /target ${MerchantName1}
    /face fast
    /click right target
    /delay 3s
    /call Buy ${GemItem} 20
    /delay 3s
    /notify MerchantWnd DoneButton leftmouseup
    /delay 5s
    /call OpenPacks
    /delay 5s
    /notify TradeskillWnd ExperimentButton leftmousehold
    /notify TradeskillWnd ExperimentButton leftmouseup
    /delay 5s


    /call readIni "${CombItemName}"
    :Begin
       /if (${EndingVar}==1) /call ClearCursor
       /for i 1 to 10
             /if (${EndingVar}==1) /call AddComp "${Component[${i}]}" ${i}
       /next i
       /if (${EndingVar}==1) /call DoCombine
       /if (${EndingVar}==1) /goto :Begin
 
    /delay 1s
    /call ClosePacks
    /keypress esc
    /keypress esc
    /target ${MerchantName1}
    /face
    /click right target
    /delay 3s
    /call OpenPacks
    /delay 5s
    /call Sell ${ItemTo}
    /delay 3s
    /call ClosePacks
    /keypress esc
    /keypress esc

    /goto :start

    /return

Sub readIni(RecipeName)
    /declare Container string

    /echo Running ${RecipeName} recipe, which makes ${ItemTo}.

   /if (${Ini["jc.ini","${RecipeName}",-1,"NOTFOUND"].Equal["NOTFOUND"]}) {
        /echo Recipe ${RecipeName} not found
        /endmacro
    }

   /varset Container ${Ini[jc.ini,${RecipeName},Cont,Enviro]}

   /if (${Container.Equal[Enviro]}) {
        /varset PackCode Enviro
   } else {
        /varset PackCode ${FindItem[=${Container}].InvSlot}
       
      /if (${PackCode.Equal[NULL]}) {
         /echo Could not find container ${Container}
         /varset EndingVar 2
         /return
      }
      | pack1 = 22, ... , pack8 = 29
      /varset PackCode pack${Math.Calc[${PackCode}-21].Int}
   } 

    /for i 1 to 10
        /varset Component[${i}] ${Ini[jc.ini,${RecipeName},Comp${Math.Calc[${i}-1].Int},NOTFOUND]}
    /next i
    /return

sub ClearCursor
    :Loop
      /if (!${Cursor.ID}) /return
      /autoinv
|      /destroy   
      /delay 7
      /doevents
      /goto :Loop
    /return

sub DoCombine
    :Loop
      /combine ${PackCode}
      /delay 3s
      /if (${PackCode.Equal[Enviro]}) /delay 3s
      /doevents
      /if (${InvSlot[${PackCode}].Item.Items}) /goto :Loop
      /delay 7
      /if (${Me.Skill[Jewelry Making]}>${OldSkill}) {
        /echo Your Jewelry Crafting Went Up!! It's now ${Me.Skill[Jewelry Making]}!
        /varset OldSkill ${Me.Skill[Jewelry Making]}
      }
    /return

sub AddComp(CompName, PackSlot)
   /if (${CompName.Equal[NOTFOUND]}) /return

   /if (!${FindItem[=${CompName}].ID}) {
      /echo Could not find ${CompName} in inventory
      /beep
      /varset EndingVar 2
      /return
    }

   :Loop
      /ctrl /itemnotify ${FindItem[=${CompName}].InvSlot} leftmouseup

      /if (!${Cursor.ID}) {
         /delay 3
         /goto :Loop
      }

   /if (${PackCode.Equal[Enviro]}) {
      /itemnotify ${InvSlot[enviro${PackSlot}]} leftmouseup
   } else {
      /itemnotify in ${PackCode} ${PackSlot} leftmouseup
   }   
   /return

Sub Event_CombineError
    /varset EndingVar 2
/return

Devious_D · Post by **Devious_D** » Thu Mar 10, 2005 4:03 pm

With the new raising of Tradeskill caps to 300, I revisited the Jewelry Macro and added recipes to take you as high as is possible in Abysmal Sea.

jc.mac

Code: Select all

| jc.mac
| Takes you from 1 to 250 in Jewelry Crafting
| Version 2.5
| Date: September 14, 2004
|
| Please be sure to get the lastest updates at http://www.soc-music.com/mq2/
|
| Before are the settings you need to change for you.
| This Macro can take you up to 250 in Jewelry Crafting.
| SkillMaxWanted can be change to what skill you want to stop at.
| MerchantName is which merchant you are at.
| You will need to change the DelayMult to higher if you are laggy, this
|   number will be multiplied to the default delay.
|
| This Macro works best in the Abysmal Sea since all the components are there.
| You WILL need to be next to the merchant in order for this to work.
| Also, be sure you have a lot of money on you to go from 1 to 250.
|
| Requirements:
| You will need a Jewelry Kit (in the last slot).
|
| Disclaimer:
| Code was used from other programers also from the MQ Forums.
| 


#event CombineError "#*#There was no place to put that#*#" 
#event CombineError "#*#You cannot combine these items in this container type!#*#" 
#event CombineError "#*#did not accept these items#*#" 
#include common/sell.inc
#include common/buy.inc
#include common/packs.inc
#include common/cleanpacks.inc

Sub Main 
    /declare OldSkill int outer
    /declare SkillMaxWanted int outer
    /declare PackCode string outer 
    /declare Component[10] string outer 
    /declare i int outer
    /declare MerchantName string Outer
    /declare BarItem item outer
    /declare GemItem item outer
    /declare CombItemName string outer
    /declare ItemTo string outer
    /declare EndingVar int outer
    /declare Levelname int outer
    /declare DelayMult int outer
    /varset OldSkill ${Me.Skill[Jewelry Making]}

| ************************************************
| *   Change these settings to what you want.    *
| ************************************************

    /varset SkillMaxWanted 279
    /varset MerchantName "Rilwind Sitnai"
    /varset DelayMult 1


| ************************************************
| ************************************************

    :start
    /echo Jewelry Crafting is at ${Me.Skill[Jewelry Making]}

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


|#####---Start New Recipes---#####|

    /if (${Me.Skill[Jewelry Making]}>=276 && ${Me.Skill[Jewelry Making]}<=279) {
      /varset BarItem "platinum bar"
      /varset GemItem "ruby"
      /varset CombItemName "PR"
      /varset ItemTo "Platinum Ruby Veil"
    }

    /if (${Me.Skill[Jewelry Making]}>=274 && ${Me.Skill[Jewelry Making]}<276) {
      /varset BarItem "platinum bar"
      /varset GemItem "sapphire"
      /varset CombItemName "PS"
      /varset ItemTo "Sapphire Platinum Necklace"
    }

    /if (${Me.Skill[Jewelry Making]}>=271 && ${Me.Skill[Jewelry Making]}<274) {
      /varset BarItem "platinum bar"
      /varset GemItem "fire emerald"
      /varset CombItemName "PFE"
      /varset ItemTo "Fire Emerald Platinum Ring"
    }

    /if (${Me.Skill[Jewelry Making]}>=268 && ${Me.Skill[Jewelry Making]}<271) {
      /varset BarItem "platinum bar"
      /varset GemItem "star ruby"
      /varset CombItemName "PSR"
      /varset ItemTo "Platinum Star Ruby Veil"
    }

    /if (${Me.Skill[Jewelry Making]}>=263 && ${Me.Skill[Jewelry Making]}<268) {
      /varset BarItem "platinum bar"
      /varset GemItem "fire opal"
      /varset CombItemName "PFO"
      /varset ItemTo "Platinum Fire Wedding Ring"
    }

    /if (${Me.Skill[Jewelry Making]}>=260 && ${Me.Skill[Jewelry Making]}<263) {
      /varset BarItem "platinum bar"
      /varset GemItem "opal"
      /varset CombItemName "PO"
      /varset ItemTo "Platinum Opal Engagement Ring"
    }

    /if (${Me.Skill[Jewelry Making]}>=258 && ${Me.Skill[Jewelry Making]}<260) {
      /varset BarItem "platinum bar"
      /varset GemItem "emerald"
      /varset CombItemName "PE"
      /varset ItemTo "Platinum Emerald Ring"
    }

    /if (${Me.Skill[Jewelry Making]}>=255 && ${Me.Skill[Jewelry Making]}<258) {
      /varset BarItem "platinum bar"
      /varset GemItem "peridot"
      /varset CombItemName "PP"
      /varset ItemTo "Platinum Peridot Ring"
    }

    /if (${Me.Skill[Jewelry Making]}>=250 && ${Me.Skill[Jewelry Making]}<255) {
      /varset BarItem "platinum bar"
      /varset GemItem "topaz"
      /varset CombItemName "PT"
      /varset ItemTo "Platinum Topaz Necklace"
    }

|#####---End New Recipes---#####|

    /if (${Me.Skill[Jewelry Making]}>=220 && ${Me.Skill[Jewelry Making]}<250) {
      /varset BarItem "platinum bar"
      /varset GemItem "jade"
      /varset CombItemName "PJ"
      /varset ItemTo "Jaded Platinum Ring"
    }

    /if (${Me.Skill[Jewelry Making]}>=202 && ${Me.Skill[Jewelry Making]}<220) {
      /varset BarItem "platinum bar"
      /varset GemItem "lapis lazuli"
      /varset CombItemName "PLL"
      /varset ItemTo "Platinum Lapis Lazuli Necklace"
    }

    /if (${Me.Skill[Jewelry Making]}>=191 && ${Me.Skill[Jewelry Making]}<202) {
      /varset BarItem "gold bar"
      /varset GemItem "fire emerald"
      /varset CombItemName "GFE"
      /varset ItemTo "Fire Emerald Golden Bracelet"
    }

    /if (${Me.Skill[Jewelry Making]}>=183 && ${Me.Skill[Jewelry Making]}<191) {
      /varset BarItem "gold bar"
      /varset GemItem "star ruby"
      /varset CombItemName "GSA"
      /varset ItemTo "Golden Star Ruby Ring"
    }

    /if (${Me.Skill[Jewelry Making]}>=183 && ${Me.Skill[Jewelry Making]}<191) {
      /varset BarItem "gold bar"
      /varset GemItem "opal"
      /varset CombItemName "GO"
      /varset ItemTo "Golden Opal Amulet"
    }

    /if (${Me.Skill[Jewelry Making]}>=172 && ${Me.Skill[Jewelry Making]}<183) {
      /varset BarItem "gold bar"
      /varset GemItem "topaz"
      /varset CombItemName "GT"
      /varset ItemTo "Golden Topaz Earring"
    }

    /if (${Me.Skill[Jewelry Making]}>=146 && ${Me.Skill[Jewelry Making]}<172) {
      /varset BarItem "gold bar"
      /varset GemItem "amber"
      /varset CombItemName "GA"
      /varset ItemTo "Golden Amber Earring"
    }

    /if (${Me.Skill[Jewelry Making]}>=100 && ${Me.Skill[Jewelry Making]}<146) {
      /varset BarItem "gold bar"
      /varset GemItem "malachite"
      /varset CombItemName "GM"
      /varset ItemTo "Gold Malachite Bracelet"
    }

    /if (${Me.Skill[Jewelry Making]}>=76 && ${Me.Skill[Jewelry Making]}<100) {
      /varset BarItem "electrum bar"
      /varset GemItem "amber"
      /varset CombItemName "EA"
      /varset ItemTo "Electrum Amber Earring"
    }

    /if (${Me.Skill[Jewelry Making]}<76) {
      /varset BarItem "electrum bar"
      /varset GemItem "lapis lazuli"
      /varset CombItemName "EL"
      /varset ItemTo "Electrum Lapis Lazuli Earring"
    }

    /varset EndingVar 1
    /target ${MerchantName}
    /face
    /nomodkey /click right target
    /call OpenPacks
    /delay ${Math.Calc[${DelayMult}*2]}s
    /call Sell ${BarItem}
    /delay ${Math.Calc[${DelayMult}*1]}s
    /call Sell ${GemItem}
    /delay ${Math.Calc[${DelayMult}*1]}s
    /call Buy ${BarItem} 20
    /delay ${Math.Calc[${DelayMult}*1]}s
    /call Buy ${GemItem} 20
    /delay ${Math.Calc[${DelayMult}*1]}s
    /nomodkey /notify MerchantWnd DoneButton leftmouseup
    /call ClosePacks
    /call OpenPacks
    /delay ${Math.Calc[${DelayMult}*2]}s


    /call readIni "${CombItemName}" 
    :Begin 
       /if (${EndingVar}==1) /call ClearCursor 
       /for i 1 to 10 
             /if (${EndingVar}==1) /call AddComp "${Component[${i}]}" ${i} 
       /next i 
       /if (${EndingVar}==1) /call DoCombine 
       /if (${EndingVar}==1) /goto :Begin
 
    /delay ${Math.Calc[${DelayMult}*1]}s
    /call ClosePacks
    /delay ${Math.Calc[${DelayMult}*1]}s
    /target ${MerchantName}
    /face
    /nomodkey /click right target
    /delay ${Math.Calc[${DelayMult}*1]}s
    /call OpenPacks
    /delay ${Math.Calc[${DelayMult}*2]}s
    /call Sell ${ItemTo}
    /delay ${Math.Calc[${DelayMult}*1]}s
    /nomodkey /notify MerchantWnd DoneButton leftmouseup
    /call ClosePacks

    /goto :start

    /return

Sub readIni(RecipeName) 
    /declare Container string 

    /echo Running ${RecipeName} recipe, which makes ${ItemTo}.

    /if (${Ini["jc.ini","${RecipeName}",-1,"NOTFOUND"].Equal["NOTFOUND"]}) { 
         /echo Recipe ${RecipeName} not found 
         /endmacro 
     } 

    /varset Container ${Ini[jc.ini,${RecipeName},Cont,Enviro]} 
 
    /if (${Container.Equal[Enviro]}) { 
         /varset PackCode Enviro 
    } else { 
         /varset PackCode ${FindItem[=${Container}].InvSlot} 
       
         /if (${PackCode.Equal[NULL]}) { 
            /echo Could not find container ${Container} 
            /varset EndingVar 2
            /return
         } 
         | pack1 = 22, ... , pack8 = 29 
         /varset PackCode pack${Math.Calc[${PackCode}-21].Int} 
    }  

    /call cleanPack "${Container}"

    /for i 1 to 10 
        /varset Component[${i}] ${Ini[jc.ini,${RecipeName},Comp${Math.Calc[${i}-1].Int},NOTFOUND]} 
    /next i 
    /return 

sub ClearCursor 
    :Loop 
      /if (!${Cursor.ID}) /return 
      /autoinv 
|      /destroy	
    /delay ${Math.Calc[${DelayMult}*5]}s
      /doevents 
      /goto :Loop 
    /return 

sub DoCombine 
    :Loop
      /combine ${PackCode} 
    /delay ${Math.Calc[${DelayMult}*1]}s
      /if (${PackCode.Equal[Enviro]}) /delay 1s 
      /doevents 
      /if (${InvSlot[${PackCode}].Item.Items}) /goto :Loop 
      /delay ${Math.Calc[${DelayMult}*2]}s
      /if (${Me.Skill[Jewelry Making]}>${OldSkill}) {
        /echo Your Jewelry Crafting Went Up!! It's now ${Me.Skill[Jewelry Making]}!
        /varset OldSkill ${Me.Skill[Jewelry Making]}
      }
    /return 

sub AddComp(CompName, PackSlot) 
   /if (${CompName.Equal[NOTFOUND]}) /return 

   /if (!${FindItem[=${CompName}].ID}) { 
      /echo Could not find ${CompName} in inventory 
      /beep 
      /varset EndingVar 2
      /return 
    } 

   :Loop 
      /nomodkey /ctrl /itemnotify ${FindItem[=${CompName}].InvSlot} leftmouseup 

      /if (!${Cursor.ID}) { 
         /delay ${Math.Calc[${DelayMult}*1]}s
         /goto :Loop 
      } 

   /if (${PackCode.Equal[Enviro]}) { 
      /nomodkey /itemnotify ${InvSlot[enviro${PackSlot}]} leftmouseup 
   } else { 
      /nomodkey /itemnotify in ${PackCode} ${PackSlot} leftmouseup 
   }    
   /return 

Sub Event_CombineError 
    /varset EndingVar 2
/return

jc.ini

Code: Select all

[EL]
Cont=Jeweler's Kit
Comp0=electrum bar
Comp1=lapis lazuli


[EA]
Cont=Jeweler's Kit
Comp0=electrum bar
Comp1=amber

[GM]
Cont=Jeweler's Kit
Comp0=gold bar
Comp1=malachite

[GA]
Cont=Jeweler's Kit
Comp0=gold bar
Comp1=amber

[GT]
Cont=Jeweler's Kit
Comp0=gold bar
Comp1=topaz

[GO]
Cont=Jeweler's Kit
Comp0=gold bar
Comp1=opal

[GSR]
Cont=Jeweler's Kit
Comp0=gold bar
Comp1=star ruby

[GFE]
Cont=Jeweler's Kit
Comp0=gold bar
Comp1=fire emerald

[PLL]
Cont=Jeweler's Kit
Comp0=platinum bar
Comp1=lapis lazuli

[PJ]
Cont=Jeweler's Kit
Comp0=platinum bar
Comp1=jade

[PT]
Cont=Jeweler's Kit
Comp0=platinum bar
Comp1=topaz

[PP]
Cont=Jeweler's Kit
Comp0=platinum bar
Comp1=peridot

[PE]
Cont=Jeweler's Kit
Comp0=platinum bar
Comp1=emerald

[PO]
Cont=Jeweler's Kit
Comp0=platinum bar
Comp1=opal

[PFO]
Cont=Jeweler's Kit
Comp0=platinum bar
Comp1=fire opal

[PSR]
Cont=Jeweler's Kit
Comp0=platinum bar
Comp1=star ruby

[PFE]
Cont=Jeweler's Kit
Comp0=platinum bar
Comp1=fire emerald

[PS]
Cont=Jeweler's Kit
Comp0=platinum bar
Comp1=sapphire

[PR]
Cont=Jeweler's Kit
Comp0=platinum bar
Comp1=ruby

Hope you find this helpfull

Togashi · Post by **Togashi** » Tue Mar 15, 2005 1:40 pm

can someone modify this so it recgnizes when a failed combine gets salvaged from salvage aa? when I salvage something it gets bogged down and wont do anymore combines because it doesnt know ho to remove things from the fletching kit when a salvage happens.

Togashi

Override · Post by **Override** » Thu Mar 17, 2005 11:45 am

Hello everyone, long time no see. I have been very busy the past couple months. I went to EQ2, i was the first 50 jeweler and first 50 woodworker on the server and 3rd in game and thats after I got a late start on tradeskills. AAfter I got that, things got boring and I decided to try WoW out. Well, after a week I stopped playing. Now, I am thinking of coming back to EQ1. But I gave my characters to the guild and they have been handed out to guildie's family members that are now playing them and it wouldn't be right for me to just take them back. So, I am currently trying to hunt down a character that I can use that is decent and get back into the game. If anyone knows of anyone getting rid of decent characters for a good price, let me know.

After I find a character I WILL start updating the macros again. Besides, I have some unfinished work to complete. I need to finish a tailoring macro that hunts for you too. I still have that unfinished code.

But give me a little time to find a character, read the 20 pages of post people have put up here and start offering tech support on it again. I see they added in a few AAs that I will have to work into it, and they also capped the tradeskills at 300 I hear. I have a lot of work in front of me, but give me time and it will be finished.

And I just wanted to say Thank You to the whole MQ Community. I have wrote a lot of macros in my time, and these tradeskill macros were the first of my release. And since then I have gotten so many people wanting to help and giving me support in so many ways. I checked my email that all the MQ questions go to for the first time the other day, and theier were tons of them. If you sent one, please be patiance with me now. I am not sure who has a question still and who does not, so if you still do, send me an email and I will try to answer it as soon as possible.

Clueless_Coder · Post by **Clueless_Coder** » Thu Mar 17, 2005 12:40 pm

Send me a PM with some specs for the type of character you're looking for: Level, class, skills, etc

I have several accounts that I'm not playing atm and might have something you're looking for.

All are 65+ and at least Time flagged, with varying skills etc.

modena · Post by **modena** » Thu Mar 17, 2005 6:24 pm

Welcome back man. I'm excited to see some updates. :)

Self Automated Tradeskill Macros

Tailoring Macro

great macros!

I'm back