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.
Мне нужно, чтобы помочь скрипт для этой проверки, и выбрать правильный.
Можете ли вы помочь?
Спасибо.
Quote:
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
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
Quote:
_____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 }
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 }
There were too many brackets. )) 
)