помогите с тайлорингом плиз
Posted: 2009-02-02 13:32:00
Дорбрый день...прошу вашей помощи..
есть скрипт...мои невеликий познания помогли мне его анчать ..прошу законичить...
смысл таков....
чар покупает ткань...потом делает из нее плащи и продает плащи....снова покупает ткань....
еще хотелось бы что бы вы помогли мне вставить какуюто функцию по которой чар будет покупать определенное количество ткани.. скаже не все что есть у вендолра а по 100 штук и продавал плищи что
вот мои наброски....
есть скрипт...мои невеликий познания помогли мне его анчать ..прошу законичить...
смысл таков....
чар покупает ткань...потом делает из нее плащи и продает плащи....снова покупает ткань....
еще хотелось бы что бы вы помогли мне вставить какуюто функцию по которой чар будет покупать определенное количество ткани.. скаже не все что есть у вендолра а по 100 штук и продавал плищи что
вот мои наброски....
Code: Select all
sub buy()
var f=1, name
uo.ignore( 'self' )
uo.set( 'finddistance', '2' )
uo.findtype( '0x0190', '-1', 'ground' )
if uo.findcount() == 0 then
uo.findtype( '0x0191', '-1', 'ground' )
if uo.findcount() == 0 then
uo.print( 'нет вендоров!' )
else
f = 1
endif
else
f = 1
endif
if f ==1 then
name = uo.getname( 'finditem' )
uo.say( ',buy www '+name )
endif
endsub
sub Sell()
var f=1, name
uo.ignore( 'self' )
uo.set( 'finddistance', '2' )
uo.findtype( '0x0190', '-1', 'ground' )
if uo.findcount() == 0 then
uo.findtype( '0x0191', '-1', 'ground' )
if uo.findcount() == 0 then
uo.print( 'нет вендоров!' )
else
f = 1
endif
else
f = 1
endif
if f ==1 then
name = uo.getname( 'finditem' )
uo.say( ',sell eee '+name )
endif
endsub
sub Start
while 1
wait(1000)
buy()
wait(3000)
tailor()
wait(30000)
sell()
wait(3000)
wend
end sub
sub tailor()
VAR tkan = '0x175D' ; Тип ткани
VAR Instrum = '0x0F9D' ; Тип инструмента таилора
VAR k = 0
UO.CancelMenu()
UO.WaitMenu ('Cloth', 'Shirts', 'Shirts', 'Cloak' )
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
end sub