Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

@  Artemy Shan : (Yesterday, 04:18) Оживил форум
@  fr33 : (27 October 2025 - 01:54) 5 clientov
@  fr33 : (21 September 2025 - 00:23) 8 clientov
@  MousT : (07 September 2025 - 09:04) Опять сервер лагует.
@  opas : (17 August 2025 - 21:52) Сервер ещё ддосят?
@  Costesti : (05 August 2025 - 20:36) Акк Kosmo тебе делать больше нету Бомжара ходить по шахтам убивать минера ?
@  Artemy Shan : (04 July 2025 - 03:34) Перезапуск проекта: https://forum.oldp.n...howtopic=106329
@  Costesti : (10 June 2025 - 22:26) Артём закрой сервер толку от него ноль так как лаги бешеные ничего не сделать
@  Costesti : (10 June 2025 - 21:03) бля это у меня сервер только логает или у всех?
@  papasha : (10 June 2025 - 15:13) @Costesti da kanesna vvodit, uze dohuja obnov vishlo za 7 let poslednix!!
@  Costesti : (09 June 2025 - 18:34) Артём ты там нововведения водишь?
@  Costesti : (09 June 2025 - 18:31) Сервер работает?
@  Costesti : (31 May 2025 - 23:46) Шан комп меняй уже игру не тянет
@  Costesti : (31 May 2025 - 20:02) мда никому не нужен этот сервер
@  fr33 : (29 May 2025 - 14:07) shenahnan gnom
@  fr33 : (29 May 2025 - 14:07) gm zb!!!1 lagi ept
@  Costesti : (28 May 2025 - 22:43) и это опять и за сейвы
@  Costesti : (28 May 2025 - 22:43) Народ да у кого там номер Шана пускай чинит сервер
@  Costesti : (27 May 2025 - 21:38) Вопрос Крафтить молоко можно?
@  fr33 : (26 May 2025 - 17:33) gm blad chini lag

Photo

Fishing easyuo

Started by Imperium, Apr 11 2006 22:56

  • This topic is locked This topic is locked
30 replies to this topic

#1 Imperium

Imperium

    Journeyman

  • Members
  • 91 posts
  • Location:Даугавпилс
  • Interests:Найти хороше оплачиваемую работу =)

Posted 11 April 2006 - 22:56

Нужен скрипт.. Help..

#2 Dark_Storm

Dark_Storm

    Uo Administrator

  • Members
  • 4962 posts
  • Gender:Male

Posted 12 April 2006 - 02:09

Я выкладывал скрипт на UO Pilot, за ночь на нём можно до максимума прокачатся (я так и сделал)... С Easy у меня проблемы (;
Если ты не являешься частью решения, то ты являешься частью проблемы...
Posted Image
Posted Image
Posted Image

#3 Fatum

Fatum

    Advanced Player

  • Members
  • 304 posts
  • Gender:Male
  • Location:Аген
  • Interests:gy

Posted 13 April 2006 - 15:22

Программисты блин.. берите туториалы.. и через полчаса напишите сами

#4 Barsuk

Barsuk

    Novice Player

  • Members
  • 127 posts
  • Location:London

Posted 13 April 2006 - 16:41

Pokupae6 korabl`, puskae6 ego plit` tak, 4tob on podol6e plil, a v easyuo ili v pilote ukazivae6 koordinati kuda kidat` i zaderzku. :) Vse genialnoe prosto!

#5 Imperium

Imperium

    Journeyman

  • Members
  • 91 posts
  • Location:Даугавпилс
  • Interests:Найти хороше оплачиваемую работу =)

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 XpeH

XpeH

    Player

  • Members
  • 161 posts
  • Location:Вильнюс

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 Turik

Turik

    Counselor Lindsay

  • Members
  • 1015 posts
  • Gender:Male
  • Location:Каугури

Posted 24 May 2006 - 00:34

А как зделать чтоб добыча ешё и в рукзак падала? :wink:

#8 XpeH

XpeH

    Player

  • Members
  • 161 posts
  • Location:Вильнюс

Posted 24 May 2006 - 09:41

А как зделать чтоб добыча ешё и в рукзак падала?  :wink:


А ты пробовал, не падает?

#9 Turik

Turik

    Counselor Lindsay

  • Members
  • 1015 posts
  • Gender:Male
  • Location:Каугури

Posted 25 May 2006 - 19:47

Я попробывал и первый и твой скрипт, рыба падает под ноги... :(
Posted Image
Цитаты Доктора Хауза:
* Все лгут
* Если бы в её ДНК отклонение было бы на один процент, она была бы дельфином
* Я плохой, и не пытайтесь убедить себя и меня, что это не так
* Ты разговариваешь с Богом - ты верующий, Бог разговаривает с тобой - ты психически больной
* Между любовью и ненавистью нет тонкой грани! Есть Великая Китайская Стена с вооруженными часовыми через каждые двадцать шагов.

#10 kiim

kiim
  • Members
  • 1 posts

Posted 21 October 2006 - 15:14

Vot ja nepanemaju v4om problema..
(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 sub
Allower : так трудно загнать в CODE ?

#11 Sky

Sky
  • Members
  • 3 posts
  • Location:Jurmala
  • Interests:Uo

Posted 28 December 2006 - 02:22

a gde 4to pisat nada 4tob ribu sobiral??

#12 Remoovik

Remoovik

    Advanced Player

  • Members
  • 313 posts
  • Gender:Male
  • Location:New York, USA

Posted 28 December 2006 - 06:10

a gde 4to pisat nada 4tob ribu sobiral??

Zachem podnematj starij topic? Emu 7 mesjacev uzhe a ti pishish tut.
neigrajuuuuuuu bolwweeeeee Nick Rocknrolla

#13 HiDEN

HiDEN

    Novice

  • Members
  • 48 posts
  • Location:Riga
  • Interests:art

Posted 31 December 2006 - 00:15

=Kto mozet dobavit` v etot scp - 4tob pri atake on bral luk, helilsja i potom prodalzal lovit`?=


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 Dahel

Dahel

    Newbie

  • Members
  • 16 posts

Posted 11 January 2007 - 03:21

Сколько не пытался вычислить ошибку, не могу догнать. Я на лодке стою, пытаюсь подымать рыбу, мне выдаёт "yuo cannot pickup this" валяеться рыба... иногад могу поднять иногда нет...

#15 Prey

Prey

    Expert

  • Members
  • 1522 posts
  • Gender:Male
  • Location:Riga

Posted 11 January 2007 - 11:56

Я вот не понимаю для чего такие сложности?

Вообщем для прокачки Фишинга нужна только лодка и УО луп.

Так же нужен бинд TargetNext i LastObject LastTarget

F1 = TargetNext
F2 = LastObject ; LastTarget

Далее делаем так: берем в руки удочку, садимся в лодку, плывем любую сторону и желательно чтоб по пути островов небыло.

Нажимаем TargetNext под персонажем появляется линия энергии.
Теперь все что надо это выставить УО луп на LastObject ; LastTarget если память не изменяет задержка 2500-2700 может больше посмотрите сами.

Ну а дальше плывем лофим рыбу смотрим кино :)

П.С Тоже самое можно и с Мининг делать только перебегать с места на место надо все время 8)

#16 Bonch

Bonch

    Player

  • Members
  • 150 posts

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

Ёще нашол с ходьбой если надо скажите
Oleee-Oldp,Kaza-dereza-XL

#17 BANDITT

BANDITT

    Newbie

  • Members
  • 16 posts

Posted 17 January 2007 - 03:31

poslednij skript visnet pri sovershenija dejstvija.. t.e. vypolnjaet 1 raz :?
No way

#18 MrVlad

MrVlad

    Newbie

  • Members
  • 6 posts

Posted 21 January 2007 - 17:39

Я выкладывал скрипт на UO Pilot, за ночь на нём можно до максимума прокачатся (я так и сделал)... С Easy у меня проблемы (;



Ты бы не мог, дать ссылочку... а то я искал, не нашёл

#19 MrVlad

MrVlad

    Newbie

  • Members
  • 6 posts

Posted 21 January 2007 - 17:40

"XpeH", а как поставить твой скрипт на репит, чтобы он НЕ выключался через время

#20 Dark_Storm

Dark_Storm

    Uo Administrator

  • Members
  • 4962 posts
  • Gender:Male

Posted 21 January 2007 - 17:42

Ссылка вот, но им ты уже нормально не половишь рыбу, ибо там нет никакой защиты на монстров, которых вылавливаешь.

P.S. Используй кнопку EDIT!
Если ты не являешься частью решения, то ты являешься частью проблемы...
Posted Image
Posted Image
Posted Image
Back to Скрипты


1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users

  1. Old Paradise Forums
  2. → Игровые сервера
  3. → Ultima Online
  4. → Скрипты
  5. Privacy Policy