UO Erebor Forum

Hráči hráčům => Offtopic => Téma založeno: Nevrath Duben 07, 2018, 06:52:46 odpoledne

Název: Taming
Přispěvatel: Nevrath Duben 07, 2018, 06:52:46 odpoledne

Ahojky, zase otravujem xD
Nemali by ste niekto prosím skript na yoko na tamovanie? Hladám po nete ale Lara Craft má urobené na DK a v tých ruských na YOKO fóre sa nevyznám xD

Název: Re:Taming
Přispěvatel: Ceridwen Duben 07, 2018, 08:56:55 odpoledne

neco jsem nasel

Kód: [Vybrat]

sub taming()
   Taming(true);
endsub
sub tam()
   
   Taming(false)
   uo.playwav("C:\afk.wav")
endsub

Sub Taming(release)
   var count=0
   var tries=0
   var feedtry=10   # po kolika pokusech o taming ma nakrmit
   uo.print('Zamer zviratko')
   uo.exec('addobject zviratko')
   while uo.targeting()
      wait(100)
   wend
   UO.click('zviratko')
   wait(200)
   uo.say('.nakrm')
   UO.WaitTargetObject('zviratko')
   
   wait(500)
   UO.DeleteJournal()
   while NOT UO.Dead()
      tries=tries+1
      if tries >feedtry then
         uo.say('.nakrm')
         UO.WaitTargetObject('zviratko')
         tries=0;
         wait(500)
      endif
      UO.DeleteJournal()
      UO.WaitTargetObject('zviratko')
      wait(100)
      Uo.UseSkill("Animal Taming")
      repeat
         wait(500)
      until UO.InJournal('Nepovedlo se ti zvire ochocit') OR UO.InJournal('Zda se, ze te zvire prijalo za sveho pana.')  OR UO.InJournal(' je jiz ochocene.')
      If Uo.InJournal('Zda se, ze te zvire prijalo za sveho pana.')OR UO.InJournal(' je jiz ochocene.') Then
         if release==true then
            wait(1500)
            UO.Say(uo.getname('zviratko')+' release')
            wait(1000)
         else
            return
         endif
      Endif
   wend
end sub
##########################################################################################
sub jdi_na(x, y)
   while (x <> UO.GetX() or y <> UO.GetY())
      if (x < UO.GetX() and y > UO.GetY()) then # smer vlevo
         UO.Press (37)
      end if
      if (x > UO.GetX() and y < UO.GetY()) then # smer vpravo
         UO.Press (39)
      end if
      if (x < UO.GetX() and y < UO.GetY()) then # smer nahoru
         UO.Press (38)
      end if
      if (x > UO.GetX() and y > UO.GetY()) then # smer dolu
         UO.Press (40)
      end if
      if (x < UO.GetX() and y == UO.GetY()) then # smer vlevo-nahoru
         UO.Press (36)
      end if
      if (x > UO.GetX() and y == UO.GetY()) then # smer vpravo-dolu
         UO.Press (34)
      end if
      if (x == UO.GetX() and y > UO.GetY()) then # smer vlevo-dolu
         UO.Press (35)
      end if
      if (x == UO.GetX() and y < UO.GetY()) then # smer vpravo-nahoru
         UO.Press (33)
      end if
      ; uo.deletejournal()
   wend
   
end sub ; jdi_na

sub walker()
   repeat
      jdi_na (UO.GetX("zviratko"), UO.GetY("zviratko"))
      wait(500)
   until UO.Dead()
end sub

Sub deljournal(msg)
   while uo.injournal(msg)
      uo.setjournalline(uo.injournal(msg)-1,"")
   wend
endsub

Název: Re:Taming
Přispěvatel: Nevrath Duben 07, 2018, 11:54:24 odpoledne

ďakujem ti moc!^^ :3