Dne 5.4.2016 bylo zprovozněno fórum.
Zobrazit příspěvky
Tato sekce Vám umožňuje zobrazit všechny příspěvky tohoto uživatele. Prosím uvědomte si, že můžete vidět příspěvky pouze z oblastí Vám přístupných.
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
, nejvetsi problem je, ze clovek nema moc moznosti zjistit jak co funguje, kazdopadne v tomhle vlaknu ty informace jsou tak bych to asi zamkl 
