Фишинг

Anything and all.

Moderators: Murderator+, Murderator

Locked
Talez
Posts: 30
Joined: 2005-02-25 20:42:05

Фишинг

Post by Talez »

Скиньте пожалуйста скрипт на фишинг в личку.Чтоб ловить рыбу и карты и всё складывал в сундук(шард ДРВ).
P.S.Скачал с вашего форума скрипт, но он во первых не на одном месте ловит, а пытается среколиться, а во вторых через минут 15 вылетает...
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Re: Фишинг

Post by Sfagnum »

Talez wrote:Скиньте пожалуйста скрипт на фишинг в личку.Чтоб ловить рыбу и карты и всё складывал в сундук(шард ДРВ).
P.S.Скачал с вашего форума скрипт, но он во первых не на одном месте ловит, а пытается среколиться, а во вторых через минут 15 вылетает...
хочешь готовый - пиши цену.
Top
Lord imp
Posts: 4
Joined: 2005-05-31 12:19:35
Contact:
Contact Lord imp

Re: Фишинг

Post by Lord imp »

Sfagnum wrote: хочешь готовый - пиши цену.
А я могу бесплатно выложить! =) Только он не складывает в сундук... У меня чар ловит рыбу но не берет ее с пола... А вот карты собирает! Потому что рыба на мой взгляд не нужна... :roll: И еще для прокачки фишинга желательно поставить дом рядом с речкой и оградить забором часть реки.
З.Ы. Чар ловит в хайде.
Top
Lord imp
Posts: 4
Joined: 2005-05-31 12:19:35
Contact:
Contact Lord imp

Post by Lord imp »

Хм... порылся у себя на компе и нашел хороший скрипт на фишинг, который написал уважаемый ВЕТЕРАН! :)
Top
Beyonder
Expert!
Posts: 388
Joined: 2005-04-23 10:19:43
Contact:
Contact Beyonder

Post by Beyonder »

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

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
Top
Talez
Posts: 30
Joined: 2005-02-25 20:42:05

Post by Talez »

Lord imp wrote:Хм... порылся у себя на компе и нашел хороший скрипт на фишинг, который написал уважаемый ВЕТЕРАН! :)
А можно его позаимствовать?
Top
Talez
Posts: 30
Joined: 2005-02-25 20:42:05

Re: Фишинг

Post by Talez »

Lord imp wrote:
Sfagnum wrote: хочешь готовый - пиши цену.
А я могу бесплатно выложить! =) Только он не складывает в сундук... У меня чар ловит рыбу но не берет ее с пола... А вот карты собирает! Потому что рыба на мой взгляд не нужна... :roll: И еще для прокачки фишинга желательно поставить дом рядом с речкой и оградить забором часть реки.
З.Ы. Чар ловит в хайде.
Дело в том, что на ДРВ не собирать рыбу с пола теперь наказывается(((
Top
Talez
Posts: 30
Joined: 2005-02-25 20:42:05

Post by Talez »

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
А что непосредственно нужно поменять?
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

LoL
повелись как дети ;)
Top
Talez
Posts: 30
Joined: 2005-02-25 20:42:05

Post by Talez »

Sfagnum wrote:LoL
повелись как дети ;)
Это ТЫ про что?
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

Talez wrote:
Sfagnum wrote:LoL
повелись как дети ;)
Это ТЫ про что?
это не тебе.
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

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

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
Top
Admeral
Posts: 40
Joined: 2004-04-13 19:05:40
Contact:
Contact Admeral

Post by Admeral »

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
Top
I'm
Expert!
Posts: 1396
Joined: 2004-10-15 22:38:04
Location: Moscow City.
Contact:
Contact I'm

Re: Фишинг

Post by I'm »

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

Return to “Scripting Ore”