Modificando macro escriba...

**OverQueen** · 08-Nov-2016

Solo he visto una macro circulando por el foro y fabrica pocos tipos de perga, se ve que es por el perga rúnico, no tengo ni idea de lo que es eso xD. Yo quería hacer pergas de In Por Ylem, porque son baratos (solo gastan un reg) y no necesito controlar cuantos compro porque los que me sobren los usaré para resist.

¿hago bien?¿o debería craftear otro tipo de pergamino?

He añadido unas líneas a la macro que he visto por el foro para que me haga este perga, pero tengo varios problemas:
1. Iniciar la macro hace que se me cuelgue el cliente a los segundos, con suerte dura un minuto on
2. Me gustaría que la macro cogiera las plumas de una bolsa dentro del contenedor (porque así voy al vendor y las compro directamente dentro de una bolsa)

Código:

;MACRO REALIZAR PERGAS PARA PERGAMINO RUNICO
;HAY 6 PERGAS QUE SE FABRICAN PARA EL PERGAMINO RUNICO
;================================================= ================================================
;SELECCIONAR EL NUMERO DE PERGA QUE QUEREMOS EN PERGASELECCION
;SELECCIONAR EL NUMERO DE PERGA QUE QUEREMOS EN PERGASELECCION
;Para perga proteccion: 1
;Para perga quitar trampa: 2
;Para perga teletransportarse: 3
;Para perga drenar mana; 4
;Para perga espejo majico; 5
;para perga armadura reactiva: 6
;Para Perga envenenar: 7
;Para perga convocar criatura: 8
;Para perga flecha mágica: 9

set %pergaseleccion 9

;Ids de los regs identificados del 1 al 8
set %1 SZF ;cenizas
set %2 KZF ;ajo
set %3 MZF ;raiz mandragora
set %4 JZF ;ginseng
set %5 KUF ;perla
set %6 WZF ;belladona
set %7 JUF ;musgo de sangre
set %8 RZF ;seda

;variables a tocar
set %pergaminos_hechos EUL_CYL ;falta poner el id del de rayo
set %cofre WZTXAPD ; ID cofre de los regs,pergas y plumas
set %cofre2 WZTXAPD ;ID cofre en el que los guarda
set %plumas CXF_PBG
set %pergas MMF
set %manaminima 50
set %numeroregs 50


;Círculos:
set %pos1x 65 ;Primer circulo "X"
set %pos1y 130 ;Primer circulo "Y"
set %pos2x 65 ;Segundo circulo "X"
set %pos2y 149 ;Segundo circulo "Y"
set %pos3x 65 ;Tercer circulo "X"
set %pos3y 168 ;Tercer circulo "Y"
set %pos4x 65 ;Cuarto circulo "X"
set %pos4y 187 ;Cuarto circulo "Y"
set %pos5x 65 ;Quinto circulo "X"
set %pos5y 209 ;Quinto circulo "Y"
set %pos6x 65 ;Sexto circulo "X"
set %pos6y 227 ;Sexto circulo "Y"
set %pos7x 65 ;Septimo circulo "X"
set %pos7y 248 ;Septimo circulo "Y"
set %pos8x 65 ;Octavo circulo "X"
set %pos8y 268 ;Octavo circulo "Y"

;cliks para fabricar los pergas
set %protx 270
set %proty 230
set %quitx 270
set %quity 210
set %telex 276
set %teley 205
set %drenx 273
set %dreny 230
set %espex 274
set %espey 172
set %armax 271
set %armay 230
set %envex 273
set %envey 170
set %convx 272
set %convy 249
set %inporx 274
set %inpory 190



inicio:
if %pergaseleccion = 1
{
goto proteccion:
}
if %pergaseleccion = 2
{
goto QuitarTrampa:
}
if %pergaseleccion = 3
{
goto Teletransportarse:
}
if %pergaseleccion = 4
{
goto DrenarMana:
}
if %pergaseleccion = 5
{
goto espejoMajico:
}
if %pergaseleccion = 6
{
goto ArmaduraReactiva:
}
if %pergaseleccion = 7
{
goto Envenenar:
}
if %pergaseleccion = 8
{
goto ConvocarCriatura:
}
if %pergaseleccion = 9
{
goto InPorYlem:
}
goto inicio:

inporylem:
set %regs1 1
goto seguridad:

sub inporylem:
set #SYSMSGCOL 1100
event sysmessage ================
event sysmessage HAS ELEGIDO FLECHA MAGICA
event sysmessage fabricando perga
event sysmessage ================
finditem %pergas c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click %pos1x %pos1y
wait 5
click %inporx %inpory
wait 5s
gosub check:

proteccion:
set %regs1 1
set %regs2 2
set %regs3 4
goto seguridad:

sub proteccionfabricar:
set #SYSMSGCOL 1100
event sysmessage ================
event sysmessage HAS ELEGIDO PROTECCION
event sysmessage fabricando perga
event sysmessage ================
finditem %pergas c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click %pos2x %pos2y
wait 5
click %protx %proty
wait 5s
gosub check:

QuitarTrampa:
set %regs1 7
set %regs2 1
goto seguridad:

sub QuitarTrampafabricar:
set #SYSMSGCOL 1100
event sysmessage ================
event sysmessage HAS ELEGIDO QUITAR TRAMPA
event sysmessage fabricando perga
event sysmessage ================
finditem %pergas c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click %pos2x %pos2y
wait 5
click %quitx %quity
wait 5s
gosub check:

Teletransportarse:
set %regs1 7
set %regs2 3
goto seguridad:

sub Teletransportarsefabricar:
set #SYSMSGCOL 1100
event sysmessage ================
event sysmessage HAS ELEGIDO TELETRANSPORTARSE
event sysmessage fabricando perga
event sysmessage ================
finditem %pergas c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click %pos3x %pos3y
wait 5
click %telex %teley
wait 5s
gosub check:

DrenarMana:
set %regs1 5
set %regs2 3
set %regs3 8
goto seguridad:

sub DrenarManafabricar:
set #SYSMSGCOL 1100
event sysmessage ================
event sysmessage HAS ELEGIDO DRENAR MANA
event sysmessage fabricando perga
event sysmessage ================
finditem %pergas c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click %pos4x %pos4y
wait 5
click %drenx %dreny
wait 5s
gosub check:

espejoMajico:
set %regs1 2
set %regs2 3
set %regs3 8
goto seguridad:

sub espejoMajicofabricar:
set #SYSMSGCOL 1100
event sysmessage ================
event sysmessage HAS ELEGIDO ESPEJO MAJICO
event sysmessage fabricando perga
event sysmessage ================
finditem %pergas c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click %pos5x %pos5y
wait 5
click %espex %espey
wait 5s
gosub check:

ArmaduraReactiva:
set %regs1 1
set %regs2 2
set %regs3 8
goto seguridad:

sub ArmaduraReactivafabricar:
set #SYSMSGCOL 1100
event sysmessage ================
event sysmessage HAS ELEGIDO ARMADURA REACTIVA
event sysmessage fabricando perga
event sysmessage ================
finditem %pergas c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click %pos1x %pos1y
wait 5
click %armax %armay
wait 5s
gosub check:

Envenenar:
set %regs1 6
goto seguridad:

sub Envenenarfabricar:
set #SYSMSGCOL 1100
event sysmessage ================
event sysmessage HAS ELEGIDO ENVENENAR
event sysmessage fabricando perga
event sysmessage ================
finditem %pergas c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click %pos3x %pos3y
wait 5
click %envex %envey
wait 5s
gosub check:

ConvocarCriatura:
set %regs1 7
set %regs2 3
set %regs3 8
goto seguridad:

sub ConvocarCriaturafabricar:
set #SYSMSGCOL 1100
event sysmessage ================
event sysmessage HAS ELEGIDO CONVOCAR CRIATURA
event sysmessage fabricando perga
event sysmessage ================
finditem %pergas c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click %pos5x %pos5y
wait 5
click %convx %convy
wait 5s
gosub check:


sub regs:
set #SYSMSGCOL 1100
event sysmessage ================
event sysmessage cogiendo Regs....
gosub regs1:
event sysmessage ================


sub regs1:
if %regs1 = 1
{
finditem %1 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo cenizas
finditem %1 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs2:
}
}
if %regs1 = 2
{
finditem %2 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo ajo
finditem %2 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs2:
}
}
if %regs1 = 3
{
finditem %3 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo raiz
finditem %3 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs2:
}
}
if %regs1 = 4
{
finditem %4 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo ginseng
finditem %4 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs2:
}
}
if %regs1 = 5
{
finditem %5 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo perla
finditem %5 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs2:
}
}
if %regs1 = 6
{
finditem %6 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo belladona
finditem %6 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs2:
}
}
if %regs1 = 7
{
finditem %7 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo musgo
finditem %7 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs2:
}
}
if %regs1 = 8
{
finditem %8 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo seda
finditem %8 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs2:
}
}
gosub regs2:

sub regs2:
if %regs2 = 1
{
finditem %1 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo cenizas
finditem %1 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs3:
}
}
if %regs2 = 2
{
finditem %2 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo ajo
finditem %2 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs3:
}
}
if %regs2 = 3
{
finditem %3 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo raiz
finditem %3 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs3:
}
}
if %regs2 = 4
{
finditem %4 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo ginseng
finditem %4 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs3:
}
}
if %regs2 = 5
{
finditem %5 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo perla
finditem %5 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs3:
}
}
if %regs2 = 6
{
finditem %6 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo belladona
finditem %6 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs3:
}
}
if %regs2 = 7
{
finditem %7 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo musgo
finditem %7 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs3:
}
}
if %regs2 = 8
{
finditem %8 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo seda
finditem %8 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs3:
}
}
gosub regs3:

sub regs3:
if %regs3 = 1
{
finditem %1 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo cenizas
finditem %1 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs4:
}
}
if %regs3 = 2
{
finditem %2 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo ajo
finditem %2 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs4:
}
}
if %regs3 = 3
{
finditem %3 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo raiz
finditem %3 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs4:
}
}
if %regs3 = 4
{
finditem %3 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo ginseng
finditem %4 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs4:
}
}
if %regs3 = 5
{
finditem %5 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo perla
finditem %5 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs4:
}
}
if %regs3 = 6
{
finditem %6 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo belladona
finditem %6 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs4:
}
}
if %regs3 = 7
{
finditem %7 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo musgo
finditem %7 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs4:
}
}
if %regs3 = 8
{
finditem %8 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo seda
finditem %8 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
gosub regs4:
}
}
gosub regs4:

sub regs4:
if %regs4 = 1
{
finditem %1 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo cenizas
finditem %1 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
goto seguridad2:
}
}
if %regs4 = 2
{
finditem %2 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo ajo
finditem %2 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
goto seguridad2:
}
}
if %regs4 = 3
{
finditem %3 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo raiz
finditem %3 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
goto seguridad2:
}
}
if %regs4 = 4
{
finditem %4 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo ginseng
finditem %4 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
goto seguridad2:
}
}
if %regs4 = 5
{
finditem %5 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo perla
finditem %5 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
goto seguridad2:
}
}
if %regs4 = 6
{
finditem %6 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo belladona
finditem %6 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
goto seguridad2:
}
}
if %regs4 = 7
{
finditem %7 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo musgo
finditem %7 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
goto seguridad2:
}
}
if %regs4 = 8
{
finditem %8 C_ , #BACKPACKID
if #FINDSTACK <= 5
{
event sysmessage cogiendo seda
finditem %8 C_ , %cofre
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 15
goto seguridad2:
}
}
goto seguridad2:

sub check:
if #MANA <= %manaminima
{
gosub meditar:
}
gosub guardar:

sub plumas:
event sysmessage plumas.....
finditem %plumas c_ , #BACKPACKID
IF #FINDCNT <= 2
{
finditem %plumas c_ , %cofre
exevent drag #FINDID
wait 7
exevent dropc #BACKPACKID
wait 10
goto plumas
}
return

sub pergas:
event sysmessage pergas.....
finditem %pergas C_ , #BACKPACKID
IF #findStack <= 20
{
finditem %pergas C_ , %cofre
exevent drag #FINDID 150
wait 7
exevent dropc #BACKPACKID
wait 10
}
return

sub guardar:
event sysmessage guardando
finditem %pergaminos_hechos c_ , #BACKPACKID
if #FINDSTACK >= 1
{
finditem %pergaminos_hechos C_ , #BACKPACKID
exevent drag #FINDID #FINDSTACK
wait 10
exevent dropc %cofre2
wait 20
}
goto seguridad2:

sub meditar:
event sysmessage meditando
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
goto seguridad:

seguridad:
event sysmessage iniciando comprobacion
gosub plumas:
gosub pergas:
gosub regs:

seguridad2:
event sysmessage terminado de comprobar componentes
if %pergaseleccion = 1
{
gosub proteccionfabricar:
}
if %pergaseleccion = 2
{
gosub QuitarTrampafabricar:
}
if %pergaseleccion = 3
{
gosub Teletransportarsefabricar:
}
if %pergaseleccion = 4
{
gosub DrenarManafabricar:
}
if %pergaseleccion = 5
{
gosub espejoMajicofabricar:
}
if %pergaseleccion = 6
{
gosub ArmaduraReactivafabricar:
}
if %pergaseleccion = 7
{
gosub Envenenarfabricar:
}
if %pergaseleccion = 8
{
gosub ConvocarCriaturafabricar:
}
if %pergaseleccion = 9
{
gosub InPorYlem:
}
goto seguridad2:

Además, para evitar el conflicto de ID entre el lote de pergaminos y los pergaminos en si, intentaré meter al principio la macro que creé para un usuario no hace mucho

Código:

;*************************************************************************************************
;Macro ABRIR LOTES DE PERGAS by OverQueen
;*************************************************************************************************
set #SYSMSGCOL 10
event sysmessage Macro para abrir lotes by OverQueen

;*************************************************************************************************
;            CONFIGURACIONES (EDITAR)
;*************************************************************************************************
set %contenedorlotes XXXXXXX ; cambiar las X por la ID del cofre con lotes
set %contenedorpergas XXXXXXX ; cambiar las X por la ID del cofre para los pergas

;*************************************************************************************************
;                MACRO (NO TOCAR)
;*************************************************************************************************
set %lote MMF
set %pergas MMF

Inicio:
Gosub Cogerlotes
Gosub Abrirlotes
GoSub Dejarpergas
Goto Inicio

Sub Cogerlotes
FindItem %lote C_ , #backpackid
if #findcnt < 1
{
set #lobjectid %contenedorlotes
event macro 17
wait 5
FindItem %lote C_ , %contenedorlotes
Exevent Drag #findid #findcnt
wait 5
Exevent DRopc #backpackid
wait 10
}
return

Sub Abrirlotes
FindItem %lote C_ , #backpackid
   set #LOBJECTID #FINDID
   event macro 17
   wait 20
return

Sub Dejarpergas
FindItem %pergas C_ , #backpackid
set #lobjectid %pergas
Exevent Drag #findid #findstack
wait 5
Exevent DRopc %contenedorpergas
wait 10
return

**Baeson** · 08-Nov-2016

La macro de abrir lotes de pergaminos no me fue bien, abre unos cuantos pero luego se vuelve loca y solo mueve los lotes o va cojiendo lotes y se le van cayendo al suelo por el peso, solo que no te dije nada porque tenía sueño y ya se me olvidó jeje.

Enviado desde mi ZTE Blade S6 Flex mediante Tapatalk

**OverQueen** · 08-Nov-2016

Ésta noche te lo miro porque, como ves, ahora mismo a mi también me interesa xD

Me extraña que con tanto wait de por medio la macro se líe y que te tire lotes con un if #findcnt < 1 antes de iniciar el sub CogerLotes :S meteré un sub ComprobarPeso a ver si lo soluciona .

**Baeson** · 08-Nov-2016

Okey

Enviado desde mi ZTE Blade S6 Flex mediante Tapatalk

**OverQueen** · 08-Nov-2016

He puesto un rato la macro, he abierto 300 lotes de un cofre y me ha dejado en el otro 1.188/1.200 pergas, el único error es que ha habido 3 lotes que no me los ha abierto y me los ha movido directamente al cofre de los pergaminos.
Supongo que (por lag o lo que sea) al juego no le hadado tiempo a reaccionar al doble clic al lote antes de que lo moviera al cofre, para solucionarlo añade lo que he puesto en rojo:

;*************************************************************************************************
;Macro ABRIR LOTES DE PERGAS by OverQueen
;*************************************************************************************************
set #SYSMSGCOL 10
event sysmessage Macro para abrir lotes by OverQueen

;*************************************************************************************************
; CONFIGURACIONES (EDITAR)
;*************************************************************************************************
set %contenedorlotes XXXXXXX ; cambiar las X por la ID del cofre con lotes
set %contenedorpergas XXXXXXX ; cambiar las X por la ID del cofre para los pergas

;*************************************************************************************************
; MACRO (NO TOCAR)
;*************************************************************************************************
set %lote MMF
set %pergas MMF

Inicio:
Gosub Cogerlotes
Gosub Abrirlotes
GoSub Dejarpergas
Goto Inicio

Sub Cogerlotes
FindItem %lote C_ , #backpackid
if #findcnt < 1
{
set #lobjectid %contenedorlotes
event macro 17
wait 5
FindItem %lote C_ , %contenedorlotes
Exevent Drag #findid #findcnt
wait 5
Exevent DRopc #backpackid
wait 10
}
return

Sub Abrirlotes
FindItem %lote C_ , #backpackid
set #LOBJECTID #FINDID
wait 10
event macro 17
wait 20
return

Sub Dejarpergas
FindItem %pergas C_ , #backpackid
set #lobjectid %pergas
Exevent Drag #findid #findstack
wait 5
Exevent DRopc %contenedorpergas
wait 10
return

De todas formas sigo interesado en saber qué es el pergamino rúnico, si debería macrear haciendo otro tipo de pergas y porqué se me cuelga la macro :S

**f.nandoco** · 08-Nov-2016

muy buenas,

por lo que veo has cambiado las siguientes lineas:
inporylem:
set %regs1 1
goto seguridad:

sub inporylem:
set #SYSMSGCOL 1100
event sysmessage ================
event sysmessage HAS ELEGIDO FLECHA MAGICA
event sysmessage fabricando perga
event sysmessage ================
finditem %pergas c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click %pos1x %pos1y
wait 5
click %inporx %inpory
wait 5s
gosub check:

este cambio ha roto la macro entera y por eso los problemas que estas teniendo...

Cuando hice la macro, dejaba todas las plumas y los regs en un cofre. Entonces me iba a comprar las plumas y con otra macro las ponia en el cofre. Imagino que si se pueda hacer lo de la bolsa dentro del cofre, habria que mirarlo.

Para que te funcione, sin tener que tocar mucho la macro, habra que cambiar una cuantas cosas. Si eso mañana intento hacerlo y la vuelvo a colgar

saludos

**OverQueen** · 08-Nov-2016

He querido hacer la macro desde 0 evitando tanta línea por si era eso lo que hacía que petara el cliente y ha salido bien ^^ solo me queda eso, conseguir que coja las plumas de las bolsitas y no tener que hacerme macro para que las ponga todas en un mismo contenedor

Comparto con todos mi resultado, ahora la macro además de hacer los pergas que quería deshace lotes de pergas y come constantemente, llevo ya 3H con ella y no me ha dado ningún problema ^^, debería subir también medit pero no se por qué extraña razón va lentísimo (me ha subido 0.1 de medit el tiempo que he subido 4.0 de inscripción)

Código:

;*************************************************************************************************
;Macro ESCRIBA (In Por Ylem) by OverQueen
;*************************************************************************************************
; PREPARACIÓN: 3 cofres a la vista (1 - regs y lotes) (2 - plumas) (3 - pergaminos hechos)
; MATERIAL para subir a gm: 4.000 lotes (16.000 pergas) + 16.000 regs + 350 plumas
; MATERIAL por hora de macreo: 350 pergas + 350 regs + 10 plumas
; SUGERENCIA: Puede que al iniciar la macro tengas que darle doble clic al lote de pergaminos
set #SYSMSGCOL 10
event sysmessage Macro para subir escriba by OverQueen

;*************************************************************************************************
;            CONFIGURACIONES (EDITAR)
;*************************************************************************************************
set %regs SZF ; Sulphurous Ash
set %pergamino MMF ; ID del pergamino en blanco
set %lote MMF ; ID del lote de pergaminos en blanco
set %pluma CXF_PBG ; ID de la pluma
set %pergaminoX CYL ; ID del pergamino de flecha mágica
set %contenedor1 FWALCQD ; ID contenedor con regs y lotes de pergas
set %contenedor2 WZTXAPD ; ID contenedor con plumas
set %contenedor3 HGALCQD ; ID contenedor con pergas In Por Ylem
set %comida RGG_NRD_QSD_ZBG_WLI_QRD_END_FUD_YLI_WLI_HGI_KGI_EGI_QLI_KLI_MLI_KRD_HQD_AQD_MQE_VQE_TQE_JQE_IQE_GQE_SPE_ZPE_OQE_BDF_KPE_RQE_YSD_SQD_YWI_AXI_PQD_QQD

Inicio:
;*************************************************************************************************
;                    COMER
;*************************************************************************************************
set #LOBJECTID #FINDID
findItem %comida C_ , #BACKPACKID
set #LOBJECTID #FINDID
wait 10
event macro 17

;*************************************************************************************************
;                   COGER REGS
;*************************************************************************************************
finditem %regs C_ , #BACKPACKID
if #FINDSTACK < 5
{
finditem %regs C_ , %contenedor1
exevent drag #FINDID 100
wait 10
exevent dropc #BACKPACKID
wait 15
}

;*************************************************************************************************
;                  COGER PERGAS
;*************************************************************************************************
finditem %pergamino C_ , #BACKPACKID
IF #findStack <= 10
{
finditem %lote C_ , %contenedor1
exevent drag #FINDID 1
wait 7
exevent dropc #BACKPACKID
wait 10
set #LOBJECTID #FINDID
wait 10
event macro 17
wait 20
}

;*************************************************************************************************
;                  COGER PLUMAS
;*************************************************************************************************
finditem %pluma C_ , #BACKPACKID
IF #FINDCNT <= 1
{
finditem %pluma c_ , %contenedor2
exevent drag #FINDID
wait 7
exevent dropc #BACKPACKID
wait 10
}

;*************************************************************************************************
;                  HACER PERGAS (x5)
;*************************************************************************************************
finditem %pergamino c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click 65 130
wait 5
click 274 190
wait 5s
click 274 190
wait 5s
click 274 190
wait 5s
click 274 190
wait 5s
click 274 190
wait 5s

;*************************************************************************************************
;                  DEJAR PERGAS
;*************************************************************************************************
finditem %pergaminoX C_ , #BACKPACKID
if #FINDSTACK >= 1
{
finditem %pergaminoX C_ , #BACKPACKID
exevent drag #FINDID #FINDSTACK
wait 10
exevent dropc %contenedor3
wait 20
}

;*************************************************************************************************
;                   SEGURIDAD
;*************************************************************************************************
if #weight >= 350
{
set #SYSMSGCOL 10
event sysmessage Algo falla... macro detenida por seguridad
halt
}


;*************************************************************************************************
;                    MEDITAR
;*************************************************************************************************
sub meditar:
event macro 13 46
if pierdes in #journal
{
gosub meditar
}
if trance in #journal
repeat
{
wait 40
event macro 13 46
}
until #mana = #int
GoTo Inicio

**f.nandoco** · 09-Nov-2016

Muy buenas OverQueen

La verdad que para subir inscripcion es mejor tu macro, la mia la hice para el pergamino runico y asi no tenia que hacer diferentes macros para hacer los pergas ^_^. Te he estado mirando lo de coger las plumas desde una bolsa y te he hecho esta macro, la tendras que adaptar a la tuya para que te funcione y por otro lado la bolsa ,donde tengas las plumas, tienes que estar abierta en la pantalla. Te copio lo que he hecho:

Te he puesto en la macro que te coja la pluma cuando te quedes sin ninguna en el BACKPACKID, porque la macro busca plumas de cualquier bolsa abierta y sino se liaria con la del BACKPACKID.

bueno espero que te sirva, saludossssss...

**OverQueen** · 10-Nov-2016

Oh gracias! para escriba ya no me sirve, compré todas las plumas y las solté a mano en un cofre (solo hacen falta unas 350... xD), pero me sirve para todas las skills que me quedan por subir, los morteros de alquimia dentro de poco...

Y en cuanto a lo de tener que abrir la bolsa, ¿sabes cómo evitarlo?, creo que he usado una macro en la que no hacía falta que abrieras los cofres, con tener la ID era suficiente...¿puede ser?, la tengo que buscar

**Minsc** · 10-Nov-2016

Los cofres pueden estar abiertos o cerrados para soltar las cosas, drop.
Y deben estar abiertos para poder coger o buscar algo.

**Baeson** · 10-Nov-2016

¿Over podrias hacer el favor a todos los no-escribas de colgar tu macro adaptada para que coja plumad? Gracias

.

Enviado desde mi ZTE Blade S6 Flex mediante Tapatalk

**OverQueen** · 10-Nov-2016

Claro ^^ y gracias por resolver mis dudas

Código:

;*************************************************************************************************
;Macro ESCRIBA (In Por Ylem) by OverQueen
;*************************************************************************************************
; PREPARACIÓN: 3 cofres a la vista (1 - regs y lotes) (2 - plumas) (3 - pergaminos hechos)
; ** Las plumas pueden estar en el primer nivel del cofre o, a su vez, dentro de bolsas PERO ABIERTAS
; MATERIAL para subir a gm: 4.000 lotes (16.000 pergas) + 16.000 regs + 350 plumas
; MATERIAL por hora de macreo: 350 pergas + 350 regs + 10 plumas
; SUGERENCIA: Puede que al iniciar la macro tengas que darle doble clic al lote de pergaminos
set #SYSMSGCOL 10
event sysmessage Macro para subir escriba by OverQueen

;*************************************************************************************************
;            CONFIGURACIONES (EDITAR)
;*************************************************************************************************
set %regs SZF ; Sulphurous Ash
set %pergamino MMF ; ID del pergamino en blanco
set %lote MMF ; ID del lote de pergaminos en blanco
set %pluma CXF_PBG ; ID de la pluma
set %pergaminoX CYL ; ID del pergamino de flecha mágica
set %contenedor1 FWALCQD ; ID contenedor con regs y lotes de pergas
set %contenedor2 SPLJJQD ; ID contenedor con plumas
set %contenedor3 HGALCQD ; ID contenedor con pergas In Por Ylem
set %comida RGG_NRD_QSD_ZBG_WLI_QRD_END_FUD_YLI_WLI_HGI_KGI_EGI_QLI_KLI_MLI_KRD_HQD_AQD_MQE_VQE_TQE_JQE_IQE_GQE_SPE_ZPE_OQE_BDF_KPE_RQE_YSD_SQD_YWI_AXI_PQD_QQD

Inicio:
;*************************************************************************************************
;                    COMER
;*************************************************************************************************
set #LOBJECTID #FINDID
findItem %comida C_ , #BACKPACKID
set #LOBJECTID #FINDID
wait 10
event macro 17

;*************************************************************************************************
;                   COGER REGS
;*************************************************************************************************
finditem %regs C_ , #BACKPACKID
if #FINDSTACK < 5
{
finditem %regs C_ , %contenedor1
exevent drag #FINDID 100
wait 10
exevent dropc #BACKPACKID
wait 15
}

;*************************************************************************************************
;                  COGER PERGAS
;*************************************************************************************************
finditem %pergamino C_ , #BACKPACKID
IF #findStack <= 1
{
finditem %lote C_ , %contenedor1
exevent drag #FINDID 1
wait 7
exevent dropc #BACKPACKID
wait 10
set #LOBJECTID #FINDID
wait 10
event macro 17
wait 20
}

;*************************************************************************************************
;                  COGER PLUMAS
;*************************************************************************************************
finditem PBG c_ , #BACKPACKID
if #FINDCNT = 0
{
finditem PBG
set #LOBJECTID #FINDID
wait 10
exevent drag #FINDID
wait 5
exevent dropc #FINDSTACK
wait 20
event macro 17 0
wait 10
}
wait 10

;*************************************************************************************************
;                  HACER PERGAS (x5)
;*************************************************************************************************
finditem %pergamino c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click 65 130
wait 5
click 274 190
wait 5s
click 274 190
wait 5s
click 274 190
wait 5s
click 274 190
wait 5s
click 274 190
wait 5s

;*************************************************************************************************
;                  DEJAR PERGAS
;*************************************************************************************************
finditem %pergaminoX C_ , #BACKPACKID
if #FINDSTACK >= 1
{
finditem %pergaminoX C_ , #BACKPACKID
exevent drag #FINDID #FINDSTACK
wait 10
exevent dropc %contenedor3
wait 20
}

;*************************************************************************************************
;                   SEGURIDAD
;*************************************************************************************************
if #weight >= 350
{
set #SYSMSGCOL 10
event sysmessage Algo falla... macro detenida por seguridad
halt
}


;*************************************************************************************************
;                    MEDITAR
;*************************************************************************************************
sub meditar:
event macro 13 46
if pierdes in #journal
{
gosub meditar
}
if trance in #journal
repeat
{
wait 40
event macro 13 46
}
until #mana = #int
GoTo Inicio

Si en la parte de coger plumas pongo %pluma como tengo en el set de más arriba en vez de la ID como me ha pasado f.nandoco deja de funcionar :S

**Baeson** · 10-Nov-2016

¿Esta macro abre los lotes de pergaminos?

Enviado desde mi ZTE Blade S6 Flex mediante Tapatalk

**Minsc** · 10-Nov-2016

en coger plumas sería:

finditem %plumas c_ , %contenedor2

**OverQueen** · 11-Nov-2016

Iniciado por Minsc

en coger plumas sería: finditem %plumas c_ , %contenedor2

Solo "finditem %plumas c_" no he terminado de entender el porqué pero he ido probando a ciegas borrando y añadiendo código hasta que ha salido :S

Iniciado por Baeson

¿Esta macro abre los lotes de pergaminos?

No se si te había dado algún error, ayer lo hice con bastante prisa y puede que me liara con tanto cofre, cambio de IDs y rectificación de código, la macro que te subo ahora es la última versión xD funciona 100% seguro y lo hace todo: come, deshace lotes, hace pergas de flecha y coge plumas de dentro de bolsas. Llevo un rato con ella puesta y 0 problemas

Código:

;*************************************************************************************************
;Macro ESCRIBA (In Por Ylem) by OverQueen
;*************************************************************************************************
; PREPARACIÓN: 3 cofres a la vista y abiertos (1 - regs y lotes) (2 - bolsas de plumas o plumas sueltas) (3 - pergaminos hechos)
; MATERIAL para subir a gm: 4.000 lotes (16.000 pergas) + 16.000 regs + 350 plumas
; MATERIAL por hora de macreo: 350 pergas + 350 regs + 10 plumas
; SUGERENCIA: Puede que al iniciar la macro tengas que darle doble clic al lote de pergaminos
set #SYSMSGCOL 10
event sysmessage Macro para subir escriba by OverQueen

;*************************************************************************************************
;            CONFIGURACIONES (EDITAR)
;*************************************************************************************************
set %regs SZF ; Sulphurous Ash
set %pergamino MMF ; ID del pergamino en blanco
set %lote MMF ; ID del lote de pergaminos en blanco
set %pluma CXF_PBG ; ID de la pluma
set %pergaminoX CYL ; ID del pergamino de flecha mágica
set %contenedor1 JBUKCQD ; ID contenedor con regs y lotes de pergas
set %contenedor2 EIGZHND ; ID contenedor con plumas
set %contenedor3 OGHTIQD ; ID contenedor con pergas In Por Ylem
set %comida RGG_NRD_QSD_ZBG_WLI_QRD_END_FUD_YLI_WLI_HGI_KGI_EGI_QLI_KLI_MLI_KRD_HQD_AQD_MQE_VQE_TQE_JQE_IQE_GQE_SPE_ZPE_OQE_BDF_KPE_RQE_YSD_SQD_YWI_AXI_PQD_QQD

Inicio:
;*************************************************************************************************
;                    COMER
;*************************************************************************************************
set #LOBJECTID #FINDID
findItem %comida C_ , #BACKPACKID
set #LOBJECTID #FINDID
wait 10
event macro 17

;*************************************************************************************************
;                   COGER REGS
;*************************************************************************************************
finditem %regs C_ , #BACKPACKID
if #FINDSTACK < 5
{
finditem %regs C_ , %contenedor1
exevent drag #FINDID 100
wait 10
exevent dropc #BACKPACKID
wait 15
}

;*************************************************************************************************
;                  COGER PERGAS
;*************************************************************************************************
finditem %pergamino C_ , #BACKPACKID
IF #findStack <= 1
{
finditem %lote C_ , %contenedor1
exevent drag #FINDID 1
wait 7
exevent dropc #BACKPACKID
wait 10
set #LOBJECTID #FINDID
wait 10
event macro 17
wait 20
}

;*************************************************************************************************
;                  COGER PLUMAS
;*************************************************************************************************
finditem %pluma C_ , #BACKPACKID
if #FINDCNT = 0
{
finditem %pluma C_
set #LOBJECTID #FINDID
wait 10
exevent drag #FINDID
wait 5
exevent dropc #FINDSTACK
wait 20
event macro 17 0
wait 10
}
wait 10s
;*************************************************************************************************
;                  HACER PERGAS (x5)
;*************************************************************************************************
finditem %pergamino c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click 65 130
wait 5
click 274 190
wait 5s
click 274 190
wait 5s
click 274 190
wait 5s
click 274 190
wait 5s
click 274 190
wait 5s

;*************************************************************************************************
;                  DEJAR PERGAS
;*************************************************************************************************
finditem %pergaminoX C_ , #BACKPACKID
if #FINDSTACK >= 1
{
finditem %pergaminoX C_ , #BACKPACKID
exevent drag #FINDID #FINDSTACK
wait 10
exevent dropc %contenedor3
wait 20
}

;*************************************************************************************************
;                   SEGURIDAD
;*************************************************************************************************
if #weight >= 350
{
set #SYSMSGCOL 10
event sysmessage Algo falla... macro detenida por seguridad
halt
}


;*************************************************************************************************
;                    MEDITAR
;*************************************************************************************************
sub meditar:
event macro 13 46
if pierdes in #journal
{
gosub meditar
}
if trance in #journal
repeat
{
wait 40
event macro 13 46
}
until #mana = #int
GoTo Inicio

PD: En contenedor 2 no hace falta que pongas la ID

**Minsc** · 12-Nov-2016

Iniciado por OverQueen

Solo "finditem %plumas c_" no he terminado de entender el porqué pero he ido probando a ciegas borrando y añadiendo código hasta que ha salido :S

C_ quiere decir que lo busque en un contenedor, que si está abierto encuentra lo q busca igual, pero lo correcto sería ponerle después de la coma en qué contenedor específico tiene que buscar, por lo tanto "finditem %plumas C_ , %contenedor2", el de las plumas, que arriba está seteado, otra cosa que sea el correcto o te hayas confundido de ID o de contenedor que contiene lo que no es.

**OverQueen** · 12-Nov-2016

Pues debía de ser que no daba con la ID, ya lo volveré a intentar cuando suba alquimia (que tendré el mismo problema pero con morteros), muchas gracias ^^

**Minsc** · 12-Nov-2016

Te advierto de antemano el problema que vas a tener con la alquimia: falta de frascos.

Tema: Modificando macro escriba...

Herramientas

Buscar tema

Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Re: Modificando macro escriba...

Temas similares

Macro escriba

Macro escriba

Macro de Escriba

Macro Escriba

Macro Escriba

Permisos de publicación