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

Ожерелья. Складирование.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1807		 Page 1 of 1
Author:  Шмак [ 2004-11-01 16:46:22 ]
Post subject:  Ожерелья. Складирование.
Люди , плиз помогите! В этотм скрипте нада сделать так , чтобыон выбирал сумку , куда складывать ожерелья. Плиз , если не затруднит , добавьте эту функцию , а то мне после того , как бекпак набью 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
Author:  nik-kazancev [ 2004-11-02 06:10:39 ]
Post subject: 
http://www.swines.nm.ru/scripts.html

Там ты найдёшь много полезных скриптов...
Author:  Askaneli [ 2004-11-02 06:19:02 ]
Post subject: 
Code:
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


Может не самый идеальный вариант, но работает !!!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/