XpyCmuK wrote:
Ljudi pomagite bednamu Njubu pozhalusta =( Daite pozhalusta script na prodavanije "fishing pole" ! Na DRW shard sas postavili fishku to chto nelzja prodavat' kak obichno mi eta privikli delat' =( Shas nado specalnij scrip , kak mne skozal odin chelovek iz sharda DRW. Esli nezhalko pozhalutsa daite script.Spasibo.
Подстраивай под себя и ... короче разбирайся!
Code:
sub SellToVendor()
var tProduct = '0x1086' ;тип товара
var cProduct = '0x0000' ;цвет товара
var sellListName = 'Necklace' ;название листа продажи
var ms = 25 ;кол-во поскольку будем продавать
var addDealy = 500 ;если не успевает продавать, увеличьте эту цифру
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
UO.Say('! <GUARDS> ')
wend
uo.set('buydelay','0')
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
Register
Login
FAQ
Search
