Yoko
http://forum.yoko.com.ua/

Помогите...
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7179		 Page 1 of 1
Author:  megafakel [ 2006-03-29 08:29:00 ]
Post subject:  Помогите...
Здраствуйте я облазил весь форум с поиском , без поиска но не нашол для себя подходящий скрипт... :( Мне нужен скрипт чтобы он ловил вокрук плота 1 круг потом к примеру поплыл в сторону Left или Bleck ([/b]всеравно куда) отплыв некоторое растояние нажимал Stop и ловил опять так же вокруг плота 1 круг и повторяется до бесконечности...

ПОМОГИТЕ ПОЖАЛУЙСТА :(
Author:  SESTRA [ 2006-03-29 08:58:27 ]
Post subject: 
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

VAR LastTimer, Sea

UO.UnSetcatchbag()
LastTimer=UO.Timer()

uo.usetype('0x13FE') ;weapon
wait(500)
uo.waittargetground()
UO.UseType('0x1B76') ;shield
wait(500)

UO.DeleteJournal()
UO.Exec('warmode 1')

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

sub killelem()

VAR LastTimer, elem

UO.UnSetcatchbag()
LastTimer=UO.Timer()

uo.usetype('0x13FE') ;weapon
wait(500)
uo.waittargetground()
UO.UseType('0x1B76') ;shield
wait(500)

UO.DeleteJournal()
UO.Exec('warmode 1')

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


незнаю по кругу или нет он ловит но ловит норм и плавает )
Author:  megafakel [ 2006-03-29 10:05:55 ]
Post subject: 
ошибка :(
дайте другой?
Author:  Binx [ 2006-03-29 11:41:01 ]
Post subject: 
эм а куда сувать скрипты???а то я хз )хочу поставить качатса и уити но незнаю куда скрипты ставить )
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/