[Macro] Carpinteria (Lotes de pergaminos)

**Aloisia** · 02-Mar-2010

Os dejo mi macro de carpinteria, es del estilo de las otras que he posteado. La macro te pide que configures cuatro cosas:

Contenedor donde tienes la madera.
Contenedor donde tienes los serruchos (mejor si no los tienes encima, porque te ahorras peso).
Situacion de tu mochila en la hoja de personaje.
Lugar donde quieres dejar los lotes de pergaminos.

Código:

;==================================
; Script: Carpinteria (Pergaminos en blanco)
; Autor: Aloisia
; Version Easyuo: 1.5, 148
; Version: 1.0
; Cliente: 2.0.3
; Fecha del script: 01 Febrero 2010
; Finalidad: Hace lotes de pergaminos en blanco.
;==================================
;Para la siguiente macro necesitas:
;1.- Una bolsa con serruchos (herramienta indispensable).
;2.- Una bolsa con madera.
;3.- Una bolsa donde guardar los lotes de pergaminos.
;4.- Comida (peras o manzanas, si quieres otro tipo añadelo en set %comida)

init events
chooseskill carp real
set %skillini #skill
set %madera ZLK
set %sierra AGG
set %lote MMF
set %confp 1
set %comida YSD_QQD ;Peras, Manzanas

configurar:
if %confp = 1
{
	Event sysmessage Abre el contenedor donde tienes la madera.
	event sysmessage Y presiona la tecla ESC.
	set %conf 1
	set %confp 2
	goto TESC
}
if %confp = 2
{
	event sysmessage Abre el contenedor de las herramientas.
	event sysmessage Y presiona la tecla ESC
	set %conf 2
	set %confp 3
	goto TESC
}
if %confp = 3
{
	event sysmessage Pon el cursor sobre el lugar donde quieres dejar los lotes.
	event sysmessage Y presiona la tecla ESC
	set %conf 3
	set %confp 4
	goto TESC
}
if %confp = 4
{
	event sysmessage Pon el cursor sobre tu mochila.
	event sysmessage Y presiona la tecla ESC
	set %conf 4
	goto TESC
}

TESC:
onHotKey ESC
{
	if %conf = 1
	{
		set %cofre #LOBJECTID
		goto configurar
	}
	if %conf = 2
	{
		set %bolsa #LOBJECTID
		goto configurar
	}
	if %conf = 3
	{
		set %destinox #CURSORX
		set %destinoy #CURSORY
		goto configurar
	}
	if %conf = 4
	{
		set %mochilax #CURSORX
		set %mochilay #CURSORY
    GoTo comienzo:
	}
}
goto TESC

comienzo:
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
   set #LOBJECTID #FINDID
   event macro 17
}
set %skillinc #SKILL - %skillini
setuotitle Carpintería: %skillini ( %skillinc )
finditem %madera c_ , #BACKPACKID
IF #findStack < 10
{
GoSub cogermadera
}
finditem %sierra c_ , #BACKPACKID
IF #findcnt < 2
{
GoSub cogersierra
}
finditem %lote c_ , #BACKPACKID
IF #findStack > 40
{
   GoSub dejarlote
}
finditem %sierra c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 267 68 d
wait 5
click 267 68 d
wait 5
click 267 68 d
wait 5
click 267 68 d
wait 5
click 267 68 d
wait 5
click 267 68 d
wait 5
click 267 68 d
wait 5
click 267 68 d
wait 30
click 77 73 d
wait 50
click 55 61 d
wait 3s
GoTo comienzo:

Sub cogermadera
finditem %madera c_ , %cofre
IF #findStack < 100 || #findcnt < 1
{
   halt
}
IF #weight > 140
{
   msg Parando macro exceso de peso.
   wait 10
   msg $
   halt
}
event drag #findid
wait 10
msg 80
msg $
wait 10
click %mochilax %mochilay p
wait 20
return

Sub cogersierra
finditem %sierra c_ , %bolsa
if #findcnt < 1
{
   msg Parando macro faltan serruchos.
   wait 10
   msg $
   halt
}
event drag #findid
wait 10
click %mochilax %mochilay p
wait 20
return

Sub dejarlote
finditem %lote c_ , #BACKPACKID
event drag #findid
wait 10
msg $
wait 10
click %destinox %destinoy p
wait 20
return

Pd.- Ya sabeis, cualquier crítica, duda o sugerencia es bien recibida. Besitos.

**Laracon** · 08-Jun-2010

Está genial la macro, pero no guarda los lotes :S
¿Sabes por qué puede ser?
Muchas gracias.

**Gabryk** · 10-Sep-2010

Muchisimas gracias por la macro aloisia, pero tengo un problema que quizas me puedas resolver... a mi me para la macro diciendo q no hay serruchos, cuando en el contenedor q he indicado hay 20...tienes idea de porque pueda ser?
muchisimas gracias de antelacion
saludos

**El Comerciante** · 10-Sep-2010

Modifica esta línea

set %sierra AGG

Abre el easy, a la derecha despliega "Last Action", a continuación en el UO hazle doble click al serrucho que quieres utilizar.

Después, vuelves al easy y te fijas en #LOBJECTTYPE: ___ pondrá la variable que hace referencia a ese serrucho. Seguramente será EGG o algo similar, con lo cual la línea a modificar quedaría de la forma:

set %sierra AGG_EGG

así te coge ambos tipos de serrucho.

Un Saludo

**Gabryk** · 10-Sep-2010

pues si ha funcionado genial! muchisimas gracias!!!

asi subo carpinteria y te hago sandalias...xDDDD

**Gabryk** · 11-Sep-2010

aaaah pues de hecho tengo el mismo problema de laracon...los lotes de pergaminos no los guarda...y la macro se para por el peso justo despues...:S
teneis idea de porque esto pueda ser?
muchas gracias otra vez
saludos

**El Comerciante** · 11-Sep-2010

A bote pronto se me ocurre que miréis la ID de los lotes que estáis haciendo, por si acaso fuese eso, porque no veo nada raro.

Para ello podeis probar a cogerle y arrastrarle de un sitio a otro.

Luego en el easy a continuación de la variable #LLIFTEDTYPE (o algo así) os debería salir MMF

Sino es así deberíais modificar la línea

set %lote MMF

**Gabryk** · 27-Sep-2010

disculpad pero yo sigo teniendo el mismo problema....de todas las veces q la he usado, la macro habrà guardado los lotes un par de veces, y no se lo q hice de diferente esas veces para q funcionara...teneis idea de lo q pueda estar causandome este problema? muchas gracias de antelacion
saludos

**Laracon** · 30-Sep-2010

Yo ya me lo subí hace un tiempo, gracias por respondernos "El Comerciante".
A ver a mi se me guardaba (a veces) cada 20 lotes de pergas o cosa así. A lo mejor miraste un rato y viste que no los guardó, ¿puede ser?.

Espero aver respondido a tu pregunta o aver ayudado...

Saludos ^^

**Raist** · 04-May-2011

Wenas! recupero el post para preguntar, q lo he copiado y lo de los pergas me funciona bien ( al principio cuando hacia mapas no m los guardaba y tal, xo con pergas si me funciona).
El problema esq cuando va a coger la madera por segunda vez coge 80 y a la siguiente ronda vuelve a coger 80, y asi unas cuantas veces, llenandome de peso y tirandome la madera al suelo...
Y no se como cambiarlo :S si alguien podria mirarlo, muchas gracias!
Ah y muchas gracias a Aloisia por su aporte!

**Escawen** · 05-May-2011

event drag #findid
wait 10
msg 40
msg $
wait 10
click %mochilax %mochilay p
wait 20
return

busca esta parte y cambialo x lo k te puse, deberia coger 40 en vez de 80. un saludo

**Raist** · 05-May-2011

Muchas gracias!
Ya probe con eso, y si que m coge 40, l problema es que una vez se acaba la primera tanda de lotes de madera, me coge otros 40, me hace un perga y m vuelve a coger ( sin esperar a q se termine el lote entero de madera)
Y asi sucesivamente hasta que x el peso se cae el suelo o se para la macro...
Si alguien sabe la solucion sera de gran ayuda!
Muchas gracias!
PD: he probao a q m coja de 4 en 4, xo al final entre q falla y demas tb me lleno de peso ( y tngo 100 de fuerza) aunque por lo menos me aguanta mas jeje

**enDings** · 24-May-2011

He actualizado la macro, no la he probado ni nada, mirad a ver si os va mejor.

Saludos

Código:

;==================================
; Script: Carpinteria (Pergaminos en blanco)
; Autor: Aloisia
; Version Easyuo: 1.5, 148
; Version: 1.0
; Cliente: 2.0.3
; Fecha del script: 01 Febrero 2010
; Finalidad: Hace lotes de pergaminos en blanco.
;==================================
;Para la siguiente macro necesitas:
;1.- Una bolsa con serruchos (herramienta indispensable).
;2.- Una bolsa con madera.
;3.- Una bolsa donde guardar los lotes de pergaminos.
;4.- Comida (peras o manzanas, si quieres otro tipo añadelo en set %comida)

init events
chooseskill carp real
set %skillini #skill
set %madera ZLK
set %sierra AGG
set %lote MMF
set %confp 1
set %comida YSD_QQD ;Peras, Manzanas

configurar:
if %confp = 1
{
	Event sysmessage Abre el contenedor donde tienes la madera.
	event sysmessage Y presiona la tecla ESC.
	set %conf 1
	set %confp 2
	goto TESC
}
if %confp = 2
{
	event sysmessage Abre el contenedor de las herramientas.
	event sysmessage Y presiona la tecla ESC
	set %conf 2
	set %confp 3
	goto TESC
}

TESC:
onHotKey ESC
{
	if %conf = 1
	{
		set %cofre #LOBJECTID
		goto configurar
	}
	if %conf = 2
	{
		set %bolsa #LOBJECTID
		goto comienzo
	}
	
}
goto TESC

comienzo:
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
   set #LOBJECTID #FINDID
   event macro 17
}
set %skillinc #SKILL - %skillini
setuotitle Carpintería: %skillini ( %skillinc )
finditem %madera c_ , #BACKPACKID
IF #findStack < 10
{
GoSub cogermadera
}
finditem %sierra c_ , #BACKPACKID
IF #findcnt < 2
{
GoSub cogersierra
}
finditem %lote c_ , #BACKPACKID
IF #findStack > 40
{
   GoSub dejarlote
}
finditem %sierra c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 267 68 d
wait 5
click 267 68 d
wait 5
click 267 68 d
wait 5
click 267 68 d
wait 5
click 267 68 d
wait 5
click 267 68 d
wait 5
click 267 68 d
wait 5
click 267 68 d
wait 30
click 77 73 d
wait 50
click 55 61 d
wait 3s
GoTo comienzo:

Sub cogermadera
finditem %madera c_ , %cofre
IF #findStack < 100 || #findcnt < 1
{
display ok No hay madera.   
halt
}
IF #weight > 140
{
   gosub dejarmadera   
}
exevent drag #Findid 40
wait 10
exevent dropc #backpackid
wait 10
return

Sub cogersierra
finditem %sierra c_ , %bolsa
if #findcnt < 1
{
   display ok No hay herramientas
   halt
}
exevent drag #findid
wait 10
exevent dropc #backpackid
wait 10
return

Sub dejarlote
finditem %lote c_ , #BACKPACKID
exevent drag #findid #findstack
wait 10
exevent dropc %cofre
wait 10
return

Sub dejarmadera
finditem %madera c_ , #backpackid
wait 10
exevent drag #findid #findstack
wait 10
exevent dropc %cofre
wait 10
goto comienzo