Buenas a todos,
Os traigo el primer macro que he hecho más en serio...
Me propuse hacerlo al no encontrar ninguno que me funcionara al 100% en el foro. No presumo que este lo haga, pero por ahora llevo 24h ininterrumpidas de macreo sin que de problemas...
He de decir que he aprovechado trozos de código de otros macros, como la parte de meditar del macro de magia hecho por Darksplit en el 2010 o el mismo de inscripción de Overking (la parte de los 3 cofres me la he copiado de ti :P)
Necesitáis 3 cofres, uno con las plumas, otro con los regs (ceniza sulfurosa) y los lotes de pergaminos y un tercero para dejar los pergaminos de flecha mágica.
(si lo váis probando y os da algún error decidmelo y lo intentare solucionar cuanto antes)
Agradecimientos: A Overking y sus macros fáciles de entender, que me han ayudado a adentrarme en easyUO ^^
Código:;================================================== ;INSCRIPTION BY JAVIERCV ;================================================== set #SYSMSGCOL 10 event sysmessage Macro de inscripcion by JavierCV ;CONFIGURACIÓN===================================== set %cofre1 BCCCUOD ;cofre con plumas set %cofre2 JUMDGOD ;cofre con regs y lotes de pergaminos set %cofre3 NNIDGOD ;cofre donde dejar los pergaminos ;================================================== set %regs SZF ;ceniza sulfurosa set %pergamino MMF ;ID pergamino en blanco set %lote MMF ;ID lote de pergaminos en blanco set %pluma CXF_PBG ;ID pluma set %pergaminoFM CYL ;ID pergamino de flecha mágica set %comida YSD_QQD_FUD_HND ;comida ;================================================== set %numRegs 100 ;número de regs a coger set %numLotes 5 ;número de lotes a coger ;================================================== set %lotesgastados 0 ;contador de lotes gastados set %plumasgastados 0 ;contador de plumas gastadas set %regsgastados 0 ;contador de regents gastados set %fmcreados 0 ;contador de pergaminos creados ;================================================== ;UOTITLE INICIAL=================================== chooseskill Insc real set %skillini #skill ;================================================== ;HILO PRINCIPAL DEL MACRO========================== loop: wait 40 gosub uotitle gosub check if #MANA <= 5 { gosub meditar gosub comer } if #WEIGHT >= 200 { gosub dejarpergas } if #WEIGHT >= 350 { gosub seguridad } gosub hacerpergas wait 40 goto loop ;================================================== ;SUB HACER PERGAMINOS============================== sub hacerpergas finditem %pluma C_ , #BACKPACKID set #LOBJECTID #FINDID event macro 17 0 wait 10 finditem %pergamino c_ , #BACKPACKID set #LOBJECTID #FINDID event macro 17 0 click 65 130 ;primer circulo wait 3s for %x 1 9 { click 274 190 ;flecha mágica wait 5s set %fmcreados %fmcreados + 1 } return ;================================================== ;SUB DEJAR PERGAMINOS============================== sub dejarpergas findItem %pergaminoFM C_ , #BACKPACKID if #findcnt > 0 { exevent drag #FINDID #FINDSTACK wait 10 Exevent Dropc %cofre3 wait 10 gosub dejarpergas } return ;================================================== ;SUB MEDITAR======================================= sub meditar repeat { event macro 13 46 if pierdes in #journal { gosub meditar ; Meditamos hasta que no perdamos la concentración } if trance in #journal repeat { wait 40 event macro 13 46 ; Aseguramos que mientras meditemos no perdamos la concentración. Así que cada 2 segundos meditará. } until #mana = #int } } until #mana = #int return ;================================================== ;SUB CHECK========================================= sub check ;¿TIENE REGS? finditem %regs C_ , #BACKPACKID if #FINDSTACK < 5 { set #LOBJECTID %cofre2 event macro 17 0 finditem %regs C_ , %cofre2 exevent drag #FINDID %numRegs wait 10 exevent dropc #BACKPACKID wait 10 set %regsgastados %regsgastados + %numRegs } ;¿TIENE LOTES? finditem %lote C_ , #BACKPACKID if #FINDSTACK = 0 { set #LOBJECTID %cofre2 event macro 17 0 finditem %lote C_ , %cofre2 exevent drag #FINDID %numLotes wait 10 exevent dropc #BACKPACKID wait 10 for %i 1 7 { finditem %lote C_ , #BACKPACKID set #LOBJECTID #FINDID event macro 17 0 wait 10 } set %lotesgastados %lotesgastados + %numLotes } ;¿TIENE PLUMAS? finditem %pluma C_ , #BACKPACKID if #FINDSTACK = 0 { set #LOBJECTID %cofre1 event macro 17 0 finditem %pluma C_ , %cofre1 exevent drag #FINDID wait 10 exevent dropc #BACKPACKID wait 10 event macro 17 0 wait 10 set %plumasgastados %plumasgastados + 1 } return ;================================================== ;SUB COMER========================================= sub comer findItem %comida C_ , #BACKPACKID set #LOBJECTID #FINDID wait 10 event macro 17 return ;================================================== ;SEGURIDAD========================================= sub seguridad ;si por algún motivo el peso llegara a ser excesivo, mueve todos los pergaminos de la mochila al cofre de las plumas findItem %pergamino C_ , #BACKPACKID if #findcnt > 0 { exevent drag #FINDID #FINDSTACK wait 10 Exevent Dropc %cofre1 wait 10 } return ;================================================== ;UOTITLE ========================================== sub uotitle chooseskill Insc real set %skillact #skill setuotitle Inscripción [ Ini: %skillini | Actual: %skillact ] || [ Lotes: %lotesgastados | Regs: %regsgastados | Plumas: %plumasgastados | FM creados: %fmcreados ] return ;==================================================
Citar
