Autor Téma: Taming  (Přečteno 5884 krát)

Nevrath

  • Novic
  • *
  • Příspěvků: 7
  • Karma: +0/-0
    • Zobrazit profil
Taming
« kdy: 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

Ceridwen

  • Expert
  • **
  • Příspěvků: 57
  • Karma: +3/-1
    • Zobrazit profil
Re:Taming
« Odpověď #1 kdy: 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

Nevrath

  • Novic
  • *
  • Příspěvků: 7
  • Karma: +0/-0
    • Zobrazit profil
Re:Taming
« Odpověď #2 kdy: Duben 07, 2018, 11:54:24 odpoledne »
ďakujem ti moc!^^ :3