Os dejo dos macros para subir veterinaria. La primera para usar con dos animales, y la segunda para usar con cuatro animales. Al iniciar la macro te pide que configures los animales a curar. No es necesario tener después las vidas de los mismos sacadas.
Sí que hay que tener en cuenta que tienes que estar pegados a ellos para poder curarlos.
MACRO CON CUATRO ANIMALES
Código:
;==================================
; Script: Veterinaria (4 animales)
; Autor: Aloisia
; Version Easyuo: 1.5, 148
; Version: 1.0
; Cliente: 2.0.3
; Fecha del script: 12 Febrero 2010
; Finalidad: Cura a 4 animales diferentes que se pegan entre sí.
;==================================
;Para la siguiente macro necesitas:
;1.- Cuatro animales que se estén pegando entre sí (lo mejor es dos grupos de 1vs1)
;2.- Vendas en la mochila (unas 500, dependiendo de lo que falles)
;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
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 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 6s
event macro 17
wait 10
TARGET
wait 10
set #LTARGETID %animal2
event macro 22
wait 6s
event macro 17
wait 10
TARGET
wait 10
set #LTARGETID %animal3
event macro 22
wait 6s
event macro 17
wait 10
TARGET
wait 10
set #LTARGETID %animal4
event macro 22
wait 6s
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
MACRO CON DOS ANIMALES
Código:
;==================================
; Script: Veterinaria (2 animales)
; Autor: Aloisia
; Version Easyuo: 1.5, 148
; Version: 1.0
; Cliente: 2.0.3
; Fecha del script: 12 Febrero 2010
; Finalidad: Cura a 2 animales diferentes que se pegan entre sí.
;==================================
;Para la siguiente macro necesitas:
;1.- Dos animales que se estén pegando entre sí.
;2.- Vendas en la mochila (unas 500, dependiendo de lo que falles)
;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
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %animal1 #LTARGETID
goto configurar:
}
if %conf = 2
{
set %animal2 #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 6s
event macro 17
wait 10
TARGET
wait 10
set #LTARGETID %animal2
event macro 22
wait 6s
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