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

помогите с фишингом)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=15496		 Page 1 of 1
Author:  m0rbit [ 2010-01-23 11:18:50 ]
Post subject:  помогите с фишингом)
вот я неумею их править) дали мне скрипт который как сказать нормально работает на нужном мне шарде)

так вот он когда вокруг себя облов сделает сам выключается)
вот как ето убрать?

вот скрипт
Code:
sub fishing()

var TryToHide=0 ## 1 - Включить хаид перед рыбалкои , 0 - Отключить.
var TakeFish=1 ## 1 - СОбирать рыбку, 0 - Не нужна она нам.
var FishPole='0x0DC0' # Тип удочки

var mX, mY, mZ, i, j
var f
var a=0
###################
### Массив рыбы ###
###################
dim Fish[7]
Fish[0]=0x09CC
Fish[1]=0x09CD
Fish[2]=0x09CE
Fish[3]=0x09CF
Fish[4]=0x14EB
Fish[5]=0x0DD6
Fish[6]=0x0DD6
Fish[7]=0x1410

Beginning:
uo.Set('finddistance','6')
mX = uo.getX("self")
mY = uo.getY("self")
mZ = uo.getZ("self")
uo.DeleteJournal()
for i = mX-6 to mX+6
for j = mY-6 to mY+6

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("Вы что-то выловили.") and not uo.InJournal("Попробуйте порыбачить в другом месте.") and not uo.InJournal("Здесь нет рыбы.") and not uo.InJournal("Слишком далеко.")and not uo.InJournal("Слишкoм близкo.")
uo.DeleteJournal()
uo.Waittargettile("1341", str(i), str(j), str(mZ))
uo.Usetype(FishPole)

while not uo.InJournal("Вы что-то выловили.") and not uo.InJournal("Вы не можете ловить рыбу здесь.") and not uo.InJournal("Здесь нет рыбы.") and not uo.InJournal("but fail") and not uo.InJournal("Слишком далеко.")and not uo.InJournal("Слишкoм близкo.") and not uo.InJournal("Попробуйте порыбачить в другом месте.")
wait (100)
if uo.InJournal("Вы что-то выловили.") then

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

if UO.InJournal("Вы что-то выловили.") then
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
endif

end if
wend
wend
uo.DeleteJournal()
next
next
end sub

sub ToHide()
while not uo.Hidden()
uo.Print('Пытаемся уйти в хайд...')
uo.DeleteJournal()
uo.UseSkill('Stealth')
wait(4500)
wend
wait(100)
end sub
Author:  Irina E [ 2010-01-23 21:08:34 ]
Post subject:  Re: помогите с фишингом)
m0rbit wrote:
вот я неумею их править) дали мне скрипт который как сказать нормально работает на нужном мне шарде)

так вот он когда вокруг себя облов сделает сам выключается)
вот как ето убрать?

вот скрипт
Code:
sub fishing()

var TryToHide=0 ## 1 - Включить хаид перед рыбалкои , 0 - Отключить.
var TakeFish=1 ## 1 - СОбирать рыбку, 0 - Не нужна она нам.
var FishPole='0x0DC0' # Тип удочки

var mX, mY, mZ, i, j
var f
var a=0
###################
### Массив рыбы ###
###################
dim Fish[7]
Fish[0]=0x09CC
Fish[1]=0x09CD
Fish[2]=0x09CE
Fish[3]=0x09CF
Fish[4]=0x14EB
Fish[5]=0x0DD6
Fish[6]=0x0DD6
Fish[7]=0x1410

Beginning:
while 1
uo.Set('finddistance','6')
mX = uo.getX("self")
mY = uo.getY("self")
mZ = uo.getZ("self")
uo.DeleteJournal()
for i = mX-6 to mX+6
for j = mY-6 to mY+6

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("Вы что-то выловили.") and not uo.InJournal("Попробуйте порыбачить в другом месте.") and not uo.InJournal("Здесь нет рыбы.") and not uo.InJournal("Слишком далеко.")and not uo.InJournal("Слишкoм близкo.")
uo.DeleteJournal()
uo.Waittargettile("1341", str(i), str(j), str(mZ))
uo.Usetype(FishPole)

while not uo.InJournal("Вы что-то выловили.") and not uo.InJournal("Вы не можете ловить рыбу здесь.") and not uo.InJournal("Здесь нет рыбы.") and not uo.InJournal("but fail") and not uo.InJournal("Слишком далеко.")and not uo.InJournal("Слишкoм близкo.") and not uo.InJournal("Попробуйте порыбачить в другом месте.")
wait (100)
if uo.InJournal("Вы что-то выловили.") then

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

if UO.InJournal("Вы что-то выловили.") then
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
endif

end if
wend
wend
uo.DeleteJournal()
next
next
wend
end sub

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


пробуЙ
Author:  m0rbit [ 2010-01-24 07:51:51 ]
Post subject:  Re: помогите с фишингом)
пасиба__)
Author:  Irina E [ 2010-01-24 10:59:55 ]
Post subject:  Re: помогите с фишингом)
ну как норм работает
Author:  Андрюха из Одессы [ 2010-01-24 20:29:50 ]
Post subject:  Re: помогите с фишингом)
В середине 2006 года, когда познакомился с УО, а через пару месяцев с инжектом, такие проблемы решал легко и просто.
sub main_fishing()
while not uo.dead()
fishing()
wait(1000)
wend
end sub

Сейчас, кроме улыбки, такой выход из положения, ничего не вызывает. А тогда - это были первые пробы и познания в суровом мире инжекта.
Author:  Mirage [ 2010-01-25 00:47:18 ]
Post subject:  Re: помогите с фишингом)
+ стопицот И тогда вопросов работает/не работает не возникнет.
++ отступы проставить и вообще будет нормлаьно.
Author:  m0rbit [ 2010-08-11 06:31:31 ]
Post subject:  Re: помогите с фишингом)
а можно в етот скрипт вставить чтоб с пола рыбку резал и кожу и в сумку кидал?

Code:
sub fishing()

var TryToHide=0 ## 1 - Включить хаид перед рыбалкои , 0 - Отключить.
var TakeFish=1 ## 1 - СОбирать рыбку, 0 - Не нужна она нам.
var FishPole='0x0DC0' # Тип удочки

var mX, mY, mZ, i, j
var f
var a=0
###################
### Массив рыбы ###
###################
dim Fish[7]
Fish[0]=0x09CC
Fish[1]=0x09CD
Fish[2]=0x09CE
Fish[3]=0x09CF
Fish[4]=0x14EB
Fish[5]=0x0DD6
Fish[6]=0x0DD6
Fish[7]=0x1410

Beginning:
while 1
uo.Set('finddistance','6')
mX = uo.getX("self")
mY = uo.getY("self")
mZ = uo.getZ("self")
uo.DeleteJournal()
for i = mX-6 to mX+6
for j = mY-6 to mY+6

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("Вы что-то выловили.") and not uo.InJournal("Попробуйте порыбачить в другом месте.") and not uo.InJournal("Здесь нет рыбы.") and not uo.InJournal("Слишком далеко.")and not uo.InJournal("Слишкoм близкo.")
uo.DeleteJournal()
uo.Waittargettile("1341", str(i), str(j), str(mZ))
uo.Usetype(FishPole)

while not uo.InJournal("Вы что-то выловили.") and not uo.InJournal("Вы не можете ловить рыбу здесь.") and not uo.InJournal("Здесь нет рыбы.") and not uo.InJournal("but fail") and not uo.InJournal("Слишком далеко.")and not uo.InJournal("Слишкoм близкo.") and not uo.InJournal("Попробуйте порыбачить в другом месте.")
wait (100)
if uo.InJournal("Вы что-то выловили.") then

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

if UO.InJournal("Вы что-то выловили.") then
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
endif

end if
wend
wend
uo.DeleteJournal()
next
next
wend
end sub

sub ToHide()
while not uo.Hidden()
uo.Print('Пытаемся уйти в хайд...')
uo.DeleteJournal()
uo.UseSkill('Stealth')
wait(4500)
wend
wait(100)
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/