Help using GUMP

[DogStyle]

hi there.

i need some help to make a script. this script has to answer a kind of macro check. and they use gump for it. by the way, injection can answer it. i guess.


GUMPINFO 1:

First we have to click on it:
_____infogump_______
serial 0x01361d63
gumpid 0x0008b297
X 0
Y 0
107 packet size
0 reply packet size
Buttons: ________
page 0
1 [ 1] image=0x1582 at 3:67
Checks&Radios: __
Entryes: ________
All commands: ____
1] NoClose
2] button 3 67 5505 5506 1 0 1
3] text 0 126 38 0
Text: ____________
0] Anti Macro

IMG GUMP1:


GUMP INFO 2:
and then comes the numbers that we have to write.

_____infogump_______
serial 0x01361d63
gumpid 0x0008b297
X 0
Y 0
336 packet size
0 reply packet size
Buttons: ________
page 0
1 [ 31] image=0x0851 at 120:190
Checks&Radios: __
Entryes: ________
All commands: ____
1] noclose
2] resizepic 50 50 2620 200 200
3] text 60 75 900 1
4] text 60 60 900 0
5] text 100 95 900 2
6] resizepic 70 130 3000 150 20
7] TextEntry 70 130 150 20 900 1 3
8] button 120 190 2130 2129 1 0 31
Text: ____________
0] Tentativas: 1
1] Digite os numeros abaixo:
2] { 0, 0, 3 }
3] { 0, 0, 3 }


IMG GUMP 2:

I will try to explain ( my english is not so good).

First you hacve to click to open the MACRO CHECK.

now you have write the numbers and click OK to answer.

Help me plz

[Grin]

What does need to do in second gump? Choose one of digit in "{}" or something else?
And this antimacro have already soleved. Try to search.

[DogStyle]

first of all you have to click on this ball...

now you have to write all numbers between " { } " but sometimes its not only
three (3) numbers, sometimes is four(4) or five(5).


thx for your help

[Grin]

Code: Select all

sub Solve()

	var code = ""
	var line = ""
	var i = 0
	
	if not uo.LastGump('replyed') then
		if uo.LastGump('text', 0) == 'Anti Macro' then
			uo.LClick(3, val(Left(uo.LastGump('button', 0), 3)))
			repeat
				wait(1000)
			until uo.LastGump('replyed', 0)
			return 1
		else
			if uo.LastGump('text', 1) == 'Digite os numeros abaixo:' then
				line = uo.LastGump('text', 2)
				for i = 0 to int(len(line)/3)-1
					code = code+line[2+i*3]
				next
				uo.Say(code)
				wait(1000)
				line = Right(uo.LastGump('button', 0), 7)
				uo.LClick(val(Left(line, 3)), val(Right(line, 3)))
				repeat
					wait(1000)
				until uo.LastGump('replyed', 0)
				return 2
			end if
		end if
	endif
	
end sub

If first gump apear it's do click and return 1
second enter numbers (is TextEntry clear?) then click and return 2
if nothing return 0

[DogStyle]

its not working. macro cant click on the right place...

the first click is wrong. hits the top left of the window.


O.O

[DogStyle]

i click by my self, and didnt happen anything. macro still running until i answer by my self.

[Grin]

What is your shard?
Give me address

[DogStyle]

my shard is this one:

www.uochaos.com.br

it is in portuguese :/

[DogStyle]

and remember.... as i said. sometimes is not only three numbers..

cometimes is four or five. the minimum is three.


:/ its not working