Page 1 of 1
Мальчики, нужна помощь :wink:
Posted: 2007-10-20 08:03:18
by 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
Заранее спасибо
Posted: 2007-10-20 11:07:08
by Scripts Writer
Обход тайлов проходит по квадрату, в центре которого ты а до близжайшей стороны 4 тайла. Попробуй задать свою область.
2А там вообще рыбачить можно?
Posted: 2007-10-20 11:31:55
by Kitten
Там берег вот так /
снизу справа суша, слева сверху вода. Рыбачить вручную точно получается. На пилоте рыбачит впринципе. Только там простОй (Wait 53 секунды) долгий если клетка выловлена не до конца. Это есс-но время теряется. Я не поняла почему так, на пилоте норм, в инже нет хз. Мининг по такому принципу копает
Posted: 2007-10-20 11:36:50
by 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
Posted: 2007-10-20 12:40:11
by Kitten
Scripts Writer wrote:А если так?
то же самое, как будто он под собой пытается ловить.
Попробуйте плз че нить сделать, я завтра посмотрю, седня уже не могу к сожалению читать. Шард - Утопия... 195.58.0.130,5003
Posted: 2007-10-21 07:24:55
by Kitten
Вот подумала, может тут играет роль высота тайла?
Там на воде z=-5 . У самой ни че не получается все равно. Помогите пожалуйста...
Posted: 2007-10-21 07:50:05
by Kitten
Ой ппц. Прочитала про tilenum. Поковыряла все, вобщем разные тайлы. Причем если я ставлю какой то один (я писала что там половина суша, половина берег), То вроде все клетки перебирает. Буквально все, в том числе где суша и удачно рыбачит на них... Жуть... Как бы такое запрещено, помогите пожалйста с фишиногом... Возможно как то исключить половину клеток можно? Либо проверку по цвету.
Posted: 2007-10-21 09:07:19
by Scripts Writer
Запрещено рыбачить на всех тайлах вокруг? Делай тогда область на которой можно изменяя значения первоначальных х и у, тчобы был не квадрат в котором ты в центре, а прямоугольник на котором ты в середине левой грани и т.д. подгоняя под свою "воду".
Posted: 2007-10-21 10:46:01
by Kitten
Scripts Writer wrote:Запрещено рыбачить на всех тайлах вокруг? Делай тогда область на которой можно изменяя значения первоначальных х и у, тчобы был не квадрат в котором ты в центре, а прямоугольник на котором ты в середине левой грани и т.д. подгоняя под свою "воду".
Нет запрещено рыбачить в воде сквозь сушу
Понимаешь, он как бы сквозь землю в воду попадает, там ничего конечно не вылавливается, но факт использования запрещенных программ тут на лицо...
Вот идеально было бы чтоб я могла задать координаты этого прямоугольника вручную, подскажи пожалуйста как это можно реализовать?
Posted: 2007-10-21 10:53:07
by Scripts Writer
Code: Select all
for mx=-4 to mx=4
for my=-4 to my=4
Здесь у тебя задаётся обход квадрата в котором ты в центре.
Posted: 2007-10-22 05:53:41
by Kitten
Scripts Writer wrote:Code: Select all
for mx=-4 to mx=4
for my=-4 to my=4
Здесь у тебя задаётся обход квадрата в котором ты в центре.
Спасибо, большое, придется так и делать...