initevents ; Si tienes menos de 40 de SKill pon 1
Set %TIpodeLotes 1 ; 1=Lote de Mapas en Blanco y 2=Lote de Pergaminos en Blanco.
set %bolsaMateriales IWULHOD ; Bolsa donde se encuentra la madera
set %bolsaSerruchos OTUQGPD ; Bolsa donde se encuentran los Serruchos
;<=========NO TOCAR==========>
chooseskill carp real
set %madera ZLK
set %sierra AGG_EGG
set %lote MMF
set %comida YSD_QQD ;Peras, Manzanas

Inicio:
setuotitle || Skill de Carpinteria #SKill ||
Gosub Madera
GoSub Herramientas
Gosub Fabricar
Goto Inicio

;<=======================>
Sub Madera
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
set #LOBJECTID #FINDID
event macro 17
}
set #lobjectid %bolsaMateriales
event macro 17
wait 5
finditem %madera C_ , #BACKPACKID
if #FINDSTACK < 6
{
finditem %madera C_ , %bolsaMateriales
exevent drag #FINDID 50
exevent dropc #BACKPACKID
wait 20
}
return

;<=======================>
Sub Herramientas
FindItem %Sierra C_ , #backpackid
if #findcnt < 1
{
set #lobjectid %bolsaMateriales
event macro 17
wait 5
FindItem %Sierra C_ , %bolsaSerruchos
Exevent Drag #findid #findstack
wait 5
Exevent DRopc #backpackid
wait 10
}
return

;<=======================>

Sub Fabricar
FindItem %Sierra C_ , #backpackid
SET #LOBJECTID #FINDID
Event Macro 17
wait 10
click 67 251 ;Categoria Otros
wait 10
if %tipodelotes = 1
{
click 274 188 ;Mapas en Blanco
wait 10
For %i 1 10
{
wait 10
if pones_ In #SysMsG
goto guardar
}
}
if %tipodelotes = 2
{
Click 274 172 ;Lote de pergaminos
wait 10
For %i 1 10
{
wait 10
If pones_ In #SySMsg
goto guardar
}
}
guardar:
FIndItem %Lote C_ , #backpackid
If #FindCnt > 0
{
Exevent Drag #FindId #FindStack
wait 10
Exevent Dropc %bolsamateriales
wait 10
goto guardar
}
return