Yoko

А ты перепенные все повтыкал куда надо? Переменная TryRecall теперь переехала в функцию Стартер, её вначале Стартера теперь надо обьявить и присвоить ей 1, типа

sub Starter() 
var TryRecall =1

И остальную шнягу в функции Фишинг надо повключать

Sub Fishing() 
var TryToHide=1
var TakeFish=1
var TakeMaps=1
var TakeRareFish=1
var TakePrizeFish=1

я насчёт переменных нестал обьяснять, тыж их сам поубирал

На тебе нормальный фишинг, я написал, на основе твоего. Нормально колбасит, и ненадо этих 37 никчёмных переменных. Прям так втыкай в готовом виде. Скрипт правда, заточен под дрв. У нас на дрв есть особенность национальной рыбалки, если скил маленький, чар как баран будет фэйлить на одной точке хоть 50тысяч раз, поэтому в скрипте проверка, если 5 раз подряд на одной точке фэйл кетчинг, скрипт переходит на другую точку.

sub Fishing() 
   var mX,mY,i,j,f
   var a=0
   uo.Set('finddistance','2')
   dim Fish[7] 
   Fish[0]='0x09CC'
   Fish[1]='0x09CD'
   Fish[2]='0x09CE'
   Fish[3]='0x09CF' 
   Fish[4]='0x14EB' 
   Fish[5]='0x0DD6' 
   Fish[6]='0x0DD6' 
    
   mX = uo.getX("self") 
   mY = uo.getY("self") 
   uo.DeleteJournal() 
   i = mX-6
     repeat
      j = mY-6
       repeat
         repeat
            uo.Print('    My place is   : '+str(mX)+' , '+str(mY))
            uo.Print("Try to fishing in : "+str(i)+" , "+str(j))
            uo.DeleteJournal()
            uo.Waittargettile(0,i,j,0) 
            uo.Usetype('0x0DBF')              
                  repeat  
                        wait (500) 
                  until uo.InJournal("You pull|location|no fish|but fail|far away|in water")
                          if uo.InJournal('You pull') then
                                   for f=0 to 6
                                         poisk:
                                         uo.FindType( Fish[f],-1,'ground')
                                             if uo.FindCount() then
                                                 uo.MoveItem('finditem',0,'backpack')
                                                 wait(1000)
                                                 checklag()
                                                 goto poisk
                                           endif
                                   next
                               if uo.Weight>=uo.Str*4 then
                                   uo.Print('!!!!!!Max Weight!!!!!!')
                                    Return
                               endif
                           endif
                  if uo.InJournal('but fail') then
                        a=a+1
                  endif
                  if a>=5 then
                     j=j+1
                  endif
         until  uo.InJournal ("in water|no fish|far away")  
            j=j+1
            a=0
       until j>=(mY+6)
        i=i+1
     until i>=(mX+6)
    uo.Set('finddistance','14')
    uo.Print('!!!!!!!!!!!END FISHING!!!!!!!!!!!')
end sub 

запусти отдельно этот фишинг на берегу, посмотришь как колбасит....Кстати, а чего делать с рар и призовой рыбой ваще?

о ты тож с дрв? я тодеж) я отблагадарю чем смогу ты свой ник можеш кинуть мне в лс прям тут.Millerbeer щас выдаёт не 357 parse error,а 363 parse error.скажи пожалуйста,а то,что ты новенькое написал для скрипта это не мешает ему работать? всмысле Starter(sub) и fishing(sub)
но всё таки ты не мог бы сказать - что мешает в скрипте ему прилететь к месту рыбалки и орять начать рыбачить а не стоять на месте! Рыбу блпгодаря тебе складывает а вот не хочет рыбачить.вот последней базы скрипт:

[/code]var f=file("C:\Fish.dat") ## - Путь к файлу в котором будут хранится координаты
###
var TryHiding=1 ## 1 - Перед тем как рыбачить, будет пытаться уйти в хайд, 0 - не будет .
###
var TryRecall=1 ## 1 - После того как соберет полный вес будет пытаться реколиться домой,
### складывать Улов в сундук и реколиться обратно , 0 - не будет.
###
var RuneToHome=1 ## 1 - Номер руны Домой,по счёту в рунбуке.(сейчас в 1ом слоте,можно менять от 1-9)
###
var RuneToPoint=2 ## 2- Номер руны в Лес,по счёту в рунбуке.(сейчас в 9ом слоте,можно менять от 1-9)
###
var GetFromFile=1 ## 1 - Координаты будут считыватся из файла, 0 - собиратся из клиента
### (сначала соберите а потом считывайте из файла).
###
var EatingFood=0 ## 1 - Будем есть, 0 - нет.
###
var TypeFood='0x097B' ## - Тип еды которую будем кушать.(сейчас фиштейки)
###
var Reconnect=1 ## 1 - Включить реконнект на сервер если выкинет, 0 - отключить реконнект.
###
var oldX,oldY,time ## - Для рекола.
#########################################################################
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 - выключить.
###
###################################################################################################
###########
### Код ###
###########

sub Starter()
var TryRecall=1
var i=0,j=0,k=0,r=0,q=0,ii,jj
var TopX=324,TopY=65
dim PointX[5000], PointY[5000],PointT[5000]

var flag=0,PointCount=0,clicks=0,flag2=0
#BETEP™#
uo.Exec("filterspeech on")
uo.Exec("filterspeech add 'Where do you want to use the pickaxe?'")

if GetFromFile==1 then
uo.Print('Загружаем координаты из файла...')
f.open()
PointCount=safe call f.ReadNumber()
for i=1 to PointCount
PointT[i]=safe call f.ReadNumber()
PointX[i]=safe call f.ReadNumber()
PointY[i]=safe call f.ReadNumber()
next
f.close()
else

uo.Print('Выбери Кирку: ')
uo.Exec('addobject Pickaxe')
while uo.Targeting()
wait(100)
wend
uo.Print('Собираем координаты точек для ловли ...')
repeat
clicks=0
flag=0
uo.DeleteJournal()
uo.UseObject('Pickaxe')
waitForTarget()
uo.DeleteJournal()
WaitForTryRock()
if uo.Lasttile(1)==uo.getX() and uo.Lasttile(2)==uo.gety() then
flag=3
end if
PointCount=PointCount+1
PointX[PointCount]=uo.LastTile(1)
PointY[PointCount]=uo.LastTile(2)
PointT[PointCount]=uo.LastTile(0)
uo.Print('Найдена точка ловли '+str(PointCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2))+' '+str(PointCount))
until (Flag==3) or (PointCount==5000)
uo.Exec("filterspeech off")
uo.Print('Анализ закончен, координаты точек записаны в файл C:\Fish.dat')
SaveToFile(PointCount,PointX,PointY,PointT)
end if
uo.Print('Точек найдено: '+str(PointCount))
wait(2000)
while 1==1
if PointCount>0 then
for i=1 to PointCount
uo.Print('Идем к координате '+str(i)+': x='+str(PointX[i])+' y='+str(PointY[i]))
flag=GotoXY(PointX[i],PointY[i])
if flag==1 then
if TryHiding==1 then
ToHide()
end if
Fishing()
if TryRecall==1 and uo.Weight>=uo.STR*4 then
ToRecall()
end if
end if
next
end if
wend
end sub


sub Options()########################################## Конфиг
UO.Say("zdarova! tebja privetstvujet skript nastrojka!")
wait(3000)
UO.Say("sledujte instrukcijam!")
wait(3000)
UO.Say("vi dolzni stojat licom k sunduku mesta sbrosa!")
wait(4000)

UO.Say("ukazite runbuk ")
UO.AddObject('RuneB1')
While UO.Targeting()==2
wait(500)
Wend
UO.SaveConfig()

UO.Say("ukazite sunduk pricelom")
UO.AddObject('Sunduk')
While UO.Targeting()==2
wait(500)
Wend
UO.SaveConfig()
UO.Say("ukazite sumku v sunduke")
UO.AddObject('SundukBag')
While UO.Targeting()==2
wait(500)
Wend
UO.SaveConfig()

UO.Say("Отлично")
UO.UseObject('Sunduk')
wait(3000)

UO.Say("ukazite sumku dla rar ribi")
UO.AddObject('StoreFish')
While UO.Targeting()==2
wait(500)
Wend
UO.SaveConfig()

UO.Say("ukazite sumku dla prize ribi")
UO.AddObject('StorePRFish')
While UO.Targeting()==2
wait(500)
Wend
UO.SaveConfig()

UO.Say("ukazite sumku dla kart")
UO.AddObject('StoreMAP')
While UO.Targeting()==2
wait(500)
Wend
UO.SaveConfig()

wait(2000)

UO.Say("nastrojka zakon4enna. Dlja izmenenija parametrov,perezapustite skript povtorno.")
end sub


Sub Fishing()
var TryToHide=1
var TakeFish=1
var TakeMaps=1
var TakeRareFish=1
var TakePrizeFish=1
var mX, mY, mZ, i, j
var f
#########################################################################
###################
### Массив рыбы ###
###################
dim Fish[7]
Fish[0]=0x09CC
Fish[1]=0x09CD
Fish[2]=0x09CE
Fish[3]=0x09CF
Fish[4]=0x14EB
Fish[5]=0x0DD6
Fish[6]=0x0DD6

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))

repeat
uo.DeleteJournal()
uo.Waittargettile("1341", str(i), str(j), str(mZ))
uo.Usetype('0x0DBF')

repeat
wait (300)
untiluo.InJournal("You pull|location|no fish|but fail|far away|in water")
if (UO.InJournal("You pull out a fish!")) and (TakeFish==1) then
uo.Print('Собираем рыбу.')
for f=0 to 3
uo.FindType(Fish[f],"-1","ground")
if uo.FindCount() then
uo.MoveItem("finditem","0","Fishs")
wait(200)
endif
next
uo.Print(str(uo.Count(Fish[2])))
endif
if (UO.InJournal("You pull out a Tattered treasure map!")) and (TakeMaps==1) then
uo.Print('Собираем карты.')
uo.FindType(Fish[4],"-1","ground")
if uo.FindCount() then
uo.MoveItem("finditem","0","Maps")
wait(200)
endif
endif
if (UO.InJournal("Truly Rare Fish")) and (TakeRareFish==1) then
uo.Print('Собираем рар рыбу.')
uo.FindType(Fish[5],"-1","ground")
if uo.FindCount() then
uo.MoveItem("finditem","0","RareFish")
wait(200)
endif
end if
if (UO.InJournal("Prize")) and( TakePrizeFish==1) then
uo.Print('Собираем приз рыбу.')
uo.FindType(Fish[6],"-1","ground")
if uo.FindCount() then
uo.MoveItem("finditem","0","PrizeFish")
wait(200)
end if
endif
if uo.Weight>=uo.STR*4 then
Return
end if
until uo.InJournal("in water|no fish|far away|location")
next
next

end sub


Sub ToRecall()
RecallToHome()
Drop()
if EatingFood==1 then
EatingFood()
end if
wait(3000)
RecallToPoint()
end sub

sub RecallToHome()
uo.Print('Прыгаем Домой.')
RunebookRecall(RuneToHome)
end sub

sub RecallToPoint()
uo.Print('Прыгаем в Лес.')
RunebookRecall(RuneToPoint)
end sub

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

Sub WaitForRecall()
var Text1=uo.GetName()+": The spell fizzles."
var mess='',lastX=uo.getX(),lastY=uo.getY()
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text1 then
return 0
end if
if uo.getX()<>lastX or uo.getY()<>LastY then
return 1
end if
wait(50)
next
return 0
end sub


Sub WaitForTryRock()
var Text1="That is too far away."
var Text2="Try mining in rock."
var Text3="There is no ore here to mine."
var Text4="You have no line of sight to that location"
var Text5="You can't see the target"
for var i=0 to 50
if uo.Journal(0)==Text1 or uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 or uo.Journal(0)==Text5 then
return 1
end if
wait(200)
next
return 0
end sub

Sub WaitForTarget()
for var i=0 to 50
if uo.Targeting()==1 then
return 1
end if
wait(200)
next
return 0
end sub

Sub WaitForChangeXY(myX,myY,lastX,lastY)
for var i=1 to 50
if lastX<>myX or lastY<>myY then
return 1
end if
wait(200)
next
return 0
end sub

Sub GotoXY(x,y)
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0
for i=1 to 60
myX=uo.getX();
myY=uo.getY();
if LastX==myX and LastY==myY then
halt=halt+1
else
halt=0
end if
if halt>=10 then
if uo.GetDir()==1 then
for z=0 to 8
uo.Press(40)
next
end if
if uo.GetDir()==3 then
for z=0 to 8
uo.Press(37)
next
end if
if uo.GetDir()==5 then
for z=0 to 8
uo.Press(38)
next
end if
if uo.GetDir()==7 then
for z=0 to 8
uo.Press(39)
next
end if
halt=15
end if
if Numb(x-myX)<=1 and Numb(y-myY)<=1 then
return 1
end if
if x<=myX then
if y<=myY then
for z=0 to 3
uo.Press(38)
next
else
for z=0 to 3
uo.Press(37)
next
end if
else
if y<=myY then
for z=0 to 3
uo.Press(39)
next
else
for z=0 to 3
uo.Press(40)
next
end if
end if
lastX=myX
lastY=myY
wait(200)
next
return 0
end sub

Sub Numb(num)
if num>=0 then
return num
else
return num*(-1)
end if
end sub

Sub SaveToFile(PointCount,PointX,PointY,PointT)
var f=file("C:\Fish.dat")
var s=0,i=0
f.open()
f.create()
s=safe call f.writeln(PointCount)
for i=1 to PointCount
s=safe call f.writeln(str(PointT[i])+' '+str(PointX[i])+' '+str(PointY[i]))
next
f.close()
end sub

sub Drop()
if uo.Waiting() then
uo.CancelTarget()
end if
var f
dim Fish[7]
Fish[0]=0x09CC
Fish[1]=0x09CD
Fish[2]=0x09CE
Fish[3]=0x09CF
Fish[4]=0x14EB
Fish[5]=0x0DD6
Fish[6]=0x0DD6

UO.UseObject('Sunduk')
wait(1000)
UO.UseObject('SundukBag')
wait(1000)
UO.UseObject('StoreFish')
wait(1300)
UO.UseObject('StoreMAP')
wait(1000)
UO.UseObject('StorePRFish')


wait(700)


for f=0 to 3
if uo.count(Fish[f]) then
uo.SetReceivingContainer('StoreFish')
while uo.count(Fish[f])
uo.FindType(Fish[f],"-1","backpack")
uo.Grab('0','finditem')
checklag()
wait(1000)
wend
uo.UnSetReceivingContainer()
end if
next

if uo.count(Fish[4]) then
uo.SetReceivingContainer('StoreMAP')
while uo.count(Fish[4])
uo.FindType(Fish[4],"-1","backpack")
uo.Grab('0','finditem')
checklag()
wait(1000)
wend
uo.UnSetReceivingContainer()
end if

if uo.count(Fish[5]) then
uo.SetReceivingContainer('StorePRFish')
while uo.count(Fish[5])
uo.FindType(Fish[5],"-1","backpack")
uo.Grab('0','finditem')
checklag()
wait(1000)
wend
uo.UnSetReceivingContainer()
end if


if uo.count(Fish[6]) then
uo.SetReceivingContainer('StoreFish')
while uo.count(Fish[6])
uo.FindType(Fish[6],"-1","backpack")
uo.Grab('0','finditem')
checklag()
wait(1000)
wend
uo.UnSetReceivingContainer()
end if

uo.Print("Улов выложен")
end sub

Sub RunebookRecall(n)
oldX=uo.getX()
oldY=uo.getY()
repeat
uo.Exec('warmode 0')
uo.UseObject('RuneB1')
wait(1000)
uo.LClick(135, n*15+55)
wait(500)
uo.LClick(135, n*15+55)
time=uo.Timer()
repeat
wait(500)
until oldX<>uo.getX() or oldY<>uo.getY() or uo.Life==0 or uo.InJournal('needs') or time+200<uo.Timer()
uo.DeleteJournal()
until oldX<>uo.getX() or oldY<>uo.getY()
end sub

Sub Open(Container)
uo.DeleteJournal()
uo.UseObject(Container)
repeat
wait(500)
until uo.InJournal('Contains')
end sub


Sub EatingFood()
ToEat()
DropFood()
end sub

Sub ToEat()
uo.SetReceivingContainer('backpack')
Open('Sunduk')
uo.FindType(TypeFood,'-1','Sunduk')
uo.Grab('50','finditem')
wait(500)
repeat
Checklag()
uo.UseType(TypeFood)
wait(1000)
until uo.InJournal('You are simply too full to eat any more!')
uo.UnsetReceivingContainer()
end sub

Sub DropFood()
if uo.Waiting() then
uo.CancelTarget()
end if
var f,Exit
dim Food[1]
Food[0]=TypeFood
uo.SetReceivingContainer('Sunduk')
wait(500)
for f=0 to 0
Exit=0
repeat
uo.FindType(Food[f])
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
wait(1500)
else
Exit=1
end if
until Exit==1
next
uo.UnSetReceivingContainer('Sunduk')
end sub

Sub RecallAtAttack()
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.FindType('0x1F14',-1,'mY')
uo.Cast('Recall','finditem')
uo.Print('Атака! Реколимся!')
wait(4000)
if not uo.getX("self")<>mX and not uo.getY("self")<>mY then
goto reccal
end if
RecallToHome()
Drop()
Terminate()
end sub

sub Reconnect()
var ReconnectTime,rFlag
ReconnectTime='0'
rFlag=1
repeat
while (uo.ObjAtLayer('Bpack')=='')
if rFlag then
ReconnectTime=MakeTime()
rFlag=0
end if
wait(20000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.LDblClick(357,164)
uo.LClick(616,459)
wait(3000)
wend
wait(3000)
if (rFlag==0) and (ReconnectTime<>'0') then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
rFlag=1
ReconnectTime='0'
end if
until false
end sub

Sub MakeTime()
var d,t,ret,i
ret=str(uo.Time())
t=""
for i=0 to Len(ret)
t=ret[Len(ret)-i]+t
if (i==2) or (i==4) then
t=":"+t
end if
next
ret=str(uo.Date())
d=""
for i=0 to Len(ret)
d=ret[Len(ret)-i] + d
if (i==2) or (i==4) then
d="."+d
end if
next
ret=t+" @ "+d
return ret
end sub

sub Terminate()
uo.Print('Все функции скрипта выключены!')
uo.DeleteJournal()
uo.Exec('terminate all')
wait(100)
uo.Exec('terminate all')
wait(100)
uo.Exec('terminate all')
wait(100)
end sub

Sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub[code][/code]

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

хитрый та какой))))))
Значит этот скрипт работает? И он может всётаки рыбачит после выгрузки дома?

спасибоо! я вставил кусок sub(fishing) подправлил как ты сказал.Скрипт заработал.Но щас когда он начинает ловить рыбу через минуту вылетает вот такое :
Line 212 : Variable undefined - POINTX.
Я посмотрел эту строчку в крипте,вот она :

while 1==1
if PointCount>0 then
for i=1 to PointCount
uo.Print('Идем к координате '+str(i)+': x='+str(PointX[i])+' y='+str(PointY[i]))
flag=GotoXY(PointX[i],PointY[i])
if flag==1 then
if TryHiding==1 then
ToHide()

вот 212 строчка :

uo.Print('Идем к координате '+str(i)+': x='+str(PointX[i])+' y='+str(PointY[i]))

А в чом ошибка может быть?

Это пипец Я с вами скоро сам удочку возьму и пойду в ультиму рыбу ловить Ошибка когда вылетает? Когда идёт или именно когда ловит рыбу? В том фишинге что я дал эти переменные ваще не используются. Ну попробуй вытри нахрен эту строчку uo.Print('Идем к координате '+str(i)+': x='+str(PointX[i])+' y='+str(PointY[i])), она всё равно ничего в скрипте не делает и скинь полностью чего у тебя получилось.

аха не говори)) опять выдал ошибку.Как происходит : Запускаю скрипт,чар становитца в позу и начинает ловить.Половит-половит хобаааааааааа через пару секунд :
Line 213: Variable undefined - POINTX
Он жалуетца вот на эту строчку :

flag=GotoXY(PointX[i],PointY[i])

чтож творитцо то! мне уже неловко тебя просить ты наверное устал уже помогать.Но помогите пожалуйста!)) Кстати в рандом скрипте без примочек,он всё ловил,было без ошибок,только он не ловил, когда прилетит обратно.

Выложи мне в личку полностью весь переделанный скрипт со всеми потрохами, а то мы тут уже нафлудили на целую книгу.