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

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