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

Help me with this anti macro.
http://forum.yoko.com.ua/viewtopic.php?f=16&t=14701		 Page 1 of 1
Author:  Zamber [ 2009-04-14 02:05:15 ]
Post subject:  Help me with this anti macro.
Can someone help me to bypass this macro check?
Image
i'd be very thankfull if someone could help me.
thx in advance
Author:  Destruction [ 2009-04-14 05:17:24 ]
Post subject: 
very easy, if i correct..

1. Press okay in gump window.
2. Use ,infogump command.
3. Copy infogump report to this topic.
Author:  DreadLord [ 2009-04-14 21:26:41 ]
Post subject: 
Как определить положение гампа если ,infogump всегда показывает
Code:
X   0
Y   0

и на антимакросы и на простые гампы?
Author:  Андрюха из Одессы [ 2009-04-14 22:30:39 ]
Post subject: 
Самый тупой способ, который я использовал - это на пилоте, раз в минуту, макрос нажатия координат (пилоту до лампочки уошные координаты). И добывающим макросам он не вредит.

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.
Author:  DreadLord [ 2009-04-15 09:20:13 ]
Post subject: 
Если 2 клика попадет на предмет, то он автоматом юзается.
Author:  Zamber [ 2009-04-15 19:13:06 ]
Post subject: 
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 время от времени ... Будем ждать.
Author:  Zamber [ 2009-04-21 02:54:07 ]
Post subject: 
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

Заранее благодарим вас за вашу помощь, ребята
Author:  Zamber [ 2009-04-22 20:41:47 ]
Post subject: 
Still not Working :(
Author:  Destruction [ 2009-04-23 17:23:21 ]
Post subject: 
Gump position is fixed or random ?

Post full screenshot and infogump.
Author:  Zamber [ 2009-04-23 20:04:26 ]
Post subject: 
It's Random
the info gump, is that one on the previous msgs
Author:  Destruction [ 2009-04-24 06:56:20 ]
Post subject: 
sorry, full screenshot and full infogump.
Author:  Zamber [ 2009-04-27 00:45:55 ]
Post subject: 
Destruction, is this what you need?
Image
Code:

_____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)
Author:  Zamber [ 2009-06-05 18:17:19 ]
Post subject: 
anyone?
Author:  DreadLord [ 2009-06-15 20:10:21 ]
Post subject: 
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/