Ayuda, modificacion de macro

[Ryan Muryn]

Buenas, estoy usando esta macro de herreria, va perfectamente, el unico problema es que coge demasiados lingotes y no se como disminuir la cantidad, alguien podria ayudarme?


;------------------------------------------
; Macro crafted by SirRasel & Glacius [BdK]
; Retocada por Alex
; Macro de Herrero que fabrica martillos.
;------------------------------------------
; Quieres hacer tiquets el lote de dagas? escribe aquí si o no.
;--------------------------
set %tiquets si
:--------------------------

init events


;=========== VARIABLES ================
chooseskill blac real
set %skillini #skill
set %martillo TLH
set %daga TSF
set %lingotes RMK
set %lotex 113
set %lotey 62
set %idlote CKF
set %pap BKF
set %gumpx1 94
set %gumpy1 172
set %gumpx2 305
set %gumpy2 343
set %dagax1 271
set %dagay1 67
set %dagax2 250
set %dagay2 67
set %dagax3 66
set %dagay3 67
; Con 50 de Skill poner aquí 100, en cuanto haga otra cosa que no sean dagas, poner 135.
set %dagax4 96
set %dagay4 62
set %martillox1 271
set %martilloy1 67
set %martillox2 250
set %martilloy2 67
; Con 50 de Skill poner aquí 100, en cuanto haga otra cosa que no sean martillos poner 150
set %martillox3 150
set %martilloy3 67
set %martillox4 150
set %martilloy4 67
;======================================

;=========== OPCIONES PREVIAS =========
display Ok abre el cofre donde esten los materiales
wait 3s
set %cofre #lobjectid
set %cofrex #cursorx
set %cofrey #cursory
display Ok pon el cursor en la mochila de la foto del personaje
wait 3s
set %backpackx #cursorx
set %backpacky #cursory
;======================================

;=========== INICIO DE LA MACRO =======
goSub CojerLingotes
finditem %martillo c_ , #BACKPACKID
if #findKind = -1
{
HALT
}
set #LOBJECTID #FINDID
event macro 17 0
target
key ESC

inicio:
finditem %lingotes c_ , #BACKPACKID
if #findStack <= 20
{
goSub CojerLingotes
finditem %lingotes c_ , #BACKPACKID
}
set #LOBJECTID #FINDID
event macro 17 0
wait 40
click %dagax1 %dagay1 f
wait 20
click %dagax2 %dagay2 d
wait 20
click %dagax3 %dagay3 d
wait 20
click %dagax4 %dagay4 d
wait 20
set %skillinc #SKILL - %skillini
setuotitle Macro de Herrero | S.Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
finditem %daga c_ , #BACKPACKID
if #findCnt >= 15
{
goSub PackDagas
gosub Guardarlote
goSub CojerLingotes
}
goto inicio:



;=========== SUB COJER LINGOTES========
Sub CojerLingotes
finditem %lingotes c_ , %cofre
if #findkind = -1
{
ignoreitem reset
HALT
}

set %carga #maxweight - #weight
set %carga %carga / 2
set %carga %carga + 1

if %carga <= 1
{
if %carga < 0
{
return
}
else
{
set %carga 2
}
}
event drag #findid
wait 10
msg %carga
msg $
wait 10
click %backpackx %backpacky p
return
;======================================


;=========== SUB FABRICAR MARTILLO ========
Sub FabricarMartillo
martillo:

finditem %lingotes c_ , #BACKPACKID
if #findStack <= 20
{
goSub CojerLingotes
finditem %lingotes c_ , #BACKPACKID
}
set #LOBJECTID #FINDID
event macro 17 0
wait 40
click %martillox1 %martilloy1 f
wait 30
click %martillox2 %martilloy2 d
wait 30
click %martillox3 %martilloy3 d
wait 30
click %martillox4 %martilloy4 d
wait 30
finditem %martillo c_ , #BACKPACKID
if #findCnt <= 3
{
return
}
goto martillo
;======================================


;=========== SUB PACK DE DAGAS ========
Sub PackDagas

findItem %martillo C_ , #BACKPACKID
if #findCnt <= 3
{
gosub FabricarMartillo
findItem %martillo C_ , #BACKPACKID
}
set #LOBJECTID #FINDID
event macro 17 0
target
key ESC
finditem %lingotes c_ , #BACKPACKID
if #findStack <= 20
{
goSub CojerLingotes
finditem %lingotes c_ , #BACKPACKID
}
set #LOBJECTID #FINDID
event macro 17 0
click %lotex %lotey d
wait 10
return
;======================================

;=========== SUB DEJAR PACK DE DAGAS ========
sub Guardarlote

if %tiquets = no
{
dejar:
findItem %idlote C_ , #BACKPACKID
if #findkind <> -1
{
event drag #FINDID
wait 10
click %cofrex %cofrey p
gosub Guardarlote
}
return
}
if %tiquets = si
{
lote:

findItem %idlote C_ , #BACKPACKID
if #FINDCNT > 0
{
findItem %pap G_3
if #FINDSTACK = 0
{
goto dejar
}
else
{
set #LOBJECTID #FINDID
event macro 17
wait 20
click %gumpx1 %gumpy1 1
wait 20
click %gumpx2 %gumpy2 1
target
findItem %idlote C_ , #BACKPACKID
set #LTARGETID #FINDID
wait 20
event macro 22 0
wait 20
goto guardarlote
wait 10
key ESC
click %gumpx2 %gumpx2 r
goto lote
}
}
return
}
return
;=============================================

[Shamino]

Creo que es esto:

;=========== SUB COJER LINGOTES========
Sub CojerLingotes
finditem %lingotes c_ , %cofre
if #findkind = -1
{
ignoreitem reset
HALT
}

set %carga #maxweight - #weight
set %carga %carga / 2
set %carga %carga + 1

if %carga <= 1
{
if %carga < 0
{
return
}
else
{
set %carga 2
}
}
event drag #findid
wait 10
msg %carga<---- Borra eso y pon el Nº de Lingotes a cojer. (No borres msg)
msg $
wait 10
click %backpackx %backpacky p
return
;======================================

[Ryan Muryn]

Asi es Shamino, muchas gracias