Buenas a todos!
Hoy os dejo una macro que hice cuando intente hacerme un herrero.
La macro esta pensada para utilizarse en heaven en la tienda que hay a la izquierda del banco que tiene una forja. Hace dagas, las vende cuando llega a cierto numero y cuando se queda sin lingotes se va al banco a por mas.
He de avisar que la macro no esta probada al 100% a veces el pj se quedaba bloqueado
al intentar abrir la puerta de la herreria y tambien tenia problemas al guardar el dinero en el banco.
Poneros al lado de la forja mencionada, con lingotes en la mochila y en el banco y darle al play.l
Si alguien la necesita y la mejora que la postee de nuevo
Código:;************************************************************************************************* ;Macro de herreria en heaven por Haidey / Johnny Beretta ;************************************************************************************************* ;********************CONFIGURACION************************************************** ;Vender dagas es el numero de dagas que hara antes de venderlas set %vender_dagas 20 ;cuando el numero de lingotes de la mochila sea menor o igual ; a min_lingotes el pj ira al banco a por mas set %min_lingotes 10 ;*******************FIN CONFIGURACION******************************************* chooseskill blac real set %blac_ini #skill set %daga TSF set %vendorx 4442 set %vendory 1162 set %forjax 4440 set %forjay 1155 set %lingotes RMK set %pdx 4440 set %pdy 1166 set %pfx 4440 set %pfy 1168 set %puertacdx 366 set %puertacdy 265 set %puertacfx 412 set %puertacfy 240 move %forjax %forjay a wait 10 ;------------------------------------------------------------ main: event macro 17 0 wait 40 click 266 66 f wait 20 click 245 64 d wait 20 click 65 63 d wait 20 click 93 61 d wait 6s gosub venta gosub checkBanco gosub status goto main ;------------------------------------------------------------------------------------- sub venta FINDITEM %daga C_ , #BACKPACKID IF #FINDCNT >= %vender_dagas { move 4442 1159 a move %vendorx %vendory a msg Rodman sell$ wait 2s click 402 538 wait 2s click 402 538 wait 2s click 402 538 wait 2s click 402 538 wait 2s click 378 211 wait 2s click 600 533 wait 2s move 4442 1159 a move %forjax %forjay a } return sub checkBanco FINDITEM %lingotes C_ , #BACKPACKID IF #FINDSTACK < %min_lingotes gosub banco } return sub banco move 4442 1159 a move %pdx %pdy a wait 10 click %puertacdx %puertacdy d wait 10 move 4466 1170 msg $ bank $ wait 10 contpos 10 10 click 930 215 wait 10 event drag NFACDPD wait 10 KEY ENTER wait 10 click 120 122 p wait 1s event drag FQMDDPD wait 20 msg 100 $ wait 20 click 930 215 p wait 20 move %pfx %pfy a wait 20 click %puertacfx %puertacfy d wait 10 move 4442 1159 a move %forjax %forjay a return sub status chooseskill blac real set %blac_gain #skill - %blac_ini SetUoTitle He ganado : %blac_gain de Herreria return
Citar
