Ruan22 Admin
Mensagens : 13 Data de inscrição : 14/12/2007 Idade : 37 Localização : Vitória - ES
| Assunto: Macro Tailor TLP Sex Jan 04, 2008 5:50 pm | |
| - Citação :
- ;faz cloth box e guarda em uma bag.
;Coloque os panos no chao perto do seu char no maximo a 2 tiles de distancia. ;deixe uma bag no chão ou dentro de um baú do seu lado. ;bote uma bag dentro do seu char, com um sewing kit dentro, e deixe ela aberta.
Initevents
set #SYSMSGCOL 54
Event sysmessage Deixe o mouse sobre a Bag no Bau/Bank/chao onde ira guardar os cloth box 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 panos e tecle ENTER. 2: OnHotkey enter Goto 2a Goto 2
2a: set %bagpanosx #CURSORX set %bagpanosy #CURSORY Event Sysmessage Ok! wait 5
set #SCNT 0
Goto Fazer
Fazer: FindItem RTI C_ if #FINDKIND = -1 { GoSub PegaPano } else { if #FINDSTACK < 10 GoSub PegaPano }
wait 10 Finditem HAG C_ Set %KitCostura #FindId Set #LObjectId %KitCostura Event Macro 17 wait 1s
FindItem RTI C_ Set #LTargetId #FindId Set #LTargetKind 1 if SENDO_SALVO in #JOURNAL wait 20s Event Macro 22 wait 20
if SENDO_SALVO in #JOURNAL wait 20s
; Faz Cloth Box Click 60 56 d Wait 4s
if #SCNT > 50 GoSub Comer
findItem ETH C_ if #FINDSTACK > 100 GoSub GuardaItens
Goto Fazer
Sub GuardaItens findItem ETH C_ event drag #FINDID wait 30 msg $ click %bagitensx %bagitensy wait 4s Return
Sub PegaPano findItem RTI G_2 event drag #FINDID wait 30 if #FINDSTACK > 1000 msg 1000 msg $ click %bagpanosx %bagpanosy wait 3s Return
Sub Comer set #SCNT 0 finditem FUD_HND_RUD_CNL_YLI_AQD_HQD_WMD_NRD_YRD_BDF C_ set #LOBJECTID #FINDID event macro 17 0 wait 1s Return
| |
|