Фишинг

Talez · Post by **Talez** » 2005-05-31 15:05:30

Скиньте пожалуйста скрипт на фишинг в личку.Чтоб ловить рыбу и карты и всё складывал в сундук(шард ДРВ).
P.S.Скачал с вашего форума скрипт, но он во первых не на одном месте ловит, а пытается среколиться, а во вторых через минут 15 вылетает...

Sfagnum · Post by **Sfagnum** » 2005-05-31 15:48:38

Talez wrote:Скиньте пожалуйста скрипт на фишинг в личку.Чтоб ловить рыбу и карты и всё складывал в сундук(шард ДРВ).
P.S.Скачал с вашего форума скрипт, но он во первых не на одном месте ловит, а пытается среколиться, а во вторых через минут 15 вылетает...

хочешь готовый - пиши цену.

Lord imp · Post by **Lord imp** » 2005-05-31 16:04:17

Sfagnum wrote: хочешь готовый - пиши цену.

А я могу бесплатно выложить! =) Только он не складывает в сундук... У меня чар ловит рыбу но не берет ее с пола... А вот карты собирает! Потому что рыба на мой взгляд не нужна... :roll:

И еще для прокачки фишинга желательно поставить дом рядом с речкой и оградить забором часть реки.
З.Ы. Чар ловит в хайде.

Lord imp · Post by **Lord imp** » 2005-05-31 16:13:36

Хм... порылся у себя на компе и нашел хороший скрипт на фишинг, который написал уважаемый ВЕТЕРАН!

Beyonder · Post by **Beyonder** » 2005-05-31 17:12:38

Вот, скрипт заточен под антарес, но если подправить некоторые сообщения будет работать везде.
Скрипт просто ловит рыбу вокруг себя, везде где сможет, поймав рыбу режет ее на полу и разрезанную берет в пак. Также собирает и остальной мусор вывалившийся вместо рыбы.

Code: Select all

sub FishingAround()
var iX,iY
for var iStep=0 to 1000
for iX=-6 to 6
for iY=-6 to 6
GetAllFish(UO.GetX()+iX,UO.GetY()+iY)
next
next
next
end sub

Sub GetAllFish(iX,iY)
  var counter=0
  repeat
    counter=counter+1
    UO.DeleteJournal()
    UO.WaitTargetTile(0,iX,iY,0)
    UO.UseType('0x0DBF')
    while not UO.InJournal('You pull out') and not UO.InJournal('but fail to catch') and not UO.InJournal('no fish here') and not UO.InJournal('Try fishing elsewhere') and not UO.InJournal('That is too far away')
      wait(100)
    wend
    if UO.InJournal('no fish here') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') then
      return
    end if
    if UO.InJournal('You pull out') then
      counter=0
       GetFish()
    end if
  until UO.Injournal('no fish here') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') OR counter>1
end sub

Sub GetFish()
  UO.set('finddistance',0)
  UO.IgnoreReset()
  UO.Ignore('self')
  UO.FindType('0x352D',-1,'ground')
  UO.Ignore('finditem')
  UO.FindType(-1,-1,'ground')
  while UO.FindCount()>0
    UO.WaitTargetObject('finditem')
    UO.UseType('0x0F51')
    UO.Ignore('finditem')
    wait(500)
    UO.FindType(-1,-1,'ground')
  wend
  UO.Ignorereset()
  UO.Ignore('self')
  UO.FindType('0x352D',-1,'ground')
  UO.Ignore('finditem')
  UO.FindType(-1,-1,'ground')
  while UO.FindCount()>0
    UO.Grab(0,'finditem')
    wait(100)
    UO.FindType(-1,-1,'ground')
  wend
  UO.Ignorereset()
end sub

Talez · Post by **Talez** » 2005-05-31 20:08:30

Lord imp wrote:Хм... порылся у себя на компе и нашел хороший скрипт на фишинг, который написал уважаемый ВЕТЕРАН!

А можно его позаимствовать?

Talez · Post by **Talez** » 2005-05-31 20:09:33

Lord imp wrote:
Sfagnum wrote: хочешь готовый - пиши цену.

А я могу бесплатно выложить! =) Только он не складывает в сундук... У меня чар ловит рыбу но не берет ее с пола... А вот карты собирает! Потому что рыба на мой взгляд не нужна... И еще для прокачки фишинга желательно поставить дом рядом с речкой и оградить забором часть реки.
З.Ы. Чар ловит в хайде.

Дело в том, что на ДРВ не собирать рыбу с пола теперь наказывается(((

Talez · Post by **Talez** » 2005-05-31 20:10:12

Beyonder wrote:Вот, скрипт заточен под антарес, но если подправить некоторые сообщения будет работать везде.
Скрипт просто ловит рыбу вокруг себя, везде где сможет, поймав рыбу режет ее на полу и разрезанную берет в пак. Также собирает и остальной мусор вывалившийся вместо рыбы.

Code: Select all

sub FishingAround()
var iX,iY
for var iStep=0 to 1000
for iX=-6 to 6
for iY=-6 to 6
GetAllFish(UO.GetX()+iX,UO.GetY()+iY)
next
next
next
end sub

Sub GetAllFish(iX,iY)
  var counter=0
  repeat
    counter=counter+1
    UO.DeleteJournal()
    UO.WaitTargetTile(0,iX,iY,0)
    UO.UseType('0x0DBF')
    while not UO.InJournal('You pull out') and not UO.InJournal('but fail to catch') and not UO.InJournal('no fish here') and not UO.InJournal('Try fishing elsewhere') and not UO.InJournal('That is too far away')
      wait(100)
    wend
    if UO.InJournal('no fish here') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') then
      return
    end if
    if UO.InJournal('You pull out') then
      counter=0
       GetFish()
    end if
  until UO.Injournal('no fish here') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') OR counter>1
end sub

Sub GetFish()
  UO.set('finddistance',0)
  UO.IgnoreReset()
  UO.Ignore('self')
  UO.FindType('0x352D',-1,'ground')
  UO.Ignore('finditem')
  UO.FindType(-1,-1,'ground')
  while UO.FindCount()>0
    UO.WaitTargetObject('finditem')
    UO.UseType('0x0F51')
    UO.Ignore('finditem')
    wait(500)
    UO.FindType(-1,-1,'ground')
  wend
  UO.Ignorereset()
  UO.Ignore('self')
  UO.FindType('0x352D',-1,'ground')
  UO.Ignore('finditem')
  UO.FindType(-1,-1,'ground')
  while UO.FindCount()>0
    UO.Grab(0,'finditem')
    wait(100)
    UO.FindType(-1,-1,'ground')
  wend
  UO.Ignorereset()
end sub

А что непосредственно нужно поменять?

Sfagnum · Post by **Sfagnum** » 2005-05-31 20:11:14

LoL
повелись как дети

Talez · Post by **Talez** » 2005-05-31 20:14:48

Sfagnum wrote:LoL
повелись как дети

Это ТЫ про что?

Sfagnum · Post by **Sfagnum** » 2005-05-31 20:21:43

Talez wrote:
Sfagnum wrote:LoL
повелись как дети
Это ТЫ про что?

это не тебе.

Edred · Post by **Edred** » 2005-06-01 22:59:43

Сюда только сундук добавить осталось

Code: Select all

#####################################################################
; FishingAround. v.2.07b (c) Edred
;
; Рыбачим вокруг чара
;
sub FishingAround()
   VAR Ms0 = "You can't see"               ; не можем ловит здесь
   VAR Ms1 = "You can't fish under the ship"   ; не можем ловить здесь
   VAR Ms2 = "You are too far away"         ; далеко
   VAR Ms3 = "There are no fish here"         ; кончилось тут
   VAR Ms4 = "You fish a while, but fail to catch anything"   ; физл
   VAR Ms5 = "You pull out"               ; поймал что-то
   VAR Ms6 = "Try fishing in water."         ; не можем ловить здесь
   VAR k, t, v, x, y
   VAR MaxTime = 800
   For y = -4 To 4 
      For x = -4 To 4
         k = 0
         repeat
            If UO.Dead() Then
               return
            Endif
            DeleteJournal(ms0)
            DeleteJournal(ms1)
            DeleteJournal(ms2)
            DeleteJournal(ms3)
            DeleteJournal(ms4)
            DeleteJournal(ms5)
            DeleteJournal(ms6)
            t = UO.Timer()
            If UO.Waiting() Then
               UO.CancelTarget()
            Endif
            UO.WaitTargetTile( '0', STR( UO.GetX() + x ), STR( UO.GetY() + y ), '251')
            UO.UseObject( UO.GetSerial( UO.ObjAtLayer( 'Lhand' ) ) )
            repeat 
               wait(100)
            until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR ((t + MaxTime) < UO.Timer())
            k = k + 1
            If UO.InJournal(ms5) Then
               k = 0
            Endif
            If UO.Dead() Then
               return
            Endif
            If UO.InJournal( ms5 ) Then
               GetResultFish()
            Endif
         until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR (k > 6)
         If UO.Dead() Then
            return
         Endif
      Next 
   Next
endsub

Sub GetResultFish()
   ; ------- улов -------
   DIM Fish[18]
   Fish[0]  = '0x170B'   ; сапоги 
   Fish[1]  = '0x170F'   ; тапки
   Fish[2]  = '0x170D'   ; сандалии 
   Fish[3]  = '0x1711'   ; сапоги
   Fish[4]  = '0x09CC'   ; тип рыбы 1
   Fish[5]  = '0x09CD'   ; тип рыбы 2
   Fish[6]  = '0x09CE'   ; тип рыбы 3
   Fish[7]  = '0x09CF'   ; тип рыбы 4
   Fish[8]  = '0x0FC4'   ; ракушка, тип 1
   Fish[9]  = '0x0FC5'   ; ракушка, тип 2
   Fish[10] = '0x0FC6'   ; ракушка, тип 3
   Fish[11] = '0x0FC7'   ; ракушка, тип 4
   Fish[12] = '0x0FC8'   ; ракушка, тип 5
   Fish[13] = '0x0FC9'   ; ракушка, тип 6
   Fish[14] = '0x0FCA'   ; ракушка, тип 7
   Fish[15] = '0x0FCB'   ; ракушка, тип 8
   Fish[16] = '0x0FCC'   ; ракушка, тип 9
   Fish[17] = '0x14ED'   ; карта
   VAR Razmer = 17      ; размер массива - 1
   VAR Scissor = '0x0F9E'   ; тип ножниц
   VAR Bandag = '0x0E21'      ; Тип бинтов
   VAR i
   ; Ищем что у нас валяется под ногами, если надо перерабатываем
   For i = 0 To Razmer
      UO.FindType( Fish[i], '-1', 'ground' )
      If UO.FindCount() > 0 Then
         If i < 4 Then
            ; обувь
            UO.WaitTargetObject( 'finditem' )
            UO.UseType( Scissor )
            Wait( 3000 )
            UO.FindType( Bandag )
         Endif
         UO.Grab( '0', 'finditem' ) 
         Wait( 2000 )
         If i > 7 AND i < 17 Then
            ; ракушка
            UO.UseObject( 'finditem' )
            wait(1000)
         Endif
      Endif
   Next
endsub

Admeral · Post by **Admeral** » 2005-06-02 04:42:32

mozhno i vot tak skript nemoy a vzat iz sosednevo razdela i nemnogo krivo mnoy dorabotan

4u4ut! rabotayet vobshem

Code: Select all

sub fishing() 
var mx, my, mz, i, j 
uo.print('gde sunduk?') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
repeat
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 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("hiding...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 

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") ;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("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.SetReceivingContainer('Bag') 
UO.findtype('0x09CC','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (500) 
UO.findtype('0x09CD','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (500) 
UO.findtype('0x09CE','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (500) 
UO.findtype('0x09CF','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (500) 
UO.findtype('0x14EB','0x0000','ground') ;tattered map 
UO.grab ('1','finditem') 
wait (500) 
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish 
UO.grab ('1','finditem') 
wait (500) 
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish 
UO.grab ('1','finditem') 
wait (500) 
UO.UnSetReceivingContainer() 
end if 
wend 
wend 
UO.DeleteJournal() 
next 
next
Until false
end sub

I'm · Post by **I'm** » 2005-06-03 01:10:45

Talez wrote:Скиньте пожалуйста скрипт на фишинг в личку.Чтоб ловить рыбу и карты и всё складывал в сундук(шард ДРВ).
P.S.Скачал с вашего форума скрипт, но он во первых не на одном месте ловит, а пытается среколиться, а во вторых через минут 15 вылетает...

Еще раз увижу прзьбы такие удалю сразу нефиг тут форум загрязнять.
Обжалованию неподлежит.

Yoko

Фишинг

Фишинг

Re: Фишинг

Re: Фишинг

Re: Фишинг

Re: Фишинг