Aquí os dejo una macro para subir veterinaria con 6 animales.
Instrucciones iniciales
Llevamos 6 animales y les ponemos el nombre a cada animal de la A hasta la F.
Los ponemos uno en frente de otro y damos la orden de ataque.
a kill (seleccionamos a b) c kill (seleccionamos a d) e kill (seleccionamos a f)
Una vez hecho esto y ver ke se pegan entre ellos 1vs1 solo tendremos que dar al play y seguir las instrucciones de la macro.
P.D. funciona correctamente. espero que os pueda servir
Aquí os dejo una foto
[IMG][/IMG]
;==================================
; Script: Veterinaria (6 animales)
; Autor: KyoMusashi
; Version Easyuo: 1.5 184
; Version: 1.0
; Cliente: 2.0.3
; Fecha del script: 27 Mayo 2012
; Finalidad: Cura a 6 animales diferentes que se pegan entre sí.
;==================================
;Para la siguiente macro necesitas:
;1.- seis animales que se estén pegando entre sí. A pega a B, C pega a D, E pega a F.
;2.- Vendas en la mochila. Teniendo 100 de fuerza/vida podrás llevar mas de 2000 vendas encima.
;3.- Un pilón de agua y comida (peras o manzanas, si quieres otro tipo añadelo en set %comida).
set %vendas ZLF
set %sucias AMF
set %pilon WEE_TEE_VEE_QEE
set %confp 1
set %comida YSD_QQD ;Peras, Manzanas
initevents
chooseskill vete real
set %skillini #skill
configurar:
if %confp = 1
{
event macro 13 30
TARGET
Event sysmessage Selecciona animal 1.
event sysmessage Y presiona la tecla ESC.
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
event macro 13 30
TARGET
Event sysmessage Selecciona animal 2.
event sysmessage Y presiona la tecla ESC.
set %conf 2
set %confp 3
goto TESC
}
if %confp = 3
{
event macro 13 30
TARGET
Event sysmessage Selecciona animal 3.
event sysmessage Y presiona la tecla ESC.
set %conf 3
set %confp 4
goto TESC
}
if %confp = 4
{
event macro 13 30
TARGET
Event sysmessage Selecciona animal 4.
event sysmessage Y presiona la tecla ESC.
set %conf 4
set %confp 5
goto TESC
}
if %confp = 5
{
event macro 13 30
TARGET
Event sysmessage Selecciona animal 5.
event sysmessage Y presiona la tecla ESC.
set %conf 5
set %confp 6
goto TESC
}
if %confp = 6
{
event macro 13 30
TARGET
Event sysmessage Selecciona animal 6.
event sysmessage Y presiona la tecla ESC.
set %conf 6
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %animal1 #LTARGETID
goto configurar:
}
if %conf = 2
{
set %animal2 #LTARGETID
goto configurar:
}
if %conf = 3
{
set %animal3 #LTARGETID
goto configurar:
}
if %conf = 4
{
set %animal4 #LTARGETID
goto configurar:
}
if %conf = 5
{
set %animal5 #LTARGETID
goto configurar:
}
if %conf = 6
{
set %animal6 #LTARGETID
goto inicio
}
}
goto TESC
inicio:
set %skillinc #SKILL - %skillini
setuotitle Veterinaria: #SKILL ( %skillinc )
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
set #LOBJECTID #FINDID
event macro 17
}
findItem %sucias C_ , #BACKPACKID
if #findstack > 100
{
GoSub limpiarvendas
}
findItem %vendas C_ , #BACKPACKID
set #LOBJECTID #FINDID
wait 10
event macro 17
wait 10
TARGET
wait 10
set #LTARGETID %animal1
event macro 22
wait 8s
event macro 17
wait 10
TARGET
wait 10
set #LTARGETID %animal2
event macro 22
wait 8s
event macro 17
wait 10
TARGET
wait 10
set #LTARGETID %animal3
event macro 22
wait 8s
event macro 17
wait 10
TARGET
wait 10
set #LTARGETID %animal4
event macro 22
wait 8s
event macro 17
wait 10
TARGET
wait 10
set #LTARGETID %animal5
event macro 22
wait 8s
event macro 17
wait 10
TARGET
wait 10
set #LTARGETID %animal6
event macro 22
wait 8s
GoTo inicio:
Sub limpiarvendas
findItem %sucias C_ , #BACKPACKID
set #LOBJECTID #FINDID
wait 10
event macro 17
wait 10
finditem %pilon c_ , #BACKPACKID
set #LTARGETID #findid
event macro 22 0
wait 1s
return
Citar
Iniciado por kyomusashi
