Page 1 of 1
Че он фигней страдает?
Posted: 2005-02-04 23:35:21
by 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
И что же тут не так и есче он вырубается постоянно
Posted: 2005-02-05 05:40:15
by Goggy
Он типа вокруг себя обкапывается и вырубается???
это типа, когда нехватает цикла ещё одного????
ну тогда не.. незнаю!!
Posted: 2005-02-05 10:24:00
by Dante
да майнает вокруг себя то что вырубается то ладно
он фигней страдает скрин постом выше
Posted: 2005-02-06 10:37:18
by BETEPAH
Точно по скрину он у тебя пытается скенселить (отменить) прицел которого нету.
Posted: 2005-02-07 07:04:32
by Dante
эээ....а как это можно убрать?
Posted: 2005-02-07 08:05:16
by Askaneli
Dante wrote:эээ....а как это можно убрать?
Юзать другой скрипт, тот который не выдаёт такую ошибку !!!
Posted: 2005-02-07 15:05:57
by 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
хайдится, если убили вырубает все скрипты
Posted: 2005-02-07 20:13:38
by Dante
не работает пишет теперь майнает в 4 3
аутотаргетинг каселд
но итем фоунд
Posted: 2005-02-07 21:03:39
by 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
Зы: какой шард ?
Posted: 2005-02-08 14:41:38
by Dante
Drw i pvp-boom
Posted: 2005-02-08 14:49:39
by Dante
ок я все понял а чтоб не хайдился
Posted: 2005-02-08 15:02:45
by gmur
А мозги купить не судьба, вот тебе передел скрипта Сфаги со всем что ты хочеш и без хайда
Sfagnum wrote: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
хайдится, если убили вырубает все скрипты
Уже не хайдиться.
Posted: 2005-02-08 15:14:33
by Dante
тож не работает но итем фоунд
Posted: 2005-02-08 15:39:09
by BETEPAH
Ну тогда как говорится значит тебе не судьбя капать на макросе.
копай ручками.
Posted: 2005-02-08 15:44:53
by Sfagnum
Dante wrote:тож не работает но итем фоунд
ёп...
тип лопаты менял? или чем ты там скалу ковыряешь?... и для ДРВ 4ки обратно верни.
Posted: 2005-02-08 15:48:37
by gmur
Sfagnum wrote:... и для ДРВ 4ки обратно верни.
Не бейте ногами по животу
, а в чём тогда могла быть ошибка в том что он не копал на 4 3 ? Спрашиваю только из любви к исскуству.
Posted: 2005-02-08 16:08:45
by Sfagnum
gmur wrote:Sfagnum wrote:... и для ДРВ 4ки обратно верни.
Не бейте ногами по животу
, а в чём тогда могла быть ошибка в том что он не копал на 4 3 ? Спрашиваю только из любви к исскуству.
ты не ту ошибку зациклился... ИМХО здесь ключ в "но итем фоунд" нету айтема - нечем копать
Posted: 2005-02-08 16:37:10
by gmur
Sfagnum wrote:ты не ту ошибку зациклился... ИМХО здесь ключ в "но итем фоунд" нету айтема - нечем копать
Ясно.
Posted: 2005-02-08 17:00:12
by Sfagnum
флудер млять...
