Yoko

All sides of Injection
It is currently 2017-09-25 04:21:07

All times are UTC+02:00




Post new topic  Reply to topic  [ 1 post ] 
Author Message
PostPosted: 2004-06-24 01:02:18 
Offline
Site Admin
User avatar

Joined: 2004-04-03 16:49:38
Posts: 1968
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


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 1 post ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited