Ultima Online Antares

ребят помогите починить скрипт для ФТ ) на фишинг) чтоб ловил резал с пола даггером рыбу и кожу и кидал в сумку

sub fishing()

var TryToHide=0 ## 0 - Âêëþ÷èòü õàèä ïåðåä ðûáàëêîè , 0 - Îòêëþ÷èòü.
var TakeFish=1 ## 1 - ÑÎáèðàòü ðûáêó, 0 - Íå íóæíà îíà íàì.
var FishPole='0x0DBF' # Òèï óäî÷êè

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','3')
mX = uo.getX("self")
mY = uo.getY("self")
mZ = uo.getZ("self")
uo.DeleteJournal()
for i = mX-3 to mX+3
for j = mY-3 to mY+3

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("Ïîïðîáóéò&a
ring; ïîðûáà÷èòü â äðóãîì ìåñòå.") 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("Ïîïðîáóéò&a
ring; ïîðûáà÷èòü â äðóãîì ìåñòå.")
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

Ну 1е у тебя тут все слова съехали, 2 процедуры из скрипта потеряны. а так для фт пардон, яне разбираюсь.

ну фишинг на фт такой же впринципе как и на бесте)

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

скрипт нашел но чтото не пойму вот нашел норм скрипт ) ( но почему то он 1 раз забросит удочку и все)  больше не ловит

вот скрипт гляньте плз

Морб тут же русифицирован сервак ("no fish here")  будет как ("здесь нет")

вот почему у мя не робит ниче(

возьми-ка это
################### Рыболов ####################
sub FishingAround()
  VAR X, Y, i, MaxRange = 6, MaxVes = 620
  VAR knife = '0x0F51'  ; нож
  VAR Steak = '0x097A'
  VAR Bag = '0x40205DFE'

DIM Fish[5]
  Fish[1]  = '0x09CC'  ; тип рыбы 1
  Fish[2]  = '0x09CD'  ; тип рыбы 2
  Fish[3]  = '0x09CE'  ; тип рыбы 3
  Fish[4]  = '0x09CF'  ; тип рыбы 4

for Y = -MaxRange to MaxRange
for X = -MaxRange to MaxRange
if FishTiles(UO.GetX()+X, UO.GetY()+Y) then
   repeat
  UO.DeleteJournal('anything|pull out|поймали|You can|не получилось|no fish|нету рыбы|месте|далеко|вытащили удочку|unsuitable')
    UO.Warmode(0)
         wait(100)
    UO.WaitTargetTile(FishTiles(UO.GetX()+X, UO.GetY()+Y), UO.GetX()+X, UO.GetY()+Y, UO.GetZ())
;Hide()
; ********************************
; Auto Tools
    if UO.Count(0x0DBF) || UO.Count(0x0DC0) then
     if UO.Count(0x0DBF) then
      UO.UseType(0x0DBF); <-- удочка
     else
      UO.UseType(0x0DC0); <-- удочка
    endif
    else
     return 1
    endif
; ********************************
      repeat
     wait(100)
    until UO.InJournal('pull out|anything|поймали|You can|не получилось|no fish|нету рыбы|месте|далеко|вытащили удочку|unsuitable')
  For i=1 To 4
     UO.FindType( Fish[i], -1, 'ground' )
wait(200)  ; tit
     If UO.FindCount() > 0 Then
        UO.Grab( 0, 'finditem' )
        Wait( 100 )
     Endif
  Next
   If UO.Weight > MaxVes Then
    UO.Print('Перегруз!')
     return 0
   endif
  until UO.InJournal("no fish|нету рыбы|anything|в другом месте|далеко|вытащили удочку") || UO.Dead()
For i=1 To 4
     UO.FindType( Fish[i] )
wait(200)  ; tit
     If UO.FindCount() > 0 Then
           UO.WaitTargetObject( 'finditem' )
           UO.UseType( knife )
           Wait( 500 )
           UO.FindType( Steak )
wait(200)  ; tit
           If UO.FindCount() > 0 Then
              UO.MoveItem( 'finditem', '0' , Bag )
              wait( 500 )
          Endif
       Endif
   Next
endif
   next
     next
UO.Print(" = Вся рыба в квадрате поймана = ")
UO.Sound(100)
return 0
end sub

Sub FishTiles(X,Y)
var j
if UO.PrivateGetTile(X, Y, -1, 6038, 6066) then
for j=6038 to 6066
  if UO.PrivateGetTile(X, Y, -1, j, j) then
   return j
  end if
next
end if
return 0
end sub

Всегда ловил на єтом скрипте - все работало без проблем!

Толи после перехода, то ли  из--за чего - один раз закидывает удочку - , пишет "Try fishing elsewhere" и стоит(((

Кто шарит - гляньте, плз!

O_o

Я знаю, что низя и будет бо-бо!!! И не собирался ставить его на ночь..

Ну лень мне собирать рыбу с пола - а этот скрипт все прекрасно делал. А сейчас тупит

Номера тайлов, скорее всего, для чего у Лимо проца Sub FishTiles(X,Y)

 а есть у кого чтобы море тоже в сетку было, как в шахте?

А какой командой их узнавать - ,info не чего не показывает?

Вояджер
1) палишься
2) ,infotile
3)если ловить у берега то проблема в координате Z которая не равна координате человека.
4) если ловить с лодки то там нет тайлов - соответственно  WaitTargetTile  будет немного другим.

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

PS У Limo мой старый скрипт?  
 

,infotile

В том скрипте пробуйте изменить строчку :
    UO.WaitTargetTile(FishTiles(UO.GetX()+X, UO.GetY()+Y), UO.GetX()+X, UO.GetY()+Y, UO.GetZ())

на такую :
    UO.WaitTargetTile(FishTiles(UO.GetX()+X, UO.GetY()+Y), UO.GetX()+X, UO.GetY()+Y, 251)

Ну так как со скриптом ? Проходит, ли ?
И у меня вопрос, кто-нить хотя б ПВМит на EasyUO ? И если да,
то сравнимо с инжектом ?

чтоб ему не проходить то? Ты правильно подсказал :) Правда не всё.
Изя в пвп хуже инжекта так как не такая скорость реакции на некоторые действия игрока.

PS щаз будет столько зэков на сроках за рыдалку...

Уважаемый Алукард. Да, был Ваш (наверное) скрипт на фишинг.
Спасибо за скрипт - даже я пользуюсь.
Но вот Ваш последний ответ на вопрос о целесообразности
в ПВМ EASY UO Вы хотя б мне (Лимочке) мог быть более полон.
Надеюсь на положительный ответ.
(часто слетает инжект - на луте особенно)

Да... инжа крашит часто. Особенно на ноуте у меня, когда в доме стою часто крашит... Не понимаю почему...