Diskuse s GMs > Trénovací dovednosti

Taming

<< < (3/4) > >>

Ceridwen:
jako jo je to otrava obihat to, ale v momente kdy muzes lite vlky tak ti staci hloupy sc co snim bude chodit dokolecka a odtahnes si 1 na hranici spawnu kde te nic jineho neobtezuje a tamujes.. co si pamatuju ze zacatku jsem 1 tamoval i hodinu.. Dalsi moznost je pak tamovani v domku, ale to pak dojizdis skill i 2 mesice...

Mišohu:
Což je ale podmínka na hráče že si takovej dle tebe "jednoduchej" skript udělá a nebo ho od někoho sežene :(

Ceridwen:

--- Kód: ---sub kolecko()
   uo.deletejournal()
   var mx,my
   while not uo.injournal("Zda se, ze te zvire prijalo za sveho pana.")
      mx=uo.getX("self")
      my=uo.getY("self")
      move(mx, my-7)
      repeat
         wait(100)
      until uo.getdistance("zviratko")<4
      mx=uo.getX("self")
      my=uo.getY("self")
      move(mx+7, my)
      repeat
         wait(100)
      until uo.getdistance("zviratko")<4
      mx=uo.getX("self")
      my=uo.getY("self")
      move(mx, my+7)
      repeat
         wait(100)
      until uo.getdistance("zviratko")<4
      mx=uo.getX("self")
      my=uo.getY("self")
      move(mx-7, my)
     
      if uo.injournal("stop") then
         return
      endif
      repeat
         wait(100)
      until uo.getdistance("zviratko")<4
   wend
endsub

#################### MOVE FUNKCIE
;http://mrakoplash.stranky.org/

sub upravDir(dir)
   if dir < 0 then
      dir = dir+8
   end if
   if dir > 7 then
      dir = dir-8
   end if
   return dir 
endsub

sub Krok(dire)
   var dir = UO.GetDir()
   var x = uo.getx()
   var y = uo.gety()
   var cas = 0
   var lagy = 6
   var kk = "33;39;34;40;35;37;36;38;"
   dire = upravdir(dire)
   var i = dire * 3
   var k = val( kk[i] + kk[i+1])
   if ( dire <> dir ) then
      UO.Press(k)
      Wait(50)
   endif
   UO.Press(k)
   repeat
      Wait(50)
      cas = cas+1
   until ((( uo.getx() <> x ) or ( uo.gety() <> y ) or ( cas > lagy )))
   if ( cas < lagy+1 ) then
      return true
   else
      return false
   endif
end sub

sub Move(GX,GY)
   var x,y,dir
   repeat
      ;Kontrolajournalu()
      X = UO.GetX()
      Y = UO.GetY()
      dir = -1
      if ( GX > X ) then
         dir = 2
      endif
      if ( GX < X ) then
         dir = 6
      endif
      if dir > -1 then
         if not krok(dir) then
            HledejCestu(dir,gx,gy)
         endif
      endif
      dir = -1
      if ( GY > Y ) then
         dir = 4
      endif
      if ( GY < Y ) then
         dir = 0
      endif
      if dir > -1 then
         if not krok(dir) then
            HledejCestu(dir,gx,gy)
         endif
      endif
   until (( X == GX ) and ( Y == GY ))
end sub

Sub HledejCestu(SMP,GX,GY)
   if not Gobok(Smp,smp-2,gx,gy) then
      gobok(Smp,smp+2,gx,gy)
      gobok(Smp,smp+2,gx,gy)
   endif
end sub

Sub Gobok(SMP,sm,gx,gy)
   upravDir(SMP)
   upravDir(SM)
   while true                       ;nalezeni moznosti pohybu dostrany
      if ((UO.GetX()==gx) and (UO.GetY()==gy)) then
         return true
      endif
      if not Krok(SMP) then
         if not Krok(sm) then
            Return false
         endif
      else
         Return true
      endif
   wend
EndSub

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

v inj pridas to co tamujes jako zviratko ",addobject zviratko" a melo by to chodit dokola kolem nej, ale musi  to byt neco co chodi pomalu, zadny vlkodav  ;D

Mišohu:
Díky ale stejně se budu snažit lobovat za nějakou úpravu ze strany GM :)

Ceridwen:
myslim ze neuspejes, tameru je tu plno a stim jak jsou spawny pravidelne tak je to vecne vybrane.. ono nastavit ty spawny aby se tocily nahodne v rozsahu treba i 48 hodin to by bylo zajimavy  ;D

Navigace

[0] Seznam témat

[#] Další strana

[*] Předchozí strana