Bueno pues aki os dejo esta Macro de Herreria k ami me a ayudado mucho y creo k me salio bastante bn
si me podeis decir k tal os va seria mejor
asias
;------------------------------------------
; 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
set %martillox1 271
set %martilloy1 67
set %martillox2 250
set %martilloy2 67
set %martillox3 150
set %martilloy3 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 ================================================== =============================
;================================================= ================================================== ===========
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
if #SKILL <= 500
{
set %dagax4 100
set %dagay4 67
click %dagax4 %dagay4 d
}
if #SKILL > 500
{
set %dagax4b 135
set %dagay4b 67
click %dagax4b %dagay4b d
}
wait 3s
set %skillinc #SKILL - %skillini
finditem %lingotes C_ , %cofre
set %lingotescofre #FINDSTACK
finditem %daga c_ , #BACKPACKID
set %dagamochila #findCnt
{
setuotitle ------------< | Macro de Herrero | S.Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc | Lingotes que te quedan: %lingotescofre | Dagas mochila: %dagamochila | >------------
}
finditem %daga c_ , #BACKPACKID
if #findCnt >= 15
{
goSub PackDagas
gosub Guardarlote
}
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
if #SKILL <= 500
{
set %martillox4 100
set %martilloy4 67
click %martillox4 %martillo4 d
}
if #SKILL > 500
{
set %martillox4b 135
set %martilloy4b 67
click %martillox4b %martilloy4b d
}
wait 4s
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
;================================================= ================================================== ===========
;======================================== FIN ================================================== ===============
;================================================= ================================================== ===========
cuidarse feos
Citar
