vereis estoy subiendo robar en un npc de papua, lo arrastro asta la zona de guards i se keda en una linea ke no pasa, me koloko a dos pasos para ke no me atake i pongo la macro en marcha.
ago todo los pasos ke me die i el problema es de ke aparte de no subir ni o.1 me pierde las monedas de oro kon el tiempo a los 34 intentos por lo menos.
no kreo ke sea por komida antes de ponerla me komi un cerdo.
;Macro robar y fisgonear:
; Macro by Alex (Ultima Alianza)
; Para subir robar y fisgonear, mediante un NPC.
; Solamente necesitas un monton de dinero en tu mochila (100-200)
; Debemos estasral lado de un NPC que acepte dinero.
; Al iniciar la macro debemos configurar primero la mochila del NPC. Le hacemos dos clicks y presionamos ESC.
; Seguidamente debemos poner el cursor encima del NPC y presionar ESC.
; Tendremos que seleccionar un lugar del suelo para ir dejando dinero.
; La macro empezará a robar.
; IMPORTANTE: Situaros a dos pasos del NPC u os atacará.
initevents
chooseskill STEA real
set %skillrini #SKILL
set %moneda POF
configurar:
if %confp = 1 || %confp = N/A
{
event sysmessage Dale dos clicks a la mochila del NPC al que hay que abrirle la mochila y darle el dinero.
event sysmessage Y presiona la tecla ESC
setuotitle Intenta abrir la mochila del NPC y presiona ESC
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
setuotitle Pon el cursor encima del NPC al que quieres robarle y presiona ESC
event sysmessage Pon el cursor encima del NPC al que quieres robar
event sysmessage Y presiona la tecla ESC
set %conf 2
set %confp 3
goto TESC
}
if %confp = 3
{
setuotitle Pon el cursor en un lugar en el suelo despejado y presiona ESC
event sysmessage Pon el cursor en un lugar despejado a tu lado
event sysmessage Y presiona la tecla ESC
set %conf 3
set %confp 4
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %bolsa #LOBJECTID
goto configurar
}
if %conf = 2
{
set %npcx #CURSORX
set %npcy #CURSORY
set %vez 0
goto configurar
}
if %conf = 3
{
set %suelox #CURSORX
set %sueloy #CURSORY
goto empezar
}
}
goto TESC
empezar:
set %cmsg #JIndex
findItem %moneda C_ , #BACKPACKID
event drag #FINDID
wait 10
msg 100 $
wait 10
click %suelox %sueloy p
wait 20
set %fmsg #JIndex
for %cmsg %fmsg
{
scanjournal %i
if No_Puedes_mover_eso in #JOURNAL
{
wait 5s
goto empezar
}
}
robar:
set %skillinc #SKILL - %skillrini
setuotitle SKILL DE ROBAR | S. INICIAL: %skillrini | S. ACTUAL #SKILL | S. INC %skillinc | Veces: %vez
set #LOBJECTID %bolsa
event macro 17
wait 80
findItem %moneda C_ , %bolsa
if #FINDCNT = 0
{
set %dejar 1
}
findItem %moneda G_3
if #FINDCNT = 0 && %dejar = 1
{
set %dejar 0
event sysmessage Esperando 60 segundos para poder dejar mas monedas en el suelo!
setuotitle Esperando 60 segundos para dejar monedas en el suelo.
wait 65s
goto empezar
}
event drag #FINDID
wait 10
msg 1 $
wait 10
click %npcx %npcy p
wait 10
findItem %moneda C_ , %bolsa
if #FINDSTACK = 0
{
goto robar
}
set #LTARGETID #FINDID
set #lTargetKind 1
event macro 13 33
wait 10
event macro 22
wait 10
set %vez %vez + 1
goto robar
Espero buestra ayuda
PD:Seria posible modificar algo de la macro para ke solo robara no fisgoneara, eria mas komodo aparte ke el fisgonear sube bien kon autopilot.
Citar
