Hola busco una macro donde separa los minerales, osea algo asi: agarrar los minerales del baul ponerlos en la mochila hasta cierto peso (cosa q no se desborde) y fundirlos, y luego poner los lingotes en el baul denuevo o en alguna bolsa o algo.
Pq yo tengo una que separa los minerales pero quedan en cantidades chicas del mismo tipo de mineral y despues me tengo que tomar otro tiempo para juntarlos todos denuevo.
Gracias
Has probado la de Alex? Es esa la que no te funciona?
Busca entre las macro de Alex o las de Boxer. Seguro que hay alguna
; Para Separar ores y fundirlos.
; Necesitamos un cofre donde tengamos los ores a separar y poder dejar los lingotes,
; junto a una forja, vigilad que tengamos linea de visión con ambos.
; Primero tenemos que poner cuantos ores debe separar y fundir
; es recomendable poner de 50 a 100 para que no tengamos sobrepeso
; Al empezar deberemos configurar el Cofre y un punto de nuestra mochila.
; Los pasos se explican en el UO al darle a empezar, fijaros en la barra superior del UO.
; Una vez configurado la macro empezará sola a separar, fundir y guardar.
; IMPORTANTE: Haced paquetes de 200 en 200 de los minerales, no superiores (dentro del baúl).
; Poner aquí el número de ores que irá separando y fundiendo cada vez. (10, 20, 30,...)
;--------------------------
set %sep 70
:--------------------------
initevents
set %confp 1
chooseskill mini
set %skillini #skill
configurar:
if %confp = 1
{
Event sysmessage Abre el cofre en el que tienes los ores a separar y manten el cursor en el.
event sysmessage Y presiona la tecla ESC
setuotitle Abre el contenedor que contiene los ores y luego manten el cursor en el y presiona ESC
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
setuotitle Pon el cursor donde quieras llevar el objeto a separar de tu mochila y presiona ESC
event sysmessage Pon el cursor donde desees dejar el objeto a separar
event sysmessage Y presiona la tecla ESC
set %conf 2
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
set %cofrex #CURSORX
set %cofrey #CURSORY
goto configurar
}
if %conf = 2
{
set %dejarx #CURSORX
set %dejary #CURSORY
set %tot 0
set %vez 0
set %fin 0
goto separar
}
}
goto TESC
separar:
set %skillinc #SKILL - %skillini
for %vecesS 1 %sep
{
finditem TVJ c_ , %cofre
if #FINDSTACK = 0
{
findItem GWJ C_ , %cofre
if #FINDSTACK = 0
{
findItem EWJ C_ , %cofre
if #FINDSTACK = 0
{
findItem DWJ C_ , %cofre
if #FINDSTACK = 0
{
set %fin 1
}
}
}
}
event drag #FINDID
wait 10
msg 1 $
click %dejarx %dejary p
wait 10
setuotitle Accion: Separando | Cantidad: ( %vecesS / %sep ) | Veces: %vez | Guardado: %tot | S. Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
}
fundir:
findItem TVJ C_ , #BACKPACKID
if #FINDSTACK > 0
{
set #LOBJECTID #FINDID
event macro 17
set %vecesF %vecesF + 1
setuotitle Accion: Fundiendo | Cantidad: ( %vecesF / %sep ) | Veces: %vez | Guardado: %tot | S. Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
wait 10
goto fundir
}
if %fin = 1
{
set %fin 2
}
set %vecesF 0
guardar:
setuotitle Accion: Guardando | Veces: %vez | Guardado: %tot | Inicial: %skillini | Actual: #SKILL | Inc: %skillinc
findItem RMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem NMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem XMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem TMK C_ , #BACKPACKID
}
}
}
event drag #findid
wait 10
KEY ENTER
wait 10
click %cofrex %cofrey p
set %tot %tot + #FINDSTACK
findItem RMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem NMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem XMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem TMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
if %fin = 2
{
gosub finalizar
}
}
}
}
}
if #FINDSTACK > 0
{
goto guardar
}
set %vez %vez + 1
goto separar
sub finalizar
{
display OK Se ha finalizado la macro!$No se ha encontrado más mineral que fundir.
halt
}
a ti no te banearon x decirle de todo a drunk con toda desfachatez y mala educacion? :S
Esa macro yo la probe y no se pork solo me fundia una ronda, luego me decia k se habia acabado el mineral jejeje.
Esta macro funde y juntas minerales de un mismo tipo ?
osea que no me deje 1 mineral arriba de otro del mimso tipo y que luego yo los tenga que juntar.
k yo rekuerde si, va haciendo montoncitos de 50, 100 o lo k pusieras, pero eso kreo k es facil de arreglar.
Buenas, yo de normal no me siento con ganas de compartir mis esfuerzos, pero hoy me siento generoso, te paso esa macro solo has de configurar 3 lineas ahora te explico:
linesPerCycle 1000
set %setup on
set %IronType GWJ_DWJ_EWJ
set %FundirType TVJ
set %Xmas 50
set %Ymas 63
set %inc 0
set %contenedor VKCVGOD
set %contenedorX 354
set %contenedorY 233
; lingotes de iron y otros, plata, oro, cobre
set %lingotes RMK_XMK_TMK_NMK
set %mochila #BACKPACKID
;move 3194 326 0 5s
if %setup <> off
{
; close gumps
event macro 31 0
wait 20
; paperdoll
event macro 8 1
wait 20
contpos 764 0
wait 10
; status
event macro 8 2
wait 20
contpos 790 340
wait 10
abrirContenedor:
set #LOBJECTID %contenedor
event macro 17
if #CONTID <> %contenedor
{
goto abrirContenedor:
}
contpos 565 193
RepBackPackId:
set #LOBJECTID #BACKPACKID
event macro 17
if #CONTID <> #BACKPACKID
{
goto RepBackPackId
}
contpos 588 388
}
inicio:
gosub dejarlingotes
set %intento 0
gosub masores
event Sysmessage Empezando a separar.
wait 1s
Main:
finditem %IronType C_ , #BACKPACKID
if #FINDKIND <> -1
{
RepWaitForContName:
set %TM #SCNT
event drag #FINDID
WaitForContName:
if #CONTNAME <> stack_gump
{
if ( #SCNT - %TM ) > 5
{
Goto RepWaitForContName
}
Goto WaitForContName
}
msg 1$
set %TM #SCNT
WaitForLliftle:
if #LLIFTEDKIND <> 1
{
if ( #SCNT - %TM ) > 5
{
Goto RepWaitForContName
}
Goto WaitForLliftle
}
RepClickDown:
set %TM #SCNT
click 635 439 f
WaitForDropClick:
if #LLIFTEDKIND = 1
{
if ( #SCNT - %TM ) > 30
{
Goto RepClickDown
}
Goto WaitForDropClick
}
set %LID #FINDID
WaitForFind:
finditem %LID
if #FINDID <> %LID
{
Goto WaitForFind
}
set %inc %inc + 1
Goto Main
}
Main2:
finditem %FundirType C_ , #BACKPACKID
if #FINDKIND = -1
{
ignoreitem reset
finditem %FundirType C_ , #BACKPACKID
if #FINDKIND = -1
{
finditem %IronType C_ , #BACKPACKID
if #FINDKIND <> -1
{
goto Main:
}
event Sysmessage ok Fundida de minerales finalizada, Unos %inc inerales fundidos aproximadamente.
set %intentos 0
goto inicio:
HALT
}
goto Main2:
}
ignoreitem #FINDID
set #LOBJECTID #FINDID
event macro 17
Goto Main2
recargarores:
set %carga #MAXWEIGHT - #WEIGHT
set %carga %carga / 3
set %carga %carga + 1
if %intentos > 10
{
halt
}
finditem XXX
wait 10
finditem %IronType C_ , %contenedor
wait 20
if #FINDKIND = -1
{
set %intentos %intentos + 1
wait 10s
goto recargarores:
}
if #FINDSTACK < %carga
{
set %intentos %intentos + 1
wait 10s
goto recargarores:
}
; ------------------------------
; SUBS
; ----------------------------
sub dejarlingotes
finditem xxx
msg $
finditem %lingotes C_ , %mochila
wait 10
if #findkind = -1
{
return
}
set %findx #findx + 30
set %findy #findy + 9
wait 10
click %findx %findy g
wait 20
msg $
wait 20
click %contenedorX %contenedorY p
wait 10
return
sub masores
cogerores:
finditem xxx
set %findx 0
set %findy 0
set %peso #maxweight - #weight
set %carga %peso / 3
set %carga %carga + 1
finditem %IronType C_ , %contenedor
wait 10
if #findstack < %carga
{
set %carga #findstack
}
set %findx #findx + 20
set %findy #findy + 20
msg $
wait 10
; click %findx %findy g
event drag #FINDID
wait 20
msg %carga $
wait 10
click 906 227 p
wait 20
return
TIENES K CONFIGURAR ESTO:
set %contenedor VKCVGOD
set %contenedorX 354
set %contenedorY 233
el contenedor le das 2 clicks a tu cofre y buscas la opcion en easyuo de:
dentro de last action una k se llama LOBJECTID, copias las letritas k te pone osea su id.
lo de contenedor X e Y solamente has de poner el cursor encima del cofre y copiar su localizacion en la pantalla.
¿como puedes saber la localizacion en la pantalla?
si abres el easyuo abajo hay una barra, la cual si mueves el raton se moveran unos numeros. pues en la X pones la 1ª cifra en la Y la 2ª cifra.
en mi caso me ponia 354/233.
si necesitas algo [email protected]
Espero k te sirva de mucho. dew
Permisos de publicación
Citar