Page 1 of 1
Anti Macross [Need Help] End & Ru
Posted: 2008-05-21 10:07:08
by enamy
Kto nibutj mogit zdelatj AM dlia etava gampa?
Code: Select all
_____infogump_______
serial 0x40033222
gumpid 0x00000408
X 100
Y 100
279 packet size
0 reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
1] esizepic 0 0 3500 333 11
2] ext 99 7 1152
3] ext 35 48 32
4] ext 78 77 152
5] ext 35 77 1152
6] extentry 150 48 253 25 1152 1
7] utton 250 77 2311 2312 1 1
Text: ____________
0] Fix macros sys
1] Enter code :
2] 1172
3] Code :
4] ****
Posted: 2008-05-26 08:26:41
by enamy
Up
Posted: 2008-05-26 13:47:42
by Grin
1. Установить фокус на поле ввода если его нет.
2. Очистить поле ввода (chr(8))
3. Заполнить поле ввода (say(code))
ну и uo.LastGump(...)
Posted: 2008-05-26 16:28:22
by Destruction
Code: Select all
sub antimacro()
var i
repeat
if uo.lastgump( "replyed" ) == 0 && uo.lastgump( "gumpid" ) == "0x00000408" then
uo.lclick( 255, 150 )
for i = 0 to 3
uo.say( chr( 8 ) )
next
uo.say( uo.lastgump( "text", 2 ) )
uo.lclick( 355, 180 )
while uo.lastgump( "replyed" ) == 0
wait( 50 )
wend
endif
wait( 100 )
until false
endsub
Теоретически так, но имхо - навярняка где-нибудь напутал... Гампы зло
Posted: 2008-05-27 13:46:33
by enamy
Destruction wrote:sub antimacro()
var i
repeat
if uo.lastgump( "replyed" ) == 0 && uo.lastgump( "gumpid" ) == "0x00000408" then
uo.lclick( 255, 150 )
for i = 0 to 3
uo.say( chr( 8 ) )
next
uo.say( uo.lastgump( "text", 2 ) )
uo.lclick( 355, 180 )
while uo.lastgump( "replyed" ) == 0
wait( 50 )
wend
endif
wait( 100 )
until false
endsub
Теоретически так, но имхо - навярняка где-нибудь напутал... Гампы зло
Vse vrode ok toka on steraet toka odnu *... tri ise ostajotsa
Posted: 2008-05-27 14:01:37
by Grin
Code: Select all
for i = 0 to 3
uo.say( chr( 8 ) )
wait(400)
next
Очень странно... или слишком быстро приходят клавиши или фокус пропадает с поля ввода...
Posted: 2008-05-27 14:50:57
by Destruction
Интересно...
а так не прокатит, я писал - сомневался:
Code: Select all
uo.say( chr(8) + chr(8) + chr(8) + chr(8) )
? Если прокатит - налицо сокращение скрипта на 3 строки
Posted: 2008-05-27 15:18:37
by Grin
прокатит
Posted: 2008-05-27 16:06:42
by enamy
Vse rabotaet, spasibo parni