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

хмм, помогите со скриптом - рыбалка
http://forum.yoko.com.ua/viewtopic.php?f=3&t=2437		 Page 1 of 1
Author:  DePawlur [ 2005-01-02 03:42:49 ]
Post subject:  хмм, помогите со скриптом - рыбалка
вот скрипт: (Скрипт взят с этого форума!!!)

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-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("location") and not UO.InJournal("far away") and not UO.InJournal("Â ýòîì ìåñòå íåëüçÿ ëîâèòü ðûáó!") 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DC0") ;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("Çäåñü áîëüøå íåò ðûáû...") and not UO.InJournal("but fail") and not UO.InJournal("invalid object") and not UO.InJournal("Â ýòîì ìåñòå íåëüçÿ ëîâèòü ðûáó!") 
wait (100) 
if UO.InJournal("You pull") then 
UO.SetReceivingContainer('Bag') 
UO.findtype('0x09CB','0x0000','ground')
UO.grab ('5','finditem') 
wait (100)

UO.UnSetReceivingContainer() 
end if 
wend 
wend 
UO.DeleteJournal() 
next 
next 
end sub


Моя задача состоит в том, чтобы сделать
if not UO.findtype('0x09CB','0x0000','ground') then
и он должен начинать рыбачить в следующем квадрате...
помогите пожалуйста, а то я никак не соображу?
Author:  AGRS [ 2005-01-02 09:03:34 ]
Post subject:  Re: хмм, помогите со скриптом - рыбалка
Code:
while not UO.InJournal("Çäåñü áîëüøå íåò ðûáû...") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("Â ýòîì ìåñòå íåëüçÿ ëîâèòü ðûáó!")

заменить на
Code:
UO.findtype('0x09CB','0x0000','ground')
while not UO.InJournal("Çäåñü áîëüøå íåò ðûáû...") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("Â ýòîì ìåñòå íåëüçÿ ëîâèòü ðûáó!") and (UO.FindCount>0)



а еще


Code:
end if 
wend 
wend

заменить на
Code:
end if 
wend 
UO.findtype('0x09CB','0x0000','ground')
wend
Author:  DePawlur [ 2005-01-04 14:56:35 ]
Post subject: 
Объясни пожалуйста, как ты посылаешь Code?
Я пошлю то - что получилось, хотя у мен ничего не получилось, но ты хотябы мои ошибки посмотришь... заранее благодарен
Author:  joker_psix [ 2005-01-04 22:20:40 ]
Post subject: 
типа начало [cоde] и конец [/cоde]
Author:  DePawlur [ 2005-01-05 20:16:37 ]
Post subject: 
вобщем у меня какая - то каша -малаша получилась. Я сделал всё как AGRS посоветовал но Инжект пишет: line xx: variable undefined - UO.FINDCOUNT
Может можно указать тип и цвет, типа "uo.findcount('0x0000', '0x0000')"?
Или это потому что на земле не лежит ни одного предмета запрашиваемого типа?
Или может нужно указать число перед findcount'ом?
Помогите пожалуйста... может у кого есть и другие предложения, насчёт скрипта... я пока его попытаюсь доработать.... joker_psix спасибо за Code!
Author:  AGRS [ 2005-01-05 20:24:34 ]
Post subject: 
Верно подмечено. ))

(UO.FindCount>0) замени на (UO.FindCount()>0)

Это у меня хроническое. :lol: :oops:
Author:  DePawlur [ 2005-01-05 20:42:27 ]
Post subject: 
Хмм... работать начало... но по моему не корректно, т.к. он весь скрипт за секунду прогоняет....
я вот как сделал...
я вот сюда:
Code:
while not UO.InJournal("Çäåñü áîëüøå íåò ðûáû...") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("Â ýòîì ìåñòå íåëüçÿ ëîâèòü ðûáó!")

в 21й строке добавил:
Code:
while not UO.InJournal("Çäåñü áîëüøå íåò ðûáû...") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("Â ýòîì ìåñòå íåëüçÿ ëîâèòü ðûáó!") and not UO.InJournal("where")

Т.Е. он после заброса удочки проверяет, поймал - непоймал, а потом сразуже закидывает в следующий квадрат... но моя задача - ловить только эту редкую рыбёшку... иногда он её не с первого раза ловит, и по этому скрипт не слишком мне подходит... смотрите, проверяйте,..
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/