Yoko

дайте скрип на то чтоб кликал вокруг себя (майнал) и по достижению веса 400 останавливался?

Вообщем скрипты под заказ пишут за лавэ... а скрипты FreeForAll есть на форуме... даже на прокачку скила ЛОЛИНГ.... так что сначало вкачай его до ГМа я думаю с твоими 90 он быстро вырастет за годик примерно... а потом пользуйся ПОИСКОМ... если хочеш этот скрипт создай тему "Напишите скрипт за WMZ" я тя уверяю уу тебя небудет отбоя.

Так сам знаешь всегда надеимся на 2 вещи: Халява и русская авось

Ищи. Именно такой простой скриптец я постил сюда на моей памяти раз пять.

Ну что с вами сделаешь .......

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("Hiding")
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

Эта версия скрипта предоставлена Боцманом.

_________________
Все просто.
BETEPAH ™

Каким-таким боцманом?

Это чтоб камни не летели в него !!! Шифруется типо !!!

_________________
Сделал дело - флуди смело !!!

while not UO.Hidden()
UO.Warmode("0")
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(4000)
wend

а можно это сделать так чтоб юзался скилл Стелалтинг (одно и тоже)

_________________
Все просто.

BETEPAH ™

вопрос, играю на Kingdomreborn пытаюсь настроить данный скрипт под себя.

дак как он постоянно безпричинно в хайд пытается залезть то хайд из скрипта убираю, далее он пишет что мол "Error no target to cancel No item found" по Этому убираю и строчку UO.CancelTarget()

настраиваю тип кирки и тайла и вот теперь заковырка, ультима спрашивает меня "Where do you wisch to dig?"

как такое может быть, ведь UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)

указывает ему где копать?

само копание происходит на шарде обычным методом, два щелчка на кирку и указание на землю в пещере...

sub minround() 
VAR Kirka = '0x0E86'   ; Тип Кирки 
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 

      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

тип кирки проверь

да нет, тип кирки вроде какраз правильный (0x0e86) ну он и сообщение Это наверное не выдал бы если бы кирка не активировалась.

ИМХО

у меня всё работает, с типом ..85

выложи пожалуйста свою версию скрипта.

на кингдомреборн.ру у меня инжект тип кирки как ...86 показывает. Если даже в скрипте меняю на 85 он пишет что no item found

мая версия скрипта выше, и тип кирки у нас 85

какой у тебя инжект если не секрет, есть ли насадка типа АСМ и какие тайлы выставил?

может настройку какуюнить другую надо поставить? Как думаеш?

с типом кирки мне кажется всё понятно, я то испытываю скрипт на кирках которые с самого начала дают. Другие может и 85.


думаю вся загвоздка в

UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 

так как если её убираю в комменты, то таргет появляется от кирки

что здесь может быть не так?

всё выяснил!

Оказывается ему нужна ещё и координата z Нужна была

но всёравно остаётся вопрос с тайлами. Так как интервал тайлов для копания всётаки из больше чем одного тайла, как ему нужно указать? Или какой используется

ладно и Эту проблему решил.

sub minround() 
dim MineTile[5] 
MineTile[0]=1339 
MineTile[1]=1340 
MineTile[2]=1341 
MineTile[3]=1342 
MineTile[4]=1343 
VAR Kirka = '0x0E86' ; kirka 
VAR x, y, z, k, tn, mx, my 
VAR tilenum = 1343 
VAR MaxTime = 100 ; 
VAR ms1 = "There is no metal" 
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" 
mx = uo.Getx() 
my = uo.Gety() 
for y=-2 to 2 
for x=-2 to 2 
k = 0 
repeat 
UO.DeleteJournal() 
z = UO.Timer() 
k = k + 1 
if uo.waiting() then 
uo.canceltarget() 
endif 
wait(200) 
uo.print(""+str(mx)+" "+str(my)+"") 
uo.print(""+str(x)+" "+str(y)+"") 
UO.WaitTargetTile( MineTile[0], STR( mx + x ), STR( my + y ), -95) 
UO.UseType( Kirka ) 
wait(1000) 
UO.WaitTargetTile( MineTile[1], STR( mx + x ), STR( my + y ), -95) 
UO.UseType( Kirka ) 
wait(1000) 
UO.WaitTargetTile( MineTile[2], STR( mx + x ), STR( my + y ), -95) 
UO.UseType( Kirka ) 
wait(1000) 
UO.WaitTargetTile( MineTile[3], STR( mx + x ), STR( my + y ), -95) 
UO.UseType( Kirka ) 
wait(1000) 
UO.WaitTargetTile( MineTile[4], STR( mx + x ), STR( my + y ), -95) 
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 ((z + MaxTime) < UO.Timer()) 
#until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3)) 
next 
next 
endsub

вопрос на засыпку, стоит ли изменять время действий или как его ещё лучше оптимировать?

Вопрос ставлю потому что по моему он лишние действия делает:

www.dellirium.info/123.jpeg