Hola pues tengo un problema, me pide la ip de el libro de runas de la derecha la pongo y luego cuando tiene que recalear no recalea la segunda runa y se queda hay
Aqui la dejo
; Script Name: Entrenar Taming
; Author: KaRMeLoT con la colaboración especial de Falbala
; Version: 1.7
; Client Tested with: 2.0.3
; EUO version tested with: 1.5 Version 130
; Shard: Ultima Alianza
; Release: 22/08/08
; Purpose: Taming
;==================================
; Configuracion
; Marcate 16 runas en lugares "poco frecuentados" para no tener problemas. Dale doble click a tu libro
; de runas y mira en la columna de la derecha el valor de la variable #LOBJECTID y la copias en donde
; el asterisco.
; No te olvides de comer y de reponer animales de vez en cuando porque a veces desaparecen. NO MACREES
; CON MAS DE 3 ANIMALES. Con ratas al principio, despues si tu economia te lo permite perros.
; IMPORTANTE: No estar en el sitio de la primera runa cuando se le da a RUN.
set %libroderunas PJWWRPD ; * Copia aqui la ID de tu libro de runas.
chooseskill anim 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 Domar de KaRMeLoT visita el vendor GiTaNa de Vesper y el vendor GiTaNo de Trinsic.
set #SYSMSGCOL 38
event sysmessage No debes darle a RUN estando en la posicion de la Runa 1.
inicio:
set %runa 1
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
goto inicio
sub librecall
{
if %posruna < 9
{
set %runex 130
if %posruna = 1
{
set %y 0
}
else
{
set %runea %posruna - 1
set %y 15 * %runea
}
set %runey 70 + %y
}
if %posruna > 8
{
set %runex 290
if %posruna = 9
{
set %y 0
}
else
{
set %runea %posruna - 9
set %y 15 * %runea
}
set %runey 70 + %y
}
return
}
sub Recall
{
set %posruna %1
gosub librecall
recaleo:
set %posicionx #CHARPOSX
set %posiciony #CHARPOSY
finditem %2 _C , #backpackid
set #LOBJECTID #FINDID
event macro 17
wait 20
click %runex %runey f
event macro 13 46
wait 1s
event macro 13 46
wait 1s
event macro 13 46
wait 1s
event macro 13 46
wait 1s
event macro 13 46
wait 1s
event macro 13 46
wait 1s
msg all release $
event macro 13 46
wait 1s
msg all release $
event macro 13 46
wait 1s
msg all release $
event macro 13 46
wait 1s
msg all release $
event macro 13 46
wait 1s
event macro 13 46
wait 2s
if %posicionx = #CHARPOSX && %posiciony = #CHARPOSY
{
goto recaleo
}
else
{
return
}
}
sub Domar
{
set %domado 0
set %domadenuevo 0
set %contador 0
set %yomismo 0
intento:
event macro 26 0
wait 10
if #CHARID = #LTARGETID
{
set %yomismo %yomismo + 1
if %yomismo > 1
{
return
}
goto intento
}
if #LTARGETID = %bixo1 || #LTARGETID = %bixo2 || #LTARGETID = %bixo3
{
return
}
redomar:
event macro 13 35
target
event macro 25 0
event macro 22 0
wait 1s
scanjournal
if no_puede_ser in #journal || tu_eres_tu in #journal || estas_demasiado in #journal || ya_esta_domado in #journal || no_puedes in #journal || todavia_no in #journal
{
set %contador %contador + 1
if %contador > 2
{
return
}
goto intento
}
if el in #journal
{
return
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto intento
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto intento
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto intento
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto intento
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto intento
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto intento
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
fin:
msg all release $
wait 5
msg all release $
wait 5
msg all release $
return
}
sub findomar
{
scanjournal
if no_consigues in #journal
{
set %domadenuevo 1
return
}
if te_acepta_como in #journal || Te_acepta_como in #journal no_puedes_ver in #journal your_skill in #journal
{
set %domados %domados + 1
set %domado 1
if %domados = 1
{
set %bixo1 #LTARGETID
}
if %domados = 2
{
set %bixo2 #LTARGETID
}
if %domados = 3
{
set %bixo3 #LTARGETID
}
if %domados > 3 && %bixo1 <> %bixo2 && %bixo2 <> %bixo3
{
wait 40s
}
return
}
return
}
Citar
