I need a hyper Help! / Мне нужно гипер Помогите!

brazil · Post by **brazil** » 2010-12-16 17:46:38

I need a hyper Help!

Let me explain how it works. On the server I play, always appears on your screen a gump for you answer and then confirm that it is not macroevolution (absent). Below is the code you already have, the only error is:
- that the numbers and random sequences are coming and not fixed! only one sequence is the right answer.

As you will see below, the sequence is the right answer was 5, 0, 7, 7. But in other threads InfoGump appears.
In the case of this macro, it always is answering what you see on line 4

I need to help the script to do this check, and pick the right one.
Can you help?
Thanks.

Мне нужно гипер Помогите!

Позвольте мне объяснить, как она работает. На сервере я играю, всегда появляется на экране Гамп для вас ответа, а затем подтвердить, что это не макроэволюции (отсутствует). Ниже приведен код, у вас уже есть, только ошибка:
- Это номера и случайные последовательности идут, а не фиксированная! только одна последовательность правильный ответ.

Как вы увидите ниже, последовательность правильный ответ был 5, 0, 7, 7. Но в других потоках InfoGump появляется.
В случае этого макроса, он всегда отвечает, что вы видите в строке 4.
Мне нужно, чтобы помочь скрипт для этой проверки, и выбрать правильный.
Можете ли вы помочь?
Спасибо.

sub Antimacro()
inicio:
uo.press(118)
if uo.LastGump('text') == 'Anti Macro' then
wait(UO.Random(100) + UO.Random(100) + 200 * 10)
uo.LClick(3, val(GetWord(uo.LastGump('command', 1), 3)))
goto respam
endif
goto inicio
respam:
if uo.LastGump('text',1) == 'Digite os numeros abaixo:' then
uo.LClick(48, 551)
wait(UO.Random(10000) + 3000)
uo.say(ArrayToString(uo.LastGump('text', 4)))
wait(UO.Random(10000) + 1000)
uo.LClick(113, 581)
goto inicio
endif
goto respam
endsub

sub GetWord(string, num)
var pstart = 0
var n = 0
string = string+' '
for var i = 0 to Len(string)
if Mid(string, i, 1) == ' ' then
n = n+1
if n == num then
return Mid(string, pstart, i-pstart)
endif
pstart = i+1
endif
next
return ''
endsub

Sub ArrayToString(Array)
var num = ''
var n = (Len(Array)-2)/3
if n >= 1 then
for var i = 1 to n
num = num+Mid(Array, i*3-1, 1)
next
endif
return num
endsub

_____infogump_______
serial _________
gumpid 0x000e5713
X 0
Y 0
634 packet size
0 reply packet size
Buttons: ________
page 0
1 [ 92] image=0x0851 at 3754:570
2 [ 46] image=0x0851 at 85:570
3 [ 96] image=0x0851 at 3173:570
Checks&Radios: __
Entryes: ________
All commands: ____
1] noclose
2] resizepic 10 450 3500 200 150
3] resizepic 40 540 3000 150 20
4] button 3754 570 2130 2129 1 0 92
5] resizepic 10 450 3500 200 150
6] resizepic 40 540 3000 150 20
7] text 60 520 0 3
8] TextEntry 40 540 150 20 900 1 2
9] button 85 570 2130 2129 1 0 46
10] text 3838 520 0 8
11] button 3173 570 2130 2129 1 0 96
12] text 25 485 0 0
13] text 25 500 0 1
Text: ____________
0] Tentativas: 2
1] Digite os numeros abaixo:
2] Digite os numeros abaixo:
3] { 5, 0, 7, 7 }
4] { 1, 8, 4 }
5] { 2, 5, 9, 2 }
6] { 1, 3, 9, 4 }
7] { 0, 4, 2, 1 }
8] { 0, 2, 6 }

GMX · Post by **GMX** » 2010-12-17 07:15:15

Where in your code the "Mid" function? And what does it do?

Sirocco · Post by **Sirocco** » 2010-12-17 07:49:44

ты мне не поверишь, конечно, но эта ф-ция в инжекте встроена.

GMX · Post by **GMX** » 2010-12-17 08:00:35

Прикинь, я сам тока что это вдуплил. )))
Не проснулся еще...

brazil, why is there this code:

Code: Select all

    if uo.LastGump('text') == 'Anti Macro' then

In your ',infogump' there's no such text. Does antimacro contains of two gumps?
What exactly happens, when you run your script?

Did i understand right, that you want the script to choose the right string from the "text", cause it's always random, or it's alwais the same #4?

GMX · Post by **GMX** » 2010-12-17 08:40:51

Try this part of code:

Code: Select all

sub Antimacro()
    var stringNum
    inicio:
    uo.press(118)
    if uo.LastGump('text') == 'Anti Macro' then
        wait(UO.Random(100) + UO.Random(100) + 200 * 10)
        uo.LClick(3, val(GetWord(uo.LastGump('command', 1), 3)))
        goto respam
    endif
    goto inicio
    respam:
    if uo.LastGump('text',1) == 'Digite os numeros abaixo:' then
        stringNum=val(GetWord(uo.LastGump('command',7), 3))+1
        uo.LClick(48, 551)
        wait(UO.Random(10000) + 3000)
        uo.say(ArrayToString(uo.LastGump('text', stringNum)))
        wait(UO.Random(10000) + 1000)
        uo.LClick(113, 581)
        goto inicio
    endif
    goto respam
endsub

GMX · Post by **GMX** » 2010-12-17 09:07:42

The difference is:

Code: Select all

    var stringNum
........
        stringNum=val(GetWord(uo.LastGump('command',7), 3))+1
........
        uo.say(ArrayToString(uo.LastGump('text', stringNum)))

So you should get the idea.

brazil · Post by **brazil** » 2010-12-17 14:25:50

I would like is:
that the macro answer a certain sequence of numbers that appears to me. I can only respond by doing it online: eg text line 4 (as is in the macro) but after the update the sequence numbers of random antimacro is coming. So I need help making this check and choose the sequence of numbers certain to respond.

Thanks so far, big hug

hello, thanks for the help I have had so far not expect it would be so fast.
then let's go.
yes, 2 Gumps are appearing, but the first one is right, he clicks. the problem with this macro is to answer certain sequence, because they reply to sequence wrong, fucked, they get you in Log'll have more screens to explain.
Below the first picture the first gump! nothing hard to solve, and two other examples of the second gump, which is the catch.

привет, спасибо за помощь у меня до сих пор не ожидаем, что он будет так быстро.
Тогда пошли.
Да, 2 Gumps появляются, но первый из них подходит, он нажимает. Проблема с этим макрос ответить на определенной последовательности, потому что ответ на последовательность неправильно, трахал, они вам в Log'll больше экранов объяснить.
Ниже первой картине первого Гамп! ничего не трудно решить, и две другие примеры второй Гамп, что поймать.

_infogump_______
serial _______
gumpid 0x003c7ba2
X 0
Y 0
1248 packet size
0 reply packet size
Buttons: ________
page 0
1 [ 90] image=0x0851 at 2941:570
2 [ 54] image=0x0851 at 3957:570
3 [ 60] image=0x0851 at 4220:570
4 [ 31] image=0x0851 at 4056:570
5 [ 87] image=0x0851 at 3038:570
6 [ 34] image=0x0851 at 85:570
7 [ 50] image=0x0851 at 2678:570
Checks&Radios: __
Entryes: ________
All commands: ____
1] noclose
2] resizepic 10 450 3500 200 150
3] resizepic 40 540 3000 150 20
4] button 2941 570 2130 2129 1 0 90
5] resizepic 10 450 3500 200 150
6] resizepic 40 540 3000 150 20
7] TextEntry 40 540 150 20 900 1 2
8] text 60 520 0 3
9] button 3957 570 2130 2129 1 0 54
10] resizepic 10 450 3500 200 150
11] resizepic 40 540 3000 150 20
12] TextEntry 40 540 150 20 900 2 2
13] text 60 520 0 4
14] button 4220 570 2130 2129 1 0 60
15] resizepic 10 450 3500 200 150
16] resizepic 40 540 3000 150 20
17] TextEntry 40 540 150 20 900 3 2
18] text 60 520 0 5
19] button 4056 570 2130 2129 1 0 31
20] resizepic 10 450 3500 200 150
21] resizepic 40 540 3000 150 20
22] TextEntry 40 540 150 20 900 4 2
23] text 60 520 0 6
24] button 3038 570 2130 2129 1 0 87
25] resizepic 10 450 3500 200 150
26] resizepic 40 540 3000 150 20
27] TextEntry 40 540 150 20 900 5 2
28] text 60 520 0 7
29] button 85 570 2130 2129 1 0 34
30] text 4250 520 0 8
31] button 2678 570 2130 2129 1 0 50
32] text 25 485 0 0
33] text 25 500 0 1
Text: ____________
0] Tentativas: 1
1] Digite os numeros abaixo:
2] Digite os numeros abaixo:
3] { 2, 5, 6 }
4] { 6, 7, 0, 8 }
5] { 2, 9, 1 }
6] { 2, 5, 1, 2 }
7] { 9, 1, 2 }
8] { 3, 0, 3, 9 }

_____infogump_______
serial--------
gumpid 0x003c8d52
X 0
Y 0
628 packet size
0 reply packet size
Buttons: ________
page 0
1 [ 97] image=0x0851 at 3658:570
2 [ 91] image=0x0851 at 85:570
3 [ 65] image=0x0851 at 4161:570
Checks&Radios: __
Entryes: ________
All commands: ____
1] noclose
2] resizepic 10 450 3500 200 150
3] resizepic 40 540 3000 150 20
4] button 3658 570 2130 2129 1 0 97
5] resizepic 10 450 3500 200 150
6] resizepic 40 540 3000 150 20
7] text 60 520 0 3
8] TextEntry 40 540 150 20 900 1 2
9] button 85 570 2130 2129 1 0 91
10] text 3703 520 0 8
11] button 4161 570 2130 2129 1 0 65
12] text 25 485 0 0
13] text 25 500 0 1
Text: ____________
0] Tentativas: 2
1] Digite os numeros abaixo:
2] Digite os numeros abaixo:
3] { 6, 3, 7, 9 }
4] { 6, 9, 2, 2 }
5] { 0, 2, 1 }
6] { 5, 2, 7, 1 }
7] { 4, 3, 7 }
8] { 5, 8, 6 }

brazil · Post by **brazil** » 2010-12-17 14:42:30

Hello Friends
I tested the macro GMX, and he clicks on the gump normal, but not answer any sequence ... just wait 10 seconds and click on OK.

Здравствуйте, друзья
Я тестировал макрос GMX, и он нажимает на Гамп нормально, но не ответить на любой последовательности ... подождите 10 секунд и нажмите кнопку ОК.

GMX · Post by **GMX** » 2010-12-17 14:46:26

Well, it's more funny. I think there's solution. I'll be later and post my idea.

GMX · Post by **GMX** » 2010-12-17 14:47:40

If ya can, post here more ,infogump's.

brazil · Post by **brazil** » 2010-12-17 15:10:26

good, I added in a single image more Gumps. do not know if it was so good, sorry .... hehehehe
Gumps are separated by the green lines.

хорошо, я добавил в одно изображение более Gumps. не знаю, если это было так хорошо, извините .... Hehehehe
Gumps разделенных зелеными линиями.

brazil · Post by **brazil** » 2010-12-17 15:20:41

01:
NUMBERS: 9 5 4

_____infogump_______
serial
gumpid 0x003dd527
X 0
Y 0
1242 packet size
0 reply packet size
Buttons: ________
page 0
1 [ 74] image=0x0851 at 2626:570
2 [ 73] image=0x0851 at 2787:570
3 [ 60] image=0x0851 at 3478:570
4 [ 90] image=0x0851 at 3508:570
5 [ 80] image=0x0851 at 4227:570
6 [ 68] image=0x0851 at 85:570
7 [ 99] image=0x0851 at 4178:570
Checks&Radios: __
Entryes: ________
All commands: ____
1] noclose
2] resizepic 10 450 3500 200 150
3] resizepic 40 540 3000 150 20
4] button 2626 570 2130 2129 1 0 74
5] resizepic 10 450 3500 200 150
6] resizepic 40 540 3000 150 20
7] TextEntry 40 540 150 20 900 1 2
8] text 60 520 0 3
9] button 2787 570 2130 2129 1 0 73
10] resizepic 10 450 3500 200 150
11] resizepic 40 540 3000 150 20
12] TextEntry 40 540 150 20 900 2 2
13] text 60 520 0 4
14] button 3478 570 2130 2129 1 0 60
15] resizepic 10 450 3500 200 150
16] resizepic 40 540 3000 150 20
17] TextEntry 40 540 150 20 900 3 2
18] text 60 520 0 5
19] button 3508 570 2130 2129 1 0 90
20] resizepic 10 450 3500 200 150
21] resizepic 40 540 3000 150 20
22] TextEntry 40 540 150 20 900 4 2
23] text 60 520 0 6
24] button 4227 570 2130 2129 1 0 80
25] resizepic 10 450 3500 200 150
26] resizepic 40 540 3000 150 20
27] TextEntry 40 540 150 20 900 5 2
28] text 60 520 0 7
29] button 85 570 2130 2129 1 0 68
30] text 4496 520 0 8
31] button 4178 570 2130 2129 1 0 99
32] text 25 485 0 0
33] text 25 500 0 1
Text: ____________
0] Tentativas: 1
1] Digite os numeros abaixo:
2] Digite os numeros abaixo:
3] { 8, 4, 8 }
4] { 4, 8, 9 }
5] { 1, 5, 0, 3 }
6] { 5, 2, 4, 0 }
7] { 9, 5, 4 }
8] { 4, 2, 7 }

02:
NUMBERS: 6 0 1

_____infogump_______
serial
gumpid 0x003de134
X 0
Y 0
765 packet size
0 reply packet size
Buttons: ________
page 0
1 [ 32] image=0x0851 at 4121:570
2 [ 21] image=0x0851 at 4224:570
3 [ 88] image=0x0851 at 85:570
4 [ 78] image=0x0851 at 2945:570
Checks&Radios: __
Entryes: ________
All commands: ____
1] noclose
2] resizepic 10 450 3500 200 150
3] resizepic 40 540 3000 150 20
4] button 4121 570 2130 2129 1 0 32
5] resizepic 10 450 3500 200 150
6] resizepic 40 540 3000 150 20
7] TextEntry 40 540 150 20 900 1 2
8] text 60 520 0 3
9] button 4224 570 2130 2129 1 0 21
10] resizepic 10 450 3500 200 150
11] resizepic 40 540 3000 150 20
12] text 60 520 0 4
13] TextEntry 40 540 150 20 900 2 2
14] button 85 570 2130 2129 1 0 88
15] text 3433 520 0 8
16] button 2945 570 2130 2129 1 0 78
17] text 25 485 0 0
18] text 25 500 0 1
Text: ____________
0] Tentativas: 1
1] Digite os numeros abaixo:
2] Digite os numeros abaixo:
3] { 3, 5, 9 }
4] { 6, 0, 1 }
5] { 1, 1, 0 }
6] { 5, 5, 7 }
7] { 8, 7, 3 }
8] { 2, 9, 6 }

03:
NUMBERS: 6 0 7

_____infogump_______
serial
gumpid 0x003de49f
X 0
Y 0
1087 packet size
0 reply packet size
Buttons: ________
page 0
1 [ 77] image=0x0851 at 4190:570
2 [ 48] image=0x0851 at 4087:570
3 [ 18] image=0x0851 at 4227:570
4 [ 49] image=0x0851 at 4190:570
5 [ 27] image=0x0851 at 85:570
6 [ 59] image=0x0851 at 4470:570
Checks&Radios: __
Entryes: ________
All commands: ____
1] noclose
2] resizepic 10 450 3500 200 150
3] resizepic 40 540 3000 150 20
4] button 4190 570 2130 2129 1 0 77
5] resizepic 10 450 3500 200 150
6] resizepic 40 540 3000 150 20
7] TextEntry 40 540 150 20 900 1 2
8] text 60 520 0 3
9] button 4087 570 2130 2129 1 0 48
10] resizepic 10 450 3500 200 150
11] resizepic 40 540 3000 150 20
12] TextEntry 40 540 150 20 900 2 2
13] text 60 520 0 4
14] button 4227 570 2130 2129 1 0 18
15] resizepic 10 450 3500 200 150
16] resizepic 40 540 3000 150 20
17] TextEntry 40 540 150 20 900 3 2
18] text 60 520 0 5
19] button 4190 570 2130 2129 1 0 49
20] resizepic 10 450 3500 200 150
21] resizepic 40 540 3000 150 20
22] text 60 520 0 6
23] TextEntry 40 540 150 20 900 4 2
24] button 85 570 2130 2129 1 0 27
25] text 4242 520 0 8
26] button 4470 570 2130 2129 1 0 59
27] text 25 485 0 0
28] text 25 500 0 1
Text: ____________
0] Tentativas: 2
1] Digite os numeros abaixo:
2] Digite os numeros abaixo:
3] { 0, 6, 4 }
4] { 7, 3, 5 }
5] { 1, 8, 3, 1 }
6] { 6, 0, 7 }
7] { 3, 6, 8 }
8] { 7, 1, 9, 8 }

04
NUMBERS:8 5 1 0

_____infogump_______
serial
gumpid 0x003de714
X 0
Y 0
932 packet size
0 reply packet size
Buttons: ________
page 0
1 [ 56] image=0x0851 at 3757:570
2 [ 95] image=0x0851 at 4264:570
3 [ 80] image=0x0851 at 4202:570
4 [ 32] image=0x0851 at 85:570
5 [ 70] image=0x0851 at 4492:570
Checks&Radios: __
Entryes: ________
All commands: ____
1] noclose
2] resizepic 10 450 3500 200 150
3] resizepic 40 540 3000 150 20
4] button 3757 570 2130 2129 1 0 56
5] resizepic 10 450 3500 200 150
6] resizepic 40 540 3000 150 20
7] TextEntry 40 540 150 20 900 1 2
8] text 60 520 0 3
9] button 4264 570 2130 2129 1 0 95
10] resizepic 10 450 3500 200 150
11] resizepic 40 540 3000 150 20
12] TextEntry 40 540 150 20 900 2 2
13] text 60 520 0 4
14] button 4202 570 2130 2129 1 0 80
15] resizepic 10 450 3500 200 150
16] resizepic 40 540 3000 150 20
17] text 60 520 0 5
18] TextEntry 40 540 150 20 900 3 2
19] button 85 570 2130 2129 1 0 32
20] text 4374 520 0 8
21] button 4492 570 2130 2129 1 0 70
22] text 25 485 0 0
23] text 25 500 0 1
Text: ____________
0] Tentativas: 3
1] Digite os numeros abaixo:
2] Digite os numeros abaixo:
3] { 7, 0, 0 }
4] { 4, 6, 7 }
5] { 8, 5, 1, 0 }
6] { 2, 9, 0, 6 }
7] { 3, 1, 9 }
8] { 1, 0, 4 }

GMX · Post by **GMX** » 2010-12-17 22:28:57

Code: Select all

sub Antimacro()
    var stringNum
    inicio:
    uo.press(118)
    if uo.LastGump('text') == 'Anti Macro' then
        wait(UO.Random(100) + UO.Random(100) + 200 * 10)
        uo.LClick(3, val(GetWord(uo.LastGump('command', 1), 3)))
        goto respam
    endif
    goto inicio
    respam:
    if uo.LastGump('text',1) == 'Digite os numeros abaixo:' then
        stringNum=GetStrNum();
        uo.LClick(48, 551)
        wait(UO.Random(10000) + 3000)
        uo.say(ArrayToString(uo.LastGump('text', stringNum)))
        wait(UO.Random(10000) + 1000)
        uo.LClick(113, 581)
        goto inicio
    endif
    goto respam
endsub

sub GetStrNum()
    var str=0;
    var i
    for i=0 to 50 
        if GetWord(uo.LastGump('command',i), 2))=='60' and GetWord(uo.LastGump('command',i), 3))==520 then
            str=val(GetWord(uo.LastGump('command',i), 5))
        endif
    next
    return str
endsub

sub GetWord(string, num)
    var pstart = 0
    var n = 0
    string = string+' '
    for var i = 0 to Len(string)
        if Mid(string, i, 1) == ' ' then
            n = n+1
            if n == num then
                return Mid(string, pstart, i-pstart)
            endif
            pstart = i+1
        endif
    next
    return ''
endsub

Sub ArrayToString(Array)
    var num = ''
    var n = (Len(Array)-2)/3
    if n >= 1 then
        for var i = 1 to n
            num = num+Mid(Array, i*3-1, 1)
        next
    endif
    return num
endsub

To explain the idea:
The "command" field of the gump contains the directives to client to do something (to open a window, to paint a button, to print a text, etc.) Conserning a text to print, the "command" field contains the directive to print text, and it's coordinates. But the text itself is in the "text" field.
So
8] text 60 520 0 3 <= prints a text ant coords 60 520 from the 3'rd line of the "text" field.
But after this string we see:
13] text 60 520 0 4 <= rewrites previous text with the text from the 4'th line.
So the last string, containing the directive to rewrite text at theese coords, contains the number of the "text" field line.

I've no ability to play on your shard and test my code, so there can be mistakes, so I explain the idea to give you chance to corect it.

brazil · Post by **brazil** » 2010-12-17 22:55:52

Hello, good evening everyone!
GMX excuse the delay in replying, was away.
So is giving error at line 32 - Parse Error. 'return str'

I tried to make some minor modifications, but could not find the error.
he simply does not return the var str.

what can it be??

his reasoning was already perfect, managed to discover the trick. thank you very much, but still need help to resolve this error.
thank you very much.

GMX · Post by **GMX** » 2010-12-18 20:31:08

Sorry. Was drunk.

There were too many brackets. ))
Fixed:

Code: Select all

sub GetStrNum()
    var strN=0
    var i=0   
    for i=1 to 50 
        if GetWord(uo.LastGump('command',i), 2)=='60' and GetWord(uo.LastGump('command',i), 3)=='520' then
            strN=val(GetWord(uo.LastGump('command',i), 5))
        endif
    next
    return strN
endsub

Try.

brazil · Post by **brazil** » 2010-12-19 08:35:18

oops! there!
thanks for the help these days my friend, many thanks to you.
can be sure that Brazil had a lot of my shard that kept an eye on this topic just to get the script too ..

the script only works when the option in March:
Version: 3.0.0 the injection. but game client 5.
without this option checked the infogump antimacro out of reset, with nothing ..

one more question, the staffs / admins of the shards, it is possible they discover you are using the injection?? There is something in this genre??
just use the injection, no need to run script or anything, just using the same wizard.

GMX · Post by **GMX** » 2010-12-19 09:17:11

Well, in theory it's possible, as I know. Cause there're "resends" in injection, which are not supposed to be in "clear" client. But I don't know this for sure.

brazil · Post by **brazil** » 2010-12-19 15:11:42

GMX, once again many thanks for the help. It worked here the macro without any error. If I need some other time, I can count on you again?

Thanks!

GMX · Post by **GMX** » 2010-12-19 15:55:58

Post your questions this board. Here are almost always somebody to answer the question (if this question isn't stupid

)

brazil · Post by **brazil** » 2010-12-19 18:03:00

more of course! can leave.
Moreover, I have several macros injection here will be a good idea to put them? scripts are simple, but helps a lot. there you change for every need.

Yoko

I need a hyper Help! / Мне нужно гипер Помогите!

I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!

Re: I need a hyper Help! / Мне нужно гипер Помогите!