Buenas,estoy usando la macro de Alqumia de Nilaween,pero no parece funcionar muy alla,alguien tiene alguna plis?
Buenas,estoy usando la macro de Alqumia de Nilaween,pero no parece funcionar muy alla,alguien tiene alguna plis?
Twitter: @Nevil_Gamer
Esta es la macro:
El problema,lo tiene que cuando falla y se queda sin frascos en la mochila,no coge mas del cofre,como lo soluciono?set %cofre MDZQIND
set %reg KZF_WZF_JZF_JUF_RZF_SZF_MZF_KUF
;################################################# ###############
;###### A PARTIR DE AQUI, ¡NO HACE FALTA TOCAR NADA! #####
;################################################# ###############
display ok Macro by Nilaween.
set %mortero RQF
set %pocion WUF
set %keg YBK_XBK
init:
set #LOBJECTID %cofre
event macro 17 0
finditem %pocion C_ , #BACKPACKID
for #FINDINDEX 1 #FINDCNT
set % , #FINDCOL #FINDSTACK
finditem %reg C_ , #BACKPACKID
set #LOBJECTID #FINDID
for #FINDINDEX 1 #FINDCNT
set % , #FINDTYPE #FINDSTACK
event macro 17 0
gosub gump 10000 530_480
gosub click 30 70 dmc
loop:
repeat
gosub gump 10000 530_480
if %potcol = N/A
gosub config
set %control #SYSTIME - %control
if %control < 1500
break
gosub click 240 70 dmc
set %control #SYSTIME
until %e = 1
if %kegid = N/A
gosub elegirkeg
gosub gump 10000 530_480
finditem %pocion , _ , %regpot C_ , #BACKPACKID
for #FINDINDEX 0 #FINDCNT
{
if #FINDCOL = %potcol && #FINDTYPE = %pocion
gosub keg
if ( #FINDTYPE in %regpot && #FINDSTACK <= 100 ) && #FINDKIND <> -1
gosub mover #FINDTYPE C_ %cofre dropc #BACKPACKID 1 500 N/A N/A
}
finditem %mortero C_ , #BACKPACKID
if #FINDTYPE = %mortero && #FINDCNT <= 3
gosub mover %mortero C_ %cofre dropc #BACKPACKID 5 N/A N/A
goto loop
;########################## SUBS ###############################;
sub gump
set %tiempo #SYSTIME + %1
repeat
until #contname <> waiting_gump && #contname <> MainMenu_gump && #contname <> Login_gump && #contname <> normal_gump
repeat
if %tiempo < #SYSTIME
goto init
until #CONTSIZE = %2
return
sub click
set %clickx #CONTPOSX + %1
set %clicky #CONTPOSY + %2
click %clickx %clicky %3
return
sub mover
finditem %1 %2 , %3
for #FINDINDEX 1 %6
{
exevent drag #FINDID %7
wait 7
exevent %4 %5 %8 %9
wait 7
}
return
sub elegirkeg
finditem %keg
for #FINDINDEX 1 #FINDCNT
{
event property #FINDID
if ( #FINDCOL = %potcol && 1000 In #PROPERTY ) || #FINDKIND = -1 || #FINDDIST > 3 || ( #FINDBAGID <> YC && #FINDBAGID <> #BACKPACKID )
continue
set %kegid #FINDID
if #FINDCOL = %potcol
break
}
event property %kegid
str pos #PROPERTY [
set %i #strRes + 1
str pos #PROPERTY ]
set %d #strRes - %i
str mid #PROPERTY %i %d
set %actual #strRes
return
sub keg
set %actual %actual + #FINDSTACK
set #LTARGETID #FINDID
set #LOBJECTID %kegid
if %actual > 1000
{
finditem #LTARGETID
set %actual #FINDSTACK - ( %actual - 1000 )
gosub mover #LTARGETID C_ #BACKPACKID dropc #BACKPACKID 1 %actual 10 10
set %kegid N/A
}
event macro 17 0
target
event macro 22 0
return
sub config
finditem %pocion , _ , %reg C_ , #BACKPACKID
for #FINDINDEX 1 #FINDCNT
{
if % . #FINDTYPE > #FINDSTACK && #FINDTYPE notIn %regpot && % . #FINDTYPE <> N/A
set %regpot %regpot , _ , #FINDTYPE
if ( % . #FINDCOL < #FINDSTACK && #FINDCOL <> 0 ) || % . #FINDCOL = N/A
set %potcol #FINDCOL
}
return
Twitter: @Nevil_Gamer
Al principio donde pone set %cofre MDZQIND, MDZQIND es la ID del cofre que uso el para macrear. Usa esta macro:
initevent
display ok Pulsa Aceptar
+ y
+ selecciona
+ el objetivo
SET #TARGCURS 1
WHILE #TARGCURS = 1
WAIT 5
FINDITEM #LTARGETID
wait 5
event property #LTARGETID
DISPLAY OK ID : #LTARGETID $$
+TYPE : #FINDTYPE $$
+COLOR : #FINDCOL $$
+PROPIEDADES : #PROPERTY
stop
set %cofre -ID del cofre-
set %arma -ID del primer arma-
set %arma2 -ID del segundo arma-
Esta macro te dara la ID de cualquier objeto/animal, le das click al cofre donde tengas los frascos en este caso y la pones al lado de %cofre
Email: [email protected]
Gracias por la rapida respuesta.Iniciado por alcatel97
Tengo el ID del cofre bien puesto,es otra cosa
Twitter: @Nevil_Gamer
Denada, a ver si alguien te puede ayudar, puedes preguntar por IRC tambien
Email: [email protected]
La macro no está hecha para reponer botellas, porque cuando yo macreé no se rompían.
Por lo tanto habría que apañarla para que detecte cuando vas a quedarte sin y entonces reponer.
Venga va, prueba con esta:
La he modificado sobre la marcha y lógicamente no la he probado (ni siquiera tengo el UO instalado). En la novena línea de macro hay un "set %botella" en la que deberías añadir el #LOBJECTTYPE de las botellas vacías.
Lo que va a hacer la macro es comprobar el número de frascos vacíos, y si te quedan menos de 10, cogerá 30 botellas adicionales del cofre. Si hace falta algún cambio (por ejemplo, que reponga cuando le queden más botellas o que coja más de 30 para ir bien) lo dices y se retoca.
Prueba y ya me dices, pero debería funcionar.
Última edición por Nilaween; 30-May-2017 a las 22:19
Nilaween
Angel Cristo - Domador
Ahmed Al'Sahir - Fighter
Gracias por el aporte,me sigue pasando lo mismo
Twitter: @Nevil_Gamer
Te paso la mía:
1. Compra morteros (siempre dentro de una bolsita) < primer o segundo tipo, si es del tercero avisa
2. Compra regs (Belladona) < está hecha para hacer veneno menor, si quieres otro tipo avisa
3. ¿Sabes como cambiar la ID de los contenedores en la macro? hay que editar set %contenedor1 y set %contenedor2
4. En el primero metes todas las bolsitas de morteros, los regs, botellas y kegs vacíos / el segundo déjalo vacío, irán los kegs llenos
Código:;************************************************************************************************* ;Macro ALQUIMIA (Veneno Menor) by OverQueen ;************************************************************************************************* set #SYSMSGCOL 10 event sysmessage Macro para subir alquimia by OverQueen ;************************************************************************************************* ; CONFIGURACIONES (EDITAR) ;************************************************************************************************* set %contenedor1 CGJXQPD ; regs, barriles, bolsas de morteros y botellas vacías set %contenedor2 QZBMQOD ; bariles llenos set %bolsitas IUD_LKF_CKF set %comida RGG_NRD_QSD_ZBG_WLI_QRD_END_FUD_YLI_WLI_HGI_KGI_EGI_QLI_KLI_MLI_KRD_HQD_AQD_MQE_VQE_TQE_JQE_IQE_GQE_SPE_ZPE_OQE_BDF_KPE_RQE_YSD_SQD_YWI_AXI_PQD_QQD set %regs WZF set %botellas WUF set %barril QMJ set %morteros RQF set #LOBJECTID %contenedor1 wait 20 event macro 17 0 wait 20 set #LOBJECTID %contenedor2 wait 20 event macro 17 0 wait 20 Abrirbolsitas: Finditem %Bolsitas C if #Findkind = -1 GoTo inicio: ; return ignoreitem #FindID bags set #LObjectID #FindID event macro 17 wait 20 goto Abrirbolsitas: Inicio: gosub comer gosub cogerBa gosub cogerBo gosub cogerM gosub cogerR gosub pociones gosub llenar gosub dejarBa goto inicio ;************************************************************************************************* ; COMER ;************************************************************************************************* sub comer set #LOBJECTID #FINDID findItem %comida C_ , #BACKPACKID set #LOBJECTID #FINDID wait 10 event macro 17 return ;************************************************************************************************* ; COGER BARRILES ;************************************************************************************************* sub cogerBa finditem %barril C_ , #BACKPACKID iF #FINDCNT = 0 { finditem %barril C_ , %contenedor1 exevent drag #FINDID 1 wait 10 exevent dropc #BACKPACKID wait 10 } return ;************************************************************************************************* ; COGER BOTELLAS ;************************************************************************************************* sub cogerBo finditem %botellas C_ , #BACKPACKID if #FINDCNT < 3 { finditem %botellas C_ , %contenedor1 exevent drag #FINDID 2 exevent dropc #BACKPACKID wait 5 } return ;************************************************************************************************* ; COGER MORTEROS ;************************************************************************************************* sub cogerM finditem %morteros C_ , #BACKPACKID iF #FINDCNT < 2 { finditem %morteros C_ exevent drag #FINDID exevent dropc #BACKPACKID wait 5 } return ;************************************************************************************************* ; COGER REGS ;************************************************************************************************* sub cogerR finditem %regs C_ , #BACKPACKID if #FINDSTACK < 5 { finditem %regs C_ , %contenedor1 exevent drag #FINDID 50 exevent dropc #BACKPACKID wait 5 } return ;************************************************************************************************* ; HACER POCIONES ;************************************************************************************************* sub pociones finditem %morteros C_ , #BACKPACKID set #LOBJECTID #FINDID event macro 17 0 click 64 210 wait 5 click 269 109 wait 2s return ;************************************************************************************************* ; LLENAR BARRIL ;************************************************************************************************* sub llenar FINDITEM %barril , _ , %botellas C_ , #BACKPACKID for #FINDINDEX 1 #FINDCNT { if #FINDTYPE = %barril set #LOBJECTID #FINDID if #FINDTYPE = %botellas set #LTARGETID #FINDID } event macro 17 set #LTARGETKIND 1 target event macro 22 0 wait 10 scanjournal if lleno in #JOURNAL { finditem %barril C_ , #BACKPACKID exevent drag #FINDID exevent dropc %contenedor2 wait 20 } return ;************************************************************************************************* ; CAMBIAR BARRIL ;************************************************************************************************* SCANJOURNAL if El_barril_esta_lleno. in #JOURNAL { finditem %barril C_ , #BACKPACKID exevent drag #FINDID wait 10 exevent dropc %contenedor2 wait 10 } return
Gracias Over,que grande eres
Solo me queda 1 duda:
Los regs,botellas y kegs van en una bolsa tambien? O sueltos por el cofre¿
Última edición por Nevil; 31-May-2017 a las 14:59
Twitter: @Nevil_Gamer
Sueltos ^^Gracias Over,que grande eres
Solo me queda 1 duda:
Los regs,botellas y kegs van en una bolsa tambien? O sueltos por el cofre¿
La macro funciona de 10,pero la he dejado toda la mañana y el tio ha empezado a coger frascos cada vez que hacia una pocion,y al final se ve que de tanto coger frascos le han caido al suelo y se han perdido xDD 3000 frascos a la basura xDD
Twitter: @Nevil_Gamer
Ufff que raro :S
Solo si tiene menos de 3 botellas (2) coge dos más del contenedor así que como máximo tendría 4 botellas vacías en la mochila
No veo el fallo, lo que puedes hacer es parar la macro cuando se vuelva loca
1) sustituir (al final de la macro) goto Inicio: por:
2) bajo gosub dejarBa (casi al principio) añadir la línea:Código:;************************************************************************************************* ; SEGURIDAD no perder botellas ;************************************************************************************************* sub seguridad if #weight >= %cargamax { set #SYSMSGCOL 10 event sysmessage Estás cogiendo demasiados frascos... se acabó el macreo halt } goto Inicio:
Código:gosub seguridad
El gotoInicio te refieres a debajo de este caso gosub Seguridad
O debajo del todo añado eso¿
Twitter: @Nevil_Gamer
Mejor te lo hago yo que no me cuesta nada xD, esta macro es la buena:
;*************************************************************************************************
;Macro ALQUIMIA (Veneno Menor) by OverQueen
;*************************************************************************************************
set #SYSMSGCOL 10
event sysmessage Macro para subir alquimia by OverQueen
;*************************************************************************************************
; CONFIGURACIONES (EDITAR)
;*************************************************************************************************
set %contenedor1 CGJXQPD ; regs, barriles, bolsas de morteros y botellas vacías
set %contenedor2 QZBMQOD ; bariles llenos
set %bolsitas IUD_LKF_CKF
set %comida RGG_NRD_QSD_ZBG_WLI_QRD_END_FUD_YLI_WLI_HGI_KGI_EG I_QLI_KLI_MLI_KRD_HQD_AQD_MQE_VQE_TQE_JQE_IQE_GQE_ SPE_ZPE_OQE_BDF_KPE_RQE_YSD_SQD_YWI_AXI_PQD_QQD
set %regs WZF
set %botellas WUF
set %barril QMJ
set %morteros RQF
set %cargamax 300
set #LOBJECTID %contenedor1
wait 20
event macro 17 0
wait 20
set #LOBJECTID %contenedor2
wait 20
event macro 17 0
wait 20
Abrirbolsitas:
Finditem %Bolsitas C
if #Findkind = -1
GoTo inicio: ; return
ignoreitem #FindID bags
set #LObjectID #FindID
event macro 17
wait 20
goto Abrirbolsitas:
Inicio:
gosub comer
gosub cogerBa
gosub cogerBo
gosub cogerM
gosub cogerR
gosub pociones
gosub llenar
gosub dejarBa
gosub seguridad
goto inicio
;*************************************************************************************************
; COMER
;*************************************************************************************************
sub comer
set #LOBJECTID #FINDID
findItem %comida C_ , #BACKPACKID
set #LOBJECTID #FINDID
wait 10
event macro 17
return
;*************************************************************************************************
; COGER BARRILES
;*************************************************************************************************
sub cogerBa
finditem %barril C_ , #BACKPACKID
iF #FINDCNT = 0
{
finditem %barril C_ , %contenedor1
exevent drag #FINDID 1
wait 10
exevent dropc #BACKPACKID
wait 10
}
return
;*************************************************************************************************
; COGER BOTELLAS
;*************************************************************************************************
sub cogerBo
finditem %botellas C_ , #BACKPACKID
if #FINDCNT < 3
{
finditem %botellas C_ , %contenedor1
exevent drag #FINDID 2
exevent dropc #BACKPACKID
wait 5
}
return
;*************************************************************************************************
; COGER MORTEROS
;*************************************************************************************************
sub cogerM
finditem %morteros C_ , #BACKPACKID
iF #FINDCNT < 2
{
finditem %morteros C_
exevent drag #FINDID
exevent dropc #BACKPACKID
wait 5
}
return
;*************************************************************************************************
; COGER REGS
;*************************************************************************************************
sub cogerR
finditem %regs C_ , #BACKPACKID
if #FINDSTACK < 5
{
finditem %regs C_ , %contenedor1
exevent drag #FINDID 50
exevent dropc #BACKPACKID
wait 5
}
return
;*************************************************************************************************
; HACER POCIONES
;*************************************************************************************************
sub pociones
finditem %morteros C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click 64 210
wait 5
click 269 109
wait 2s
return
;*************************************************************************************************
; LLENAR BARRIL
;*************************************************************************************************
sub llenar
FINDITEM %barril , _ , %botellas C_ , #BACKPACKID
for #FINDINDEX 1 #FINDCNT
{
if #FINDTYPE = %barril
set #LOBJECTID #FINDID
if #FINDTYPE = %botellas
set #LTARGETID #FINDID
}
event macro 17
set #LTARGETKIND 1
target
event macro 22 0
wait 10
scanjournal
if lleno in #JOURNAL
{
finditem %barril C_ , #BACKPACKID
exevent drag #FINDID
exevent dropc %contenedor2
wait 20
}
return
;*************************************************************************************************
; CAMBIAR BARRIL
;*************************************************************************************************
sub dejarBa
SCANJOURNAL
if El_barril_esta_lleno. in #JOURNAL
{
finditem %barril C_ , #BACKPACKID
exevent drag #FINDID
wait 10
exevent dropc %contenedor2
wait 10
}
return
;*************************************************************************************************
; SEGURIDAD no perder botellas
;*************************************************************************************************
sub seguridad
if #weight >= %cargamax
{
set #SYSMSGCOL 10
event sysmessage Estás cogiendo demasiados frascos... se acabó el macreo
halt
}
goto Inicio:
de 10,gracias. Love u
Twitter: @Nevil_Gamer
Permisos de publicación
Citar