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: Select all
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: Select all
_____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