Yoko
http://forum.yoko.com.ua/

Че он фигней страдает?
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2988		 Page 1 of 1
Author:  Dante [ 2005-02-04 23:35:21 ]
Post subject:  Че он фигней страдает?
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


И что же тут не так и есче он вырубается постоянно
Author:  Goggy [ 2005-02-05 05:40:15 ]
Post subject: 
Он типа вокруг себя обкапывается и вырубается???
это типа, когда нехватает цикла ещё одного????
ну тогда не.. незнаю!! :lol:
Author:  Dante [ 2005-02-05 10:24:00 ]
Post subject: 
да майнает вокруг себя то что вырубается то ладно
он фигней страдает скрин постом выше
Author:  BETEPAH [ 2005-02-06 10:37:18 ]
Post subject: 
Точно по скрину он у тебя пытается скенселить (отменить) прицел которого нету.
Author:  Dante [ 2005-02-07 07:04:32 ]
Post subject: 
эээ....а как это можно убрать?
Author:  Askaneli [ 2005-02-07 08:05:16 ]
Post subject: 
Dante wrote:
эээ....а как это можно убрать?

Юзать другой скрипт, тот который не выдаёт такую ошибку !!!
Author:  Sfagnum [ 2005-02-07 15:05:57 ]
Post subject: 
Code:
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
хайдится, если убили вырубает все скрипты
Author:  Dante [ 2005-02-07 20:13:38 ]
Post subject: 
не работает пишет теперь майнает в 4 3

аутотаргетинг каселд
но итем фоунд
Author:  gmur [ 2005-02-07 21:03:39 ]
Post subject: 
Конечно будет писать ибо тут в скрипте :
Code:
for i = mx-4 to mx+4
for j = my-4 to my+4

А у тебя на шарде как я понял чар может копать тока на два тайла вокруг себя то биш вот так должно быть :
Code:
for i = mx-2 to mx+2
for j = my-2 to my+2


Зы: какой шард ?
Author:  Dante [ 2005-02-08 14:41:38 ]
Post subject: 
Drw i pvp-boom
Author:  Dante [ 2005-02-08 14:49:39 ]
Post subject: 
ок я все понял а чтоб не хайдился
Author:  gmur [ 2005-02-08 15:02:45 ]
Post subject: 
А мозги купить не судьба, вот тебе передел скрипта Сфаги со всем что ты хочеш и без хайда
Sfagnum wrote:
Code:
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
хайдится, если убили вырубает все скрипты

Уже не хайдиться.
Author:  Dante [ 2005-02-08 15:14:33 ]
Post subject: 
тож не работает но итем фоунд
Author:  BETEPAH [ 2005-02-08 15:39:09 ]
Post subject: 
Ну тогда как говорится значит тебе не судьбя капать на макросе.
копай ручками.
Author:  Sfagnum [ 2005-02-08 15:44:53 ]
Post subject: 
Dante wrote:
тож не работает но итем фоунд
ёп...
Code:
var tShovel='0x0F3A'
тип лопаты менял? или чем ты там скалу ковыряешь?... и для ДРВ 4ки обратно верни.
Author:  gmur [ 2005-02-08 15:48:37 ]
Post subject: 
Sfagnum wrote:
... и для ДРВ 4ки обратно верни.

Не бейте ногами по животу :roll:, а в чём тогда могла быть ошибка в том что он не копал на 4 3 ? Спрашиваю только из любви к исскуству.
Author:  Sfagnum [ 2005-02-08 16:08:45 ]
Post subject: 
gmur wrote:
Sfagnum wrote:
... и для ДРВ 4ки обратно верни.

Не бейте ногами по животу :roll:, а в чём тогда могла быть ошибка в том что он не копал на 4 3 ? Спрашиваю только из любви к исскуству.
ты не ту ошибку зациклился... ИМХО здесь ключ в "но итем фоунд" нету айтема - нечем копать ;)
Author:  gmur [ 2005-02-08 16:37:10 ]
Post subject: 
Sfagnum wrote:
ты не ту ошибку зациклился... ИМХО здесь ключ в "но итем фоунд" нету айтема - нечем копать ;)

Ясно.
Author:  Sfagnum [ 2005-02-08 17:00:12 ]
Post subject: 
флудер млять...
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/