ktota mozhet pomoch etot skript nastroit' pod menja? skript vzat' ot suda
http://forum.yoko.com.ua/viewtopic.php?t=12991&highlight=anti, tam u cheloveka pohozhij antimakro. Ochen nado, pomagite.
Code:
sub Solve()
var code = ""
var line = ""
var i = 0
button 3 359
if not uo.LastGump('replyed') then
if uo.LastGump('text', 0) == 'AFK Check' then
uo.LClick(3, val(Right(uo.LastGump('button', 0), 3)))
repeat
wait(1000)
until uo.LastGump('replyed', 0)
return 1
else
if uo.LastGump('text', 0) == 'AFK Check:' then
line = uo.LastGump('text', 1)
for i = 0 to int(len(line)/3)-1
code = code+line[2+i*3]
next
uo.Say(code)
wait(1000)
line = Right(uo.LastGump('button', 0), 7)
uo.LClick(val(Left(line, 3)), val(Right(line, 3)))
repeat
wait(1000)
until uo.LastGump('replyed', 0)
return 2
end if
end if
endif
end sub