Yoko
http://forum.yoko.com.ua/

Тинк
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7834		 Page 1 of 1
Author:  Toolmate [ 2006-06-01 11:31:00 ]
Post subject:  Тинк
Code:
var Izdelie = '0x0F43'
var Box1
var Pila = '0x1EB8'
var Derevo = '0x1BF2' 

sub Tink1()
uo.Print('Syndyk 1') 
uo.Exec('addobject Box1') 
while uo.Targeting() 
wait(100) 
wend 
while not uo.dead() 
if uo.count(Pila) < 1 then
uo.findtype(Pila,'-1','Box1') 
wait(400) 
UO.grab('1','finditem') 
Wait(2000) 
end if 
if uo.count(derevo) < 20  then
uo.findtype(Derevo,'-1','Box1') 
wait(400) 
UO.grab('300','finditem') 
Wait(2000) 
end if 
UO.usetype(Pila)
uo.recall('0x40066F02',21) 
wait(3500)
if  UO.Weight > 440 then 
repeat 
uo.print('Maked items = '+str(uo.count(Izdelie))) 
  Uo.findtype(Izdelie,'-1',"my") 
  Uo.moveitem("finditem","0","Box1",1,1,1) 
  wait(900) 
UNTIL not Uo.count(Izdelie) 
end if 
wend 
end sub


Вот мой макр на тинк.
Как сдлеать, чтобы он кидал вещь которую скрафтил в сундук, а когда сундук заполнен в другой сундук. (В один сундук кидает, а чтобы в другие кидал не знаю как сделать.)
Author:  omi4 [ 2006-06-01 11:58:03 ]
Post subject: 
Создай массив сундуков
Счетчик кинутых предметов

Берем первый сундук
Кидаем пока счетчик не достигнет максимума
Берем второй…
Author:  Toolmate [ 2006-06-01 12:36:12 ]
Post subject: 
А вот как счетчик сделать не могбы подсказать?
Author:  omi4 [ 2006-06-01 14:13:13 ]
Post subject: 
Code:
var Izdelie = '0x0F43' 
var Box1 
var Pila = '0x1EB8' 
var Derevo = '0x1BF2'
; *****************************
var K = 0, maxK = 125
dim Box[10]
   Box[0] = 0x12345678
   ;......
   Box[9] = 0x12345678
; *****************************
sub Tink1() 

while not uo.dead() 
if uo.count(Pila) < 1 then 
uo.findtype(Pila,'-1','Box1') 
wait(400) 
UO.grab('1','finditem') 
Wait(2000) 
end if 
if uo.count(derevo) < 20  then 
uo.findtype(Derevo,'-1','Box1') 
wait(400) 
UO.grab('300','finditem') 
Wait(2000) 
end if 
UO.usetype(Pila) 
uo.recall('0x40066F02',21) 
wait(3500)
; ******************************
if UO.Count(Izdelie) then
   if K > maxK then
      b = b +1
      if b > 9 then
         return
      endif
   endif
   Uo.moveitem("^"+ Izdelie,"0", Box[b],1,1,1)
   K = K +1
endif
; ******************************
wend 
end sub
Author:  Toolmate [ 2006-06-01 14:49:13 ]
Post subject: 
Благодарю.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/