Yoko

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

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

вот скрипт

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

пробуЙ

пасиба__)

ну как норм работает

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

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

_________________
Спасибо всем, у кого учился!

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

+ стопицот И тогда вопросов работает/не работает не возникнет.
++ отступы проставить и вообще будет нормлаьно.

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

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

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