Anti Macross [Need Help] End & Ru

[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] ****

[enamy]

Up

[Grin]

1. Установить фокус на поле ввода если его нет.
2. Очистить поле ввода (chr(8))
3. Заполнить поле ввода (say(code))

ну и uo.LastGump(...)

[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

Теоретически так, но имхо - навярняка где-нибудь напутал... Гампы зло

[enamy]

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

[Grin]

Code: Select all

 for i = 0 to 3
uo.say( chr( 8 ) )
wait(400)
next 

Очень странно... или слишком быстро приходят клавиши или фокус пропадает с поля ввода...

[Destruction]

Интересно...

а так не прокатит, я писал - сомневался:

Code: Select all

uo.say( chr(8) + chr(8) + chr(8) + chr(8) )

? Если прокатит - налицо сокращение скрипта на 3 строки

[Grin]

прокатит

[enamy]

Vse rabotaet, spasibo parni