| Yoko http://forum.yoko.com.ua/ |
|
| Фишинг для ДрВ ! http://forum.yoko.com.ua/viewtopic.php?f=20&t=1502 |
Page 1 of 1 |
| Author: | autopilot [ 2004-09-30 12:09:23 ] |
| Post subject: | Фишинг для ДрВ ! |
Ребята у кого есть скрипт на ловлю только карт ?? Скрипт ака куллер ловит рыбу в точке пока не выловит всю и переходит на другую. А если карта не вылавливается с первого раза переходит на другую точку.. так вот можно сделать чтоб он повторял в тех местах где не выловилось с первого раза ? А если в точке рыба переходил на другую не вылавливая всю ? |
|
| Author: | Sfagnum [ 2004-09-30 13:13:36 ] |
| Post subject: | Re: Фишинг для ДрВ ! |
ответил в топик |
|
| Author: | Sit [ 2004-11-21 01:38:11 ] |
| Post subject: | Re: Фишинг для ДрВ ! |
autopilot wrote: Ребята у кого есть скрипт на ловлю только карт ?? Скрипт ака куллер ловит рыбу в точке пока не выловит всю и переходит на другую. А если карта не вылавливается с первого раза переходит на другую точку.. так вот можно сделать чтоб он повторял в тех местах где не выловилось с первого раза ? А если в точке рыба переходил на другую не вылавливая всю ?
################################################ ### Fishing / Ëîâëÿ ðûáû v1.7 Full ### ################################################ ### Øàðä Dragon World / www.drw.ru ### ################################################ ### Âíèìàíèå: ### Äëÿ ðàáîòû ñêðèïòà íóæíà âåðñèÿ YokoInjection 4DZ. ### Ñêà÷àòü dll ýòîé âåðñèè ìîæíî ### îò ñþäà: www.swines.nm.ru/injection.zip ######################################################### ### Àâòîðû: ### - Ïåðâîíà÷àëüíûé ñêðèïò:"BETEPAH". ### - Äîðàáîòêà, ñîçäàíèå ìàññèâà, ïåðåðàáîòêà:"cOoler". ######################################################### ############################ ### Îïèñàíèå è íàñòðîéêà ### ############################ ### Îáðàòèòå âíèìàíèå íà çíà÷êè "]![" èìè âûäåëåííû âàæíûå ñîîáùåíèÿ. ### ### ×àð èùåò âîêðóã ñåáÿ âîäó, à â âîäå ðûáó. ### Íàéäÿ ðûáó ëîâèò åå è êëàäåò â ïàê. ### Ïîñëå òîãî êàê íàáèðàåòñÿ ìàêñèìàëüíûé âåñ èëè êîí÷àåòñÿ ðûáà ñêðèïò âûêëþ÷àåòñÿ. ### #################### ### Íîâîââåäåíèÿ ### #################### ### 1)Òåïåðü â ñêðèïòå ïðèñóòñòâóåò ìàñèâ ðûáû. [cOoler] ### 2)Âåñ ìîæíî óêàçàòü â ïåðåìåííûõ. [cOoler] ### 3)Äîáàâëåíî ìíîæåñòâî ïåðåìåííûõ. [cOoler] ### ### ]![ ×òîáû ñêðèïò çàðàáîòàë âíèìàòåëüíî ïðî÷òèòå íàñòðîéêè. ]![ ### ################################### ### Ðåæèìû ðàáîòû ñêðèïòà ### ################################### ### Ðàáîòàåò â 3óõ ðåæèìàõ: ### ### 1)Ïîèñê ### ### 2)Ëîâëÿ ### ### 3)Ñáîð ### ################################### ### Ðåæèì Ïåðâûé - "Ïîèñê" ### ################################### ### Ýòîò ðåæèì îòâå÷àåò çà Ïîèñê âîäû(çàïèñûâàíèå êîîðäèíàò) äåðåâüåâ. ### ### Ïîèñê ïðîèñõîäèò òàê: ### Ñòàâèì ÷àðà ðÿäîì ñ âîäîé. ### Çàïóñêàåì ñêðèïò è îí àâòîìàòè÷åñêè íà÷èíàåò èñêàòü âîäó. ### ############################## ### Ðåæèì Âòîðîé - "Ëîâëÿ" ### ############################## ### Ýòîò ðåæèì ñîîòâåòñòâåíîî îòâå÷àåò çà ëîâëþ ðûáû. ### ### Ëîâëÿ ïðîèñõîäèò òàê: ### Ïîñëå òîãî êàê ÷àð íàéäåò âîäó, îí íà÷èíàåò èñêàòü â âîäå ðûáó ### è ëîâèòü åå. ############################## ### Ðåæèì Âòîðîé - "Ñáîð" ### ############################## ### Ýòîò ðåæèì ñîîòâåòñòâåíîî îòâå÷àåò çà ñáîð ðûáû. ### ### Ñáîð ïðîèñõîäèò òàê: ### Ïàðàëåëüíî ñ òåì êàê ÷àð áûäåò ëîâèòü ðûáó îí áóäåò ñêëàäûâàòü åå â ïàê(êîòîðûé âû óêàêçàëè). ### ### Íàñòðîéòå ñêðèïò ïîä ñåáÿ ïðè ïîìîùè ïåðåìåííûõ. ### ################## ### Ïåðåìåííûå ### ################## ### var TryToHide=1 ## 1 - Âêëþ÷èòü óõîä(ïåðåä ëîâëåé) â õàéä, 0 - âûêëþ÷èòü. ### var TakeFish=1 ## 1 - Âêëþ÷èòü ñáîð îáû÷íîé ðûáû, 0 - âûêëþ÷èòü. ### var TakeMaps=1 ## 1 - Âêëþ÷èòü ñáîð êàðò, 0 - âûêëþ÷èòü. ### var TakeRareFish=1 ## 1 - Âêëþ÷èòü ñáîð ðàðíîé ðûáû, 0 - âûêëþ÷èòü. ### var TakePrizeFish=1 ## 1 - Âêëþ÷èòü ñáîð ïðèç ðûáû, 0 - âûêëþ÷èòü. ### var MaxWeight=800 ## - Âåñ ïðè êîòîðîì ñêðèïò âûêëþ÷èòüñÿ. ### ### Ïîñëå íàñòðîéêè: ### Èäèòå ê ðåêå â êîòîðîé âû õîòèòå ëîâèòü ðûáó. ### Çàïóñòèòå cêðèïò Fishing(), Èíæåêò ïîïðîñèò âàñ óêàçàòü Ïàê äëÿ ðûáû ### (ïîÿâèòñÿ ïðèöåë, ïðèöåëîì íà ïàê), ### ïîòîì èíæåêò ïîïðîñèò âàñ óêàçàòü Óäî÷êó(ïîÿâèòñÿ ïðèöåë, ïðèöåëîì íà íåå). ### Ïîñëå ýòîãî ÷àð áóäåò ëîâèòü ðûáó. ########### ### Êîä ### ########### sub Fishing() var mX, mY, mZ, i, j var f var a=0 #################### ### Ìåíþ/Options ### #################### ######################################################################### ### var TryToHide=1 ## 1 - Âêëþ÷èòü óõîä(ïåðåä ëîâëåé) â õàéä, 0 - âûêëþ÷èòü. ### var TakeFish=0 ## 1 - Âêëþ÷èòü ñáîð îáû÷íîé ðûáû, 0 - âûêëþ÷èòü. ### var TakeMaps=1 ## 1 - Âêëþ÷èòü ñáîð êàðò, 0 - âûêëþ÷èòü. ### var TakeRareFish=1 ## 1 - Âêëþ÷èòü ñáîð ðàðíîé ðûáû, 0 - âûêëþ÷èòü. ### var TakePrizeFish=1 ## 1 - Âêëþ÷èòü ñáîð ïðèç ðûáû, 0 - âûêëþ÷èòü. ### var MaxWeight=800 ## - Âåñ ïðè êîòîðîì ñêðèïò âûêëþ÷èòüñÿ. ### ######################################################################### ################### ### Ìàññèâ ðûáû ### ################### dim Fish[6] Fish[0]=0x09CC Fish[1]=0x09CD Fish[2]=0x09CE Fish[3]=0x09CF Fish[4]=0x14EB Fish[5]=0x0DD6 Fish[6]=0x0DD6 uo.Print('Âûáåðè êîíòåéíåð...') uo.Exec('addobject Bag') while uo.Targeting() wait(100) wend uo.Print('Âûáåðè óäî÷êó...') uo.Exec('addobject FishPole') while uo.Targeting() wait(100) wend uo.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 if TryToHide==1 then ToHide() end if uo.Print("Ñåé÷àñ ëîâèì: "+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") and not uo.InJournal("You pull out a fish!") uo.DeleteJournal() uo.Waittargettile("1341", str(i), str(j), str(mZ)) uo.UseObject("FishPole") if uo.Dead() then return endif if uo.Weight>MaxWeight then uo.Print('Ìàêñèìàëüíûé âåñ íàáðàí.') 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 if a>0 then uo.print(STR(a)) end if if TakeFish==1 then uo.Print('Ñîáèðàåì ðûáó.') for f=0 to 3 uo.FindType(Fish[f],"-1","ground") if uo.Count(Fish[2])> 0 then a= a+1 end if uo.MoveItem("finditem","1","Fishs") wait(200) next end if if TakeMaps==1 then uo.Print('Ñîáèðàåì êàðòû.') for f=4 to 4 uo.FindType(Fish[f],"-1","ground") uo.MoveItem("finditem","-1","Maps") wait(200) next end if if TakeRareFish==1 then uo.Print('Ñîáèðàåì ðàð ðûáó.') for f=5 to 5 uo.FindType(Fish[f],"-1","ground") uo.MoveItem("finditem","-1","RareFish") wait(200) next end if if TakePrizeFish==1 then uo.Print('Ñîáèðàåì ïðèç ðûáó.') for f=6 to 6 uo.FindType(Fish[f],"-1","ground") uo.MoveItem("finditem","-1","PrizeFish") wait(200) next end if end if wend wend uo.DeleteJournal() next next end sub sub ToHide() while not uo.Hidden() uo.Exec('warmode 0') uo.Print('Ïûòàåìñÿ óéòè â õàéä...') uo.DeleteJournal() uo.UseSkill('Stealth') wait(4100) wend wait(100) end sub sub DropFish() ToHide() if uo.Waiting() then uo.CancelTarget() end if var a, Exit var Chest='0x40203CC2' ## - ID ñóíäóêà äëÿ ñáðîñà ëîãîâ. dim Fish[6] Fish[0]=0x09CC Fish[1]=0x09CD Fish[2]=0x09CE Fish[3]=0x09CF Fish[4]=0x14EB Fish[5]=0x0DD6 Fish[6]=0x0DD6 uo.Print('Âûêëàäûâàåì Ðûáó.') uo.SetReceivingContainer(Chest) wait(500) for a=0 to 6 exit=0 repeat uo.FindType(Fish[a]) if uo.GetQuantity('finditem')>0 then uo.Grab('0','finditem') wait(1500) else exit=1 end if until Exit==1 next uo.UnSetReceivingContainer(Chest) uo.Print('Ðûáà Âûëîæåíà.') end sub sub Terminate() uo.Exec('terminate all') end sub |
|
| Author: | XpyCmuK [ 2004-11-21 04:48:17 ] |
| Post subject: | |
sub fishing() var mx, my, mz, i, j 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 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") if UO.dead() then return endif if UO.Weight>1620 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.findtype('0x14EB','0x0000','ground') ;tattered map UO.grab ('1','finditem') wait (500) end if wend wend UO.DeleteJournal() next next end sub |
|
| Page 1 of 1 | All times are UTC+02:00 |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|