Yoko

Дорбрый день...прошу вашей помощи..
есть скрипт...мои невеликий познания помогли мне его анчать ..прошу законичить...

смысл таков....
чар покупает ткань...потом делает из нее плащи и продает плащи....снова покупает ткань....
еще хотелось бы что бы вы помогли мне вставить какуюто функцию по которой чар будет покупать определенное количество ткани.. скаже не все что есть у вендолра а по 100 штук и продавал плищи что

вот мои наброски....

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