Esta macro no es mia pero la modifique para adaptarla a mis necesidades de Haven. Allí al no haber sistema de recompensa al lado del yunque no funcionaban las normales asi que hice que los packs de dagas simplemente los pusiese en el banco para luego cambiarlos por tickets a mano.
De todos modos se puede utilizar en un cofre de una casa modificando el limite de skill a 1000 y poniendo las otras preguntas "no".
Que la disfruten y cualquier problema que encuentren diganmelo.
Agradecer a Boxer la paciencia que tuvo conmigo :P
Código:;------------------------------------------ ; Macro crafted by SirRasel & Glacius [BdK] ; Retocada por Alex y BoXeR y más tarde Cupitan ; ; Para no ser expulsado y que llame a guardias: ; Extraido de la macro de Akelos. ; ; Coge los lingotes directamente del banco ; Fabrica dagas y hace lotes de 15 dagas ; Que vuelve a dejar en el banco o en un cofre ; Además de fabricar martillos. ; Estas en el Heaven y quieres evitar ser expulsado? si / no ;-------------------------- set %HeavenGuardian si ;-------------------------- ; ; En Ultima Alianza el limite de skill es 650 reales (poner 1000 si estais fuera de Haven) ;-------------------------- set %LimiteSkill 650 ;-------------------------- ; ; Quieres llamar a los guardias en caso de ser atacado y ; si / no ;-------------------------- set %HpScanning si ;-------------------------- init events ;============================================================================================================== ;=========== VARIABLES ======================================================================================== ;============================================================================================================== chooseskill blac real set %skillini #skill set %martillo TLH set %daga TSF set %lingotes RMK set %lotex 113 set %lotey 62 set %idlote CKF set %pap BKF set %gumpx1 94 set %gumpy1 172 set %gumpx2 305 set %gumpy2 343 set %dagax1 271 set %dagay1 67 set %dagax2 250 set %dagay2 67 set %dagax3 66 set %dagay3 67 set %martillox1 271 set %martilloy1 67 set %martillox2 250 set %martilloy2 67 set %martillox3 153 set %martilloy3 67 ;============================================================================================================== ;============================================================================================================== ;=========== OPCIONES PREVIAS ================================================================================= display Ok abre el cofre donde esten los materiales wait 3s set %cofre #lobjectid set %cofrex #cursorx set %cofrey #cursory display Ok pon el cursor en el sitio del banco o del cofre donde va a dejar los packs de dagas wait 3s set %bancox #cursorx set %bancoy #cursory display Ok pon el cursor en la mochila de la foto del personaje wait 3s set %backpackx #cursorx set %backpacky #cursory ; Inicializando Variables y comprobaciones previas ;------------------------------------------ chooseskill Blac real set %skillini #skill if ( %HeavenGuardian = si ) goSub CheckSkillStatus wait 10 event Macro 8 2 ;Open Status wait 10 event Macro 8 7 ;Open Backpack wait 10 set %CallGuarslIfLowerThan ( #MAXHITS - 10 ) if ( #TARGCURS = 1 ) set #TARGCURS 0 ;============================================================================================================== ;=========== INICIO DE LA MACRO =============================================================================== ;============================================================================================================== event SysMessage - Iniciando macro de Herreria modificada por Cupitan. Disfrutala #CHARNAME finditem %martillo c_ , #BACKPACKID if #findKind = -1 { HALT } set #LOBJECTID #FINDID event macro 17 0 target key ESC inicio: finditem %lingotes c_ , #BACKPACKID if #findStack <= 20 { goSub CojerLingotes finditem %lingotes c_ , #BACKPACKID } set #LOBJECTID #FINDID event macro 17 0 wait 40 click %dagax1 %dagay1 f wait 20 click %dagax2 %dagay2 d wait 20 click %dagax3 %dagay3 d wait 20 { set %dagax4b 140 set %dagay4b 62 click %dagax4b %dagay4b d } wait 3s set %skillinc #SKILL - %skillini finditem %lingotes C_ , %cofre set %lingotescofre #FINDSTACK finditem %daga c_ , #BACKPACKID set %dagamochila #findCnt { setuotitle ------------< | Macro de Herrero | S.Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc | Lingotes que te quedan: %lingotescofre | Dagas mochila: %dagamochila | >------------ } finditem %daga c_ , #BACKPACKID if #findCnt >= 15 { goSub PackDagas gosub Guardarlote } goto inicio: ;============================================================================================================== ;=========== SUB COJER LINGOTES================================================================================ ;============================================================================================================== Sub CojerLingotes finditem %lingotes c_ , %cofre if #findkind = -1 { ignoreitem reset HALT } set %carga #maxweight - #weight set %carga %carga / 2 set %carga %carga + 1 if %carga <= 1 { if %carga < 0 { return } else { set %carga 2 } } event drag #findid wait 10 msg %carga msg $ wait 10 click %backpackx %backpacky p return ;============================================================================================================== ;=========== SUB FABRICAR MARTILLO ============================================================================ ;============================================================================================================== Sub FabricarMartillo martillo: finditem %lingotes c_ , #BACKPACKID if #findStack <= 20 { goSub CojerLingotes finditem %lingotes c_ , #BACKPACKID } set #LOBJECTID #FINDID event macro 17 0 wait 40 click %martillox1 %martilloy1 f wait 30 click %martillox2 %martilloy2 d wait 30 click %martillox3 %martilloy3 d wait 30 { set %martillox4b 155 set %martilloy4b 67 click %martillox4b %martilloy4b d } wait 4s finditem %martillo c_ , #BACKPACKID if #findCnt <= 3 { return } goto martillo ;============================================================================================================== ;=========== SUB PACK DE DAGAS ================================================================================ ;============================================================================================================== Sub PackDagas findItem %martillo C_ , #BACKPACKID if #findCnt < 3 { gosub FabricarMartillo findItem %martillo C_ , #BACKPACKID } set #LOBJECTID #FINDID event macro 17 0 target key ESC finditem %lingotes c_ , #BACKPACKID if #findStack <= 20 { goSub CojerLingotes finditem %lingotes c_ , #BACKPACKID } set #LOBJECTID #FINDID event macro 17 0 click %lotex %lotey d wait 10 return ;============================================================================================================== ;=========== SUB DEJAR PACK DE DAGAS ========================================================================== ;============================================================================================================== sub Guardarlote dejar: findItem %idlote C_ , #BACKPACKID if #findkind <> -1 { event drag #FINDID wait 10 click %bancox %bancoy p gosub Guardarlote } return ;------------------------------------------ ; ; Comprueba si la skill de Herrería debe estar en Up o Bloqueada, ; cualquier otro estado sera modificado ;------------------------------------------ sub CheckSkillStatus if #skillLock = down || #skillLock = up { goSub HeavenGuardian if #skillLock = down Exevent skilllock blac up } return ;------------------------------------------ ; ; ; Macro que evitara que nuestro personaje sea expulsado ; del queridisimo Heaven segun lo especificado en %LimiteSkill ;------------------------------------------ Sub HeavenGuardian if ( #SKILL >= %LimiteSkill ) && ( #skillLock <> locked ) { Exevent skilllock blac locked if #skillLock <> locked { event SysMessage - Skill Herreria no pudo ser bloqueada. Se ha pausado el EUO, bloqueala manualmente y dale a Play pause } event sysmessage - Alcanzado el limite de skill ( %LimiteSkill ) para el Heaven event SysMessage - Skill Herreria ha sido bloqueada } return ;------------------------------------------ ; ; ; Macro para llamar a los guardias en caso de ser atacado y ; aplicar vendas hasta que sea necesario ;------------------------------------------ Sub UnderAttack if ( #hits < %CallGuarslIfLowerThan ) { msg Guards$ ;============================================================================================================== ;======================================== FIN ================================================================= ;=================================================================================================
Citar
