Кому нелень - помогите плиз
И снова вопрос про скупку регов на макросе...
Moderators: Murderator+, Murderator
И снова вопрос про скупку регов на макросе...
Вопрос в том, почему в данном макросе >>>В ЭТОМ<<< он портится по первой руне и просто стоит? Рунки и ИД вендоров настроены - говорю сразу.
Кому нелень - помогите плиз

Кому нелень - помогите плиз
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub© I'm
Ну я понимаю что такую дуру перелопатьть - искать гемор на свою жопу... Просто интересна в чём может быть прикол... Я то как ручками скупал и скупаю...

Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub© I'm
попробуй переставить в начало вот ету часть !
не знаю что ето даст но можно попробовать !
Code: Select all
sub takenum()
var ns, j, i, n
var str, num
num=''
ns=0
n=uo.InJournal('jumps left')-1
str=uo.Journal(n)
UO.Print(str)
j = len( str ) - 1
for i = 0 to j
if ns==1 and str[i]<>' ' then
num=num+str[i]
else
ns=0
endif
if str[i] =='(' then
ns=1
endif
next
res = val(num) ;То самое слово
UO.Print(str(res)) ;То самое слово
end sub
не знаю что ето даст но можно попробовать !
>ТУТ< поидее Эдред дал интресный вариант, но чо там исправить пока хз...CErebrus wrote:Нада вышепереисленный кусок переписать под дрв
А в этом куске я мало чего понял - самообучение мать его... Придётся искать помощи
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub© I'm
Code: Select all
Edred wrote:
Расставь по скрипту команды UO.Print( '1' ) - цифру меняй, расставь через каждые 2-3 строки, потом запусти. Следи на какой цифре остановится. Потом уже в нужном месте натыркай команд после каждой строки, опять запусти. Когда определишься на каком месте скрипт встает - пости сюда.
Вот что я нашёл
Code:
UO.Click(rune[i])
UO.Print( '1' )
repeat
UO.Print( '2' )
wait(500)
UO.Print( '3' )
until UO.InJournal('jumps left')
UO.Print( '4' )
takenum()
UO.Print( '5' )
if res < 10 then ; ??????? ??????? ?? ????
UO.Print( '6' )
После того как он прилетает, подходит к вендору и стоит, зацикливается повторение 3, 2, 3, 2, 3, 2 и тд...
зацикливаеться потому что он в журнале не может найти сообщение 'jumps left'
Пробуй узать журнал и подбирать сообшения
Хм, попробую изменить на 8 - там будет видно...CErebrus wrote:Немного разобрался в этой части и что то понял ! А именно я понял что он делает проверки на то что при надписи в строке когда нажимаем на руну символов больше при 10 остатках ,чем символов при 9 так как отсутствует 1 знак => он делает проверку на скобку после числа остатков !Так как при 10 место скобки занимает 0 то скрипт не марчит руну а если будет стоять число 9 то после него появиться скобка и он будет марчить руну.
Но тут он почемуто указывает скобку с направлением в другую сторону( У него '(' хотя как мне кажеться должно быть так ')' потомучто строка заканчиваеться закрытием скобки)
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub© I'm
CErebrus wrote:зацикливаеться потому что он в журнале не может найти сообщение 'jumps left'
Пробуй узать журнал и подбирать сообшения
Хм, я пробовал менять на 'charges' но вроде непомогло. Он около 20-30 секунд постоит и реколится, но по тойже самой руне...
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub© I'm
Хых ну поделись догадкоюCErebrus wrote:Вродебы все понял в чем суть !
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub© I'm
Ну уж будь так любезен рассказывай раз разобралсяCErebrus wrote:оканчательно разобрался !
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub© I'm