Help me with this anti macro.

[Zamber]

Can someone help me to bypass this macro check?

i'd be very thankfull if someone could help me.
thx in advance

[Destruction]

very easy, if i correct..

1. Press okay in gump window.
2. Use ,infogump command.
3. Copy infogump report to this topic.

[DreadLord]

Как определить положение гампа если ,infogump всегда показывает

Code: Select all

X   0
Y   0

и на антимакросы и на простые гампы?

[Андрюха из Одессы]

Самый тупой способ, который я использовал - это на пилоте, раз в минуту, макрос нажатия координат (пилоту до лампочки уошные координаты). И добывающим макросам он не вредит.

You should use UO Pilot. The macro of pressing of co-ordinates of the button "okay" is necessary to you.
To translate the text, I used www.translate.ru. Excuse, if it is badly translated.

[DreadLord]

Если 2 клика попадет на предмет, то он автоматом юзается.

[Zamber]

the only problem, is that i haven't been macro checked yet, since that time.
i even tryed to make a macro to do infogump from time to time... let's wait.

на русском языке:
единственная проблема заключается в том, что я еще не был проверен еще макро, с того времени.
Я даже tryed сделать макрос сделать infogump время от времени ... Будем ждать.

[Zamber]

finally, here's the infogump, and plus what i wrote.

Наконец, вот в infogump, и плюс то, что я написал.


_____infogump_______
serial 0x000166e2
gumpid 0x0053242b
X 0
Y 0
418 packet size
0 reply packet size
Buttons: ________
page 0
1 [ 1] image=0x0851 at 640:603
Checks&Radios: __
Entryes: ________
All commands: ____
1] page 0
2] noclose
3] nomove
4] nodispose
5] gumppic 560 493 2500
6] button 640 603 2128 2129 1 0 1
7] text 595 518 995 0
8] tex

What i Wrote:

sub AntiMacro()
var line
repeat
if not uo.lastgump('replyed') && uo.lastgump('text',0) == 'This is a check for' then
line = Right(uo.LastGump('button', 1), 7)
wait(2000)
uo.LClick(val(Left(line, 3)), val(Right(line, 3)))
repeat
wait(100)
until uo.lastgump('replyed')
endif
wait(500)
until false
endsub


Thanks in advance for your help guys

Заранее благодарим вас за вашу помощь, ребята

[Zamber]

Still not Working

[Destruction]

Gump position is fixed or random ?

Post full screenshot and infogump.

[Zamber]

It's Random
the info gump, is that one on the previous msgs

[Destruction]

sorry, full screenshot and full infogump.

[Zamber]

Destruction, is this what you need?

Code: Select all

_____infogump_______
serial   0x0001706b
gumpid   0x01c7e89c
X   0
Y   0
418   packet size
23   reply packet size
Buttons: ________
 page 0
    1 [    1] image=0x0851 at 412:351
Checks&Radios: __
Entryes: ________
All commands: ____
    1] page 0
    2] noclose
    3] nomove
    4] nodispose
    5] gumppic 332 241 2500
    6] button 412 351 2128 2129 1 0 1
    7] text 367 266 995 0
    8] text 367 281 995 1
    9] text 367 296 995 2
   10] text 367 311 995 3
   11] text 367 326 995 4
Text: ____________
    0] This is a check for
    1] macroing. You have
    2] 10 minutes to press
    3] 'ok' before you
    4] will be jailed.
Reply: ___________
 [0001] primary reply
 Checks&Radios (0)
 Entryes (0)

[Zamber]

anyone?

[DreadLord]

Code: Select all

sub asd()
VAR x, y
repeat
  if not uo.lastgump('replyed') then
    if uo.lastgump('text', 0) == 'This is a check for' then
      x = val(GetWord(uo.lastgump('command', 6), 2)) + 2
      y = val(GetWord(uo.lastgump('command', 6), 3)) + 2
      uo.lclick(x, y)
    endif
  endif
  wait(1000)
until false
end sub

Sub GetWord(st, nom)
VAR tmpst, i, dlin, kol = 0, start = 0
dlin = len(st)
for i = 0 to dlin - 1
  if mid(st, i, 1) == ' ' || i == dlin - 1 then
    kol = kol + 1
    if kol == nom then
      tmpst = mid(st, start, i - start)
      return tmpst
    else
      while mid(st, i, 1) == ' '
        i = i + 1
      wend
      if kol == nom - 1 then
        start = i
      endif
    endif
  endif
next
tmpst = ''
return tmpst
end sub

note: change this line "val(GetWord(uo.lastgump('command', 6), 2))" to val(GetWord(uo.lastgump('command', 5), 2)) if it will not work