Помогите пожалуйста, маленький сриптик с инжи на Стелс

Pro100 · Post by **Pro100** » 30.11.2009 7:44

Маленький скриптик

sub main() 
  var x,y,z, n
  VAR LastTimer 
While true  
UO.Set('finddistance','2')
  n=0
  z=UO.GetZ("self") 
     for x=-2 to 2 
        for y=-2 to 2 
           UO.Print(str(x)+" "+str(y))
           Repeat 
              if UO.InJournal('TORMOZ') then
                pause()
              endif
              UO.DeleteJournal()
              UO.Warmode("0")
              UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z)) 
              UO.UseType('0x0E85')
              LastTimer=UO.Timer() 
              Repeat
                 wait(500)
              Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it") OR UO.Timer()>LastTimer+200
              if UO.InJournal("You put") then 
                  n=0
              else
                 n=n+1
              endif
           Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5
        next 
     next
wend

Буду примного благодарен!

WladL · Post by **WladL** » 30.11.2009 9:13

Аналоги тут http://stealth.od.ua/forum/viewtopic.php?t=1106

Pro100 · Post by **Pro100** » 30.11.2009 11:37

WladL wrote:Аналоги тут http://stealth.od.ua/forum/viewtopic.php?t=1106

Там огромный скрипт на миненг, с лишними функциями. Мне нужен такой же скрипт. Простой и маленький. Если есть люди которые могут помочь буду признателен

WladL · Post by **WladL** » 30.11.2009 14:14

Разве? А мне почему-то показалось, что вот эта функция

Code: Select all

function MiningAround : Integer ;

полный аналог твоего запроса, с небольшими изменениями.

Pro100 · Post by **Pro100** » 30.11.2009 17:06

WladL wrote:Разве? А мне почему-то показалось, что вот эта функция
Code: Select all
function MiningAround : Integer ; 
полный аналог твоего запроса, с небольшими изменениями.

Если ты разбираешься в этом, то помоги пожалуйста, не в службу, а в дружбу...

Pro100 · Post by **Pro100** » 30.11.2009 17:11

Там с хайдом и прочим...обкопка вокруг себя...

WladL · Post by **WladL** » 30.11.2009 23:18

Pro100 wrote: не в службу, а в ...

Я очень рад, что Вы разрешили мне не служить Вам, а помочь.
Моя помощь потребует некоторых усилий с Вашей стороны, Вы готовы?
Тогда вот, тут находится подсказка на очень многие вопросы, даже на те которые еще и не пришли к Вам в голову.

А если серьезно, то : "Копипаст еще никому не помог. "