Page 1 of 1

Тинк

Posted: 2006-06-01 11:31:00
by Toolmate

Code: Select all

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
Вот мой макр на тинк.
Как сдлеать, чтобы он кидал вещь которую скрафтил в сундук, а когда сундук заполнен в другой сундук. (В один сундук кидает, а чтобы в другие кидал не знаю как сделать.)

Posted: 2006-06-01 11:58:03
by omi4
Создай массив сундуков
Счетчик кинутых предметов

Берем первый сундук
Кидаем пока счетчик не достигнет максимума
Берем второй…

Posted: 2006-06-01 12:36:12
by Toolmate
А вот как счетчик сделать не могбы подсказать?

Posted: 2006-06-01 14:13:13
by omi4

Code: Select all

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

Posted: 2006-06-01 14:49:13
by Toolmate
Благодарю.