Yoko

Вот заделал 3 скриптика небольших:

sub BuyVendor()
   var flag, i, SerialNew, Name
   uo.Set('finddistance','14')
      uo.FindType("0x0190","-1","ground")
      if uo.FindCount() then
         SerialNew=UO.GetSerial("finditem")
            UO.Click(SerialNew)
            wait(1000)
            Name=UO.GetName(SerialNew)
            UO.buy('test1',Name)
           UO.Say(Name+" buy")
      endif
end sub

sub SellVendor()
   var flag, i, SerialNew, Name
   uo.Set('finddistance','14')
      uo.FindType("0x0190","-1","ground")
      if uo.FindCount() then
         SerialNew=UO.GetSerial("finditem")
            UO.Click(SerialNew)
            wait(1000)
            Name=UO.GetName(SerialNew)
            UO.sell('test2',Name)
           UO.Say(Name+" sell")
      endif
end sub

sub Alchemy()
VAR Exit=0, LastTimer
while Exit<>1
  UO.DeleteJournal()
  LastTimer=UO.Timer()
  UO.WaitMenu('What sort of potion do you','Strength')
  wait(100)
  UO.UseType(0x0F86)
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed mixture from the mortar")
   wait(500)
  wend
  If UO.InJournal("You toss the failed mixture from the mortar") then
   repeat
    wait(100)
   until UO.Timer()>=LastTimer+150
  EndIf
wend
end sub

Главная моя задача объединить эти скрипты в один полноценно работающий.
Тоесть бот стоит около вендора (в идеале хотелось бы чтобы он за вендором ходил, на случай если тот отойдет), покупает у него определенные ингредиенты (при этом следит за их наличием у себя и при необходимости докупает), крафтит из этих ингредиентов определенный товар, продает его этому же вендору.

Помогите состряпать такой скриптик либо наведите на мысль как это сделать(на пример может быть похожий).

P.S. Если вы играете на Олд Парадиз, можно договорится, за работу плачу RP. либо вмз...

Если ты "заделал" эти скрипты сам, то не думаю что ты не сможешь их обьединить... так и говори, спи*дил где-то и не присваивай чужую славу себе!

Если ты "заделал" эти скрипты сам, то мне с трудом вериться в то, что ты не можешь их обьединить... так и говори, спи*дил где-то и не присваивай чужую славу себе!

sub main()
while 1
первый скрипт 
второй скрипт 
третий скрипт
wend
end sub