Yoko

Люди , плиз помогите! В этотм скрипте нада сделать так , чтобыон выбирал сумку , куда складывать ожерелья. Плиз , если не затруднит , добавьте эту функцию , а то мне после того , как бекпак набью 256 ожерельями , реколиться приходиться. Плиз , вот скрипт :

sub tinker()
VAR Sunduk = '0x4027bc70' ;
VAR Ingi = '0x1BEF' ;
VAR Instrum = '0x1EBC' ;
VAR Bottle = '0x4028cfd5'
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
; Iiea a iaea anou eiae
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

http://www.swines.nm.ru/scripts.html

Там ты найдёшь много полезных скриптов...

Var Sunduk1='0x402B3F94'
Var Sunduk2='0x402B0F96'
Var Meshok=''
sub Tinkering()
UO.UnSetReceivingContainer()
uo.cancelmenu()
wait(1000)
uo.automenu('Tinkering','Jewelry')
uo.automenu('Jewelry','necklace (1 iron ingot)')
while 1<2

if uo.count('0x1BEF')==0 Then


UO.FindType('0x0E76',-1,'backpack')
While UO.GetQuantity('finditem')<>0
UO.SetReceivingContainer(Sunduk2) 
wait(500)
UO.FindType('0x0E76',-1,'backpack') 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(3000)
end if
UO.UnSetReceivingContainer()
Wend

uo.useobject(Sunduk1)

UO.FindType('0x1BEF','0x0000',Sunduk1) 
wait(1000) 
UO.Grab('250','finditem') 
wait(1000)

UO.FindType('0x0E76','0x0000',Sunduk1) 
wait(1000) 
UO.Grab('1','finditem') 
wait(1000)
endif

cheklag()
uo.deletejournal() 
uo.useobject('0x4010A80F')
repeat
Wait(10)
until UO.InJournal("You put the") OR UO.InJournal("Tinkering failed")
wait(100)

if UO.count('0x1085')>0 then
UO.FindType('0x0E76',-1,'backpack')
Meshok='finditem'
UO.SetReceivingContainer(Meshok)
wait(100)
UO.FindType('0x1085',-1,'backpack')
wait(100)
UO.Grab('0','finditem') 
wait(100)
UO.UnSetReceivingContainer()
end if

wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub

sub CancelMM()
uo.cancelmenu()
endsub

Может не самый идеальный вариант, но работает !!!

_________________
Сделал дело - флуди смело !!!