Toggle shoutbox Chat
|
Fishing easyuo
#1
Posted 11 April 2006 - 22:56
#2
Posted 12 April 2006 - 02:09
#3
Posted 13 April 2006 - 15:22
#4
Posted 13 April 2006 - 16:41
#5
Posted 13 April 2006 - 19:46
Кое как ловит.. (корабыль не нужен!) :wink:
;Landfishing ; This Landfishing script was assembled from pieces out of Vanbelles Fishing Script V 3.0 ; I assembled it because I could not find a land fishing or beginner fishing script. It is pretty straight forward, ; you only have to specify the type of blade you wish to use and the ID of the footwear you are wearing. ; I t will fish for you, cut up the fish into steaks and drop shoes out of your pack (Pack must be open) ; The program as is, will only fish properly if the water you are fishing is to your left or the south west. ; You can change the target locations of where to fish if you like by changing the 3 x and y locations below. : If someone knows an easy way of locating water without being target specific, please add it. initevents FindItem XHF 1 //------------------------------------------------------------ ;Fishing Target 1 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -1 + #CharPosX set #LTargetY 1 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 2 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -1 + #CharPosX set #LTargetY 2 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 3 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -1 + #CharPosX set #LTargetY 3 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 4 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -1 + #CharPosX set #LTargetY 4 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 5 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -1 + #CharPosX set #LTargetY 5 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 6 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -1 + #CharPosX set #LTargetY 6 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s //------------------------------------------------------------ ;Fishing Target 1 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -2 + #CharPosX set #LTargetY 1 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 2 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -2 + #CharPosX set #LTargetY 2 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 3 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -2 + #CharPosX set #LTargetY 3 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 4 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -2 + #CharPosX set #LTargetY 4 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 5 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -2 + #CharPosX set #LTargetY 5 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 6 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -2 + #CharPosX set #LTargetY 6 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s //------------------------------------------------------------ ;Fishing Target 1 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -3 + #CharPosX set #LTargetY 1 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 2 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -3 + #CharPosX set #LTargetY 2 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 3 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -3 + #CharPosX set #LTargetY 3 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 4 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -3 + #CharPosX set #LTargetY 4 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 5 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -3 + #CharPosX set #LTargetY 5 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 6 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -3 + #CharPosX set #LTargetY 6 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s //------------------------------------------------------------ ;Fishing Target 1 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -4 + #CharPosX set #LTargetY 1 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 2 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -4 + #CharPosX set #LTargetY 2 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 3 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -4 + #CharPosX set #LTargetY 3 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 4 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -4 + #CharPosX set #LTargetY 4 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 5 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -4 + #CharPosX set #LTargetY 5 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 6 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX -4 + #CharPosX set #LTargetY 6 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s //------------------------------------------------------------ ;Fishing Target 1 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 1 + #CharPosX set #LTargetY 1 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 2 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 1 + #CharPosX set #LTargetY 2 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 3 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 1 + #CharPosX set #LTargetY 3 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 4 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 1 + #CharPosX set #LTargetY 4 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 5 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 1 + #CharPosX set #LTargetY 5 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 6 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 1 + #CharPosX set #LTargetY 6 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s //------------------------------------------------------------ ;Fishing Target 1 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 2 + #CharPosX set #LTargetY 1 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 2 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 2 + #CharPosX set #LTargetY 2 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 3 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 2 + #CharPosX set #LTargetY 3 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 4 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 2 + #CharPosX set #LTargetY 4 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 5 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 2 + #CharPosX set #LTargetY 5 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 6 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 2 + #CharPosX set #LTargetY 6 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s //------------------------------------------------------------ ;Fishing Target 1 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 3 + #CharPosX set #LTargetY 1 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 2 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 3 + #CharPosX set #LTargetY 2 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 3 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 3 + #CharPosX set #LTargetY 3 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 4 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 3 + #CharPosX set #LTargetY 4 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 5 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 3 + #CharPosX set #LTargetY 5 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 6 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 3 + #CharPosX set #LTargetY 6 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s //------------------------------------------------------------ ;Fishing Target 1 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 4 + #CharPosX set #LTargetY 1 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 2 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 4 + #CharPosX set #LTargetY 2 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 3 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 4 + #CharPosX set #LTargetY 3 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 4 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 4 + #CharPosX set #LTargetY 4 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 5 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 4 + #CharPosX set #LTargetY 5 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s ;Fishing Target 6 set #LObjectID #FindID set #LTargetKind 2 set #LTargetX 4 + #CharPosX set #LTargetY 6 + #CharPosY event macro 17 0 target event macro 22 0 wait 6s sub cut ;Checks your pack and cuts the fish into steaks set #LTargetKind 1 ;Set this below to the bladed item type you want to use FindItem NMH 1 set #LObjectID #FindID N1: finditem EQD_FQD_GQD_DQD 1 if #FindKind = 1 2 ignoreitem #findid goto N1 if #FindKind = 0 9 if #Findstack > %CutFish 6 set #LtargetID #FindID wait 20 event macro 17 0 wait 40 event macro 22 0 wait 20 ignoreitem #findid goto N1 ignoreitem reset gosub dropshoes sub dropshoes ;Drags all shoe types and drops them behind you. ;Set this to the id of the boots or shoes you are wearing so it won't drop them ignoreitem VOHHYND drag: FindItem CWI_AWI_NVI_OVI_PVI_QVI_ZVI_TVI 1 if #FindKind = -1 2 wait 20 exit if #FindKind = 1 2 ignoreitem #FindID goto drag event drag #FindID ignoreitem #FindID wait 20 ;This location is set to drop right behind if you are fishing with water to the left or (south west) of you click 427 300 p wait 20
p.s. может тут куча лишнего.. мой первый опыт на этой программе.
#6
Posted 14 April 2006 - 17:02
set %pole XHF set %fish _DQD_EQD_FQD_GQD_DMF_ for %xx -5 5 { for %yy -5 5 { finditem %pole set #LOBJECTID #FINDID event macro 17 0 wait 5 target 5s set #LTARGETX #CHARPOSX + %xx set #LTARGETY #CHARPOSY + %yy set #LTARGETKIND 3 event macro 22 0 wait 10 gosub proverka } } halt sub proverka set %overtime #SCNT + 15 loop: deletejournal scanjournal 1 if There_are_no_ in #JOURNAL || Try_fishing_ in #JOURNAL return if You_fail_to_catch_ in #JOURNAL || #SCNT >= %overtime { wait 5 event macro 17 0 wait 10 target 3s event macro 22 0 wait 10 gosub proverka return } if You_pull_ in #JOURNAL { gosub drag return } goto loop sub drag finditem %fish G_2 exevent drag #FINDID wait 10 exevent dropc #BACKPACKID wait 10 returnВ Веспере с мостиков
#7
Posted 24 May 2006 - 00:34
#8
Posted 24 May 2006 - 09:41
А как зделать чтоб добыча ешё и в рукзак падала? :wink:
А ты пробовал, не падает?
#9
Posted 25 May 2006 - 19:47
Цитаты Доктора Хауза:
* Все лгут
* Если бы в её ДНК отклонение было бы на один процент, она была бы дельфином
* Я плохой, и не пытайтесь убедить себя и меня, что это не так
* Ты разговариваешь с Богом - ты верующий, Бог разговаривает с тобой - ты психически больной
* Между любовью и ненавистью нет тонкой грани! Есть Великая Китайская Стена с вооруженными часовыми через каждые двадцать шагов.
#10
Posted 21 October 2006 - 15:14
(script na injekt.. po4ti norm no on sli6kom medleno riba4et.. i cherez kakojeta vreme ostanavlivajeca.. i bolshe neprodolzajet ri4ba4itj) Ishu svetluju golavu, kto bi smog pamo4..
Vsjo predeljno jasno..
------------------------------------------------------------
var mybag = "mybag" uo.print("Where I must keep the fish? Select bag!") uo.addobject(mybag) wait(7000) var lasttimer sub pickup(ftype) # uo.print("type: "+str(ftype)) uo.findtype(ftype,"-1","ground") if uo.findcount() > 0 then uo.moveitem("finditem", "0",mybag) endif wait(500) end sub sub checktimer() if (uo.timer() - lasttimer) <= 20 then uo.print(str(uo.timer() - lasttimer)) uo.print("You are fishing too fast! Waiting 5 seconds.") wait(5000) endif lasttimer = uo.timer() end sub sub main() var mx, my, mz, i, j var isfishing, ixx, isheavy var item = "item",ftype,ispickup mx = UO.GetX("self") my = UO.GetY("self") mz = UO.GetZ("self") UO.DeleteJournal() uo.exec("set distance 1") # uo.setcatchbag("uo.my") while not uo.dead() for i = mx-6 to mx+6 for j = my-6 to my+6 uo.deletejournal() UO.Print("Now fishing In: "+str(mx-i)+" "+str(my-j)) isfishing = 1 while not uo.injournal("can't fish") and not uo.injournal("no fish here") and not UO.InJournal("far away") and not UO.InJournal("in water") and isfishing checktimer() UO.DeleteJournal() UO.Waittargettile("6044", str(i), str(j), str(mz)) UO.Usetype('0x0DBF') ixx = 0 while not uo.injournal("can't fish") and not UO.InJournal("You pull out") and not UO.InJournal("You fish a while, but fail to catch anything.") and not UO.InJournal("far away") and not UO.InJournal("in water") and not UO.InJournal("no fish") and ixx <= 100 wait (100) ixx = ixx + 1 wend if UO.InJournal("You pull out") then # fish for ftype = 0x09CD to 0x09CF pickup(ftype) next pickup(0x0DD6) pickup(0x09CC) # maps pickup(0x14EB) # rare fish pickup(0x0DD6); endif wend UO.DeleteJournal() next next wend # UO.recall('0x40023FBD','2') uo.print("*** Script ended ***") end subAllower : так трудно загнать в CODE ?
#11
Posted 28 December 2006 - 02:22
#12
Posted 28 December 2006 - 06:10
Zachem podnematj starij topic? Emu 7 mesjacev uzhe a ti pishish tut.a gde 4to pisat nada 4tob ribu sobiral??
#13
Posted 31 December 2006 - 00:15
set %pole XHF set %fish _GQD_DMF_ for %xx -6 6 { for %yy -6 6 { finditem %pole set #LOBJECTID #FINDID event macro 17 0 wait 3 target 3s set #LTARGETX #CHARPOSX + %xx set #LTARGETY #CHARPOSY + %yy set #LTARGETKIND 3 event macro 22 0 wait 3 gosub proverka } } halt sub proverka set %overtime #SCNT + 15 loop: deletejournal scanjournal 1 if There_are_no_ in #JOURNAL || Try_fishing_ in #JOURNAL return if You_fail_to_catch_ in #JOURNAL || #SCNT >= %overtime { wait 3 event macro 17 0 wait 3 target 3s event macro 22 0 wait 3 gosub proverka return } if You_pull_ in #JOURNAL { gosub drag return } goto loop sub drag finditem %fish G_2 exevent drag #FINDID wait 3 exevent dropc #BACKPACKID wait 3 return
Dark_Storm: Предупреждение, изучаем правила.
#14
Posted 11 January 2007 - 03:21
#15
Posted 11 January 2007 - 11:56
Вообщем для прокачки Фишинга нужна только лодка и УО луп.
Так же нужен бинд TargetNext i LastObject LastTarget
F1 = TargetNext
F2 = LastObject ; LastTarget
Далее делаем так: берем в руки удочку, садимся в лодку, плывем любую сторону и желательно чтоб по пути островов небыло.
Нажимаем TargetNext под персонажем появляется линия энергии.
Теперь все что надо это выставить УО луп на LastObject ; LastTarget если память не изменяет задержка 2500-2700 может больше посмотрите сами.
Ну а дальше плывем лофим рыбу смотрим кино
П.С Тоже самое можно и с Мининг делать только перебегать с места на место надо все время 8)
#16
Posted 11 January 2007 - 19:31
sub fishing() var mx, my, mz, i, j uo.print('polozi v backpack sumku i nazmi na nejo') 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 UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) while not UO.InJournal("There are no fish here.") and not UO.InJournal("Try fishing elsewhere") 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>1000 then return endif while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("You fail to catch anything.") and not UO.InJournal("There are no fish here.") and not UO.InJournal("Try fishing elsewhere") and not UO.InJournal("in water") wait (100) if UO.InJournal("You pull") then UO.SetReceivingContainer('Bag') UO.findtype('0x0E2D','0x07A0','ground');Status Ball UO.grab ('1','finditem') wait (200) 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
Ёще нашол с ходьбой если надо скажите
#17
Posted 17 January 2007 - 03:31
#18
Posted 21 January 2007 - 17:39
Я выкладывал скрипт на UO Pilot, за ночь на нём можно до максимума прокачатся (я так и сделал)... С Easy у меня проблемы (;
Ты бы не мог, дать ссылочку... а то я искал, не нашёл
#19
Posted 21 January 2007 - 17:40
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users