Yoko

Posted: **2004-05-27 05:12:11**

sub go()
hide()
var i
var mx=uo.GetX()-2
var my=uo.GetY()-2
var rep=0
var MW=500
wait(1000)
UO.Press(35)
wait(3000)
uo.exec("waittargettile tilenum "+str(mx)+" "+str(my)+" 0")
i=0
i=i+1
my=my+1
if my>uo.GetY()+2 then
my=uo.GetY()-2
mx=mx+1
end if
if mx>uo.GetX()+2 then
goto minex
else
goto minst
end if
end if
UO.usetype("0x0e85")
end sub

sub hide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.UseSkill('Hiding')
repeat
wait(100)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide')
wend
wait(100)
end sub

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

Posted: **2004-05-27 10:19:09**

Твой скрипт делает далеко не то,что ты хочешь...

Вот скрипт; должен копать ОДНУ клетку ПОД СОБОЙ, после чего делать шаг вперед.

Code: Select all

sub go() 
 var i 
 var mx=uo.GetX()
 var my=uo.GetY()
minst:
 hide() 
 uo.exec("waittargettile 0 "+str(mx)+" "+str(my)+" 0") 
 UO.usetype("0x0e85") ; Это кирка, наверное?

 wait(5000) ; тут лучше циклом ждать uo.injournal 

 repeat                  ;
  UO.Press(35)       ; Хотьба по Y
  wait(3000)           ;
 until my<uo.GetY();
my=uo.GetY()

goto minst
end sub 

sub hide() 
 while NOT UO.Hidden() 
  UO.DeleteJournal() 
  UO.UseSkill('Hiding') 
  repeat 
   wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
 wend 
 wait(100) 
end sub

А вообще стоит модифицировать этот скрипт на копку еще 4 клеток по сторонам.

Posted: **2004-05-27 20:02:59**

напиши плиз как коплть еще 4 посторонам? заранее сенка

Yoko

Атцы Посмотрите плиз скрипт!

Атцы Посмотрите плиз скрипт!