fishing HELP

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
predator-uo
Posts: 24
Joined: 2006-08-17 16:37:02

fishing HELP

Post by predator-uo »

est' macr, шард антарес, проблема в том что он не поднимает рыбку.

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-6 to mx+6 
for j = my -6 to my+6
if UO.dead() then 
return 
endif 

UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("Тут нету рыбы.") and not UO.InJournal("Вы поймали рыбу") and not UO.InJournal("Попробуйте порыбачить в другом месте") 
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("Тут нету рыбы.") and not UO.InJournal("Вы поймали рыбу") and not UO.InJournal("Попробуйте порыбачить в другом месте") 
wait (100) 
if UO.InJournal("You pull") then 
UO.SetReceivingContainer('Bag') 
UO.findtype('0x09CC','0x0000','ground') ;fish 
UO.grab ('1','finditem') 
wait (200) 
UO.findtype('0x09CD','0x0000','ground') ;fish 
UO.grab ('1','finditem') 
wait (200) 
UO.findtype('0x09CE','0x0000','ground') ;fish 
UO.grab ('1','finditem') 
wait (200) 
UO.findtype('0x09CF','0x0000','ground') ;fish 
UO.grab ('1','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
[/code]
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

проверь тип или колор
predator-uo
Posts: 24
Joined: 2006-08-17 16:37:02

Post by predator-uo »

тип и колор правильно
predator-uo
Posts: 24
Joined: 2006-08-17 16:37:02

Post by predator-uo »

всё понятно, там где строчка if UO.InJournal("You pull") then тут место You pull должна стоять фраза после которой идёт массив чтоли :) который поднимает то что выловил. Типо "Вы поймали рыбу"
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

умница 8)
Post Reply