вот старый антимакрос... помогите плиз его исправить
Code:
sub antimacro()
while not uo.Dead()
if uo.LastGump('replyed') == 0 then
if uo.LastGump('text', 1) == 'Я тута и нет у меня никакого макроса!' then
uo.LClick(uo.LastGump('x')+30, uo.LastGump('y')+82+40*Solve1())
wait(1000)
end if
if uo.LastGump('text', 2) == 'Я тута и нет у меня никакого макроса!' then
uo.LClick(uo.LastGump('x')+30, uo.LastGump('y')+82+40*Solve2())
wait(1000)
end if
end if
wait(100)
wend
end sub
sub Solve1()
var index = 0
while Right(uo.LastGump('command', 9+2*index), 1) <> '1'
index = index+1
wend
return index
end sub
sub Solve2()
var index = 0
while Right(uo.LastGump('command', 9+2*index), 1) <> '2'
index = index+1
wend
return index
end sub