Че он фигней страдает?

[Dante]

http://img213.exs.cx/my.php?loc=img213& ... led0je.png


sub minround()
VAR Kirka = '0x0E85' ; Тип Кирки
VAR MaxVes = 550 ; Максимальный вес, подымаемый чаром минус 10-15 стоунов
VAR TileNum = '1339' ; Тайл пола пещеры (наиболее распространенный тип)
VAR x, y, t, k
VAR MaxTime = 100 ; измеряется в 1/10 сек.
VAR ms1 = "There is no ore here to mine"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "You are too far away"
VAR ms6 = "Try mining in rock"
VAR ms7 = "You can't see that"
for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Прячемся...")
UO.UseSkill("Stealth")
wait(4000)
wend
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.CancelTarget()
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next
endsub


И что же тут не так и есче он вырубается постоянно

[Goggy]

Он типа вокруг себя обкапывается и вырубается???
это типа, когда нехватает цикла ещё одного????
ну тогда не.. незнаю!!

[Dante]

да майнает вокруг себя то что вырубается то ладно
он фигней страдает скрин постом выше

[BETEPAH]

Точно по скрину он у тебя пытается скенселить (отменить) прицел которого нету.

[Dante]

эээ....а как это можно убрать?

[Askaneli]

эээ....а как это можно убрать?

Юзать другой скрипт, тот который не выдаёт такую ошибку !!!

[Sfagnum]

Code: Select all

sub Dig()
var tShovel='0x0F3A'
var mx = UO.GetX("self"), my = UO.GetY("self"), mz = UO.GetZ("self"),TileNum='1339', t=0
var i,j
   if UO.Dead() then
      UO.Exec('terminate all')
   end if
   for i = mx-4 to mx+4
         for j = my-4 to my+4
            tohide()
            UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j)) 
            while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")                
               tohide()
               CheckLag()
               UO.Waittargettile("1341", str(i), str(j), str(mz)) 
               UO.Usetype(tShovel)
               while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
                  wait(500)                   
               wend 
               if UO.InJournal("but fail") then
                  wait(1000)
               end if               
            wend
            UO.DeleteJournal()
         next 
   next
end sub

sub tohide() 
   while NOT UO.Hidden() 
      UO.DeleteJournal() 
      UO.Warmode('0')
      UO.UseSkill('Hiding')
      repeat
         wait(50)
      until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied') or UO.Dead()
   wend    
end sub

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub

хайдится, если убили вырубает все скрипты

[Dante]

не работает пишет теперь майнает в 4 3

аутотаргетинг каселд
но итем фоунд

[gmur]

Конечно будет писать ибо тут в скрипте :

Code: Select all

for i = mx-4 to mx+4
for j = my-4 to my+4

А у тебя на шарде как я понял чар может копать тока на два тайла вокруг себя то биш вот так должно быть :

Code: Select all

for i = mx-2 to mx+2
for j = my-2 to my+2

Зы: какой шард ?

[Dante]

Drw i pvp-boom

[Dante]

ок я все понял а чтоб не хайдился

[gmur]

А мозги купить не судьба, вот тебе передел скрипта Сфаги со всем что ты хочеш и без хайда

Code: Select all

sub Dig()
var tShovel='0x0F3A'
var mx = UO.GetX("self"), my = UO.GetY("self"), mz = UO.GetZ("self"),TileNum='1339', t=0
var i,j
   if UO.Dead() then
      UO.Exec('terminate all')
   end if
   for i = mx-2 to mx+2
         for j = my-2 to my+2
            UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j)) 
            while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")                
               CheckLag()
               UO.Waittargettile("1341", str(i), str(j), str(mz)) 
               UO.Usetype(tShovel)
               while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
                  wait(500)                   
               wend 
               if UO.InJournal("but fail") then
                  wait(1000)
               end if               
            wend
            UO.DeleteJournal()
         next 
   next
end sub

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub

хайдится, если убили вырубает все скрипты

Уже не хайдиться.

[Dante]

тож не работает но итем фоунд

[BETEPAH]

Ну тогда как говорится значит тебе не судьбя капать на макросе.
копай ручками.

[Sfagnum]

тож не работает но итем фоунд

ёп...

Code: Select all

var tShovel='0x0F3A'

тип лопаты менял? или чем ты там скалу ковыряешь?... и для ДРВ 4ки обратно верни.

[gmur]

... и для ДРВ 4ки обратно верни.

Не бейте ногами по животу , а в чём тогда могла быть ошибка в том что он не копал на 4 3 ? Спрашиваю только из любви к исскуству.

[Sfagnum]

... и для ДРВ 4ки обратно верни.

Не бейте ногами по животу , а в чём тогда могла быть ошибка в том что он не копал на 4 3 ? Спрашиваю только из любви к исскуству.

ты не ту ошибку зациклился... ИМХО здесь ключ в "но итем фоунд" нету айтема - нечем копать

[gmur]

ты не ту ошибку зациклился... ИМХО здесь ключ в "но итем фоунд" нету айтема - нечем копать

Ясно.

[Sfagnum]

флудер млять...