Page 1 of 1
Можете дать скрипт....
Posted: 2005-01-26 14:14:15
by Dante
дайте скрип на то чтоб кликал вокруг себя (майнал) и по достижению веса 400 останавливался?
Re: Можете дать скрипт....
Posted: 2005-01-26 15:29:50
by M!kro$
Dante wrote:дайте скрип на то чтоб кликал вокруг себя (майнал) и по достижению веса 400 останавливался?
Вообщем скрипты под заказ пишут за лавэ... а скрипты FreeForAll есть на форуме... даже на прокачку скила ЛОЛИНГ.... так что сначало вкачай его до ГМа я думаю с твоими 90 он быстро вырастет за годик примерно... а потом пользуйся ПОИСКОМ... если хочеш этот скрипт создай тему "Напишите скрипт за WMZ" я тя уверяю уу тебя небудет отбоя.
Re: Можете дать скрипт....
Posted: 2005-01-26 21:52:43
by SAMURAI
M!kro$ wrote:<...>
Так сам знаешь всегда надеимся на 2 вещи: Халява и русская авось
Posted: 2005-01-26 22:16:57
by Edred
Ищи. Именно такой простой скриптец я постил сюда на моей памяти раз пять.
Posted: 2005-01-27 09:52:22
by BETEPAH
Ну что с вами сделаешь .......
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
Эта версия скрипта предоставлена Боцманом.
Posted: 2005-01-27 14:01:41
by Edred
BETEPAH wrote:Эта версия скрипта предоставлена Боцманом.
Каким-таким боцманом?
Posted: 2005-01-27 14:21:44
by Askaneli
Edred wrote:BETEPAH wrote:Эта версия скрипта предоставлена Боцманом.
Каким-таким боцманом?
Это чтоб камни не летели в него !!! Шифруется типо !!!
Posted: 2005-01-27 16:19:37
by Dante
while not UO.Hidden()
UO.Warmode("0")
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(4000)
wend
а можно это сделать так чтоб юзался скилл Стелалтинг (одно и тоже)
Posted: 2005-01-27 17:58:13
by BETEPAH
Dante wrote:while not UO.Hidden()
UO.Warmode("0")
uo.print("Прячемся...")
UO.UseSkill("Stealth")
wait(4000)
wend
а можно это сделать так чтоб юзался скилл Стелалтинг (одно и тоже)
Posted: 2008-06-10 18:53:35
by Edikus
вопрос, играю на 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
Posted: 2008-06-10 19:29:02
by p4104
тип кирки проверь
Posted: 2008-06-10 22:04:38
by Edikus
да нет, тип кирки вроде какраз правильный (0x0e86) ну он и сообщение Это наверное не выдал бы если бы кирка не активировалась.
ИМХО
Posted: 2008-06-11 11:46:54
by p4104
у меня всё работает, с типом ..85
Posted: 2008-06-11 12:47:13
by Edikus
выложи пожалуйста свою версию скрипта.
на кингдомреборн.ру у меня инжект тип кирки как ...86 показывает. Если даже в скрипте меняю на 85 он пишет что no item found
Posted: 2008-06-11 12:57:39
by p4104
мая версия скрипта выше, и тип кирки у нас 85
Posted: 2008-06-11 14:10:37
by Edikus
какой у тебя инжект если не секрет, есть ли насадка типа АСМ и какие тайлы выставил?
может настройку какуюнить другую надо поставить? Как думаеш?
с типом кирки мне кажется всё понятно, я то испытываю скрипт на кирках которые с самого начала дают. Другие может и 85.
думаю вся загвоздка в
Code: Select all
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
так как если её убираю в комменты, то таргет появляется от кирки
что здесь может быть не так?
Posted: 2008-06-11 14:24:40
by Edikus
всё выяснил!
Оказывается ему нужна ещё и координата z Нужна была
но всёравно остаётся вопрос с тайлами. Так как интервал тайлов для копания всётаки из больше чем одного тайла, как ему нужно указать? Или какой используется
Posted: 2008-06-12 09:37:45
by Edikus
ладно и Эту проблему решил.
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
