Yoko
http://forum.yoko.com.ua/

Что нужно исправить?!
http://forum.yoko.com.ua/viewtopic.php?f=3&t=7074		 Page 1 of 1
Author:  Cyn4uK [ 2006-03-21 22:42:25 ]
Post subject:  Что нужно исправить?!
Чар стоит и ловит вокруг себя. Дело в том что когда он ничего не ловит он быстро перебрасывает, а когда словит что то то перебрасывает туда же с задержкой %) Не могли почистить и подправить!!!
ЧТобы перебрасывалъ быстро если словит что то, убрать рекол (а токогда я сам пытался вырезать рекол - скрипт просто простаивал и все) , ну и чтобы работал все время пока не отрублю вручную =) Заранее пасиба.

Code:

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) :idea: :lol:
Author:  Scripts Writer [ 2006-03-22 09:48:43 ]
Post subject: 
не весь скрипт опубликовали
Author:  Cyn4uK [ 2006-03-23 01:29:16 ]
Post subject: 
Извините. Исправил. Вот теперь весь, то есть тот которым я пользуюсь!
Author:  Grin [ 2006-03-23 01:48:36 ]
Post subject: 
Code:
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


В журнале о выалове чего либо пишут? тоесть иможет ли фишинг закончится не сообщая ниочем в журнале?
Author:  Cyn4uK [ 2006-03-24 10:33:41 ]
Post subject: 
You catch a nice fish
Всегда что то пишут!!!
Тестим-с...
А мона еще чтобы скидывал на пол рыбу из бэкпака при весе в 600?
Author:  Grin [ 2006-03-24 10:51:47 ]
Post subject: 
проверяй
Author:  Cyn4uK [ 2006-03-24 11:13:42 ]
Post subject: 
Еще есть пишет при неудаче ловли, но рыбп там есть - They don't seem
to be bitting today = это нужно добавить сюда?

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

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

Работаит!! пасибо большое!!!
Author:  Cyn4uK [ 2006-03-24 12:14:03 ]
Post subject: 
Через некоторое время скрипт просто встает... может изза того что нет этого:

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

вот весь:

Code:
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 респект те и медаль за уроки ) починил наконец свой скрипт ) :roll: :lol:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/