Че то невыходит написать на нове скрипт на продажу ......пожалуста подкинте хотя б маленький макр на sell чтоб я мог сообразить че как .......
мне достаточно чтоб он тока продовал n вешей, определенного типа, вендору стояшему рядом .......... остальное сам допишу ......
продажа
Moderators: Murderator+, Murderator
Code: Select all
sub SellToVendor()
var tProduct = '0x0DBF' ;тип товара
var cProduct = '0x0000' ;цвет товара
var sellListName = 'pole' ;название листа продажи
var ms = 20 ;кол-во поскольку будем продавать
var addDealy = 100 ;если не успевает продавать, увеличьте эту цифру
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()
UO.Msg('guards')
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
продажа через меню для RunUO
Code: Select all
sub sell()
var vendor=UO.GetSerial('laststatus')
repeat
UO.say(',sell poison')
UO.say(',vendormenu vendor 3')
Wait(1500)
UNTIL not uo.count(0x0F0A)
endsub
гыгLeo wrote:Code: Select all

Re: продажа
и как он продает?...чет все указал но нон не продает(