Yoko :: Фишинг

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

Фишинг http://forum.yoko.com.ua/viewtopic.php?f=20&t=4099	Page 1 of 1

Author:	Talez [ 2005-05-31 15:05:30 ]
Post subject:	Фишинг
Скиньте пожалуйста скрипт на фишинг в личку.Чтоб ловить рыбу и карты и всё складывал в сундук(шард ДРВ). P.S.Скачал с вашего форума скрипт, но он во первых не на одном месте ловит, а пытается среколиться, а во вторых через минут 15 вылетает...

Author:	Sfagnum [ 2005-05-31 15:48:38 ]
Post subject:	Re: Фишинг
Talez wrote: Скиньте пожалуйста скрипт на фишинг в личку.Чтоб ловить рыбу и карты и всё складывал в сундук(шард ДРВ). P.S.Скачал с вашего форума скрипт, но он во первых не на одном месте ловит, а пытается среколиться, а во вторых через минут 15 вылетает... хочешь готовый - пиши цену.

Author:	Lord imp [ 2005-05-31 16:04:17 ]
Post subject:	Re: Фишинг
Sfagnum wrote: хочешь готовый - пиши цену. А я могу бесплатно выложить! =) Только он не складывает в сундук... У меня чар ловит рыбу но не берет ее с пола... А вот карты собирает! Потому что рыба на мой взгляд не нужна... И еще для прокачки фишинга желательно поставить дом рядом с речкой и оградить забором часть реки. З.Ы. Чар ловит в хайде.

Author:	Lord imp [ 2005-05-31 16:13:36 ]
Post subject:
Хм... порылся у себя на компе и нашел хороший скрипт на фишинг, который написал уважаемый ВЕТЕРАН!

Author:

Beyonder [ 2005-05-31 17:12:38 ]

Post subject:

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

Code:

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

Author:	Talez [ 2005-05-31 20:08:30 ]
Post subject:
Lord imp wrote: Хм... порылся у себя на компе и нашел хороший скрипт на фишинг, который написал уважаемый ВЕТЕРАН! А можно его позаимствовать?

Author:	Talez [ 2005-05-31 20:09:33 ]
Post subject:	Re: Фишинг
Lord imp wrote: Sfagnum wrote: хочешь готовый - пиши цену. А я могу бесплатно выложить! =) Только он не складывает в сундук... У меня чар ловит рыбу но не берет ее с пола... А вот карты собирает! Потому что рыба на мой взгляд не нужна... И еще для прокачки фишинга желательно поставить дом рядом с речкой и оградить забором часть реки. З.Ы. Чар ловит в хайде. Дело в том, что на ДРВ не собирать рыбу с пола теперь наказывается(((

Author:

Talez [ 2005-05-31 20:10:12 ]

Post subject:

Beyonder wrote:

Code:

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

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

Author:	Sfagnum [ 2005-05-31 20:11:14 ]
Post subject:
LoL повелись как дети

Author:	Talez [ 2005-05-31 20:14:48 ]
Post subject:
Sfagnum wrote: LoL повелись как дети Это ТЫ про что?

Author:	Sfagnum [ 2005-05-31 20:21:43 ]
Post subject:
Talez wrote: Sfagnum wrote: LoL повелись как дети Это ТЫ про что? это не тебе.

Author:

Edred [ 2005-06-01 22:59:43 ]

Post subject:

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

Code:

#####################################################################
; 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

Author:

Admeral [ 2005-06-02 04:42:32 ]

Post subject:

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

4u4ut! rabotayet vobshem

Code:

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

Author:	I'm [ 2005-06-03 01:10:45 ]
Post subject:	Re: Фишинг
Talez wrote: Скиньте пожалуйста скрипт на фишинг в личку.Чтоб ловить рыбу и карты и всё складывал в сундук(шард ДРВ). P.S.Скачал с вашего форума скрипт, но он во первых не на одном месте ловит, а пытается среколиться, а во вторых через минут 15 вылетает... Еще раз увижу прзьбы такие удалю сразу нефиг тут форум загрязнять. Обжалованию неподлежит.

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/