Можете дать скрипт....

Dante · Post by **Dante** » 2005-01-26 14:14:15

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

M!kro$ · Post by **M!kro$** » 2005-01-26 15:29:50

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

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

SAMURAI · Post by **SAMURAI** » 2005-01-26 21:52:43

M!kro$ wrote:<...>

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

Edred · Post by **Edred** » 2005-01-26 22:16:57

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

BETEPAH · Post by **BETEPAH** » 2005-01-27 09:52:22

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

Code: Select all

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

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

Edred · Post by **Edred** » 2005-01-27 14:01:41

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

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

Askaneli · Post by **Askaneli** » 2005-01-27 14:21:44

Edred wrote:
BETEPAH wrote:Эта версия скрипта предоставлена Боцманом.
Каким-таким боцманом?

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

Dante · Post by **Dante** » 2005-01-27 16:19:37

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

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

BETEPAH · Post by **BETEPAH** » 2005-01-27 17:58:13

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

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

Edikus · Post by **Edikus** » 2008-06-10 18:53:35

вопрос, играю на 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)

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

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

Code: Select all

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

p4104 · Post by **p4104** » 2008-06-10 19:29:02

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

Edikus · Post by **Edikus** » 2008-06-10 22:04:38

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

ИМХО

p4104 · Post by **p4104** » 2008-06-11 11:46:54

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

Edikus · Post by **Edikus** » 2008-06-11 12:47:13

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

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

p4104 · Post by **p4104** » 2008-06-11 12:57:39

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

Edikus · Post by **Edikus** » 2008-06-11 14:10:37

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

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

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

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

Code: Select all

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

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

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

Edikus · Post by **Edikus** » 2008-06-11 14:24:40

всё выяснил!

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

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

Edikus · Post by **Edikus** » 2008-06-12 09:37:45

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

Code: Select all

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

Yoko

Можете дать скрипт....

Можете дать скрипт....

Re: Можете дать скрипт....

Re: Можете дать скрипт....