Ruan22
Admin
Mensagens : 13
Data de inscrição : 14/12/2007
Idade : 37
Localização : Vitória - ES
 | Assunto: Macro Tinker TLP  Sex Jan 04, 2008 5:48 pm | |
| - Citação :
- ;Tenha o EASYUO 1.42
;pegue uma bag e deiche no chão ou dentro de um baú(onde irá os itens)
;pegue outra bag e coloque na sua bag(onde irá os ingot)
;deixe os iron no chão perto de vc(2 tiles no máximo)
;faz clockparts
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
Goto Fazer
Fazer:
FindItem RMK C_
if #FINDKIND = -1
{
GoSub PegaIron
}
else
{
if #FINDSTACK < 9
GoSub PegaIron
}
Finditem GTL C_
Set %Hammer #FindId
Set #LObjectId %Hammer
Event Macro 17
wait 15
if SENDO_SALVO in #JOURNAL
wait 20s
;Faz clockparts
wait 7
Click 59 66 d
wait 10
Click 59 66 d
Wait 5s
if #SCNT > 10
GoSub Comer
findItem RCG_FCG C_
if #FINDSTACK > 99
{
wait 2s
GoSub GuardaItens
}
Goto Fazer
Sub GuardaItens
findItem RCG_FCG C_
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 C_
set #LOBJECTID #FINDID
event macro 17 0
wait 1s
Return
| |
|
