Yoko
http://forum.yoko.com.ua/

New (hopefully last) Gump Solving.
http://forum.yoko.com.ua/viewtopic.php?f=17&t=13227		 Page 1 of 2
Author:  SmokeHemp [ 2008-02-11 15:46:16 ]
Post subject:  New (hopefully last) Gump Solving.
Here is a simple Gump.

Code:
_____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.
Author:  Grin [ 2008-02-11 16:37:07 ]
Post subject: 
Code:
T  e  n  ... {     9  ,     9  ,     4     }  <...
00 01 02 ... 52 53 54 55 56 57 58 59 60 61 62 63 ...


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

end sub
Author:  SmokeHemp [ 2008-02-11 17:12:45 ]
Post subject: 
Text 0 [54] would be the first number ? could you explain a little, i understand a little bit if how u could do this.
Author:  Grin [ 2008-02-11 17:22:52 ]
Post subject: 
Code:
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...
Author:  SmokeHemp [ 2008-02-11 21:54:24 ]
Post subject: 
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 } ?
Author:  Grin [ 2008-02-11 22:13:57 ]
Post subject: 
are u test it with 4 numbers?
Author:  SmokeHemp [ 2008-02-11 22:26:19 ]
Post subject: 
Code:
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.
Author:  Grin [ 2008-02-11 22:47:24 ]
Post subject: 
only answer to my questions...
GetSNum work correct with 4 and 5 numbers?
Author:  SmokeHemp [ 2008-02-12 12:43:56 ]
Post subject: 
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 ?
Author:  Grin [ 2008-02-12 19:57:43 ]
Post subject: 
Code:
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...///...///...///...
Author:  SmokeHemp [ 2008-02-13 13:45:21 ]
Post subject: 
4 numbers : 1 2 3 4 he say 1 2 3 <

3 numbers 1 2 3 he say < 2 3
Author:  Grin [ 2008-02-13 14:17:24 ]
Post subject: 
Code:
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?
Author:  courtney [ 2008-02-13 20:49:29 ]
Post subject: 
didnt work... here's 2 Screenshots:

Image



Image

second one is whan I clicked the gump... you have to click the textfield and write those numbers.. any ideas?
Author:  Grin [ 2008-02-13 21:10:04 ]
Post subject: 
Code:
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
Author:  surupimpuapua [ 2008-02-17 20:35:24 ]
Post subject: 
still not working....


see topic:

viewtopic.php?p=71592#71592
Author:  courtney [ 2008-02-19 19:28:15 ]
Post subject: 
something has changed ... when antimacro button appears on top left of screen.. it`s not clicking the right place... dont know why.. any tips?
Author:  Grin [ 2008-02-19 19:30:57 ]
Post subject: 
infogump of first gump...
Author:  Grin [ 2008-02-19 20:42:21 ]
Post subject: 
ани типс... тормоза :)
Author:  courtney [ 2008-02-19 21:12:11 ]
Post subject: 
I fixed it myself...
Author:  Grin [ 2008-02-19 21:36:49 ]
Post subject: 
good:)
Page 1 of 2 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/