Мальчики, нужна помощь :wink:

[Kitten]

Буду благодарна за помощь. Фишинг без хайда. В общем то скрипт с этого сайта. Вроде все понятно впринципе, под свой шард поправила все, но что то не то. Когда начинает перебирать клетки, на всех пишет "You can`t fish there". Так обычно пишет если пытаешься рыбачить замлю. Ну и так по кругу Есть подозрение, что фактически тыкается только в клетку, где стою я, принтая 4 4, 4 3, 4 2,4 1 и т.д. как будто действительно делает все правильно.
В общем, мальчики, помогите пожалуйста. Нужно чтобы рыбачил без остановки, но два типа рыбы и карты, выпадающие на пол, выкладывал в рядом стоящий мешочек. Обычная выпадающая рыба будет локаться автоматически и без скрипта.
С перекладкой нужной рыбы не парьтесь, там я все забью сама, но вот с самой рыбалочкой очень большая просьба помочь. Вот скрипт

Code: Select all

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 

UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("seem to be any fish here") and not 

UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("t 

fish there") 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DBF") ;FishingPole 

while not UO.InJournal("You pull") and not UO.InJournal("location") and not 

UO.InJournal("seem to be any fish here") and not UO.InJournal("but fail") and not 

UO.InJournal("far away") and not UO.InJournal("t fish there") 
wait (100) 
if UO.InJournal("You pull") then 
UO.SetReceivingContainer('Bag') 
UO.findtype('0x14EB','0x0000','ground') ;tattered map 
UO.grab ('1','finditem') 
wait (500) 
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish 
UO.grab ('1','finditem') 
wait (500) 
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish 
UO.grab ('1','finditem') 
wait (500) 
UO.UnSetReceivingContainer() 
end if 
wend 
wend 
UO.DeleteJournal() 
next 
next 
end sub 

Заранее спасибо

[Scripts Writer]

Обход тайлов проходит по квадрату, в центре которого ты а до близжайшей стороны 4 тайла. Попробуй задать свою область.

2А там вообще рыбачить можно?

[Kitten]

Там берег вот так /
снизу справа суша, слева сверху вода. Рыбачить вручную точно получается. На пилоте рыбачит впринципе. Только там простОй (Wait 53 секунды) долгий если клетка выловлена не до конца. Это есс-но время теряется. Я не поняла почему так, на пилоте норм, в инже нет хз. Мининг по такому принципу копает

[Scripts Writer]

А если так?

Code: Select all

sub fishing() 
var mx, my, mz, i, j 
uo.Set('finddistance','15')
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 

UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 

while not UO.InJournal("seem to be any fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("t fish there") 
  UO.DeleteJournal()  
  UO.Waittargettile("-1", str(i), str(j), str(mz))  
  UO.Usetype("0x0DBF") ;FishingPole 
  wait(250)
  
  repeat
    wait (100) 
  until UO.InJournal("You pull") || UO.InJournal("location") || UO.InJournal("seem to be any fish here") || UO.InJournal("but fail") || UO.InJournal("far away") || UO.InJournal("t fish there") 
  if UO.InJournal("You pull") then  
    UO.SetReceivingContainer('Bag') 
    UO.findtype('0x14EB','0x0000','ground') ;tattered map 
    UO.grab ('1','finditem') 
    wait (500) 
    UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish 
    UO.grab ('1','finditem') 
    wait (500) 
    UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish 
    UO.grab ('1','finditem') 
    wait (500) 
    UO.UnSetReceivingContainer() 
  end if 
wend 
UO.DeleteJournal() 
next 
next 
end sub

[Kitten]

А если так?

то же самое, как будто он под собой пытается ловить.
Попробуйте плз че нить сделать, я завтра посмотрю, седня уже не могу к сожалению читать. Шард - Утопия... 195.58.0.130,5003

[Kitten]

Вот подумала, может тут играет роль высота тайла?
Там на воде z=-5 . У самой ни че не получается все равно. Помогите пожалуйста...

[Kitten]

Ой ппц. Прочитала про tilenum. Поковыряла все, вобщем разные тайлы. Причем если я ставлю какой то один (я писала что там половина суша, половина берег), То вроде все клетки перебирает. Буквально все, в том числе где суша и удачно рыбачит на них... Жуть... Как бы такое запрещено, помогите пожалйста с фишиногом... Возможно как то исключить половину клеток можно? Либо проверку по цвету.

[Scripts Writer]

Запрещено рыбачить на всех тайлах вокруг? Делай тогда область на которой можно изменяя значения первоначальных х и у, тчобы был не квадрат в котором ты в центре, а прямоугольник на котором ты в середине левой грани и т.д. подгоняя под свою "воду".

[Kitten]

Запрещено рыбачить на всех тайлах вокруг? Делай тогда область на которой можно изменяя значения первоначальных х и у, тчобы был не квадрат в котором ты в центре, а прямоугольник на котором ты в середине левой грани и т.д. подгоняя под свою "воду".

Нет запрещено рыбачить в воде сквозь сушу Понимаешь, он как бы сквозь землю в воду попадает, там ничего конечно не вылавливается, но факт использования запрещенных программ тут на лицо...

Вот идеально было бы чтоб я могла задать координаты этого прямоугольника вручную, подскажи пожалуйста как это можно реализовать?

[Scripts Writer]

Code: Select all

for mx=-4 to mx=4
  for my=-4 to my=4

Здесь у тебя задаётся обход квадрата в котором ты в центре.

[Kitten]

Code: Select all

for mx=-4 to mx=4
  for my=-4 to my=4

Здесь у тебя задаётся обход квадрата в котором ты в центре.

Спасибо, большое, придется так и делать...