И снова вопрос про скупку регов на макросе...

Anything and all.

Moderators: Murderator+, Murderator

SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

И снова вопрос про скупку регов на макросе...

Post by SAMURAI »

Вопрос в том, почему в данном макросе >>>В ЭТОМ<<< он портится по первой руне и просто стоит? Рунки и ИД вендоров настроены - говорю сразу.
Кому нелень - помогите плиз :roll: :(
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

Post by HellFire »

у мну тоже самое... просил помочь еще месяц назад :roll: , но ответа так и не было :evil:
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

всё просто... вам поможет тот кто будет перелапачивать сей код. а так... просто его просмотреть... ну его лесом.
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

Ну я понимаю что такую дуру перелопатьть - искать гемор на свою жопу... Просто интересна в чём может быть прикол... Я то как ручками скупал и скупаю... :roll: :D
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
Te_Killa
Posts: 3
Joined: 2005-03-26 11:32:21

Post by Te_Killa »

qqqq :lol:
CErebrus
Posts: 44
Joined: 2004-12-09 03:29:14

Post by CErebrus »

попробуй переставить в начало вот ету часть !

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
Posts: 44
Joined: 2004-12-09 03:29:14

Post by CErebrus »

Нада вышепереисленный кусок переписать под дрв
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

CErebrus wrote:Нада вышепереисленный кусок переписать под дрв
>ТУТ< поидее Эдред дал интресный вариант, но чо там исправить пока хз...

А в этом куске я мало чего понял - самообучение мать его... Придётся искать помощи :?
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
CErebrus
Posts: 44
Joined: 2004-12-09 03:29:14

Post by CErebrus »

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'
Пробуй узать журнал и подбирать сообшения
CErebrus
Posts: 44
Joined: 2004-12-09 03:29:14

Post by CErebrus »

Все что было здесь раньше бред
Last edited by CErebrus on 2005-03-30 18:26:35, edited 1 time in total.
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

CErebrus wrote:Немного разобрался в этой части и что то понял ! А именно я понял что он делает проверки на то что при надписи в строке когда нажимаем на руну символов больше при 10 остатках ,чем символов при 9 так как отсутствует 1 знак => он делает проверку на скобку после числа остатков !Так как при 10 место скобки занимает 0 то скрипт не марчит руну а если будет стоять число 9 то после него появиться скобка и он будет марчить руну.
Но тут он почемуто указывает скобку с направлением в другую сторону( У него '(' хотя как мне кажеться должно быть так ')' потомучто строка заканчиваеться закрытием скобки)
Хм, попробую изменить на 8 - там будет видно... :roll:
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

CErebrus wrote:зацикливаеться потому что он в журнале не может найти сообщение 'jumps left'
Пробуй узать журнал и подбирать сообшения

Хм, я пробовал менять на 'charges' но вроде непомогло. Он около 20-30 секунд постоит и реколится, но по тойже самой руне...
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
CErebrus
Posts: 44
Joined: 2004-12-09 03:29:14

Post by CErebrus »

Вродебы все понял в чем суть !
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

CErebrus wrote:Вродебы все понял в чем суть !
Хых ну поделись догадкою :)
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
CErebrus
Posts: 44
Joined: 2004-12-09 03:29:14

Post by CErebrus »

оканчательно разобрался !
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

CErebrus wrote:оканчательно разобрался !
Ну уж будь так любезен рассказывай раз разобрался :roll: :D
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
CErebrus
Posts: 44
Joined: 2004-12-09 03:29:14

Post by CErebrus »

в даент не могу это сделать ! так как инета нету ! Сам сижу по минуте
А буду сидеть утром с 7 до 8 или ночью с 1 до 2 так что стукни в асю
309448813 и напиши что по поводу скрипта ! ТАм и срастемся
$oK0JI
Posts: 32
Joined: 2005-01-04 21:52:39

Post by $oK0JI »

"Человек играет только тогда, когда он в полном значении слова человек, и он бывает вполне человеком лишь тогда, когда играет." (c)
Adec[DrW]
Posts: 16
Joined: 2005-03-16 20:20:28

Post by Adec[DrW] »

CErebrus wrote:оканчательно разобрался !

Ну подскажи ньюбам :cry:
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

Такс, Церебрус второй раз уже пишет что разобрался после подсказки, но рассказать другим не хочет. Вывод: надо прекратить ему подсказывать.
Post Reply