потом сразуже покупал шмот...ID=0x40061A46 Type=0x0DF8
плизззз.....очень нужно!!!!
Moderators: Murderator+, Murderator
Code: Select all
sub buyy()
uo.Buy('Имя buy list'a (->Main->Buy/Sell->Create')
wait(1000)
uo.Say('bye')
wait(1000)
end subCode: Select all
sub SellToVendor()
var tProduct = '0x1085' ;тип товара
var cProduct = '0x0000' ;цвет товара
var sellListName = 'neck' ;название листа продажи
var ms = 5 ;кол-во поскольку будем продавать
var addDealy = 50 ;если не успевает продавать, увеличьте эту цифру
var bd = ms*350+addDealy ;system. don't tuch
UO.Print('Кому продавать будем?')
UO.addobject('vend')
while uo.Targeting()
wait(200)
wend
if UO.GetSerial('vend') == UO.GetSerial('self') or UO.GetSerial('vend') == '0x00000000' or UO.GetSerial('vend') == UO.GetSerial('backpack') then
UO.Print('Промазал(а) - отключаюсь.')
end if
uo.set('maxsell',str(ms))
UO.UseObject('backpack')
uo.set('buydelay',str(bd))
CheckLag()
while UO.Count(tProduct,cProduct) > 0
if UO.Count(tProduct,cProduct) < ms then
bd = UO.Count(tProduct,cProduct)*350+addDealy
uo.set('buydelay',str(bd))
CheckLag()
end if
uo.sell(sellListName,UO.GetName('vend'))
CheckLag()
if UO.InJournal("You have nothing I'm interested in") then
return
end if
wend
uo.set('buydelay','0')
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub