INITEVENTS
SetUoTitle Tinker
Set %FindStack 0
Set %QtdMax 300
Set %QtdMin 30
Set %Material ZLK_RMK
Set %Item MMF_FCG_RCG_NWH_WUF
Event SysMessage Tinker Macro v1.5 by Leet
Event SysMessage leet@infohelp.org - www.infohelp.org
Wait 2s

//Configuration
//------------------------------------------------------------
Event SysMessage Abra o container com o material e aperte 1.
SetBau1:
OnHotKey 1
Goto SetBau2
Goto SetBau1

SetBau2:
Set #ContPosX 5
Set #ContPosY 5
Set %Bau #LObjectID
Event SysMessage Deixe o mouse sobre o bau onde sera descarregado os items e aperte 1.

SetBagC1:
OnHotKey 1
Goto SetBagC2
Goto SetBagC1

SetBagC2:
Set %BauX #CursorX
Set %BauY #CursorY
Event SysMessage Deixe o mouse sobre voce e aperte 1.

SetChar1:
OnHotKey 1
Goto SetChar2
Goto SetChar1

SetChar2:
Set %CharX #CursorX
Set %CharY #CursorY
Event SysMessage Ok! Iniciando o macro...
Set %ContTemp #ContID
Set %TimeOut #SCNT + 5
Event Macro 8 7
BagCheck:
If #SCNT > %TimeOut
Goto BagCont
If %ContTemp = #ContID
Goto BagCheck
BagCont: 
Set %PBag #ContID

//Iniciando
//------------------------------------------------------------
IgnoreItem Reset

Guardar:
FindItem %Item
If #FindKind = -1
Goto GetLogs
If #FindKind = 1
{
IgnoreItem #FindID
Goto Guardar
}
Event Drag #FindID
GoSub ContCheck YKZB
Msg $
GoSub ContCheck2 YKZB
Click %BauX %BauY
IgnoreItem Reset
Wait 2s

GetLogs:
Set %Qtd %QtdMax - %FindStack
FindItem %Material
If #FindKind = -1
{
Msg Acabou o material!$
Halt
}
If #FindBagID <> %Bau
{
IgnoreItem #FindID
Goto GetLogs
}
Event Drag #FindID
GoSub ContCheck YKZB
If #FindStack <= %Qtd
Msg $
If #FindStack > %Qtd
Msg %Qtd $
GoSub ContCheck2 YKZB
Click %CharX %CharY
Wait 2s
Goto UseLog

Comer:
FindItem HND
If #FindDist > 3
{
IgnoreItem #FindID
Goto Comer
}
IgnoreItem Reset
Set #LobjectID #FindID
Event Macro 17
Set %Comer #SCNT + 500

UseLog:
If #SCNT > %Comer
Goto Comer
DeleteJournal
Key %Key
FindMaterial:
FindItem %Material
If #FindBagID = %Bau
{
IgnoreItem #FindID
Goto FindMaterial
}
If #FindStack < %QtdMin
{
Set %FindStack #FindStack
Wait 5s
Goto Guardar
}
Set %Time #SCNT + 10
Goto Scan

Scan:
ScanJournal 1
If you_put in #Journal
Goto UseLog
If failed in #Journal
Goto UseLog
If make_anything in #Journal
Goto Guardar
If world_save in #Journal
Goto Save
If resync in #Journal
Goto Save
If %Time < #SCNT
Goto UseLog
Goto Scan

Sub ContCheck
Set %TimeOut #SCNT + 15
ContCheck:
If %TimeOut < #SCNT
Return
If #ContKind = %1
Return
Goto ContCheck

Sub ContCheck2
Set %TimeOut #SCNT + 15
ContCheck2:
If %TimeOut < #SCNT
Return
If #ContKind <> %1
Return
Goto ContCheck2

Save:
Wait 30s
Goto UseLog