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

Люди помогите со скриптом
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3053		 Page 1 of 1
Author:  CROVCHUK [ 2005-02-10 16:04:00 ]
Post subject:  Люди помогите со скриптом
Я незнаю какие параметры нужно исправить чтоб он рыбу не брал а брал токо карты и сеть с рар рыбой и призовой рыбкой тож шард дрв

Code:
sub fishing() 
var mx, my, mz, i, j 
uo.print('А где ведро?') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 

mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
for i = mx-4 to mx+4 
for j = my -4 to my+4 
if UO.dead() then 
return 
endif 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("hiding...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 

UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water") 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DBF") ;FishingPole 
if UO.dead() then 
return 
endif 
if UO.Weight>660 then 
return 
endif 
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) 
if UO.InJournal("You pull") then 
UO.SetReceivingContainer('Bag') 
UO.findtype('0x09CC','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x09CD','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x09CE','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x09CF','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x14EB','0x0000','ground') ;tattered map 
UO.grab ('1','finditem') 
wait (200) 
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish 
UO.grab ('1','finditem') 
wait (200) 
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish 
UO.grab ('1','finditem') 
wait (200) 
UO.UnSetReceivingContainer() 
end if 
wend 
wend 
UO.DeleteJournal() 
next 
next 
end sub
Author:  CROVCHUK [ 2005-02-10 17:15:21 ]
Post subject: 
Code:
dim Fish[6] 
Fish[0]=0x09CC  
Fish[1]=0x09CD  
Fish[2]=0x09CE  
Fish[3]=0x09CF 
Fish[4]=0x14EB 
Fish[5]=0x0DD6 
Fish[6]=0x0DD6 

uo.Print('Выбери контейнер...') 
uo.Exec('addobject Bag') 
while uo.Targeting() 
wait(100) 
wend 

uo.Print('Выбери удочку...') 
uo.Exec('addobject FishPole') 
while uo.Targeting() 
wait(100) 
wend 

Beginning: 
uo.Set('finddistance','4') 
mX = uo.getX("self") 
mY = uo.getY("self") 
mZ = uo.getZ("self") 
uo.DeleteJournal() 
for i = mX-4 to mX+4 
for j = mY-4 to mY+4  
if uo.Dead() then 
return 
end if 

if TryToHide==1 then 
ToHide() 
end if 

uo.Print("Сейчас ловим: "+str(mx-i)+" "+str(my-j)) 
while not uo.InJournal("no fish here") and not uo.InJournal("location") and not uo.InJournal("far away") and not uo.InJournal("in water") 
uo.DeleteJournal() 
uo.Waittargettile("1341", str(i), str(j), str(mZ)) 
uo.UseObject("FishPole") 
if uo.Dead() then 
return 
end if 
if uo.Weight>MaxWeight then 
wait(3000) 
goto Beginning 
end if 
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) 
if uo.InJournal("You pull") then 

if a>0 then 
uo.print(STR(a)) 
end if 

if TakeFish==0 then 
uo.Print('Собираем рыбу.') 
for f=0 to 3 
uo.FindType(Fish[f],"-1","ground") 
if uo.Count(Fish[2])> 0 then 
a= a+1 
end if 
uo.MoveItem("finditem","1","Fishs") 
wait(200) 
next 
end if 

if TakeMaps==1 then 
uo.Print('Собираем карты.') 
for f=4 to 4 
uo.FindType(Fish[f],"-1","ground") 
uo.MoveItem("finditem","-1","Maps") 
wait(200) 
next 
end if 

if TakeRareFish==1 then 
uo.Print('Собираем рар рыбу.') 
for f=5 to 5 
uo.FindType(Fish[f],"-1","ground") 
uo.MoveItem("finditem","-1","RareFish") 
wait(200) 
next 
end if 

if TakePrizeFish==1 then 
uo.Print('Собираем приз рыбу.') 
for f=6 to 6 
uo.FindType(Fish[f],"-1","ground") 
uo.MoveItem("finditem","-1","PrizeFish") 
wait(200) 
next 
end if 
  
end if 
wend 
wend 
uo.DeleteJournal() 
next 
next 
end sub 

sub ToHide() 
while not uo.Hidden() 
uo.Exec('warmode 0') 
uo.Print('Пытаемся уйти в хайд...') 
uo.DeleteJournal() 
uo.UseSkill('Stealth') 
wait(4100) 
wend 
wait(100) 
end sub


переделал скрипт эмиля,но возникает вопрос как сделать так чтобы он если в данной точке есть рыба автоматом переходил далее по линии ловли,пока не найдет рар рыбу или карту или призовую рыбу? а не ловил тупо в одной точке до тех пор,пока там не закончилась рыба? люди помогите!
Author:  CROVCHUK [ 2005-02-10 17:33:57 ]
Post subject: 
люди и в этом разобрался мне теперь надо только одно засунуть туда хайд,чтоб он в хайд вставал

Code:
 
sub fishing() 
var mx, my, mz, i, j 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
for i = mx-4 to mx+4 
for j = my -4 to my+4 
if UO.dead() then 
return 
endif 
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water") 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DBF") 
if UO.dead() then 
return 
endif 
if UO.Weight>1620 then 
return 
endif 
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) 
if UO.InJournal("You pull") then 
UO.findtype('0x14EB','0x0000','ground') ;tattered map 
UO.grab ('1','finditem') 
wait (500) 
end if 
wend 
wend 
UO.DeleteJournal() 
next 
next 
end sub
Author:  CROVCHUK [ 2005-02-10 18:43:53 ]
Post subject: 
блин,всеравно по тупому ловит в одной точке,чето я напутал.....
Люди ну помогите плиззззззз
очень надо,чтоб без всяких реколов у меня дом как раз рядом с водой,блин как сделать,я все перепробовал,скрипты все не мои,авторам сенк: Ветеран, Емиль, Асканели
Author:  BETEPAH [ 2005-02-11 09:23:38 ]
Post subject: 
Попробуй взять Фишинг Кулера. Там в настройках вроде можно сделать что бы не реколился.
Author:  CROVCHUK [ 2005-02-11 15:42:11 ]
Post subject: 
пойми,мне нужно не это,мне нужно сделать так чтоб он не терял времяни при ловле,тоесть если в точке обнаружена рыба-простая,чтоб при ее обнаружении он резко переходил по траектории ловли и не продолжал ловить в том месте,где водится только рыба,я подобное видел,там чел за 5 мин 20 карт ловил!

Правленно Ветром. Крафчук ...добавь Тяги в скрипта
Author:  Hyperion [ 2005-02-12 16:39:11 ]
Post subject: 
Гы... было бы классно найти такой скриптик..=)) я уже тоже все поперепробовал... но подзабил на это дело, теперь приноровился ВРУЧНУЮ отлавливать карты быстрее скрипта =)).... хотя действительно, если кто шарит. подскажите как настроить скрипт что бы не долбил до посинения по одному тайлу, пока там рыба не кончися, а переходил к следующему при вылове из тайла обычной рыбы, ибо цель - надергать как можно больше карт и мелкой рыбы в минимально короткие сроки =))
Author:  SAMURAI [ 2005-02-12 17:36:10 ]
Post subject: 
Есть идейка на этот счёт.
Если получится, выложу, если нет - выложу пусть доделают отцы :roll: :mrgreen:
Author:  Hyperion [ 2005-02-13 18:59:59 ]
Post subject: 
=)) скриптик Самурая удалили.... а я его успел скопировать =))
Author:  Hyperion [ 2005-02-15 14:36:56 ]
Post subject: 
опробИровал скрипт выложенный Самураем: все-равно тупо выдолбливает тайл с ненужной рыбой, и только потом переходит к следующему =((.....
если все-таки, кто сталкивался с такой проблемкой, и нашел решение.... плиз выложьте скриптик =))
Author:  SAMURAI [ 2005-02-15 17:41:23 ]
Post subject: 
Дельнул я его сам, щас доработать хотелось но всё руки недоходят да и ифгня там получилась... Эхх добратся бы до него :mrgreen:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/