Busco macro vet

[Punki-to]

Busco una macro de vet que de de comer a los osos y limpie vendas,si alguien la tiene se lo agradeceria

Saludos

[xmurdocx]

;; Script Name: Entrenar Veterinary
; Author: KaRMeLoT
; Version: 1.8
; Client Tested with: 2.0.3
; EUO version tested with: 1.5 Version 130
; Shard: Ultima Alianza
; Release: 01/09/08
; Purpose: Veterinary
;==================================
; Configuracion
; Coloca 6 osos pegandose entre sí(1vs1 1vs1 y 1vs1, asi curaras todo el tiempo). No te olvides de darles de comer para que no se mueran de hambre.
;Cargate de vendas, un pilon y cerdos.
chooseskill vete real
set %skillini #skill
set #SYSMSGCOL 68
event sysmessage Macro Ofrecida por el clan Aeternus Animas
set #SYSMSGCOL 89
event sysmessage #CHARNAME Bienvenido a la Macro de Veterinaria de KaRMeLoT visita el vendor GiTaNa de Vesper y el vendor GiTaNo de Trinsic.
finditem RUD C_ , #backpackid
seet %cerdos #findstack
if #FINDSTACK > 0
{
set %nollevascomida 0
set %cerdos #findstack
}
else
{
set #SYSMSGCOL 38
event sysmessage #CHARNAME No llevas Cerdos encima, deberias comprar alguno.
set %cerdos 0
set %nollevascomida 1
}
comienzo:
gosub limpiavendas
finditem ZLF c_ , #BACKPACKID
set %numvendas #findstack
finditem AMF c_ , #BACKPACKID
set %numvendassucias #findstack
event macro 26 0
set %animal #LTARGETID
if #CHARID = #LTARGETID
{
goto comienzo
}
recurar:
set %skillinc #SKILL - %skillini
set %inc #SKILL - %skillini
setuotitle | Macro de Veterinaria | S.Inicial: %skillini | S. Actual: #SKILL | Incremento: %inc | Vendas limpias: %numvendas | Vendas sucias: %numvendassucias | Cerdos: %cerdos | --- Macro Realizada por KaRMeLoT ---
msg .vendas $
target
finditem %animal G_3
set #LTARGETID #FINDID
event macro 22

scanc:
deletejournal
scanjournal 1
if aplicas_las_vendas in #journal
{
goto recurar
}
if curas in #journal || no_necesita_curarse in #journal || no_necesitas in #journal || you_can in #journal || estas_demasiado in #journal || aplicas_las in #journal || %tiempo >= 70
{
set %tiempo 0
goto comienzo
}
if comienza_la in #journal
{
wait 30s
}
onHotKey ESC
{
msg .karmafametro $
}
wait 1
set %tiempo %tiempo + 1
goto scanc
sub limpiavendas
{
finditem ZLF c_ , #BACKPACKID
if #findstack <= 1000
{
set #SYSMSGCOL 38
event sysmessage #CHARNAME Te quedan pocas vendas, deberias comprar mas.
}
wait 5
finditem AMF c_ , #BACKPACKID
if #findstack >= 100
{
set #LOBJECTID #FINDID
event macro 17 0
target
finditem QEE_TEE_WEE_VEE c_ , #BACKPACKID
set #LTARGETID #FINDID
event macro 22
gosub comprobarcomida
}
return
}



sub comprobarcomida
{
if %nollevascomida = 0
{
msg .hungry $
scan:
deletejournal
scanjournal 1
if Tu_estas_saturado in #journal
{
return
}
if Tu_estas_bien_lleno in #journal
{
finditem RUD C_ , #backpackid
if #FINDSTACK >= 1
{
set #lobjectid #findid
event macro 17
set %cerdos %cerdos - 1
return
}
else
{
set %cerdos 0
set %nollevascomida 1
set #SYSMSGCOL 38
event sysmessage No hay cerdos en tu mochila
return
}
}
wait 1
goto scan
}
return
}



pero creo k no le da de comer a los osos

[Punki-to]

es la que uso xD cada 3 horas miro los osos y les doy de comer xD

Lo que se me ralla es que me desaparecen osos asi xk si xD xo weno ya voy por 92 asi k xD

thanks de todas formas ^^