помогите с фишингом)

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
m0rbit
Posts: 8
Joined: 2010-01-23 11:14:02

помогите с фишингом)

Post by m0rbit »

вот я неумею их править) дали мне скрипт который как сказать нормально работает на нужном мне шарде)

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

вот скрипт

Code: Select all

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
Top
Irina E
Posts: 240
Joined: 2009-06-12 20:10:00
Location: Vasa Smerti(RASToMAN) DRW

Re: помогите с фишингом)

Post by Irina E »

m0rbit wrote:вот я неумею их править) дали мне скрипт который как сказать нормально работает на нужном мне шарде)

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

вот скрипт

Code: Select all

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


пробуЙ
Top
m0rbit
Posts: 8
Joined: 2010-01-23 11:14:02

Re: помогите с фишингом)

Post by m0rbit »

пасиба__)
Top
Irina E
Posts: 240
Joined: 2009-06-12 20:10:00
Location: Vasa Smerti(RASToMAN) DRW

Re: помогите с фишингом)

Post by Irina E »

ну как норм работает
Top
Андрюха из Одессы
Posts: 164
Joined: 2009-03-21 10:03:06
Location: Одесса-Мама
Contact:
Contact Андрюха из Одессы

Re: помогите с фишингом)

Post by Андрюха из Одессы »

В середине 2006 года, когда познакомился с УО, а через пару месяцев с инжектом, такие проблемы решал легко и просто.
sub main_fishing()
while not uo.dead()
fishing()
wait(1000)
wend
end sub

Сейчас, кроме улыбки, такой выход из положения, ничего не вызывает. А тогда - это были первые пробы и познания в суровом мире инжекта.
Спасибо всем, у кого учился!

Меня трудно найти, легко потерять, и невозможно забыть. Я - рабочий исходник!
Top
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:
Contact Mirage

Re: помогите с фишингом)

Post by Mirage »

+ стопицот И тогда вопросов работает/не работает не возникнет.
++ отступы проставить и вообще будет нормлаьно.
Top
m0rbit
Posts: 8
Joined: 2010-01-23 11:14:02

Re: помогите с фишингом)

Post by m0rbit »

а можно в етот скрипт вставить чтоб с пола рыбку резал и кожу и в сумку кидал?

Code: Select all

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
Top
Post Reply

Return to “Scripting Ore”