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