lo dixo si alguien me exa una mano con la macro de bow k tengo se lo agradeceria un monton y dios se lo pagara jeje esta es la macro k tengo y se me para cuando lo ago todo me dise k no tiene dagas....si alguien me puede exar una mano se lo agradeceria un monton gracias
;==================================
; Script: Bowcraft
; Autor: Aloisia
; Version: 1.0
; Cliente: 2.0.3
; Fecha del script: 05 Febrero 2010
; Finalidad: Hace astiles de flecha para subir el bowcraft.
;==================================
;Para la siguiente macro necesitas:
;1.- Una bolsa con dagas (herramienta indispensable)
;2.- Una bolsa con un sólo tronco (no puede estar en tu mochila)
;3.- Una bolsa donde esté la madera
;Las dagas y la madera pueden estar en la misma bolsa, eso al gusto del consumidor.
;El tronco separado ha de estar sin más madera en esa bolsa.
;La macro dejará los ástiles de flecha en donde nosotros le mandemos.
;Si no queda madera o dagas, la macro se detiene.
initevents
set %daga TSF
set %tronco ZLK
set %astil SLK
set %confp 1
set %comida YSD_QQD ;Peras, Manzanas
chooseskill bowc real
set %skillini #skill
configurar:
if %confp = 1
{
Event sysmessage Primero has de abrir el cofre/bolsa donde se encuentran los troncos.
event sysmessage Y presiona la tecla ESC
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
event sysmessage Pon el cursor sobre tu mochila en tu hoja de personaje.
event sysmessage Y presiona la tecla ESC
set %conf 2
set %confp 3
goto TESC
}
if %confp = 3
{
event sysmessage Pon el cursor donde quieras dejar los ástiles
event sysmessage Y presiona la tecla ESC
set %conf 3
set %confp 4
goto TESC
}
if %confp = 4
{
event sysmessage Abre el contenedor donde tengas las dagas
event sysmessage Y presiona la tecla ESC
set %conf 4
set %confp 5
goto TESC
}
if %confp = 5
{
event macro 13 30
TARGET
event sysmessage Targetea el tronco que esta solo en un contenedor.
event sysmessage Recuerda que dicho contenedor no puede estar en tu mochila
event sysmessage Y presiona la tecla ESC
set %conf 5
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
set %cofrex #CURSORX
set %cofrey #CURSORY
goto configurar
}
if %conf = 2
{
set %mochilax #CURSORX
set %mochilay #CURSORY
goto configurar
}
if %conf = 3
{
set %dejarx #CURSORX
set %dejary #CURSORY
goto configurar
}
if %conf = 4
{
set %bolsa #LOBJECTID
goto configurar
}
if %conf = 5
{
set %tronquito #LTARGETID
goto inicio
}
}
goto TESC
inicio:
set %skillinc #SKILL - %skillini
setuotitle Bowcraft: #SKILL ( %skillinc )
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
set #LOBJECTID #FINDID
event macro 17
}
findItem %daga C_ , #CHARID
if #findcnt < 1
{
findItem %daga C_ , #BACKPACKID
if #findcnt < 1
{
goto cogerdaga
}
set #LOBJECTID #FINDID
wait 10
event macro 17
wait 1s
Key ESC
}
findItem %tronco C_ , #BACKPACKID
if #findstack < 5
{
goto cogermadera
}
findItem %astil C_ , #BACKPACKID
if #findstack > 100 ; tras hacer 100 astiles los deja en el lugar indicado
{
goto dejarastil
}
finditem %daga C_ , #CHARID
set #LOBJECTID #FINDID
event macro 17
wait 20
set #LTARGETID %tronquito
event macro 22
wait 20
click 110 65 d
wait 10
goto inicio
dejarastil:
findItem %astil C_ , #BACKPACKID
event drag #FINDID
wait 20
msg $
wait 20
click %dejarx %dejary p
wait 1s
goto inicio
cogermadera:
findItem %tronco C_ , %cofre
if #Findstack = 0
{
msg halt madera $
halt
}
IF #weight > 220
{
msg Parando macro exceso de peso.
wait 10
msg $
halt
}
event drag #FINDID
wait 20
msg 50 $ ; coge de 50 en 50 troncos
wait 20
click %mochilax %mochilay p
wait 1s
goto inicio
cogerdaga:
findItem %daga C_ , %bolsa
set %tools #findcnt
if %tools = 0
{
msg No quedan dagas $
halt
}
event drag #FINDID
wait 10
click %mochilax %mochilay p
wait 10
goto inicio
Citar
