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

Script fo Anti Macro
http://forum.yoko.com.ua/viewtopic.php?f=17&t=13261		 Page 1 of 1
Author:  surupimpuapua [ 2008-02-17 20:13:58 ]
Post subject:  Script fo Anti Macro
Hi there.

i already have a script for AM, but i m playing in another server which has the same AM system, well, quite same. see bellow how it works.

------------------------------------------------
The Script.

Code:
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

sub Antimacro()
inicio:
uo.press(118)
if uo.LastGump('text') == 'Anti Macro' then
uo.LClick(3, val(GetWord(uo.LastGump('command', 1), 3)))
goto responder
endif
goto inicio
responder:
if uo.LastGump('text',1) == 'Digite os numeros abaixo:' then 
uo.LClick(70, 130) 
wait(2000) 
uo.say(ArrayToString(uo.LastGump('text', 2))) 
wait(2000) 
uo.LClick(120, 190)
goto inicio
endif
goto responder
endsub

-----------------------------------------------------------
New Server gump information:

Code:
_____infogump_______
serial   0x027f3efd
gumpid   0x0010477d
X   0
Y   0
429   packet size
0   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>      { 2, 7, 2 }<br><br><br><br><br>Precisa de Ajuda ? Clique aqui
    1] Tentativas: 1<br>Digite os numeros abaixo:<br>      { 2, 7, 2 }<br><br><br><br><br>Precisa de Ajuda ? Clique aqui


i dont know where i have to change to make this work again.

if u need more information tell me.

thx
Author:  Grin [ 2008-02-17 20:25:27 ]
Post subject: 
viewtopic.php?p=71366#71366
Author:  surupimpuapua [ 2008-02-17 20:36:17 ]
Post subject: 
thx grin for ur attention but your script is not working... try to fix this one if u could.

thx
Author:  surupimpuapua [ 2008-02-18 22:59:16 ]
Post subject: 
anyone?
Author:  Grin [ 2008-02-18 23:36:14 ]
Post subject: 
noone... all what u need to understand my post... all information is there...
Author:  maxximuss [ 2009-03-23 04:16:41 ]
Post subject:  Eu tenho (i have)
eu tenho este anti anti macro para a Mystic The Chaos Age
(i have that anti anti macro for a mystic the chaos age)
www.mystic.com.br

Msn: Ch4polin@hotmail.com
yahoo: Robao_Noel

Valor 2kk
(Price 2kk)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/