Siddin
Rikk-tikk-tikki-tikki-tchk!
- Joined
- Feb 6, 2005
- RedCents
- 504¢
you shouldn't need the restock.ini or the restock2.ini, but you'll still need the rest.
To use this macro you need to start it while your in the bazaar. On you you need 8 trader satchels. in the bank the first 7 spots need to be bags that you can hold outside of the bazaar and not be encumbered. the 8th slot needs to be the mixing bowl. right clicking on the mixing bowl needs to be set so it brings up the old combining window for tradeskills.
To use this macro you need to start it while your in the bazaar. On you you need 8 trader satchels. in the bank the first 7 spots need to be bags that you can hold outside of the bazaar and not be encumbered. the 8th slot needs to be the mixing bowl. right clicking on the mixing bowl needs to be set so it brings up the old combining window for tradeskills.
Rich (BB code):
#include move.inc
Sub Main
:Start
:recheck
/echo Checking: Celestial Essence (${FindItemCount[=Celestial Essence]}/100)
/if (${FindItemCount[=Celestial Essence]} > 100) {
/ooc Celestial Essence 10p each
/delay 600s
/goto :recheck
}
/if (${FindItemCount[=Celestial Essence]} < 100) /call GoToPOK
/goto :Start
/return
Sub GoToPOK
/echo Going to Plane of Knowledge
/warp loc 1167.55 -847.07 2.28
/target banker denton
/face fast nolook
/click right target
/call bankswitch
/delay 2s
/cleanup
/sit
/delay 30s
/zone poknowledge
| POK
/delay 30s
/doort pok
/stick
/delay 10s
/target darius gandril
/warp loc 54.37 1516.39 -124.25
/delay 5
/face fast nolook
/delay 2s
/stick 10
/delay 2s
/click right target
/delay 2s
/call restocking
/stick off
/delay 2s
/call movetoloc -60.43 1513.25
/call movetoloc -72.33 1435.96
:PullMoveLoopw
/if (${Me.State.Equal[SIT]}) /stand
/face nolook loc -114.14,1424.46
/if (${Math.Distance[-114.14,1424.46]}>2) {
/nomodkey /keypress forward hold
/nomodkey /keypress USE
}
/if (${Math.Distance[-114.14,1424.46]}<=2) {
/nomodkey /keypress forward
/goto :PullMoveLoopx
}
/goto :PullMoveLoopw
/delay 1s
:PullMoveLoopx
/call movetoloc -114.66 1412.35
/target Loran Thu`leth
/call restocking2
/cleanup
/delay 1s
/zone bazaar
/delay 30s
/warp loc 1167.55 -847.07 2.28
/call Make CelestialEssence silent-mode=1
/delay 10s
/call bagswitchback
/delay 5s
/warp loc 1419.85 -961.09 -26.97
/trad
/delay 1s
/notify bazaarWND BZW_Start_Button leftmouseup
/return
Sub bankswitch
/target banker denton
/click right target
/delay 5s
/shift /notify InventoryWindow IW_Money0 leftmouseup
/shift /notify BigBankWnd BIGB_Money0 leftmouseup
/delay 5s
/notify BigBankWnd BIGB_Money0 leftmouseup
/delay 5s
/nomodkey /keypress backspace chat
/nomodkey /keypress backspace chat
/nomodkey /keypress backspace chat
/nomodkey /keypress backspace chat
/nomodkey /keypress backspace chat
/nomodkey /keypress backspace chat
/nomodkey /keypress backspace chat
/nomodkey /keypress backspace chat
/nomodkey /keypress backspace chat
/delay 3
/keypress 1 chat
/keypress 2 chat
/keypress 0 chat
/keypress 0 chat
/delay 3
/notify QuantityWnd QTYW_Accept_Button leftmouseup
/notify InventoryWindow IW_Money0 leftmouseup
/delay 3
/call OpenPacks
/delay 5s
/itemnotify pack1 leftmouseup
/itemnotify bank1 leftmouseup
/itemnotify pack1 leftmouseup
/itemnotify pack2 leftmouseup
/itemnotify bank2 leftmouseup
/itemnotify pack2 leftmouseup
/itemnotify pack3 leftmouseup
/itemnotify bank3 leftmouseup
/itemnotify pack3 leftmouseup
/itemnotify pack4 leftmouseup
/itemnotify bank4 leftmouseup
/itemnotify pack4 leftmouseup
/itemnotify pack5 leftmouseup
/itemnotify bank5 leftmouseup
/itemnotify pack5 leftmouseup
/itemnotify pack6 leftmouseup
/itemnotify bank6 leftmouseup
/itemnotify pack6 leftmouseup
/itemnotify pack7 leftmouseup
/itemnotify bank7 leftmouseup
/itemnotify pack7 leftmouseup
/itemnotify pack8 leftmouseup
/itemnotify bank8 leftmouseup
/itemnotify pack8 leftmouseup
/itemnotify pack1 rightmouseup
/itemnotify bank1 rightmouseup
/itemnotify pack2 rightmouseup
/itemnotify bank2 rightmouseup
/itemnotify pack3 rightmouseup
/itemnotify bank3 rightmouseup
/itemnotify pack4 rightmouseup
/itemnotify bank4 rightmouseup
/itemnotify pack5 rightmouseup
/itemnotify bank5 rightmouseup
/itemnotify pack6 rightmouseup
/itemnotify bank6 rightmouseup
/itemnotify pack7 rightmouseup
/itemnotify bank7 rightmouseup
/itemnotify pack8 rightmouseup
/itemnotify bank8 rightmouseup
/cleanup
/return
Sub bagswitchback
/target banker denton
/click right target
/delay 5s
/shift /notify InventoryWindow IW_Money0 leftmouseup
/shift /notify BigBankWnd BIGB_Money0 leftmouseup
/delay 5s
/shift /itemnotify in pack1 1 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack1 2 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack1 3 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack1 4 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack1 5 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack1 6 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack1 7 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack1 8 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack1 9 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack1 10 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack2 1 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack2 2 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack2 3 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack2 4 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack2 5 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack2 6 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack2 7 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack2 8 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack2 9 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack2 10 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack3 1 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack3 2 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack3 3 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack3 4 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack3 5 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack3 6 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack3 7 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack3 8 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack3 9 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack3 10 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack4 1 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack4 2 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack4 3 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack4 4 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack4 5 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack4 6 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack4 7 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack4 8 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack4 9 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack4 10 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack5 1 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack5 2 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack5 3 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack5 4 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack5 5 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack5 6 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack5 7 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack5 8 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack5 9 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack5 10 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack6 1 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack6 2 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack6 3 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack6 4 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack6 5 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack6 6 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack6 7 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack6 8 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack6 9 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack6 10 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack7 1 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack7 2 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack7 3 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack7 4 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack7 5 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack7 6 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack7 7 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack7 8 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack7 9 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack7 10 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack8 1 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack8 2 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack8 3 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/shift /itemnotify in pack8 4 leftmouseup
/notify BigBankWND BIGB_AutoButton LeftMouseUP
/delay 5s
/itemnotify pack1 leftmouseup
/itemnotify bank1 leftmouseup
/itemnotify pack1 leftmouseup
/itemnotify pack2 leftmouseup
/itemnotify bank2 leftmouseup
/itemnotify pack2 leftmouseup
/itemnotify pack3 leftmouseup
/itemnotify bank3 leftmouseup
/itemnotify pack3 leftmouseup
/itemnotify pack4 leftmouseup
/itemnotify bank4 leftmouseup
/itemnotify pack4 leftmouseup
/itemnotify pack5 leftmouseup
/itemnotify bank5 leftmouseup
/itemnotify pack5 leftmouseup
/itemnotify pack6 leftmouseup
/itemnotify bank6 leftmouseup
/itemnotify pack6 leftmouseup
/itemnotify pack7 leftmouseup
/itemnotify bank7 leftmouseup
/itemnotify pack7 leftmouseup
/itemnotify pack8 leftmouseup
/itemnotify bank8 leftmouseup
/itemnotify pack8 leftmouseup
/cleanup
/return
Sub restocking
|darius gandril Celestial Solvent
/if (!${Target.ID} && !${Merchant.Open}) {
/echo Target a merchant!
/endmacro
}
/if (${Target.ID} && !${Merchant.Open}) {
/click right target
/delay 1s
}
/if (${Ini[Restock.ini,${Me.Name}].Length}) /call ProcessIni
/if (${Merchant}) {
/keypress esc
/keypress esc
}
/return
Sub restocking2
/if (!${Target.ID} && !${Merchant.Open}) {
/echo Target a merchant!
/endmacro
}
/if (${Target.ID} && !${Merchant.Open}) {
/click right target
/delay 1s
}
/if (${Ini[Restock.ini,${Me.Name}].Length}) /call ProcessIni2
/if (${Merchant}) {
/keypress esc
/keypress esc
}
/return
Sub ProcessIni
/declare index int local
/declare KeyNames string local ${Ini[Restock.ini,${Me.Name}]}
/declare ItemName string local
/declare ItemQty int local
/echo Checking: Celestial Solvent (${FindItemCount[=Celestial Solvent]}/${ItemQty})
/if (${FindItemCount[=Celestial Solvent]} < ${660}) /call Restock "Celestial
Solvent" 660
/return
Sub ProcessIni2
/declare index int local
/declare KeyNames string local ${Ini[Restock.ini,${Me.Name}]}
/declare ItemName string local
/declare ItemQty int local
/echo Checking: The Scent of Marr (${FindItemCount[=The Scent of Marr]}/${ItemQty})
/if (${FindItemCount[=The Scent of Marr]} < ${660}) /call Restock "The Scent of
Marr" 660
/return
Sub Restock(ItemName,Qty)
/declare ItemSlot int local
/if (${Merchant.Item[=${ItemName}].InvSlot}) /call BuyItems "${ItemName}" ${Qty}
/return
Sub BuyItems(ItemName,Qty)
/declare StartCash int local ${Me.Cash}
/declare QtyStart int local ${FindItemCount[=${ItemName}]}
/declare QtyNeeded int local
/if (!${Merchant.Open}) {
/echo No Merchant open to buy from
/return
}
/if (${FindItemCount[=${ItemName}]} >= ${Qty}) {
/echo Already have all the ${ItemName}(s) needed.
/return
}
/itemnotify ${Merchant.Item[=${ItemName}].InvSlot} leftmouseup
/varset QtyNeeded ${Math.Calc[${Qty} - ${FindItemCount[=${ItemName}]}].Int}
:BuyItemLoop0
/doevents
/if (${QtyNeeded} >= 20) {
/call CheckFunds "${ItemName}" ${Merchant.Item[=${ItemName}].BuyPrice} 20
/if (${Me.FreeInventory[${Merchant.Item[=${ItemName}].Size}]}) {
/buyitem 20
} else {
/echo No space to buy more ${ItemName}, exiting
/endmacro
}
/varset QtyNeeded ${Math.Calc[${QtyNeeded}-20]}
} else {
/call CheckFunds "${ItemName}" ${Merchant.Item[=${ItemName}].BuyPrice} ${QtyNeeded}
/buyitem 20
}
/delay 1s
/if (${FindItemCount[=${ItemName}]} < ${Qty}) /goto :BuyItemLoop0
/echo Purchased ${Math.Calc[${Qty} - ${QtyStart}].Int} ${ItemName}(s) for
${Math.Calc[(${StartCash}-${Me.Cash})/1000].Int}pp ${Math.Calc[((${StartCash}-${Me.Cash})/100)%10].Int}gp
${Math.Calc[((${StartCash}-${Me.Cash})/10)%10].Int}sp ${Math.Calc[((${StartCash}-${Me.Cash})%10)].Int}cp
/return
Sub CheckFunds(ItemName,Price,Qty)
/if (${Me.Cash} < ${Math.Calc[${Price} * ${Qty}]}) {
/echo Insufficient funds to purchase: ${Qty} x ${ItemName}
/keypress esc
/keypress esc
/endmacro
}
/return
|**
khiTS.mac
Author: Kaitain Heavy Industries
Date: 30 Apr 04
Version: 2.2.2.14
Description:
Performs tradeskill combines using recipes supplied in an ini file
Credits:
Inspired by Dont_Know_At_All's Trade Skills macro - The status report idea is completely stolen from
him (but rewritten by me)
Ini file uses the format created by Diggler (this will eventually being changed to a new format using
item id's)
Notes:
* Updated to use MQ2DataVars
* This is a complete overhaul of the whole macro in addition changing it to work with MQ2Data and
MQ2DataVars
* You should be able to simply rename "sub main" to "sub khiTS" if you want to use this as an included
file.
* No longer destroys tools or components used to do combines when destroy-results is enabled.
* This is a BIG macro and may be slow as hell on older computers.
Usage:
#include khits.inc
.
.
.
/call Make <recipe_name>
Example:
/call Make khits bits "show-stats=0 destroy=0 abort-on-tell=0 end-on-trivial=0 silent-mode=0
stop-at-skill-level=200"
Ported to Inc by Draco
**|
| ***** Tweak this to your computer, if you get a lot of an item in the combine container, increase this
number ***** |
#define COMBINE_DELAY 3
| ***** CHANGE THIS TO MATCH YOUR INI FILE NAME IF NECESSARY ***** |
#define INIPATH "recipes.ini"
#event SkillTrivial "You can no longer advance your skill from making this item#*#"
#event SkillUp "You have become better at #1#! (#2#)"
#event SkillFailure "You lacked the skills#*#"
#event SkillSuccess "You have fashioned the items together to create something new#*#"
#event FullInventory "There was no place to put that#*#"
#event CombineError "You cannot combine these items in this container type!"
#event HandsFull "You cannot combine items when your hands are full#*#"
#chat tell
#define COMBINE_SUCCESS 0
#define COMBINE_FAILED 1
#define COMBINE_ERROR 2
#define COMBINE_INVENTORY_FULL 3
#define COMBINE_TRIVIAL 4
#include utils.inc
| Main entry point
sub Make
/echo
/echo *****************************************
/echo khiTs: Tradeskills running : ${Time}
/echo *****************************************
/echo
| Check for no parameters or help
/if (!${Defined[Param0]} || ${Param0.Equal[HELP]}) {
/call displayHelp
/call clearCursor ${iDestroyResults}
/endmacro
}
| container in which the recipe will be made
/declare containerName string local NOT_SET
| The name of the current component we're getting
/declare currentComp string local NOT_SET
| Make sure we have that recipe in the ini file
/declare recipeCheck string local NOT_SET
| Settings (see end of this file for list of settings)
| Stops the macro if someone sends you a tell
/declare abortOnTell int local 0
| How many itmes the user has requested be made
/declare makeThisMany int local 0
| Display when you succed, get skillups, fail, etc.
/declare showStats int local 0
| For looping through containers
/declare slotNumber int local 1
| Exit and Return Flags added by Draco
/declare combineResult int outer 0
/declare cleanUpAndExit int outer 0
/declare combineErrorCounter int outer 0
| Only declare outer variables once, this is in case you use this as an include
/if (!${Defined[components]}) {
| Array of components used to make the recipe
/declare components[10] string outer
| The name of the combination being done, this is used to look up the recipe in the recipe.ini file
/declare recipeName string outer
| Container in which the recipe will be made
/declare containerNum string outer NOT_SET
| The number of components in the recipe
/declare iCompCount int outer 0
| Flags
/declare bCombineDone bool outer FALSE
/declare bSkillTrivial bool outer FALSE
| Destroys the results of a combine (but not any items used in the combine)
/declare iDestroyResults int outer 0
| Stops the macro when you can no longer get skillups from doing the combine
/declare iEndOnTrivial int outer 0
| How many times you've tried a combination
/declare iSkillAttempts int outer 0
| How many times it worked
/declare iSkillSuccess int outer 0
| How many times it didn't work
/declare iSkillFailure int outer 0
| How many skill points you have received
/declare iSkillUps int outer 0
| Skill level to stop at
/declare iStopAtSkillLevel int outer 0
| Keeps MQ window spam to a minimum
/declare silentMode int outer 0
| Output debugging information
/declare debug int outer 0
| Flag to close tradeskill container when finished
/declare iCloseContainer int outer 1
| The results of what we are making
/declare sResults string outer
| Skill we are using (i.e. Brewing, Smithing, etc)
/declare sUsing string outer NOT_SET
} else {
| Clean out the last components used, this is in case we have not cleared the variables or are
using this as an include
/deletevar components
/declare components[10]
}
|Get requested recipe's name
/varset recipeName ${Param0}
| If there is only one parameter, then there are no options
/if (${Defined[Param1]}) {
/declare tmp int local
/declare parms int local ${Macro.Params}
/declare parmString string local
/varcalc parms ${parms}-1
/for tmp 1 to ${parms}
/varset parmString ${parmString} ${Param${tmp}}
/next tmp
/call parseArguments "abort-on-tell" "${parmString}"
/if (${Macro.Return.NotEqual[__NOT_FOUND__]}) {
/varset abortOnTell ${Macro.Return}
}
/call parseArguments "destroy-results" "${parmString}"
/if (${Macro.Return.NotEqual[__NOT_FOUND__]}) {
/varset iDestroyResults ${Macro.Return}
}
/call parseArguments "end-on-trivial" "${parmString}"
/if (${Macro.Return.NotEqual[__NOT_FOUND__]}) {
/varset iEndOnTrivial ${Macro.Return}
}
/call parseArguments "make-this-many" "${parmString}"
/if (${Macro.Return.NotEqual[__NOT_FOUND__]}) {
/varset makeThisMany ${Macro.Return}
}
/call parseArguments "show-stats" "${parmString}"
/if (${Macro.Return.NotEqual[__NOT_FOUND__]}) {
/varset showStats ${Macro.Return}
}
/call parseArguments "stop-at-skill-level" "${parmString}"
/if (${Macro.Return.NotEqual[__NOT_FOUND__]}) {
/varset iStopAtSkillLevel ${Macro.Return}
}
/call parseArguments "close-container" "${parmString}"
/if (${Macro.Return.NotEqual[__NOT_FOUND__]}) {
/varset iCloseContainer ${Macro.Return}
}
/call parseArguments "debug" "${parmString}"
/if (${Macro.Return.NotEqual[__NOT_FOUND__]}) {
/varset debug ${Macro.Return}
}
/if (!${debug}) {
/call parseArguments "silent-mode" "${parmString}"
/if (${Macro.Return.NotEqual[__NOT_FOUND__]}) {
/varset silentMode ${Macro.Return}
}
} else {
/echo ***** DEBUGGING ON *****
}
}
| Make sure the recipe file exists (the recipes thing is a fix for a bug in the Ini function)
/varset recipeCheck ${Ini[INIPATH,recipes]}
/if (${recipeCheck.Equal[NULL]}) {
/echo khiTS Error: Recipe file not found
/echo Path = INIPATH
/goto :khiTSreset
}
| Make sure this recipe exists in the recipe.ini file
/varset recipeCheck ${Ini[INIPATH,${recipeName}]}
/if (${recipeCheck.Equal[NULL]}) {
/echo khiTS Error: Recipe not found
/echo Recipe name = ${recipeName}
/goto :khiTSreset
}
| Get the container name
/varset containerName ${Ini[INIPATH,${recipeName},Cont]}
/if (${containerName.Equal[NULL]}) {
/echo khiTS Error: Error in ini file for this recipe, no container is specified
/echo khiTS : Recipe = ${RecipeName}
/goto :khiTSreset
}
| Get the skill we are using
/varset sUsing ${Ini[INIPATH,${recipeName},Skill]}
/if (${sUsing.Equal[NULL]}) /varset sUsing NOT_SET
| Get the item we are making
/varset sResults ${Ini[INIPATH,${recipeName},LongName]}
/if (${sResults.Equal[NULL]}) /varset sResults ${recipeName}
| Find the combine container number
/if (${containerName.Equal[Enviro]}) {
/if (!${Window[Enviro].Open}) {
/echo khiTS Error: You must have the enviromental container open to begin
/goto :khiTSreset
}
/varset containerNum e
} else {
| Not an enviromental container so find the container's pack number, this is how we will refer to
it from now on
/varset containerNum ${FindItem[=${containerName}].InvSlot.ID}
/if (${containerNum}) {
/varcalc containerNum ${containerNum}-21
/varset containerNum ${containerNum.Arg[0,.]}
} else {
| Didn't find the container
/echo khiTS Error: Could not find container in your inventory
/echo khiTS : Contanier name = ${containerName}
/goto :khiTSreset
}
}
| Read the ingredients for the recipe from the ini file
:khiTSReadComponentsLoop
/varset currentComp ${Ini[INIPATH,${recipeName},Comp${iCompCount}]}
/if (${currentComp.NotEqual[NULL]}) {
/varcalc iCompCount ${iCompCount}+1
/varset components[${iCompCount}] ${currentComp}
/goto :khiTSReadComponentsLoop
}
/call OpenPacks
| Remove anything from the cursor if needed
/call clearCursor ${iDestroyResults}
| Clear the combine pack
/call cleanPack ${containerNum}
/if (${cleanUpAndExit}) /goto :khiTSreset
| Let's just do this here rather than through every iteration of combines
/declare MAIN_CONTAINER string local
/if (${containerNum.Equal[e]}) {
/varset MAIN_CONTAINER enviro
} else {
/varset MAIN_CONTAINER pack${containerNum}
}
:khiTSCombineLoop
| Delete or Save items depending on settings
/call clearCursor ${iDestroyResults}
/if (!${silentMode}) /echo khiTS: Making ${sResults} - Count = ${iSkillSuccess}
| Move ingredients to container
/call addComponents
/if (${cleanUpAndExit}) /goto :khiTSCleanUpMacro
| Combine
/varset bCombineDone FALSE
/varcalc iSkillAttempts ${iSkillAttempts}+1
:DoCombineLoop
/combine ${MAIN_CONTAINER}
| Need this delay here to make sure the combine is finished
/delay COMBINE_DELAY
| Call these events individually so they do not conflict with a parent macro if this macro is used
as an included file
/doevents SkillTrivial
/doevents SkillUp
/doevents SkillFailure
/doevents SkillSuccess
/doevents CombineError
/doevents FullInventory
/doevents tell
/doevents HandsFull
/if (${cleanUpAndExit}) /goto :khiTSCleanUpMacro
/if (!${bCombineDone}) /goto :DoCombineLoop
/varset combineErrorCounter 0
| See if we have made enough
/if (${makeThisMany} && ${makeThisMany} == ${iSkillSuccess}) /goto :khiTSCleanUpMacro
/goto :khiTSCombineLoop
| The macro is ending, clean up
:khiTSCleanUpMacro
| Delete or Save items depending on settings - Just in case
/call clearCursor ${iDestroyResults}
/call cleanPack ${containerNum}
/call DisplayStats
:khiTSreset
/if (${iCloseContainer}) /notify ContainerWindow DoneButton leftmouseup
/call resetKhits
/return ${combineResult}
Sub resetKhits
/deletevar combineResult
/deletevar cleanUpAndExit
/deletevar combineErrorCounter
/deletevar containerNum
/deletevar iCompCount
/deletevar bCombineDone
/deletevar bSkillTrivial
/deletevar iDestroyResults
/deletevar iEndOnTrivial
/deletevar iSkillAttempts
/deletevar iSkillSuccess
/deletevar iSkillFailure
/deletevar iSkillUps
/deletevar sResults
/deletevar components
/deletevar iStopAtSkillLevel
/deletevar recipeName
/deletevar iCloseContainer
/return
sub clearCursor(int DestroyResults)
/declare saveCount int local
:khiTSClearCursorLoop
/delay 2 ${Cursor.ID}
| Is there anything on the cursor?
/if (${Cursor.ID}) {
/if (${DestroyResults}) {
| Make sure the item on the cursor is not something we want to save
/for saveCount 1 to 10
/if (${components[${saveCount}].Equal[${Cursor.Name}]}) {
/if (!${silentMode}) /echo -- Saving ${components[${saveCount}]} to inventory
/autoinv
/goto :khiTSClearCursorLoop
}
/next saveCount
| Whatever is on the cursor wasn't in the save list
/if (!${silentMode}) /echo -- Destroying ${Cursor.Name}
/destroy
} else {
/autoinv
}
/goto :khiTSClearCursorLoop
}
/return
Sub DisplayStats
/echo
/echo khiTS: Stat display
/echo ================================
/echo Attempts: ${iSkillAttempts}
/echo Successes: ${iSkillSuccess}
/echo Faliures: ${iSkillFailure}
/echo Skill Ups: ${iSkillUps}
/if (${Me.Skill[${sUsing}]}) {
/echo Skill Level: ${Me.Skill[${sUsing}]}
} else {
/echo Skill Level: Unknown
}
/return
Sub Event_Chat(string type, string sender, string text)
/if (${String[${abt}].Equal[TRUE]} && ${type.Equal[tell]} ) {
/echo khiTS Event_Chat: Got a tell, pausing.
/if (!${Defined[pauseTimer]}) /declare pauseTimer timer outer
/varset pauseTimer 600
:TellPause
/if (${Spawn[gm]}) {
/if (!${Me.Sitting}) /docommand /sit
/docommand /camp desktop
/call mqout "GM in Zone! Logging out"
/endmacro
}
/if (${pauseTimer<1}) /return
/goto :TellPause
/mqpause
}
/return
Sub Event_HandsFull
/echo khiTS Event_HandsFull Error: Unrecoverable error, ending macro
/endmacro
/return
Sub Event_CombineError
/varcalc combineErrorCounter ${combineErrorCounter}+1
/if (!${silentMode}) /echo khiTS Event_CombineError: ${combineErrorCounter}
/endmacro
| *** FIXME *** |
/if (${combineErrorCounter} < 3) {
/call cleanPack ${containerNum}
/call clearCursor ${iDestroyResults}
/varset bCombineDone TRUE
} else {
/varset combineResult COMBINE_ERROR
/varset cleanUpAndExit 1
}
/return
Sub Event_FullInventory
/echo khiTS Event_FullInventory Error: Your inventory is full, ending macro.
/call DisplayStats
/varset combineResult COMBINE_INVENTORY_FULL
/varset cleanUpAndExit 1
/return
Sub Event_SkillFailure
/varcalc iSkillFailure ${iSkillFailure}+1
/varset bCombineDone TRUE
/varset combineResult COMBINE_FAILED
/return
Sub Event_SkillSuccess
/if (${sResults.Equal[${recipeName}]}) {
/declare MaxWaitCount timer local 100
:WaitForIt
/delay 2 ${Cursor.ID}
/if (!${Cursor.ID} && !${MaxWaitCount} == 0) /goto :WaitForIt
/varset sResults ${Cursor.Name}
}
/varcalc iSkillSuccess ${iSkillSuccess}+1
/varset bCombineDone TRUE
/varset combineResult COMBINE_SUCCESS
/return
Sub Event_SkillUp
/varset sUsing ${Param1}
/varcalc iSkillUps ${iSkillUps}+1
/if (${iStopAtSkillLevel} && ${iStopAtSkillLevel} == ${Param2}) {
/call DisplayStats
/call cleanPack ${containerNum}
/call clearCursor ${iDestroyResults}
/varset cleanUpAndExit 1
}
/return
Sub Event_SkillTrivial
/if (!${bSkillTrivial}) {
/echo khiTS Event_SkillTrivial: Skill is trivial
/varset bSkillTrivial TRUE
}
/if (${iEndOnTrivial}) {
/call DisplayStats
/call cleanPack ${containerNum}
/call clearCursor ${iDestroyResults}
/varset cleanUpAndExit 1
}
/varset combineResult COMBINE_TRIVIAL
/return
sub cleanPack(string PackNumber)
/if (!${silentMode}) /echo khiTS cleanPack: Cleaning out pack: ${PackNumber}
| Used for looping through pack slots
/declare iSlot int local
| How many freeslots are in the bag
/declare iCount int local
/if (${PackNumber.Equal[e]}) {
/if (!${silentMode}) /echo khiTs cleanPack: Clearing enviro
/for iSlot 1 to 10
/if (${InvSlot[enviro${iSlot}].Item.ID}) {
/shiftkey /itemnotify enviro${iSlot} leftmouseup
/call clearCursor ${iDestroyResults}
}
/next iSlot
} else {
/if (!${silentMode}) /echo khiTs cleanPack: Cleaning out ${PackNumber}
| Can't empty a non-pack duh!
/if (!${Me.Inventory[Pack${PackNumber}].Container}) {
/echo khiTs cleanPack Error: No pack in slot
/varset cleanUpAndExit 1
/return
}
/for iSlot 1 to ${Me.Inventory[Pack${PackNumber}].Container}
| Quit if the pack is empty
/if (!${Me.Inventory[Pack${PackNumber}].Container}) /return
/if (${debug}) /echo khiTs cleanPack: Clearing Pack: Pack${PackNumber}, Slot:${iSlot}, Item:
${Me.Inventory[Pack${PackNumber}].Item[${iSlot}]}
/if (${Me.Inventory[Pack${PackNumber}].Item[${iSlot}].ID}) {
/varset iCount ${Me.Inventory[Pack${PackNumber}].Items}
/shiftkey /itemnotify in pack${PackNumber} ${iSlot} leftmouseup
/call clearCursor ${iDestroyResults}
| Make sure we aren't just putting it back in the same bag
/if (${Me.Inventory[Pack${PackNumber}].Items} == ${iCount}) {
/echo khiTs cleanPack Error: Unable to empty pack
/varset cleanUpAndExit 1
/return
}
}
/next iSlot
}
/if (!${silentMode}) /echo khiTs: Done Cleaning pack
/return TRUE
Sub addComponents
/declare newLen int local
/declare compNum int local
/declare componentId int local 0
/declare combineSlot int local 1
/for compNum 1 to ${iCompCount}
/if (!${silentMode}) /echo -- components[${compNum}] = ${components[${compNum}]} : Length =
${components[${compNum}].Length}
/if (!${components[${compNum}].Length}) /return
/varset componentId ${FindItem[=${components[${compNum}]}].InvSlot.ID}
/if (${String[${componentId}].NotEqual[NULL]} && ${componentId} > 0) {
/call addComponent ${combineSlot} ${componentId}
} else {
/echo khiTS addComponents Error: You are out of ${components[${compNum}]}
/varset cleanUpAndExit 1
/return
}
/next compNum
/return
Sub addComponent(int combineSlot, int packSlot)
/declare failCount int local 0
| Check container to see if it is full
| /if (${containerNum.Equal[e]}) {
| | No way I know of to check enviro containers for space - but I'm ignorant so...
| } else {
| /if (!${Me.Inventory[pack${containerNum}].Container} - ${Me.Inventory[pack${containerNum}].Items}) {
| /echo khiTS AddComp Error: Unable to add this item to the container, it is full
| /varset cleanUpAndExit 1
| /return
| }
| }
:FindEmptySlot
/if (${containerNum.Equal[e]}) {
/if (${combineSlot} > 10) {
/echo khiTS AddComp Error: No such slot ${combineSlot} in container
/varset cleanUpAndExit 1
/return
}
} else {
/if (${combineSlot} > ${Me.Inventory[pack${combineSlot}].Container}) {
/echo khiTS AddComp Error: No such slot ${combineSlot} in container
/varset cleanUpAndExit 1
/return
}
}
| See if there's anything in the slot in which we are trying to put the combine component
/if (${containerNum.Equal[e]}) {
/itemnotify in enviro ${combineSlot} leftmouseup
| Make sure the cursor is clear, otherwise something was in that slot
/if (${Cursor.ID}) {
/itemnotify in enviro ${combineSlot} leftmouseup
/varcalc combineSlot ${combineSlot}+1
/goto :FindEmptySlot
}
} else {
/if (${Me.Inventory[pack${containerNum}].Item[${combineSlot}].ID}) {
/varcalc combineSlot ${combineSlot}+1
/varset combineSlot ${String[${combineSlot}].Arg[0,.]}
/goto :FindEmptySlot
}
}
:PickUpItem
| Slot is empty, so go ahead and put item into it
/ctrlkey /itemnotify ${packSlot} leftmouseup
|Check to see if cursor has multiple a stack.
/if (${Cursor.Stack} > 1 && ${failCount} < 3) {
/autoinv
/varcalc failCount ${failCount}+1
/goto :PickUpItem
}
/if (${containerNum.Equal[e]}) {
/itemnotify in enviro ${combineSlot} leftmouseup
} else {
/itemnotify in pack${containerNum} ${combineSlot} leftmouseup
}
/return
sub displayHelp
/echo Syntax: /macro khiTS "<recipe name>" ""
/echo Example: /macro khiTS "bits" "show-stats=0 destroy=0 abort-on-tell=0 end-on-trivial=0"
/echo -
/echo MAKE SURE THAT
/echo * Recipe.ini is in your macro folder, or INIPATH points to your recipe.ini file
/echo * Inventory is open.
/echo * All your containers are open.
/echo * Nothing crosses over each other, all windows (bags, inventory, buttons) must be free.
/echo * Your windos positions are saved (by closing them and opening them again after they have been
moved).
/echo -
/echo Options:
/echo --------
/echo * show-stats
/echo -- Syntax: show-stats=1|0
/echo -- Example: show-stats=0
/echo -- Shows combine statistics.
/echo -- Set to 1 for show showing stats, 0 to leave out the stats.
/echo -- Default set to 1 (show stats).
/echo -
/echo * destroy-results
/echo -- Syntax: destroy-results=1|0
/echo -- Example: destroy-results=1
/echo -- Tells the macro wether end-result is destroyed or kept.
/echo -- Set to 1 for destroying end-result, 1 to keep end-result.
/echo -- Default set to 0 (keep end-result).
/echo -
/echo * abort-on-tell
/echo -- Syntax: abort-on-tell=1|0
/echo -- Example: abort-on-tell=1
/echo -- Tell the macro wether it should /endmacro when recieving a tell.
/echo -- Set to 1 for ending macro on tells, 0 to ignore tells.
/echo -- Default set to 0 (ignore tells).
/echo -
/echo * end-on-trivial
/echo -- Syntax: end-on-trivial=1|0
/echo -- Example: end-on-trivial=1
/echo -- Tell the macro wether it should stop when recieving a trivial message.
/echo -- Set to 1 for ending macro on trivial, 0 to ignore trivial.
/echo -- Default set to 0 (ignore trivial).
/echo -
/echo * make-this-many
/echo -- Syntax: make-this-many=#
/echo -- Example: make-this-many=100
/echo -- The number of successfull combines you want made (or till no more components are available).
/echo -- Set to 0 for unlimited combines (or till no more components are available), or to the wanted
amount.
/echo -- Default set to 0 (unlimited).
/echo -
/echo * stop-at-skill-level
/echo -- Syntax: stop-at-skill-level=###
/echo -- Example: stop-at-skill-level=123
/echo -- Tell the macro to stop when a certain skill level is reached.
/echo -- Default set to 0 (do not stop at any skill level)
/echo -
/echo * silent-mode
/echo -- Syntax: silent-mode=1|0
/echo -- Example: silent-mode=1
/echo -- Tell the macro to only output errors
/echo -- Default set to 0 (output everything)
/echo -
/echo * debug
/echo -- Syntax: debug=1|0
/echo -- Example: debug=1
/echo -- Tell the macro to only everything. This also sets silent-mode=0
/echo -- Default set to 0 (do not output debugging information)
/echo -
/echo * close-container
/echo -- Syntax: close-container=1|0
/echo -- Example: close-container=1
/echo -- Tell the macro to close the tradeskill container when finished
/echo -- Default set to 1
/return
Last edited:
