Initevents
set #SYSMSGCOL 54
Event sysmessage Deixe o mouse sobre a Bag no Bau/Bank para onde ira os itens e tecle ENTER.
1:
OnHotkey enter
Goto 1a
Goto 1
1a:
set %bagitensx #CURSORX
set %bagitensy #CURSORY
Event Sysmessage Ok!
wait 5
Event sysmessage Deixe o mouse sobre a Bag aonde ira os ingots e tecle ENTER.
2:
OnHotkey enter
Goto 2a
Goto 2
2a:
set %bagingotsx #CURSORX
set %bagingotsy #CURSORY
Event Sysmessage Ok!
wait 5
set #SCNT 0
;Finditem TLH
;Set %Hammer #FindId
Goto Fazer
Fazer:
FindItem RMK C_
if #FINDKIND = -1
{
GoSub PegaIron
}
else
{
if #FINDSTACK < 9
GoSub PegaIron
}
Finditem TLH
Set %Hammer #FindId
Set #LObjectId %Hammer
Event Macro 17
wait 15
FindItem RMK C_
Set #LTargetId #FindId
Set #LTargetKind 1
Event Macro 22
wait 15
if SENDO_SALVO in #JOURNAL
wait 20s
;Faz Shape Iron
wait 7
Click 100 58 d
Wait 5s
if #SCNT > 300
GoSub Comer
findItem TLK
if #FINDSTACK > 99
{
wait 2s
GoSub GuardaItens
}
Goto Fazer
Sub GuardaItens
findItem TLK
event drag #FINDID
wait 20
msg $
click %bagitensx %bagitensy p
wait 30
Return
Sub PegaIron
findItem RMK G_2
event drag #FINDID
wait 20
if #FINDSTACK > 500
msg 500
msg $
click %bagingotsx %bagingotsy p
wait 1s
Return
Sub Comer
set #SCNT 0
finditem FUD_HND_RUD_CNL_YLI_AQD_HQD_WMD_NRD_RGG
set #LOBJECTID #FINDID
event macro 17 0
wait 1s
Return