looking for someupdated tradeskills macs

jseber1982 · Sep 27, 2005

I have a set of them, but they have problems with the new ui, once it opens the vendor window up, it hoses, just like the bazaar idiot macro does. Does anybody have a set of new ones that work perfectly?fully automating tradeskills.

This is one of the ones that i have for fletching. It has an ini file also with the recepies. thanks

#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 AShafts item outer
/declare GrooveN item outer
/declare CFletching item outer
/declare AHeads item outer
/declare Twine item outer
/declare Staff item outer
/declare CombItemName string outer
/declare ItemTo string outer
/declare EndingVar int outer
/declare Levelname int outer
/varset OldSkill ${Me.Skill[Fletching]}

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

/varset MerchantName "Bansama Nysawi"
/varset SkillMaxWanted 250

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

:start
/echo Fletching is at ${Me.Skill[Fletching]}

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

/if (${Me.Skill[Fletching]}>202) {
/varset Staff "shadewood bow staff"
/varset Twine "hemp twine"
/varset CombItemName "RSRB"
/varset ItemTo "Rough Shadewood Recurve Bow"
}

/if (${Me.Skill[Fletching]}>=162 && ${Me.Skill[Fletching]}<202) {
/varset AHeads "field point arrowheads"
/varset AShafts "bundled wooden arrow shafts"
/varset CFletching "set of ceramic arrow vanes"
/varset GrooveN "large groove nocks"
/varset CombItemName "FWCL"
/varset ItemTo "CLASS 6 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=135 && ${Me.Skill[Fletching]}<162) {
/varset AHeads "field point arrowheads"
/varset AShafts "bundled wooden arrow shafts"
/varset CFletching "set of bone arrow vanes"
/varset GrooveN "large groove nocks"
/varset CombItemName "FWBL"
/varset ItemTo "CLASS 5 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=122 && ${Me.Skill[Fletching]}<135) {
/varset AShafts "bundled ceramic arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "several round cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FCRL"
/varset ItemTo "CLASS 1 Ceramic Point Arrow"
}

/if (${Me.Skill[Fletching]}>=102 && ${Me.Skill[Fletching]}<122) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "set of wooden arrow vanes"
/varset AHeads "field point arrowheads"
/varset CombItemName "FWWL"
/varset ItemTo "CLASS 4 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=82 && ${Me.Skill[Fletching]}<102) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "several round cut fletchings"
/varset AHeads "hooked arrowheads"
/varset CombItemName "HWSL"
/varset ItemTo "CLASS 1 Wood Hooked Arrow"
}

/if (${Me.Skill[Fletching]}>=68 && ${Me.Skill[Fletching]}<82) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "several shield cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FWSL"
/varset ItemTo "CLASS 3 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=56 && ${Me.Skill[Fletching]}<68) {
/varset AShafts "bundled bone arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "several round cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FBRL"
/varset ItemTo "CLASS 1 Bone Point Arrow"
}

/if (${Me.Skill[Fletching]}>=46 && ${Me.Skill[Fletching]}<56) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "small groove nocks"
/varset CFletching "several round cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FWRS"
/varset ItemTo "CLASS 1 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=36 && ${Me.Skill[Fletching]}<46) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "several parabolic cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FWPL"
/varset ItemTo "CLASS 2 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=16 && ${Me.Skill[Fletching]}

6) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "medium groove nocks"
/varset CFletching "several round cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FWRM"
/varset ItemTo "CLASS 1 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=0 && ${Me.Skill[Fletching]}<16) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "several round cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FWRL"
/varset ItemTo "CLASS 1 Wood Point Arrow"
}

/varset EndingVar 1
/target ${MerchantName}
/face
/nomodkey /click right target
/call OpenPacks
/if (${Me.Skill[Fletching]}>202) {
/call Sell ${Staff}
/delay 1s
/call Sell ${Twine}
/delay 1s
/call Buy ${Staff} 10
/delay 1s
/call Buy ${Twine} 10
/delay 1s
} else {
/call Sell ${AShafts}
/delay 1s
/call Sell ${GrooveN}
/delay 1s
/call Sell ${CFletching}
/delay 1s
/call Sell ${AHeads}
/delay 1s
/call Buy ${AShafts} 40
/delay 1s
/call Buy ${GrooveN} 40
/delay 1s
/call Buy ${CFletching} 40
/delay 1s
/call Buy ${AHeads} 40
/delay 1s
}
/nomodkey /notify MerchantWnd DoneButton leftmouseup
/call ClosePacks
/call OpenPacks
/delay 2s

/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
/delay 1s
/target ${MerchantName}
/face
/nomodkey /click right target
/delay 1s
/call OpenPacks
/delay 2s
/call Sell ${ItemTo}
/delay 1s
/nomodkey /notify MerchantWnd DoneButton leftmouseup
/call ClosePacks

/goto :start

/return

Sub readIni(RecipeName)
/declare Container string local

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

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

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

/if (${Container.Equal[Enviro]}) {
/varset PackCode Enviro
} else {
/varset PackCode ${FindItem[=${Container}].InvSlot}
/echo ${Container}

/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[fletching.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[Fletching]}>${OldSkill}) {
/echo Your Fletching Went Up!! It's now ${Me.Skill[Fletching]}!
/varset OldSkill ${Me.Skill[Fletching]}
}
/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

Jumjum5 · Sep 27, 2005

Not sure if they have been updated, but you should check out the Mq2 boards cause if they are updated they will be there.

shadowman33 · Sep 27, 2005

not a flame, just a reminder....
plz post your code this way
makes it much easier for everyone to read and to help you.

Rich (BB code):

#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 AShafts item outer
/declare GrooveN item outer
/declare CFletching item outer
/declare AHeads item outer
/declare Twine item outer
/declare Staff item outer
/declare CombItemName string outer
/declare ItemTo string outer
/declare EndingVar int outer
/declare Levelname int outer
/varset OldSkill ${Me.Skill[Fletching]}

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

/varset MerchantName "Bansama Nysawi"
/varset SkillMaxWanted 250

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


:start
/echo Fletching is at ${Me.Skill[Fletching]}

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

/if (${Me.Skill[Fletching]}>202) {
/varset Staff "shadewood bow staff"
/varset Twine "hemp twine"
/varset CombItemName "RSRB"
/varset ItemTo "Rough Shadewood Recurve Bow"
}

/if (${Me.Skill[Fletching]}>=162 && ${Me.Skill[Fletching]}<202) {
/varset AHeads "field point arrowheads"
/varset AShafts "bundled wooden arrow shafts"
/varset CFletching "set of ceramic arrow vanes"
/varset GrooveN "large groove nocks"
/varset CombItemName "FWCL"
/varset ItemTo "CLASS 6 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=135 && ${Me.Skill[Fletching]}<162) {
/varset AHeads "field point arrowheads"
/varset AShafts "bundled wooden arrow shafts"
/varset CFletching "set of bone arrow vanes"
/varset GrooveN "large groove nocks"
/varset CombItemName "FWBL"
/varset ItemTo "CLASS 5 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=122 && ${Me.Skill[Fletching]}<135) {
/varset AShafts "bundled ceramic arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "several round cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FCRL"
/varset ItemTo "CLASS 1 Ceramic Point Arrow"
}

/if (${Me.Skill[Fletching]}>=102 && ${Me.Skill[Fletching]}<122) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "set of wooden arrow vanes"
/varset AHeads "field point arrowheads"
/varset CombItemName "FWWL"
/varset ItemTo "CLASS 4 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=82 && ${Me.Skill[Fletching]}<102) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "several round cut fletchings"
/varset AHeads "hooked arrowheads"
/varset CombItemName "HWSL"
/varset ItemTo "CLASS 1 Wood Hooked Arrow"
}

/if (${Me.Skill[Fletching]}>=68 && ${Me.Skill[Fletching]}<82) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "several shield cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FWSL"
/varset ItemTo "CLASS 3 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=56 && ${Me.Skill[Fletching]}<68) {
/varset AShafts "bundled bone arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "several round cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FBRL"
/varset ItemTo "CLASS 1 Bone Point Arrow"
}

/if (${Me.Skill[Fletching]}>=46 && ${Me.Skill[Fletching]}<56) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "small groove nocks"
/varset CFletching "several round cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FWRS"
/varset ItemTo "CLASS 1 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=36 && ${Me.Skill[Fletching]}<46) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "several parabolic cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FWPL"
/varset ItemTo "CLASS 2 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=16 && ${Me.Skill[Fletching]}<36) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "medium groove nocks"
/varset CFletching "several round cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FWRM"
/varset ItemTo "CLASS 1 Wood Point Arrow"
}

/if (${Me.Skill[Fletching]}>=0 && ${Me.Skill[Fletching]}<16) {
/varset AShafts "bundled wooden arrow shafts"
/varset GrooveN "large groove nocks"
/varset CFletching "several round cut fletchings"
/varset AHeads "field point arrowheads"
/varset CombItemName "FWRL"
/varset ItemTo "CLASS 1 Wood Point Arrow"
}

/varset EndingVar 1
/target ${MerchantName}
/face
/nomodkey /click right target
/call OpenPacks
/if (${Me.Skill[Fletching]}>202) {
/call Sell ${Staff}
/delay 1s
/call Sell ${Twine}
/delay 1s
/call Buy ${Staff} 10
/delay 1s
/call Buy ${Twine} 10
/delay 1s
} else {
/call Sell ${AShafts}
/delay 1s
/call Sell ${GrooveN}
/delay 1s
/call Sell ${CFletching}
/delay 1s
/call Sell ${AHeads}
/delay 1s
/call Buy ${AShafts} 40
/delay 1s
/call Buy ${GrooveN} 40
/delay 1s
/call Buy ${CFletching} 40
/delay 1s
/call Buy ${AHeads} 40
/delay 1s
}
/nomodkey /notify MerchantWnd DoneButton leftmouseup
/call ClosePacks
/call OpenPacks
/delay 2s

/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
/delay 1s
/target ${MerchantName}
/face
/nomodkey /click right target
/delay 1s
/call OpenPacks
/delay 2s
/call Sell ${ItemTo}
/delay 1s
/nomodkey /notify MerchantWnd DoneButton leftmouseup
/call ClosePacks


/goto :start

/return

Sub readIni(RecipeName)
/declare Container string local

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

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

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

/if (${Container.Equal[Enviro]}) {
/varset PackCode Enviro
} else {
/varset PackCode ${FindItem[=${Container}].InvSlot}
/echo ${Container}

/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[fletching.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[Fletching]}>${OldSkill}) {
/echo Your Fletching Went Up!! It's now ${Me.Skill[Fletching]}!
/varset OldSkill ${Me.Skill[Fletching]}
}
/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

jseber1982 · Sep 28, 2005

thanks for the info. What tags do i put in to put it in a form like that?

thanks

armysoldier · Sep 28, 2005

[ code ]

text here

[ / code ]

take out the spaces

vearroyo · Sep 28, 2005

The TS macros i dont think have been updated in a while. but the last i checked the one thing you should look into is a new buy.inc and sell.inc
those are really what deal with the vendor windows. even in idiot.mac

jseber1982 · Sep 29, 2005

i updated all the common files to the latest versions i could find. still have the same problem

looking for someupdated tradeskills macs

jseber1982

New member

Jumjum5

New member

shadowman33

Member

jseber1982

New member

armysoldier

Well-known member

vearroyo

jseber1982

New member

Users who are viewing this thread

Cart