Discussion:______________
http://yoko.netroof.net/forum/viewtopic.php?t=605
Author or poster:_________
BETEP
Flash_4444@List.ru ICQ 233461603
Tested on:_______________
Dragon World (v0.55i)
http://www.drw.ru
Must work:_______________
Sphere emu
Customization required:____
Yes/place
Description:______________
(синтакс автора соблюдён) Скрипт ловит рыбу,карты сокровищь(На Шарде ДРВ есть такое) и складывает их в суммку которую вы указали.После запуска Герой спрячится (Hide).Ловит вокруг себя и делает проверки на "вылов",при положительной проверке находит рыбу или карту на полу и складывает ее в мешок.При отрецательной проверке перезабросит удочку в другое место При весе в 660 единиц скрипт заканчивает цикл и отключается.
Подойти на обрыв,берег,пляж. В руках Удочка,в Бэкпаке(сумке Героя) мешочек или любой другой пустой контейнер.Запустить Скрипт.Появится прицел. Инжект спросит вас "А где ведро?", укажите прицелом сумочку в бэкпаке..
Скрипт может отключится не дойдя до "критического веса".
Возможные причины:
1)Сломалась Удочка.
2)Скипт не может продолжить работу так как вы Мертвы.
3)Сбился процес ловли (нажать на удочку в меню чара 2 раза)
4)Скрипт по мимо того что "проверяет" наличие рыбы в воде и переброса удочки в другое место,может остановится если все "перезабросы" удочки дадут отрицательную проверку.(нужно выключить скрипт и передти на новое место).
Yoko comment:___________
none
________________________
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 (500)
UO.findtype('0x09CD','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (500)
UO.findtype('0x09CE','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (500)
UO.findtype('0x09CF','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (500)
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