Yoko

Posted: **2006-07-12 15:21:24**

Вобщем у нас на серваке ввели такую фичю что под собой копать незя. Как здесь исправить чтоб он копал на 1 клетку в сторону? левее правее сзади, не важно.

Code: Select all

sub mine_spot() 
   var maxMineTime=30000 
   var times=0 
   var timeout=0 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("Ïðÿ÷åìñÿ...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend
   While UO.InJournal("Íåò")==0 
   UO.Print("Mining time!") 
   UO.DeleteJournal() 

   UO.WaitTargetTile("1340",STR(UO.GetX()),STR(UO.GetY()),"0") 
   UO.UseType("0x0E85") 
   timeout=0 
   times = times +1 
   if times>20 then 
      wait(maxMineTime) 
      times = 0 
   endif 
   Repeat 
      timeout=timeout+200 
      Wait(200) 
      #UO.Print("Waiting...") 
      Until UO.InJournal("ïîëîæèëè") OR UO.InJournal("You loosen")OR UO.InJournal("Íåò") OR timeout>maxMineTime 
   Wend 

   return 0 
end sub

Posted: **2006-07-12 15:27:00**

Code: Select all

UO.WaitTargetTile("1340",STR(UO.GetX()+1),STR(UO.GetY()+1),"0")

админ у вас гений, типа баг закрыл...

Posted: **2006-07-12 15:31:46**

спасибо, сам разобрался после того как написал

Незнаю чаво он там закрыл, но тупость какая-то.

Yoko

Помогите настроить скрипт на мининг.

Помогите настроить скрипт на мининг.