Yoko

Code: Select all

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: Select all

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: Select all

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

Code: Select all

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