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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
covenok
Posts: 13
Joined: 2004-09-02 15:15:17

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

Post by covenok »

Вобщем у нас на серваке ввели такую фичю что под собой копать незя. Как здесь исправить чтоб он копал на 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 
omi4
Posts: 457
Joined: 2005-07-10 21:53:05

Post by omi4 »

Code: Select all

UO.WaitTargetTile("1340",STR(UO.GetX()+1),STR(UO.GetY()+1),"0")
админ у вас гений, типа баг закрыл...
covenok
Posts: 13
Joined: 2004-09-02 15:15:17

Post by covenok »

спасибо, сам разобрался после того как написал :) Незнаю чаво он там закрыл, но тупость какая-то.
Post Reply