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

Можете дать скрипт....
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2812		 Page 1 of 1
Author:  Dante [ 2005-01-26 14:14:15 ]
Post subject:  Можете дать скрипт....
дайте скрип на то чтоб кликал вокруг себя (майнал) и по достижению веса 400 останавливался?
Author:  M!kro$ [ 2005-01-26 15:29:50 ]
Post subject:  Re: Можете дать скрипт....
Dante wrote:
дайте скрип на то чтоб кликал вокруг себя (майнал) и по достижению веса 400 останавливался?


Вообщем скрипты под заказ пишут за лавэ... а скрипты FreeForAll есть на форуме... даже на прокачку скила ЛОЛИНГ.... так что сначало вкачай его до ГМа я думаю с твоими 90 он быстро вырастет за годик примерно... а потом пользуйся ПОИСКОМ... если хочеш этот скрипт создай тему "Напишите скрипт за WMZ" я тя уверяю уу тебя небудет отбоя.
Author:  SAMURAI [ 2005-01-26 21:52:43 ]
Post subject:  Re: Можете дать скрипт....
M!kro$ wrote:
<...>

Так сам знаешь всегда надеимся на 2 вещи: Халява и русская авось :mrgreen:
Author:  Edred [ 2005-01-26 22:16:57 ]
Post subject: 
Ищи. Именно такой простой скриптец я постил сюда на моей памяти раз пять.
Author:  BETEPAH [ 2005-01-27 09:52:22 ]
Post subject: 
Ну что с вами сделаешь .......
Code:
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

Эта версия скрипта предоставлена Боцманом.
Author:  Edred [ 2005-01-27 14:01:41 ]
Post subject: 
BETEPAH wrote:
Эта версия скрипта предоставлена Боцманом.


Каким-таким боцманом? :twisted:
Author:  Askaneli [ 2005-01-27 14:21:44 ]
Post subject: 
Edred wrote:
BETEPAH wrote:
Эта версия скрипта предоставлена Боцманом.


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

Это чтоб камни не летели в него !!! Шифруется типо !!!
Author:  Dante [ 2005-01-27 16:19:37 ]
Post subject: 
while not UO.Hidden()
UO.Warmode("0")
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(4000)
wend

а можно это сделать так чтоб юзался скилл Стелалтинг (одно и тоже)
Author:  BETEPAH [ 2005-01-27 17:58:13 ]
Post subject: 
Dante wrote:
while not UO.Hidden()
UO.Warmode("0")
uo.print("Прячемся...")
UO.UseSkill("Stealth")
wait(4000)
wend

а можно это сделать так чтоб юзался скилл Стелалтинг (одно и тоже)
Author:  Edikus [ 2008-06-10 18:53:35 ]
Post subject: 
вопрос, играю на 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:
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
Author:  p4104 [ 2008-06-10 19:29:02 ]
Post subject: 
тип кирки проверь
Author:  Edikus [ 2008-06-10 22:04:38 ]
Post subject: 
да нет, тип кирки вроде какраз правильный (0x0e86) ну он и сообщение Это наверное не выдал бы если бы кирка не активировалась.

ИМХО
Author:  p4104 [ 2008-06-11 11:46:54 ]
Post subject: 
у меня всё работает, с типом ..85
Author:  Edikus [ 2008-06-11 12:47:13 ]
Post subject: 
выложи пожалуйста свою версию скрипта.

на кингдомреборн.ру у меня инжект тип кирки как ...86 показывает. Если даже в скрипте меняю на 85 он пишет что no item found
Author:  p4104 [ 2008-06-11 12:57:39 ]
Post subject: 
мая версия скрипта выше, и тип кирки у нас 85 :)
Author:  Edikus [ 2008-06-11 14:10:37 ]
Post subject: 
какой у тебя инжект если не секрет, есть ли насадка типа АСМ и какие тайлы выставил?

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

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


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

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


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

что здесь может быть не так?
Author:  Edikus [ 2008-06-11 14:24:40 ]
Post subject: 
всё выяснил!

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

но всёравно остаётся вопрос с тайлами. Так как интервал тайлов для копания всётаки из больше чем одного тайла, как ему нужно указать? Или какой используется
Author:  Edikus [ 2008-06-12 09:37:45 ]
Post subject: 
ладно и Эту проблему решил.

Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/