Фишинг на ДРВ. Продвинутая версия)

BETEPAH · Post by **BETEPAH** » 2005-01-12 10:24:41

Immelstorn wrote:Люди зачем засоряете топик? Тут скрипты продают, а не раздают нахаляву. Достало, правда. Если столько энтузиазма - выкладывайте в свободном доступе. Я что не имею права получить некоторое материальное поощрение за мой интелеллектуальный труд? А?

Без обид, этот форум создан для Помощи а не для продажи.
Все что тут делают, делают для помощи а не для продажи.
Если хочешь продать ......пиши на форуме Шарда.
Сдесь тебе это сделать не дадут.

I'm · Post by **I'm** » 2005-01-12 19:25:44

des mono toko kypit/zakazat'

Immelstorn · Post by **Immelstorn** » 2005-01-14 04:17:52

BETEPAH wrote:
Immelstorn wrote:Люди зачем засоряете топик? Тут скрипты продают, а не раздают нахаляву. Достало, правда. Если столько энтузиазма - выкладывайте в свободном доступе. Я что не имею права получить некоторое материальное поощрение за мой интелеллектуальный труд? А?
Без обид, этот форум создан для Помощи а не для продажи.
Все что тут делают, делают для помощи а не для продажи.
Если хочешь продать ......пиши на форуме Шарда.
Сдесь тебе это сделать не дадут.

Если бы на ДРВ подобные темы не удаляли... то проблем бы не было. А так одни расстройства

kuviCk · Post by **kuviCk** » 2005-01-15 02:27:31

BETEPAH wrote:
Immelstorn wrote:Люди зачем засоряете топик? Тут скрипты продают, а не раздают нахаляву. Достало, правда. Если столько энтузиазма - выкладывайте в свободном доступе. Я что не имею права получить некоторое материальное поощрение за мой интелеллектуальный труд? А?
Без обид, этот форум создан для Помощи а не для продажи.
Все что тут делают, делают для помощи а не для продажи.
Если хочешь продать ......пиши на форуме Шарда.
Сдесь тебе это сделать не дадут.

Полностью присоединяюсь

MitAl · Post by **MitAl** » 2005-01-15 17:26:03

Cooler! wrote:
Immelstorn wrote:Предлагаю отличный скрипт на фишинг. Основное назначение скрипта - сбор карт, рарной рыбы и фишинг сетей. Особенности:

1. Ловля происходит в 7 точках, если ловится обычная рыба, текущий тайл пропускается.
2. Реколл по точкам по рунбуке.
3. После обхода всех мест чар реколлится домой, сбрасывает улов, речаржит рунбук, ест и летит в 1-ую точку.
4. В скрипт встроена защита от ПК, при появлении последнего чар будем пытаться среколлится домой по рунке, если удачно, сбрасывать улов и лететь в следующую точку.
5. Скрипт оттестирован, есть функция реконнекта.

Цена скрипта договорная, ориентировочно 500к. Возможны варианты обмена. По всем вопросам в асю: 319-441-943. С Уважением, Immelstorn.
Я сделаю на халяву если будут пожелания !! Стучите пишите в личку ... Это легко из моего с Ветром скрипта на ламбер!

Если тебе это не трудно - сделай пожалуйста. Я практически уверен что многие здесь ждут этого скрипта с нетерпением.

Sfagnum · Post by **Sfagnum** » 2005-02-11 16:01:48

сори за повтор, но надо было кое что для одного человечка поправить

Code: Select all

#########################################################
###      Fishing / Ловля рыбы v1.9 Full / 3 Руны      ### 
#########################################################
###      Шард Dragon World / www.drw.ru      ###
################################################
### Внимание: 
### Для  работы скрипта нужна версия YokoInjection 4DZ. 
### Скачать dll этой версии можно                      
### от сюда: www.swines.nm.ru/injection.zip     
#########################################################
### Авторы:
### - Первоначальный скрипт:"BETEPAH".
### - Доработка, создание массива, переработка:"cOoler". 
#########################################################
############################
### Описание и настройка ###
############################
### Обратите внимание на значки "]![" ими выделенны важные сообщения.
###
### Чар ищет вокруг себя воду, а в воде рыбу.
### Найдя рыбу ловит ее и кладет в пак.
### После того как набирается максимальный вес или кончается рыба скрипт выключается.
###
####################
### Нововведения ###
####################
### 1)Теперь в скрипте присутствует масив рыбы. [cOoler] 
### 2)Вес можно указать в переменных. [cOoler] 
### 3)Добавлено множество переменных. [cOoler] 
###
### ]![ Чтобы скрипт заработал внимательно прочтите настройки. ]![ 
###
###################################
###    Режимы работы скрипта	  ###	
###################################
### Работает в 3ух режимах:     ### 
### 1)Поиск                     ###
### 2)Ловля                     ###
### 3)Сбор                      ### 
###################################
###   Режим Первый - "Поиск"    ### 
###################################
### Этот режим отвечает за Поиск воды(записывание координат) деревьев. 
###
### Поиск происходит так: 
### Ставим чара рядом с водой. 
### Запускаем скрипт и он автоматически начинает искать воду.
###
############################## 
### Режим Второй - "Ловля" ###
##############################
### Этот режим соответственоо отвечает за ловлю рыбы. 
###
### Ловля происходит так:
### После того как чар найдет воду, он начинает искать в воде рыбу
### и ловить ее. 
############################## 
###  Режим Второй - "Сбор" ###
##############################
### Этот режим соответственно отвечает за сбор рыбы. 
###
### Сбор происходит так:
### Паралельно с тем как чар быдет ловить рыбу он будет складывать ее в пак(который вы укакзали).
###
### Настройте скрипт под себя при помощи переменных.
###
##################
### Переменные ###
##################
### var TryToHide=1 ## 1 - Включить уход(перед ловлей) в хайд, 0 - выключить.
### var TakeFish=1 ## 1 - Включить сбор обычной рыбы, 0 - выключить.
### var TakeMaps=1 ## 1 - Включить сбор карт, 0 - выключить.
### var TakeRareFish=1 ## 1 - Включить сбор рарной рыбы, 0 - выключить.
### var TakePrizeFish=1 ## 1 - Включить сбор приз рыбы, 0 - выключить.
### var MaxWeight=800 ## - Вес при котором скрипт выключиться.
###
### После настройки: 
### Идите к реке в которой вы хотите ловить рыбу. 
### Запустите cкрипт Fishing(), Инжект попросит вас указать Пак для рыбы 
### (появится прицел, прицелом на пак),
### потом инжект попросит вас указать Удочку(появится прицел, прицелом на нее). 
### После этого чар будет ловить рыбу.
###########
### Код ###
########### 
sub Fishing() 
var mX, mY, mZ, i, j
var f
var a=0
####################
### Меню/Options ###
####################
#########################################################################
###
var TryToHide=1 ## 1 - Включить уход(перед ловлей) в хайд, 0 - выключить.
###
var TakeFish=1 ## 1 - Включить сбор обычной рыбы, 0 - выключить.
###
var TakeMaps=1 ## 1 - Включить сбор карт, 0 - выключить.
###
var TakeRareFish=1 ## 1 - Включить сбор рарной рыбы, 0 - выключить.
###
var TakePrizeFish=1 ## 1 - Включить сбор приз рыбы, 0 - выключить.
###
var MaxWeight=650 ## - Вес при котором скрипт выключиться.
###
#########################################################################
###################
### Массив рыбы ###
###################
dim Fish[6] 
Fish[0]=0x09CC  
Fish[1]=0x09CD  
Fish[2]=0x09CE  
Fish[3]=0x09CF 
Fish[4]=0x14EB 
Fish[5]=0x0DD6 
Fish[6]=0x0DD6 

uo.Print('Выбери контейнер...') 
uo.Exec('addobject Bag') 
while uo.Targeting() 
wait(100) 
wend

uo.Print('Выбери удочку...') 
uo.Exec('addobject FishPole') 
while uo.Targeting() 
wait(100) 
wend

uo.Print('Руна-Домой :') 
uo.Exec('addobject RuneHome') 
while uo.Targeting() 
wait(100) 
wend

uo.Print('Руна-Озеро №1 :') 
uo.Exec('addobject RuneFish1') 
while uo.Targeting() 
wait(100) 
wend

uo.Print('Руна-Озеро №2 :') 
uo.Exec('addobject RuneFish2') 
while uo.Targeting() 
wait(100) 
wend

wait(1000)
uo.Exec('exec RecallFishing1')
wait(4000)

Beginning:
uo.Set('finddistance','4')
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 
end if 

if TryToHide==1 then
ToHide()
end if 

uo.Print("Сейчас ловим: "+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") and not uo.InJournal("You pull")
uo.DeleteJournal() 
uo.Waittargettile("1341", str(i), str(j), str(mZ)) 
uo.UseObject("FishPole")
if uo.Dead() then 
return 
end if 
if uo.Weight>MaxWeight then 
wait(3000)
uo.Exec('exec RecallHome')
wait(4000)
uo.Exec('exec DropFish')
wait(17000)
uo.Exec('exec RecallFishing2')
wait(4000)
goto Beginning
end if 
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 

if a>0 then 
uo.print(STR(a)) 
end if 

if TakeFish==1 then
uo.Print('Собираем рыбу.')
for f=0 to 3 
uo.FindType(Fish[f],"-1","ground") 
if uo.Count(Fish[2])> 0 then 
a= a+1 
end if 
uo.MoveItem("finditem","1","Fishs") 
wait(200) 
next 
end if

if TakeMaps==1 then
uo.Print('Собираем карты.')
for f=4 to 4 
uo.FindType(Fish[f],"-1","ground") 
uo.MoveItem("finditem","-1","Maps") 
wait(200)
next
end if

if TakeRareFish==1 then 
uo.Print('Собираем рар рыбу.')
for f=5 to 5 
uo.FindType(Fish[f],"-1","ground") 
uo.MoveItem("finditem","-1","RareFish") 
wait(200)
next
end if

if TakePrizeFish==1 then 
uo.Print('Собираем приз рыбу.')
for f=6 to 6 
uo.FindType(Fish[f],"-1","ground") 
uo.MoveItem("finditem","-1","PrizeFish") 
wait(200)
next
end if
 
end if 
wend 
wend 
uo.DeleteJournal() 
next 
next 
end sub 

sub ToHide() 
while not uo.Hidden()
uo.Exec('warmode 0') 
uo.Print('Пытаемся уйти в хайд...') 
uo.DeleteJournal() 
uo.UseSkill('Stealth') 
wait(4100) 
wend 
wait(100) 
end sub 

sub DropFish()
ToHide()
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var a, Exit 
var Chest='0x40203CC2' ## - ID сундука для сброса логов. 
dim Fish[6] 
Fish[0]=0x09CC  
Fish[1]=0x09CD  
Fish[2]=0x09CE  
Fish[3]=0x09CF 
Fish[4]=0x14EB 
Fish[5]=0x0DD6 
Fish[6]=0x0DD6 
uo.Print('Выкладываем Рыбу.')
uo.SetReceivingContainer(Chest) 
wait(500) 
for a=0 to 6 
exit=0 
repeat 
uo.FindType(Fish[a]) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(1500) 
else 
exit=1 
end if 
until Exit==1 
next 
uo.UnSetReceivingContainer(Chest)
uo.Print('Рыба Выложена.')
end sub

sub RecallHome() 
var mX, mY
reccal: 
uo.DeleteJournal() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
mX = uo.GetX("self") 
mY = uo.GetY("self") 
uo.DeleteJournal() 
uo.WaittargetObject('RuneHome') 
wait(500) 
uo.Cast('Recall') 
wait(4500) 
if not uo.GetX("self") <> mX and not uo.GetY("self") <> mY then 
goto reccal 
end if 
end sub 

sub RecallFishing1() 
var mX, mY
reccal: 
uo.DeleteJournal() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
mX = uo.GetX("self") 
mY = uo.GetY("self") 
uo.DeleteJournal() 
uo.WaittargetObject('RuneFish1') 
wait(500) 
uo.Cast('Recall') 
wait(4500) 
if not uo.GetX("self") <> mX and not uo.GetY("self") <> mY then 
goto reccal 
end if 
end sub

sub RecallFishing2() 
var mX, mY
reccal: 
uo.DeleteJournal() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
mX = uo.GetX("self") 
mY = uo.GetY("self") 
uo.DeleteJournal() 
uo.WaittargetObject('RuneFish2') 
wait(500) 
uo.Cast('Recall') 
wait(4500) 
if not uo.GetX("self") <> mX and not uo.GetY("self") <> mY then 
goto reccal 
end if 
end sub

autopilot · Post by **autopilot** » 2005-02-11 22:42:20

Ладно внесу свою лепту.
ловит по частям света.
рекол по 6 рункам.
ловит только карты остальное игнорирует.

Code: Select all

sub hiding()
	uo.print("Hiding...")
	UO.Warmode("0")
	while not UO.Hidden() 
		UO.DeleteJournal()
		UO.UseSkill("Hiding") 
		while NOT UO.InJournal("You")
			wait(1000) 
		wend
	wend 
	uo.print("OK") 
end sub

sub fishingSouth() 
hiding()
;var mx, my, mz, i, j 
var i,j, isfishing
var	mx = UO.GetX('self') 
var	my = UO.GetY('self') 
var	mz = UO.GetZ('self') 
	UO.DeleteJournal() 
	repeat
		for i = mx-6 to mx+6
			for j = my+1 to my+6
				isfishing = 1
				UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)+' '+str(mz)) 
				while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing
					UO.DeleteJournal() 
					UO.Waittargettile("6043", str(i), str(j), str(251)) 
					UO.Usetype('0x0DC0') 
					while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water") 
						wait(100) 
					wend 
;					if not UO.Hidden('self') then 
;						hiding()
;					end if 
					if UO.InJournal("treasure") then 
						uo.findtype('0x14EB',-1,1)
							wait(500) 
						uo.grab('0','finditem')
					end if
					if UO.InJournal("fishing net") then 
						uo.findtype('0x0DCA',-1,1)
							wait(500) 
						uo.grab('0','finditem')
					end if
					if UO.InJournal("Prize") or UO.InJournal("Rare") then 
						uo.findtype('0x0DD6',-1,1)
							wait(500) 
						uo.grab('0','finditem')					
					end if
					if UO.InJournal("out a fish") then 
						isfishing = 0
						uo.print('vnizzz!!!')
					end if

				wend 
				UO.DeleteJournal() 

			next
		next
	until 1 
end sub


sub fishingNorth() 
hiding()
;var mx, my, mz, i, j 
var i,j, isfishing
var	mx = UO.GetX('self') 
var	my = UO.GetY('self') 
var	mz = UO.GetZ('self') 
	UO.DeleteJournal() 
	repeat
		for i = mx-6 to mx+6
			for j = my-6 to my-1
				isfishing = 1
				UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 
				while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing
					UO.DeleteJournal() 
					UO.Waittargettile("6043", str(i), str(j), str(251)) 
					UO.Usetype('0x0DC0') 
					while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water") 
						wait(100) 
					wend 
;					if not UO.Hidden('self') then 
;						hiding()
;					end if 
					if UO.InJournal("treasure") then 
						uo.findtype('0x14EB',-1,1)
							wait(500) 
						uo.grab('0','finditem')
					end if
					if UO.InJournal("fishing net") then 
						uo.findtype('0x0DCA',-1,1)
							wait(500) 
						uo.grab('0','finditem')
					end if
					if UO.InJournal("Prize") or UO.InJournal("Rare") then 
						uo.findtype('0x0DD6',-1,1)
							wait(500) 
						uo.grab('0','finditem')					
					end if
					if UO.InJournal("out a fish") then 
						isfishing = 0
						uo.print('dalshe!!!')
					end if

				wend 
				UO.DeleteJournal() 
			next
		next
	until 1 
end sub


sub fishingEast() 
hiding()
;var mx, my, mz, i, j 
var i,j, isfishing
var	mx = UO.GetX('self') 
var	my = UO.GetY('self') 
var	mz = UO.GetZ('self') 
	UO.DeleteJournal() 
	repeat
		for i = mx+2 to mx+6
			for j = my-6 to my+6
				isfishing = 1
				UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)+' '+str(mz)) 
				while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing
					UO.DeleteJournal() 
					UO.Waittargettile("6043", str(i), str(j), str(251)) 
					UO.Usetype('0x0DC0') 
					while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water") 
						wait(100) 
					wend 
;					if not UO.Hidden('self') then 
;						hiding()
;					end if 
					if UO.InJournal("treasure") then 
						uo.findtype('0x14EB',-1,1)
							wait(500) 
						uo.grab('0','finditem')
						uo.print('YPA MAP !!!')
					end if
					if UO.InJournal("fishing net") then 
						uo.findtype('0x0DCA',-1,1)
							wait(500) 
						uo.grab('0','finditem')
						uo.print('CETO4KA')
					end if
					if UO.InJournal("Prize") or UO.InJournal("Rare") then 
						uo.findtype('0x0DD6',-1,1)
							wait(500) 
						uo.grab('0','finditem')
						uo.print('Eeee PbI6KA')
					end if
					if UO.InJournal("out a fish") then 
						isfishing = 0
						uo.print('vnizzz!!!')
					end if

				wend 
				UO.DeleteJournal() 

			next
		next
	until 1 
end sub

sub fishingAll() 
hiding()
;var mx, my, mz, i, j 
var i,j, isfishing
var	mx = UO.GetX('self') 
var	my = UO.GetY('self') 
var	mz = UO.GetZ('self') 
	UO.DeleteJournal() 
	repeat
		for i = mx-6 to mx+6
			for j = my-6 to my+6
				isfishing = 1
				UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)+' '+str(mz)) 
				while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing
					UO.DeleteJournal() 
					UO.Waittargettile("6043", str(i), str(j), str(251)) 
					UO.Usetype('0x0DC0') 
					while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water") 
						wait(100) 
					wend 
;					if not UO.Hidden('self') then 
;						hiding()
;					end if 
					if UO.InJournal("treasure") then 
						uo.findtype('0x14EB',-1,1)
							wait(500) 
						uo.grab('0','finditem')
						uo.print('YPA MAP !!!')
					end if
					if UO.InJournal("out a fish") then 
						isfishing = 0
						uo.print('vnizzz!!!')
					end if

				wend 
				UO.DeleteJournal() 

			next
		next
	until 1 
end sub

sub main()
var numrun
dim frune[10] ; òóò ÈÄøíèêè 6 ðóí íà ìåñòî ðûáàëêè è 7-àÿ äîìîé ê ÿùèêó

	frune[1]='0x401932AF'
	frune[2]='0x4019355E'
	frune[3]='0x401933D4'	
	frune[4]='0x40193455'
	frune[5]='0x401933F0'
	frune[6]='0x4019302D'
	frune[7]='0x402E074A'

var bagformap='0x40170C22' ;ìåøîê â êîòîðûé áóäóò êèäàòñÿ ìàïû äîìà

uo.exec("addobject Runebook 0x402127CF")

	numrun=1	
	repeat

		uo.cast('Recall',frune[numrun])
		wait(5000)

		if numrun==1 or numrun==2 or numrun==3 or numrun==4 or numrun==5 or numrun==6 then
			uo.exec(fishingEast())  ; ýòî èìååòñÿ ââèäó ÷òî ïðè ïðèõîäå íà âñå ðóíû áóäåøü ëîâèòü íà þã, èëè îñòàâü òàê èëè ïðîñòî ïîìåíÿé íà äðóãîé âëîæåííûé ñêðèïò(åñëè òàê îñòàâëÿåøü òî âñå ìåñòà ëîâà äîæíû ñîîòýòñòíî áûòü íà þã)
		end if
	
		if numrun==6 then
				uo.cast('Recall',frune[7])
		wait(5000)
		
		uo.unsetreceivingcontainer()
		UO.SetReceivingContainer(bagformap)	
		repeat
			uo.findtype("0x14EB")
			wait(50)
;			if uo.findcount()<1 then
;				uo.print("Maps are over")
;				Return
;			end if
			uo.grab('1','finditem')
			wait(500)
		until uo.findcount()<1
		uo.unsetreceivingcontainer()

			numrun=0
		end if
		
		numrun=numrun+1
	until 0

end sub

Shizoid · Post by **Shizoid** » 2005-02-13 12:23:27

А не подскажете ли ньюбу как пользоваться ходилкой из первого скрипта? А то у мну чар просто ходит туда-сюда и все..

Hyperion · Post by **Hyperion** » 2005-02-15 14:48:50

Народ, а нет ли у кого такого скриптика, чтобы перс ловил только мапы и рар-прайз фиш.... но при этом: если попался тайл с обычной рыбой, что бы не выдолбливал его до конца, а как только выловил первую ненужную рыбу, сразу переходил на другой тайл.... т.е цель данного скрипта СБОР КАРТ И РАП-ПРАЙЗ ФИШ в максимально короткие сроки =)) ,а НЕ в сборе обычной рыбы (она мне ненуНа =)) )
если есть у кого скиньте Плиз=))

Sfagnum · Post by **Sfagnum** » 2005-02-15 16:29:48

мой пост выше... вроде должен подойти...

Hyperion · Post by **Hyperion** » 2005-02-16 17:55:02

2 Sfagnum
Это...я действительно скриптик работает так ка надо.... но вот в чем проблемка =)) у меня кривые руки, а в скрипте много ненужных функций, как то: выбор рунок и рекол по ним, дроп рыбы в сундук и т.д..... вобщем я со своими кривенькими ручками пытался укоротить скрипт до обычного отлова карт и РАР_ПРайз фишки по координатам, без реколов и дропов, но к сожалению ничего не получилось. Не подскажешь что именно нужно удалить ?? =)) заранее спасибо

SAMURAI · Post by **SAMURAI** » 2005-02-16 18:30:24

Code: Select all

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

Понравится - юзай. Непонравится - исправляй
з.ы. Вылов нужной рыбы настрой сам - всё дано...

Sfagnum · Post by **Sfagnum** » 2005-02-17 00:44:36

Code: Select all

sub fishing() 
var mx, my, mz, i, j, delay = 10000
var tFishingPole = '0x0DC0'
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
while not UO.Dead()
for i = mx-6 to mx+6 
	for j = my-6 to my+6
		ToHide()
		while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water") and not UO.InJournal("You pull") 
			ToHide()
			checkLag() 
			UO.Waittargettile("1341", str(i), str(j), str(mz)) 
			UO.Usetype(tFishingPole) 			
			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 (150)
			wend 			
			if UO.InJournal("You pull") then 
				CheckLag()
				UO.findtype('0x14EB','-1','ground') ;tattered map 
				UO.MoveItem ('finditem',-1,'backpack')
				UO.findtype('0x0DD6','-1','ground') ;Truly Rare Fish 
				UO.MoveItem ('finditem',-1,'backpack')
				UO.findtype('0x0DCA','-1','ground') ;fishing net 
				UO.MoveItem ('finditem',-1,'backpack')
			end if 			
		wend 
	next 
next
wait(delay)
wend
end sub

sub tohide() 
	while NOT UO.Hidden() 
		UO.DeleteJournal() 
		UO.Exec('warmode 0')
		UO.UseSkill('Hiding')
		repeat
			wait(50)
		until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
	wend 	
end sub

sub CheckLag() 
	UO.DeleteJournal() 
	UO.Click('backpack') 
	repeat 
		wait(50) 
	until UO.InJournal('backpack') 
end sub

delay = 10000 - задержка между "кругами" если рыба респится не успевает.

NB!! not tested!

Yoko

Фишинг на ДРВ. Продвинутая версия)

Re: Фишинг на ДРВ. Продвинутая версия)

Прошу прощения...