So.. here's my first attempt at making life a little easier; a subscript that will add or remove any item(s) of your choosing to or from any Key set.
Examples are listed in the script, but here's a few:
gosub key tailor remove spined 4 (removes 400 spined leather)
gosub key wood add all (adds all wood)
gosub key caster remove daemon 3 (removes 300 daemon bones)
This is meant to be called from within a script, but if you would like to make it standalone put the 'gosub key' and 'halt' on the two lines before Start. It should look like:
gosub key bla bla bla
halt
;;;;; Start ;;;;;
Should I get enough support I may even include a GUI to make it completely standalone, but I have quite a few projects left to work on so it probably won't be soon.
Please please PLEASE post or PM any bugs or suggestions!
PS. Coli, be my valentine
Code: Select all
; Crafter Key's Sub
; by BlaZe Budd of Excelsior's ßud ßrothers
; v0.8c completed 7/31/10 (fixes by ticketguru)
;
;
; USAGE:
; gosub key %1 %2 %3 %4
;
; %1 = metal, tailor, stone, wood, caster
; %2 = add / remove
; %3 = what to add / remove (you can use 'all' to ADD everything possible)
; %4 = how many to REMOVE (times to click the button)
;
; EXAMPLES
; gosub key wood remove board 10 (removes 1000 plain wood)
; gosub key caster remove nightshade 3 (removes 300 nightshade)
; gosub key metal add all (adds all ingots)
;
; ITEM LIST
; These are the recognized items used for %3:
;
; Metal/Stone:
; iron, dull, shadow, copper, bronze, gold, agapite, verite,
; valorite, blaze, ice, toxic, electrum, platinum
;
; Wood:
; board, pine, ash, mohog, yew, oak, zircote, bamboo,
; purple, redwood, petrified, arrow, bolt, feather, shaft
;
; Tailor:
; leather, spined, horned, barbed, polar, synthetic, blaze, daemonic, shadow, frost, ethereal, cut, folded, bolt, spool,
; red, yellow, black, green, white, blue, copper, silver, gold, yarn, wool, cotton
;
; Caster:
; pearl, moss, garlic, ginseng, mandrake, nightshade, ash, silk, batwing, grave, blood, crystal, pig, dirt, fungus,
; bone, daemon, keg, scroll, bottle, sand, ring, wax, water, wood, angel, powder
;
; Note that this script DOES NOT CHECK YOUR WEIGHT
; when using the 'remove' command. You have been warned!
;
;
; VARIABLES USED:
; %1 %2 %3 %4
; %tailorThings %woodThings %casterThings
; %menu %done %click %row %button
; %X %Y %clickX %clickY
;
;
; Comments/questions/concerns? [pm BlaZe or post in the forums
;
;;;;;;;;;;;;;;;;;
;;;;; Start ;;;;;
sub key
if %done = #true
{
set %done = #false
return
}
set %tailorThings JJG_STO_BUI_CUI_OFF_ZZF_UAG_NFF_QEK_QLF
set %woodThings TLK_RWF_LNK_SLK_VLK_ZLK
set %casterThings IND_PLF_WLF_DPF_QMJ_GUF_OZF_NZF_TTO_ETH_WUF_YZF_UZF_TZF_DUF_IUF_JUF_RZF_KUF_SZF_WZF_KZF_MZF_JZF_TZF_NUI_KSG
set %lTargetKind #lTargetKind
set #lTargetKind 1
;;;;; Finding the specified key ;;;;;
findKeyLoop:
findItem NUI C_ , #backpackID
if #findKind = -1
gosub uhoh 1
event property #findID
if metal in %1 && Metal in #property
{
set %menu 505_270
gosub metalKeys
}
if wood in %1 && Wood in #property
{
set %menu 505_295
gosub woodKeys
}
if tailor in %1 && Tailor in #property
{
set %menu 505_440
gosub tailorKeys
}
if stone in %1 && Stone in #property
{
set %menu 505_270
gosub stoneKeys
}
if caster in %1 && Caster in #property
{
set %menu 505_455
gosub casterKeys
}
if %1 = N/A
gosub uhoh 2
if %done = #true ; added tg 30-jul-2009
{
set #lTargetKind %lTargetKind ; restore lTargetKind
return
}
ignoreitem #findID
goto findKeyLoop
;;;;; Error messages ;;;;;
sub uhoh
if %1 = 1
event exMsg #charID 3 0 + NO KEYS +
if %1 = 2
event exMsg #charID 3 0 + KEY NOT SPECIFIED +
if %1 = 3
event exMsg #charID 3 0 + ITEM NOT SPECIFIED +
stop
;;;;; 'Waits' for key menu ;;;
sub keyMenu
keyLoop:
wait 1
if #contSize <> %menu
goto keyLoop
return
;;;;; Metal ;;;;;
sub metalKeys
set #lObjectID #findID
event macro 17 0
gosub keyMenu
if iron in %3
{
set %row 1
set %button 1
}
if dull in %3
{
set %row 1
set %button 2
}
if shadow in %3
{
set %row 1
set %button 3
}
if copper in %3
{
set %row 1
set %button 4
}
if bronze in %3
{
set %row 1
set %button 5
}
if gold in %3
{
set %row 1
set %button 6
}
if agapite in %3
{
set %row 1
set %button 7
}
if verite in %3
{
set %row 1
set %button 8
}
if valorite in %3
{
set %row 2
set %button 1
}
if blaze in %3
{
set %row 2
set %button 2
}
if ice in %3
{
set %row 2
set %button 3
}
if toxic in %3
{
set %row 2
set %button 4
}
if electrum in %3
{
set %row 2
set %button 5
}
if platinum in %3
{
set %row 2
set %button 6
}
if add in %2
{
set %row 2
set %button 8
}
gosub setXY
if add in %2
gosub metalAdd
if remove in %2
gosub remove
else
gosub uhoh 3
click %clickX %clickY r ; added tg 30-jul-2009
set %done #true
return
sub metalAdd
click %clickX %clickY
target
metalAddLoop:
finditem ENK C_ , #backpackID
if #findKind = -1
{
key ESC ; added tg 30-jul-2009
wait 1 ; to cancel targeting
return
}
event property #findID
if iron in %3 && shadow in #property
{
ignoreitem #findID
goto metalAddLoop
}
if %3 in #property || all in %3
{
set #lTargetID #findID
event macro 22 0
target
}
else
ignoreitem #findID
goto metalAddLoop
;;;;; Stone ;;;;;
sub stoneKeys
set #lObjectID #findID
event macro 17 0
gosub keyMenu
if iron in %3
{
set %row 1
set %button 1
}
if dull in %3
{
set %row 1
set %button 2
}
if shadow in %3
{
set %row 1
set %button 3
}
if copper in %3
{
set %row 1
set %button 4
}
if bronze in %3
{
set %row 1
set %button 5
}
if gold in %3
{
set %row 1
set %button 6
}
if agapite in %3
{
set %row 1
set %button 7
}
if verite in %3
{
set %row 1
set %button 8
}
if valorite in %3
{
set %row 2
set %button 1
}
if blaze in %3
{
set %row 2
set %button 2
}
if ice in %3
{
set %row 2
set %button 3
}
if toxic in %3
{
set %row 2
set %button 4
}
if electrum in %3
{
set %row 2
set %button 5
}
if platinum in %3
{
set %row 2
set %button 6
}
if add in %2
{
set %row 2
set %button 8
}
gosub setXY
if add in %2
gosub stoneAdd
if remove in %2
gosub remove
else
gosub uhoh 3
click %clickX %clickY r ; added tg 30-jul-2009
set %done #true
return
sub stoneAdd
click %clickX %clickY
target
stoneAddLoop:
finditem BVI C_ , #backpackID
if #findKind = -1
{
key ESC ; added tg 30-jul-2009
wait 1 ; to cancel targeting
return
}
event property #findID
if %3 in #property || all in %3
{
set #lTargetID #findID
event macro 22 0
target
}
else
ignoreitem #findID
goto stoneAddLoop
;;;;; Wood ;;;;;
sub woodKeys
set #lObjectID #findID
event macro 17 0
gosub keyMenu
if board in %3
{
set %row 1
set %button 1
}
if pine in %3
{
set %row 1
set %button 2
}
if ash in %3
{
set %row 1
set %button 3
}
if mohog in %3
{
set %row 1
set %button 4
}
if yew in %3
{
set %row 1
set %button 5
}
if oak in %3
{
set %row 1
set %button 6
}
if zircote in %3
{
set %row 1
set %button 7
}
if ebony in %3
{
set %row 1
set %button 8
}
if bamboo in %3
{
set %row 1
set %button 9
}
if purple in %3
{
set %row 2
set %button 1
}
if redwood in %3
{
set %row 2
set %button 2
}
if petrified in %3
{
set %row 2
set %button 3
}
if arrow in %3
{
set %row 2
set %button 4
}
if bolt in %3
{
set %row 2
set %button 5
}
if feather in %3
{
set %row 2
set %button 6
}
if shaft in %3
{
set %row 2
set %button 7
}
if add in %2
{
set %row 2
set %button 9
}
gosub setXY
if add in %2
gosub woodAdd
if remove in %2
gosub remove
else
gosub uhoh 3
click %clickX %clickY r ; added tg 30-jul-2009
set %done #true
return
sub woodAdd
click %clickX %clickY
target
woodAddLoop:
finditem %woodThings C_ , #backpackID
if #findKind = -1
{
key ESC ; added tg 30-jul-2009
wait 1 ; to cancel targeting
return
}
event property #findID
if board in %3 && ( pine in #property || ash in #property || mohogany in #property || yew in #property || oak in #property || zircote in #property || ebony in #property || bamboo in #property || purple in #property || redwood in #property || petrified in #property )
{
ignoreitem #findID
goto woodAddLoop
}
if %3 in #property || all in %3 || ( board in %3 && log in #property )
{
set #lTargetID #findID
event macro 22 0
target
}
else
ignoreitem #findID
goto woodAddLoop
;;;;; Tailor Keys ;;;;;
sub tailorKeys
set #lObjectID #findID
event macro 17 0
gosub keyMenu
if leather in %3
{
set %row 1
set %button 1
}
if spined in %3
{
set %row 1
set %button 2
}
if horned in %3
{
set %row 1
set %button 3
}
if barbed in %3
{
set %row 1
set %button 4
}
if polar in %3
{
set %row 1
set %button 5
}
if synthetic in %3
{
set %row 1
set %button 6
}
if blaze in %3
{
set %row 1
set %button 7
}
if daemonic in %3
{
set %row 1
set %button 8
}
if shadow in %3
{
set %row 1
set %button 9
}
if frost in %3
{
set %row 1
set %button 10
}
if ethereal in %3
{
set %row 1
set %button 11
}
if cut in %3
{
set %row 1
set %button 12
}
if folded in %3
{
set %row 1
set %button 13
}
if bolt in %3
{
set %row 1
set %button 14
}
if spool in %3
{
set %row 1
set %button 15
}
if red in %3
{
set %row 2
set %button 1
}
if yellow in %3
{
set %row 2
set %button 2
}
if black in %3
{
set %row 2
set %button 3
}
if green in %3
{
set %row 2
set %button 4
}
if white in %3
{
set %row 2
set %button 5
}
if blue in %3
{
set %row 2
set %button 6
}
if copper in %3
{
set %row 2
set %button 7
}
if silver in %3
{
set %row 2
set %button 8
}
if gold in %3
{
set %row 2
set %button 9
}
if yarn in %3
{
set %row 2
set %button 10
}
if wool in %3
{
set %row 2
set %button 11
}
if cotton in %3
{
set %row 2
set %button 12
}
if add in %2
{
set %row 2
set %button 15
}
gosub setXY
if add in %2
gosub tailorAdd
if remove in %2
gosub remove
else
gosub uhoh 3
click %clickX %clickY r ; added tg 30-jul-2009
set %done #true
return
sub tailorAdd
click %clickX %clickY
target
tailorAddLoop:
finditem %tailorThings C_ , #backpackID
if #findKind = -1
{
key ESC ; added tg 30-jul-2009
wait 1 ; to cancel targeting
return
}
event property #findID
if leather in %3 && ( spined in #property || horned in #property || barbed in #property || polar in #property || synthetic in #property || blaze in #property || daemonic in #property || shadow in #property || frost in #property || ethereal in #property )
{
ignoreitem #findid
goto tailorAddLoop
}
if %3 in #property || all in %3
{
set #lTargetID #findID
event macro 22 0
target
}
else
ignoreitem #findID
goto tailorAddLoop
;;;;; Caster Keys ;;;;;
sub casterKeys
set #lObjectID #findID
event macro 17 0
gosub keyMenu
if pearl in %3
{
set %row 1
set %button 1
}
if moss in %3
{
set %row 1
set %button 2
}
if garlic in %3
{
set %row 1
set %button 3
}
if ginseng in %3
{
set %row 1
set %button 4
}
if mandrake in %3
{
set %row 1
set %button 5
}
if nightshade in %3
{
set %row 1
set %button 6
}
if ash in %3
{
set %row 1
set %button 7
}
if silk in %3
{
set %row 1
set %button 8
}
if batwing in %3
{
set %row 1
set %button 9
}
if grave in %3
{
set %row 1
set %button 10
}
if blood in %3
{
set %row 1
set %button 11
}
if crystal in %3
{
set %row 1
set %button 12
}
if pig in %3
{
set %row 1
set %button 13
}
if dirt in %3
{
set %row 1
set %button 14
}
if fungus in %3
{
set %row 1
set %button 15
}
if bone in %3
{
set %row 2
set %button 1
}
if daemon in %3
{
set %row 2
set %button 2
}
if keg in %3
{
set %row 2
set %button 3
}
if scroll in %3
{
set %row 2
set %button 4
}
if bottle in %3
{
set %row 2
set %button 5
}
if sand in %3
{
set %row 2
set %button 6
}
if ring in %3
{
set %row 2
set %button 7
}
if wax in %3
{
set %row 2
set %button 8
}
if water in %3
{
set %row 2
set %button 9
}
if wood in %3
{
set %row 2
set %button 10
}
if angel in %3
{
set %row 2
set %button 11
}
if powder in %3
{
set %row 2
set %button 12
}
if add in %2
{
set %row 2
set %button 15
}
gosub setXY
if add in %2
gosub casterAdd
if remove in %2
gosub remove
else
gosub uhoh 3
click %clickX %clickY r ; added tg 30-jul-2009
set %done #true
return
sub casterAdd
click %clickX %clickY
target
casterAddLoop:
finditem %casterThings C_ , #backpackID
if #findKind = -1
{
key ESC ; added tg 30-jul-2009
wait 1 ; to cancel targeting
return
}
event property #findID
if keys in #property || ( bones in %3 && daemon in #property ) || ( keg in %3 && empty notin #property ) || ( bottle in %3 && dirty in #property ) || ( dirt in %3 && fertile notin #property )
{
ignoreitem #findID
goto casterAddLoop
}
if %3 in #property || all in %3
{
set #lTargetID #findID
event macro 22 0
target
}
else
ignoreitem #findID
goto casterAddLoop
;;;;; The remove sub... duh ;;;;;
sub remove
set %click 0
while %click < %4
{
click %clickX %clickY
gosub keyMenu
set %click %click + 1
}
return
;;;;; Sets the X/Y position of the button we want to click ;;;;;
sub setXY
if %row = 1
set %X 90
if %row = 2
set %X 290
if %button = 1
set %Y 60
if %button = 2
set %Y 85
if %button = 3
set %Y 110
if %button = 4
set %Y 135
if %button = 5
set %Y 160
if %button = 6
set %Y 185
if %button = 7
set %Y 210
if %button = 8
set %Y 235
if %button = 9
set %Y 260
if %button = 10
set %Y 285
if %button = 11
set %Y 310
if %button = 12
set %Y 335
if %button = 13
set %Y 360
if %button = 14
set %Y 385
if %button = 15
set %Y 415 ; <- Offset for Caster Keys
set %clickX #contPosX + %X
set %clickY #contPosY + %Y
return