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

скрипт на стилинг
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2202		 Page 1 of 1
Author:  maximka4 [ 2004-12-10 10:53:47 ]
Post subject:  скрипт на стилинг
нашел скрипт на стилинг,хачю что бы вы мне немного помагли бы, такая тема, один чар варует бинты у другого,как сварует кидает их в мешок,который лежит на полу.

Code:
sub main()
sub стилинг() 
repeat 
uo.waittargetobject('0x402FE1CF'); ID  вещи
uo.exec ("useskill 'Stealing'") 
if UO.Count('0x402FE1CF') then ;ID вещи 
UO.setReceivingContainer('0x4023C502') ; ID мешка 
uo.findtype('0x0E21','-1','backpack') 
UO.grab("finditem") 
UO.UnsetReceivingContainer() 
end if 
wait(4000) 
until UO.Dead() 
end sub 

sub secondchar() 
repeat 
if not uo.count('0x0E21') then  
bgrab() 
end if 
wait(3000) 
until false 
end sub 

sub bgrab() 
uo.findtype('0x0E21','-1','0x4023C502') ; ID мешка
if uo.findcount() > 0 then 
UO.grab('1',"finditem") 
Wait(500)    
end if  
end sub

подправте скрипт пожалуста что б чар скидывал бинты в мешок,я тут пробовал сделать такой тока он у меня не работает вот он:

Code:
sub drop()
uo.FindType('0x0E21','0x0000','backpack') 
if uo.GetQuantity('finditem')>0 then 
uo.SetReceivingContainer('0x4023D2F7') 
wait(1000) 
uo.Drop('all','finditem') 
wait(1000) 
uo.UnSetReceivingContainer() 
end if
Wait(2000)    
end if  
end sub
Author:  Sfagnum [ 2004-12-10 11:15:44 ]
Post subject:  Re: скрипт на стилинг
maximka4 wrote:
Code:
sub drop()
if UO.Count('0x0E21','0x0000') > 0 then
uo.FindType('0x0E21','0x0000','backpack') 
UO.MoveItem('finditem','-1','0x4023D2F7')
wait(1000) 
end if
end sub
я б ещё CheckLag() после wait поставил.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/