Yoko

я вот таким щас пользуюсь но он чисто под мои цели собирает только рыбу

var book1='0x403DF607'  
var ydochka='0x0DBF' 
var time 

sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
 wend 
endsub 

sub port(n,book) 
var oldX=UO.GetX() 
var oldY=UO.GetY() 
   NoTarget() 
   UO.UseObject(book) 
   FastLootCheck() 
   CheckLag() 
   UO.LClick(135, n*15+55) 
   time=UO.Timer() 
   Repeat 
     wait(500) 
   Until oldX<>UO.GetX() OR oldY<>UO.GetY() OR time+200<UO.Timer() 
end sub 

sub FastLootCheck() 
   UO.DeleteJournal() 
   wait(600) 
   if UO.InJournal("FastLoot") OR UO.InJournal("World save") then 
      CheckLag() 
   endif 
end sub 

sub NoTarget() 
   if UO.Waiting() then 
      UO.CancelTarget() 
   endif 
end sub 

sub fish()  
var mx, my, mz, i, j, k 
var spining='0x0DBF'
var ms1="no fish here"
var ms2="location"
var ms3="far away"
var ms4="in water"
var ms5="You pull"
var ms6="but fail"
var ms7="no fish"
var ms8="Unexpected"
dim fish[4]
fish[0]='0x09CC'
fish[1]='0x09CD'
fish[2]='0x09CE'
fish[3]='0x09CF'
hiding() 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal()
repeat
for i = mx-6 to mx+6 
for j = my -6 to my+6 
while not UO.InJournal(ms1) and not UO.InJournal(ms2) and not UO.InJournal(ms3) and not UO.InJournal(ms4) and not UO.InJournal(ms8) 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype(spining)
while not UO.InJournal(ms5) and not UO.InJournal(ms2) and not UO.InJournal(ms7) and not UO.InJournal(ms6) and not UO.InJournal(ms3) and not UO.InJournal(ms4) and not UO.InJournal(ms8)  
wait (50)
for k = 0 to 3
UO.findtype(fish[k],'-1','ground')
if uo.findcount()>0 then
 UO.moveitem('finditem','all','backpack')
 wait(250)
endif
next
wend 
wend 
UO.DeleteJournal() 
next 
next 
until 1
end sub 


sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
endsub 

sub hiding()  
   UO.Warmode("0") 
   while not UO.Hidden() 
      UO.DeleteJournal() 
      UO.UseSkill("Hiding") 
      while NOT UO.InJournal("You") 
         wait(1000) 
      wend 
   wend  
end sub 

to YMD: Если удаляешь ругань, то удаляй всё под ноль!

sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
 wend 
endsub

ЗЫ: Скрипт всё равно работать не может. А если работает, то только по причине тупого парсера => автор не понимает что он написал.

_________________
DerMeister сейчас на нейрале!

омг шат ап плз не учи батьку...

Я удаляю ругань, но не удаляю твои посты. И ты впредь не удаляй моих замечаний ,которые по делу!
Стыдно чтоли стало за свои слова?

Нет. Может я и перестарался, но "такое" работать не должно!

_________________
DerMeister сейчас на нейрале!

Это ты то батька? Иди бутылки собирай

_________________
DerMeister сейчас на нейрале!

а ты проверь и извенись, все устал я от тебя, обьяснять тебе что то бесполезно

Если что то работает, то это не значит что оно работает правильно!

_________________
DerMeister сейчас на нейрале!

ну хорошо хорошо я выложил просто то что работает и все

Есть у кого вопросы по настройке и работе скрипта?
Здесь они рассматриваются. Всем у кого не получается настроить, или подредактировать-писать сюда. Здесь помогут.

ребята если вам не сложно! соберите скрипт чтоб он ловил и выкладывал всё кроме простой рыбы и сеток! очень прошу!
допишите скрипт! я просто совсем ничего в скриптах не понимаю!