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

Скриптик для фишинга!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=636		 Page 1 of 1
Author:  Bloodmoon [ 2004-06-23 08:58:06 ]
Post subject:  Скриптик для фишинга!
Привет всем!!!
Скиньте плиз скрипт на фишинг.Только чтоб координаты не задавать,а то это мудренно:).
Спасибо заранее!
Author:  BETEPAH [ 2004-06-23 17:41:08 ]
Post subject: 
Прива БлудМун .....я ВЕТЕР (ДРВ)

Лови

sub fishing()
var mx, my, mz, i, j
uo.print('Ведро для рыбы где ?')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend

UO.Say (',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
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

sub terminate()
UO.Print("ALL OFF")
uo.exec("terminate all")
end sub
Author:  Bloodmoon [ 2004-06-24 09:37:25 ]
Post subject: 
Спасибо за скрипт...
Сначала он пытаеться ловить слева(но там нет воды),а потом с другой стороны.
Вродебы нормана:)
Спасибо.
Author:  Bloodmoon [ 2004-06-24 10:02:33 ]
Post subject: 
Он все время пишит,что invalid object 4,3,2,1.Это что такое?
Author:  BETEPAH [ 2004-06-24 18:07:22 ]
Post subject: 
Я просто чтобы не писать масив на рыбу .... взял старый пример скрипта.Он пытается поднять не существующей типы рыбы.

Пример ты воловил рыбу с номером '0x09CD','0x0000'
но под тобой нету рыбы у которой номер '0x09CC','0x0000'
А инжа все равно пытается ее взять ....вот и пишет что не найден обьект.........если мещает то напиши мне, я сделаю масив "рыба и он просто не будет писать про не найдый тип.
Author:  Bloodmoon [ 2004-06-25 20:24:24 ]
Post subject: 
BETEPAH wrote:
Я просто чтобы не писать масив на рыбу .... взял старый пример скрипта.Он пытается поднять не существующей типы рыбы.

Пример ты воловил рыбу с номером '0x09CD','0x0000'
но под тобой нету рыбы у которой номер '0x09CC','0x0000'
А инжа все равно пытается ее взять ....вот и пишет что не найден обьект.........если мещает то напиши мне, я сделаю масив "рыба и он просто не будет писать про не найдый тип.

Спасибо!Я уже не обращаю внимание:).
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/