Сделать за тебя я не могу так как тебе лучше знать что ты от скрипта хочешь получить. Я такими скриптами никогда не копал и не рубил. Я могу объяснить где ошибки (которые ты кстати даже не постарался разобрать сам). Итак поехали:
Пропускаем скрипт через утилиту в моей подписи. В "кошерном" скрипте все sub четотам()...endsub должны находиться по левому краю. Соответственно ВИДИМ что проблема начинается с sub mining(). Если его удалить скрипт по крайней мере принимает пищеварительный вид и все циклы в нем на местах. Давай ломать твою копалку.
Code:
sub mining()
VAR Kirka = '0x0F39' ; это как я понимаю объявление инструмента. Запомним эту строку - потом вернемся сюда.
VAR MaxVes = 500 ; максимальный вес - используется в скрипте ниже.
VAR TileNum = '1339' ; номер тайла с рудой (хотя рудонесущих тайлов несколько десятков... Но можно и так по старинке.)
VAR x, y, t, k, i, f ; тут бла бла бла...
Dim gox[14] ; это как я понимаю координаты перемещения по пещере. Зачем то прописанные в копалке, но пес с ними.
gox[0] = 353
gox[1] = 358
gox[2] = 352
gox[3] = 357
gox[4] = 362
gox[5] = 370
gox[6] = 375
gox[7] = 380
gox[8] = 384
gox[9] = 379
gox[10] = 375
gox[11] = 366
gox[12] = 357
gox[13] = 353
Dim goy[14]
goy[0] = 1453
goy[1] = 1448
goy[2] = 1448
goy[3] = 1439
goy[4] = 1439
goy[5] = 1437
goy[6] = 1433
goy[7] = 1429
goy[8] = 1432
goy[9] = 1441
goy[10] = 1436
goy[11] = 1439
goy[12] = 1439
goy[13] = 1446
while 1 ; цикл живет пока 1. Мощно но не учитывает многие моменты.
for i = 0 to 13 ; тут все пуском
WalkME(gox[i],goy[i],'') ; ходим по координатам
for y=-4 to 4
for x=-4 to 4
while not UO.Hidden() ; тут прячемся перед совершением действия. В принципе расписывать не нужно - в скрипте есть процедура пряталка.
UO.Warmode("0")
uo.print("Ïðÿ÷åìñÿ...")
UO.UseSkill("Hiding")
wait(4000)
wend
repeat ; ВОТ наш больной. Повторять до тех пор пока... ХЗ что именно должно произойти - условия завершения цикла несуществует и оно извесно только тебе так как это ты его сломал. Ищи исходник оригинального скрипта.
for f=1 to 10 ; это походу 10 попыток на копку. Через забор но пусть...
if uo.count('0x0F39')==0 and uo.count('0x0F3A')==0 and uo.count('0x0E86')==0 and uo.count('0x0E85')==0 then ; вот это ФИГНЯ. У тебя вс крипте выше указана КИРКА. Зачем проверять просто так есть ли в паке лопаты?
return
endif
UO.DeleteJournal()
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) ; забегая вперед (или назад) скажу - зачем дублировать прицел который есть в sub DigAhole?
DigAhole(x,y) ; собсно лопаткой тресь в тайл
if waitforore()==1 then ; если выполняется какое то условие то попытка = 10... Мне кажется лучше сделать return
f=10
endif
If UO.Weight > 495 Then ; это место запомним. Тут скидывается мусорное железо.
UO.Print('Ïåðåãðóç!')
sbroska()
endif
if flagpk==1 then ; если нашли ПК прерываем копку - логично.
return
endif
if uo.injournal('You have been revealed') and flaginvis==1 then ; если раскрылись - прячемся и зачем то прерываем копку.
flaginvis=0
invis()
return
endif
next
if uo.journal(0)==uo.getname('self')+': You loosen some rocks but fail to find any useable ore.' then ; если неудачно выкопали руду - ждем 10 секунд. Зачем? Специфика шарда - единственное что приходит на ум. Если нет - в топку.
wait(10000)
endif
if checkelem()==1 then ; если вылез элементаль - прерываем копку, спорно но пусть.
return
endif
If UO.Weight > MaxVes Then ; ОП повторный сканер веса.
UO.Print(" Overweight!" )
return
Endif
next
next
next
wend
endsub ; вот тут видно что какойто цикл сбит
если немного подкорректировать эту тему то получим примерно следующее:
Code:
VAR Kirka = '0x0F39' ; выше sub потому что используются в нескольких процедурах.
VAR MaxVes = 500
VAR TileNum = '1339'
sub mining()
VAR x, y, t, k, i, f
Dim gox[14]
gox[0] = 353
gox[1] = 358
gox[2] = 352
gox[3] = 357
gox[4] = 362
gox[5] = 370
gox[6] = 375
gox[7] = 380
gox[8] = 384
gox[9] = 379
gox[10] = 375
gox[11] = 366
gox[12] = 357
gox[13] = 353
Dim goy[14]
goy[0] = 1453
goy[1] = 1448
goy[2] = 1448
goy[3] = 1439
goy[4] = 1439
goy[5] = 1437
goy[6] = 1433
goy[7] = 1429
goy[8] = 1432
goy[9] = 1441
goy[10] = 1436
goy[11] = 1439
goy[12] = 1439
goy[13] = 1446
while not UO.Dead() ; пока чар живой
for i = 0 to 13
WalkME(gox[i],goy[i],'')
for y=-4 to 4
for x=-4 to 4
Tohide() ; запустили проверку на спрятался нет
; repeat ;пока ее закомментируем.
for f=1 to 10
CAll() ; проверка на все случаи жизни
UO.DeleteJournal()
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
DigAhole(x,y)
if waitforore()==1 then
f=10
endif
CAll(); проверка на все случаи жизни
next
if uo.journal(0)==uo.getname('self')+': You loosen some rocks but fail to find any useable ore.' then
wait(10000)
endif
next
next
next
wend
endsub
Sub CAll()
if uo.count( Kirka )<1 or UO.Weight > MaxVes or flagpk==1 or checkelem()==1 then
return
endif
if uo.injournal('You have been revealed') and flaginvis==1 then
flaginvis=0
invis()
return
endif
If UO.Weight > 495 Then
UO.Print('Ïåðåãðóç!')
sbroska()
endif
endsub
Стало короче и красивше. Это всего скорее не полноценно рабочий вариант, нужно тебе самому разобраться с repeat и протестировать то что получится. Но вроде ход моих мыслей должен быть понятен.
Register
Login
FAQ
Search
