Page 1 of 1

МИНИНГ

Posted: 2006-05-01 20:45:50
by Aerials
Помагите со скриптом! вот скрипт на мининг но чар неходит! непойму чево может я чтото пропустил! если можете перепишите чтоб он ходил и киньте сюда! желательно чтоб ходил по тайлам




sub minround()

VAR Kirka = '0x143C' ; Тип Кирки
VAR MaxVes = 550 ; Максимальный вес, подымаемый чаром минус 10-15 стоунов
#VAR TileNum = '1342' ; Тайл пола пещеры (наиболее распространенный тип)
VAR x, y, t, k
VAR MaxTime = 1000 ; измеряется в 1/10 сек.
VAR ms1 = "Рудная жила в этом месте истощилась"
VAR ms2 = "Вы невидите цели"
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()
UO.CancelTarget()
wait(300)
UO.WaitTargetSelf()
#UO.WaitTargetTile( '1342', 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: 2006-05-01 20:55:44
by MAKC
Оформи скрипт нормально:
[code][/code]

Posted: 2006-05-02 00:17:34
by Edred
Слеплено на основе моего mininground, фактически добавлен только хайд. А мой скрипт является просто функцией для обкопки вокруг чара. Причем примером такой функции. Никакой хотьбы в ней нет и быть не должно. Надо писать головную процедуру, в которой и будет хождение и вызов этой функции.

Posted: 2006-05-02 02:01:55
by Rijo
Найди на этом форуме поиском ходилку, коих тут давольно много развелось, а в сущности по принцыпу это 1-2 разыне ходилки и вставь в скрипт после проверки на то что выкопана ли у тебя руда или нет.
Допустим

Code: Select all

if ruda_vykopona then
Hodilka()
endif

ну как тут принято говорить "это грубый пример"(с) :)
Хотя помоему одним скриптом на хождение тут не обделаешся. Нужно будет моск подключать ;), у меня он пока выключен.
Советую сразу взять скрипт с ходилкой. В котором бы сохранялись координаты и по кторым бы ходилка тебя вела.