Yoko

Posted: **2008-02-11 15:46:16**

Here is a simple Gump.

_____infogump_______ 
serial   0x027ee33d 
gumpid   0x00049b74 
X   0 
Y   0 
429   packet size 
33   reply packet size 
Buttons: ________ 
 page 0 
    1 [    2] image=0x0851 at 115:160 
Checks&Radios: __ 
Entryes: ________ 
All commands: ____ 
    1] noclose 
    2] resizepic 40 50 3500 200 150 
    3] HtmlGump 55 75 280 60 0 0 0 
    4] resizepic 70 130 3000 150 20 
    5] TextEntry 70 130 150 20 900 3 1 
    6] button 115 160 2130 2129 1 0 2 
Text: ____________ 
    0] Tentativas: 1<br>Digite os numeros abaixo:<br>      { 9, 9, 4 }<br><br><br><br><br>Precisa de Ajuda ? Clique aqui 
    1] Tentativas: 1<br>Digite os numeros abaixo:<br>      { 9, 9, 4 }<br><br><br><br><br>Precisa de Ajuda ? Clique aqui 
Reply: ___________ 
 [0002] primary reply 
 Checks&Radios (0) 
 Entryes (1) 
  [0003] 994 
0000: 39 39 34 -- -- -- -- -- -- -- -- -- -- -- -- -- : 994

What i have to do is, get the values 9 9 4 from the texts (dont know how to get em, since they can be 3, 4 or 5 values, write em in the textentry, witch is simple, then press ok witch is simple too... I Just donw know how i get those values, can be 3 4 5 numbers, and the numbers are randomly shown.

Posted: **2008-02-11 16:37:07**

Code: Select all

T  e  n  ... {     9  ,     9  ,     4     }  <...
00 01 02 ... 52 53 54 55 56 57 58 59 60 61 62 63 ...

Code: Select all

sub GetSNum(s)
	
	var l = 54
	var snum = ''
	
	while s[l] <> '<'
		l = l+3
		snum = snum+s[l]
	wend
	
	return snum

end sub

Posted: **2008-02-11 17:12:45**

Text 0 [54] would be the first number ? could you explain a little, i understand a little bit if how u could do this.

Posted: **2008-02-11 17:22:52**

Code: Select all

sub test()

	uo.Print(GetSNum(uo.LastGump('text', 0)))

end sub

Will print 994

All need are understand GetSNum and use it... no need to change it...

Posted: **2008-02-11 21:54:24**

I undertand, thanx, it works, but when 3 numbers only. Sometimes 4 numbers, sometime 5 numbers...how could i make this ? Would i need to LEN from { to } ?

Posted: **2008-02-11 22:13:57**

are u test it with 4 numbers?

Posted: **2008-02-11 22:26:19**

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(Right(uo.LastGump('button', 0), 3))) 
         repeat 
            wait(1000) 
         until uo.LastGump('replyed', 0) 
         return 1 
      endif
    
            code = GetSNum(uo.LastGump('text', 0))
            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 
   endif 
    
end sub

sub GetSNum(s) 
    
   var l = 54 
   var snum = '' 
    
   while s[l] <> '<' 
      l = l+3 
      snum = snum+s[l] 
   wend 
    
   return snum 

end sub

Not working, im not too good at this, probably something wrong.

This :

if not uo.LastGump('replyed') then
if uo.LastGump('text', 0) == 'Anti Macro' then
uo.LClick(3, val(Right(uo.LastGump('button', 0), 3)))
repeat
wait(1000)
until uo.LastGump('replyed', 0)
return 1
endif

is because you click "Antimacro" before u put numbers.

Posted: **2008-02-11 22:47:24**

only answer to my questions...
GetSNum work correct with 4 and 5 numbers?

Posted: **2008-02-12 12:43:56**

I Dont know, i couldnt fit it into a script to test it. Im no good programmer yet, i couldnt make ur Sub into an antimacro complete script. Could you help ?

Posted: **2008-02-12 19:57:43**

Code: Select all

sub test() 

   uo.Print(GetSNum(uo.LastGump('text', 0))) 

end sub

sub GetSNum(s) 
    
   var l = 54 
   var snum = '' 
    
   while s[l] <> '<' 
      l = l+3 
      snum = snum+s[l] 
   wend 
    
   return snum 

end sub

test it...///...///...///...

Posted: **2008-02-13 13:45:21**

4 numbers : 1 2 3 4 he say 1 2 3 <

3 numbers 1 2 3 he say < 2 3

Posted: **2008-02-13 14:17:24**

Code: Select all

sub test() 

   uo.Print(GetSNum(uo.LastGump('text', 0))) 

end sub 

sub GetSNum(s) 
    
   var l = 54 
   var snum = '' 
    
   while s[l] <> '<' 
      snum = snum+s[l]
      l = l+3
   wend 
    
   return snum 

end sub

give shard adress and when is antimacro appear?

Posted: **2008-02-13 20:49:29**

didnt work... here's 2 Screenshots:

second one is whan I clicked the gump... you have to click the textfield and write those numbers.. any ideas?

Posted: **2008-02-13 21:10:04**

Code: Select all

sub Solve()

	var code = ""
	var line = ""
	var i = 54
	
	if not uo.LastGump('replyed') then
		line = uo.LastGump('text', 0)
		if line == 'Anti Macro' then
			uo.LClick(3, val(Right(uo.LastGump('button', 0), 3)))
			repeat
				wait(1000)
			until uo.LastGump('replyed', 0)
			return 1
		else
			if Left(line, 10) == 'Tentativas' then
				while line[i] <> '<'
					code = code+line[i]
					i = i+3
				wend
				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

Posted: **2008-02-17 20:35:24**

still not working....

see topic:

https://yoko.uokit.com/viewtopic.php?p=71592#71592

Posted: **2008-02-19 19:28:15**

something has changed ... when antimacro button appears on top left of screen.. it`s not clicking the right place... dont know why.. any tips?

Posted: **2008-02-19 19:30:57**

infogump of first gump...

Posted: **2008-02-19 20:42:21**

ани типс... тормоза

Posted: **2008-02-19 21:12:11**

I fixed it myself...

Posted: **2008-02-19 21:36:49**

good:)

Yoko

New (hopefully last) Gump Solving.

New (hopefully last) Gump Solving.