Yoko
http://forum.yoko.com.ua/

Помогите или обьясните как слепить 3 скрипта в один...
http://forum.yoko.com.ua/viewtopic.php?f=20&t=16174		 Page 1 of 1
Author:  olnev115 [ 2011-02-08 10:34:08 ]
Post subject:  Помогите или обьясните как слепить 3 скрипта в один...
Вот заделал 3 скриптика небольших:

Code:
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


Code:
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


Code:
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. либо вмз...
Author:  Kynep [ 2011-02-10 10:40:41 ]
Post subject:  Re: Помогите или обьясните как слепить 3 скрипта в один...
olnev115 wrote:
Вот заделал 3 скриптика небольших:


Если ты "заделал" эти скрипты сам, то не думаю что ты не сможешь их обьединить... так и говори, спи*дил где-то и не присваивай чужую славу себе! :evil:
Author:  Kynep [ 2011-02-10 10:41:24 ]
Post subject:  Re: Помогите или обьясните как слепить 3 скрипта в один...
olnev115 wrote:
Вот заделал 3 скриптика небольших:


Если ты "заделал" эти скрипты сам, то мне с трудом вериться в то, что ты не можешь их обьединить... так и говори, спи*дил где-то и не присваивай чужую славу себе! :evil:
Author:  Irina E [ 2011-02-10 20:19:34 ]
Post subject:  Re: Помогите или обьясните как слепить 3 скрипта в один...
Code:
sub main()
while 1
первый скрипт 
второй скрипт 
третий скрипт
wend
end sub


:mrgreen:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/