скрипт на ожерелья смотрим внутри =)

[=GaD=]

вот имеем скрипт на ожерелья... как сделать чтобы он брал инги из первого сначало сундука делал туда же скидывал потом брал из второго и туда обратно(во второй ) скидывал и так сундуков 10 =)
если можно то за основу этот скрипт взять....

Code: Select all

sub main()
	; ×àð áåðåò èç ñóíäóêà èíãîòû, êðàôòèò èç íèõ áóòûëêè 
; è ñêëàäûâàåò ýòè áóòûëêè â ýòîò æå ñóíäóê. 
; Åñëè èíãè çàêîí÷èëèñü - âûõîä. 
; 
sub tinker() 
VAR Sunduk = '0x4129C268' ; Ñåðèàë ñóíäóêà 
VAR Ingi = '0x1BF2' ; Òèï èíãîâ 
VAR Instrum = '0x1EBC' ; Òèï èíñòðóìåíòà òèíêåðà 
VAR Bottle =  '0x1085' 
VAR Kolvo = 200 ; Áðàòü èíãîâ 
VAR k = 0 
While TRUE 
UO.FindType( Ingi, -1, Sunduk ) ; Èùåì èíãè â ñóíäóêå 
If UO.FindCount() == 0 Then 
UO.Print("Iron Ingots not found, script terminated") 
return 
Endif 
UO.Grab( Str( Kolvo ), 'finditem' ) 
wait( 2000 ) 
While UO.Count( Ingi ) > 0 
; Ïîêà â ïàêå åñòü èíãè 
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' ) 
UO.DeleteJournal() 
UO.CancelMenu() 
UO.WaitMenu ('Tinkering','Jewelry','Jewelry','necklace') 
UO.UseType( Instrum ) 
k = 0 
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 ) 
k = k + 1 
wait(500) 
wend 
if UO.Count( Bottle ) > 0 then 
UO.FindType( Bottle, -1, -1 ) 
UO.MoveItem( 'finditem', 0, Sunduk ) 
wait( 1000 ) 
UO.Print( 'Bottle moved' ) 
end if 
Wend 
Wend 
end sub 

end sub

чей скрипт извине не помню......

Правлено Ветром. Небыло тяг, Скопируй не из инжы а из блокнота ...а то каракули

[=GaD=]

и еще бывает моменты когда он ожерелья не перекидывает =(((( кому не сложно посмотрите....

[Sfagnum]

тут 100% рабочий но без подробного описалова