помогите с фишингом)
Posted: 2010-01-23 11:18:50
вот я неумею их править) дали мне скрипт который как сказать нормально работает на нужном мне шарде)
так вот он когда вокруг себя облов сделает сам выключается)
вот как ето убрать?
вот скрипт
так вот он когда вокруг себя облов сделает сам выключается)
вот как ето убрать?
вот скрипт
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