16
Dungeony / Re:Tutorial
« kdy: Březen 26, 2018, 09:26:52 dopoledne »Akolytka Mirana žádá 50 band, doopravdy ale 200opraveno
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.
Akolytka Mirana žádá 50 band, doopravdy ale 200opraveno
Díky ale nic. Číslo se nemění. Navíc to lootuje třeba ten kokos a ten se stackuje...ten posledni wait vloz do toho IFu nad tim
Prostě to nejsem schopen rozlousknout
if UO.GetQuantity('lastcorpse') then
UO.FindType(Loot[i],-1,'lastcorpse')
if UO.GetQuantity('finditem') then
UO.Grab(STR(0),'finditem')
wait(WaitTime)
endif
endif
Kód: [Vybrat]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
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
čekám už dva dny na potvrzení postavy, pořád nic, nevím co dělat mámzaklada se to rucne, myslim ze dneska se zakladaly/budou zakladat.