Yoko

Чар стоит и ловит вокруг себя. Дело в том что когда он ничего не ловит он быстро перебрасывает, а когда словит что то то перебрасывает туда же с задержкой %) Не могли почистить и подправить!!!
ЧТобы перебрасывалъ быстро если словит что то, убрать рекол (а токогда я сам пытался вырезать рекол - скрипт просто простаивал и все) , ну и чтобы работал все время пока не отрублю вручную =) Заранее пасиба.

var lasttimer 

sub checktimer() 
if (uo.timer() - lasttimer) <= 20 then 
uo.print(str(uo.timer() - lasttimer)) 
uo.print("You are fishing too fast! Waiting 5 seconds.") 
wait(2500) 
endif 

lasttimer = uo.timer() 

end sub 

sub main() 
var mx, my, mz, i, j 
var isfishing, ixx, isheavy 
var item = "item",ftype,ispickup 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
uo.exec("set distance 1") 
while not uo.dead() 
for i = mx-6 to mx+6
for j = my-6 to my+6
uo.deletejournal() 
UO.Print("Now fishing In: "+str(mx-i)+" "+str(my-j)) 
isfishing = 1 
while not uo.injournal("can't") and not uo.injournal("here") and not UO.InJournal("far away") and not UO.InJournal("sight")
checktimer() 
UO.DeleteJournal() 
UO.Waittargettile("6044", str(i), str(j), str(mz)) 
UO.Usetype('0x0DBF') 
ixx = 0 
while not uo.injournal("can't") and not uo.injournal("here") and not UO.InJournal("far away") and not UO.InJournal("sight") and ixx <= 100 
wait (100) 
ixx = ixx + 1 
wend 
wend 
UO.DeleteJournal() 
next 
next 
wend 
# UO.recall('0x40023FBD','2') 
uo.print("*** Script ended ***") 
end sub

Скрипт создан при помощи ножниц (Ctrl +C ) и клея (Ctrl + V)

_________________
Я слишком много видел в жизни чтобы баяцца воображаемой смерти от воображаемого автомата (с)

не весь скрипт опубликовали

Извините. Исправил. Вот теперь весь, то есть тот которым я пользуюсь!

_________________
Я слишком много видел в жизни чтобы баяцца воображаемой смерти от воображаемого автомата (с)

var lasttimer 

sub checktimer() 
if (uo.timer() - lasttimer) <= 20 then 
uo.print(str(uo.timer() - lasttimer)) 
uo.print("You are fishing too fast! Waiting 5 seconds.") 
wait(2500) 
endif 

lasttimer = uo.timer() 

end sub 

sub main() 
var mx, my, mz, i, j 
   mx = UO.GetX("self") 
   my = UO.GetY("self") 
   mz = UO.GetZ("self") 
   while not uo.dead()
      for i = mx-6 to mx+6 
         for j = my-6 to my+6
            UO.DeleteJournal() 
            UO.Print("Now fishing In: "+str(mx-i)+" "+str(my-j)) 
            while not uo.injournal("can't|here|far away|sight") 
               checktimer() 
               UO.DeleteJournal() 
               UO.Waittargettile("6044", str(i), str(j), str(mz)) 
               UO.Usetype('0x0DBF') 
               while not uo.injournal("can't|here|far away|sight|put|catch")
                  wait (100) 
               wend 
            wend 
         next 
      next 
   wend 
   uo.print("*** Script ended ***") 
end sub

В журнале о выалове чего либо пишут? тоесть иможет ли фишинг закончится не сообщая ниочем в журнале?

You catch a nice fish
Всегда что то пишут!!!
Тестим-с...
А мона еще чтобы скидывал на пол рыбу из бэкпака при весе в 600?

_________________
Я слишком много видел в жизни чтобы баяцца воображаемой смерти от воображаемого автомата (с)

проверяй

Еще есть пишет при неудаче ловли, но рыбп там есть - They don't seem
to be bitting today = это нужно добавить сюда?

 UO.Usetype('0x0DBF') 
               while not uo.injournal("can't|here|far away|sight|put|catch|today")  ### - сюда???
                  wait (100) 

А мона еще чтобы скидывал на пол рыбу из бэкпака при весе в 600?

Работаит!! пасибо большое!!!

_________________
Я слишком много видел в жизни чтобы баяцца воображаемой смерти от воображаемого автомата (с)

Через некоторое время скрипт просто встает... может изза того что нет этого:

   ixx=0
               while not uo.injournal("can't|here|far away|sight|put|catch|today") and ixx<=100
                  wait (100)
                  ixx=ixx+1 

вот весь:

var lasttimer, ixx, xyz

sub checktimer() 
if (uo.timer() - lasttimer) <= 20 then 
uo.print(str(uo.timer() - lasttimer)) 
uo.print("Ямщик! Не гони мля лошадей!... *давим на тормоз* 2.5 сек") 
wait(2500) 
endif 

lasttimer = uo.timer() 

end sub 

sub main() 
var mx, my, mz, i, j 
   mx = UO.GetX("self") 
   my = UO.GetY("self") 
   mz = UO.GetZ("self") 
   Dim A[36] 
   A[0] = '0x09CC' 
   A[1] = '0x09CE' 
   A[2] = '0x09CD'

   while not uo.dead() 
      for i = mx-5 to mx+5
         for j = my-5 to my+5 
            UO.DeleteJournal() 
            UO.Print("Now fishing In: "+str(mx-i)+" "+str(my-j)) 
            while not uo.injournal("can't|here|far away|sight") 
               checktimer() 
               UO.DeleteJournal() 
               UO.Waittargettile("6044", str(i), str(j), str(mz)) 
               UO.Usetype('0x0DBF') 
               ixx=0
               while not uo.injournal("can't|here|far away|sight|put|catch|today") and ixx<=100
                  wait (100)
                  ixx=ixx+1
                  if UO.Weight>600 then
                     wait(1000)
                     for xyz=0 to 2
                        UO.FindType(A[xyz])
                        UO.MoveItem( 'finditem', '0', 'ground' )
                        wait(50)
                     next
                  end if
               wend 
            wend 
         next 
      next 
   wend 
   uo.print("*** Script ended ***") 
end sub

upd . Не чет все ранов не хочет - пишет Can't picup item...

upd Edred респект те и медаль за уроки ) починил наконец свой скрипт )

_________________
Я слишком много видел в жизни чтобы баяцца воображаемой смерти от воображаемого автомата (с)