Здраствуйте я облазил весь форум с поиском , без поиска но не нашол для себя подходящий скрипт... Мне нужен скрипт чтобы он ловил вокрук плота 1 круг потом к примеру поплыл в сторону Left или Bleck ([/b]всеравно куда) отплыв некоторое растояние нажимал Stop и ловил опять так же вокруг плота 1 круг и повторяется до бесконечности...
sub main()
uo.deletejournal()
var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
for i = mx+2 to mx+6
for j = my-6 to my+6
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF")
uo.deletejournal()
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in water")
wait(100)
wend
next
next
uo.say("FORWARD")
wait(7000)
uo.say("stop")
uo.exec("exec main")
end sub
sub unloadc(container)
uo.canceltarget()
uo.ignorereset()
uo.findtype("-1","-1","backpack")
while uo.findcount()
uo.print(str(uo.findcount())+" back")
if (uo.getgraphic("finditem")<>"0x13FE" and uo.getgraphic("finditem")<>"0x13F6" and uo.getgraphic("finditem")<>"0x0E21" and uo.getgraphic("finditem")<>"0x1B76" and uo.getgraphic("finditem")<>"0x0EFA") or uo.getquantity("finditem")>500 then
uo.moveitem("finditem","-1",container)
wait(200)
end if
uo.ignore("finditem")
uo.findtype("-1","-1","backpack")
wend
end sub
sub killsea()
If UO.Count('0x0E21', '0x0000')<50 then
UO.FindType('0x0E21', '0x0000', 0x4005B361)
UO.Grab("50","finditem")
Wait(400)
endif
UO.FindType('0x0096',-1,'ground')
Sea=UO.GetSerial('finditem')
UO.Attack(Sea)
repeat
wait(1000)
If UO.Life<90 Then
repeat
UO.Bandageself()
wait(2500)
UO.Attack(Sea)
until UO.Life>=115
Endif
until UO.IsNPC(Sea)==0
wait(3000)
UO.Attack(Sea)
UO.FindType('0x0096',-1,'ground')
If UO.GetQuantity('finditem')>0 Then
wait(500)
UO.Attack(Sea)
killsea()
Endif
UO.Exec('warmode 0')
wait(1000)
wait(1000)
uo.waittargetobject("lastcorpse")
uo.usetype('0x13F6')
wait(500)
uo.findtype("-1","-1","lastcorpse")
while uo.findcount()
uo.moveitem("finditem")
uo.ignore("finditem")
wait(1200)
uo.findtype("-1","-1","lastcorpse")
wend
wait(500)
uo.exec("exec main")
end sub
UO.FindType('0x0010',-1,'ground')
elem=UO.GetSerial('finditem')
UO.Attack(elem)
repeat
wait(1000)
If UO.Life<90 Then
repeat
UO.Bandageself()
wait(2500)
UO.Attack(elem)
until UO.Life>=115
Endif
until UO.IsNPC(elem)==0
wait(3000)
UO.Attack(elem)
UO.FindType('0x0010',-1,'ground')
If UO.GetQuantity('finditem')>0 Then
wait(500)
UO.Attack(elem)
killelem()
Endif
UO.Exec('warmode 0')
wait(1000)
uo.exec("exec main")
end sub
незнаю по кругу или нет он ловит но ловит норм и плавает )
Мне нужен скрипт чтобы он ловил вокрук плота 1 круг потом к примеру поплыл в сторону Left или Bleck ([/b]всеравно куда) отплыв некоторое растояние нажимал Stop и ловил опять так же вокруг плота 1 круг и повторяется до бесконечности...