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

Anti Macross [Need Help] End & Ru
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13604		 Page 1 of 1
Author:  enamy [ 2008-05-21 10:07:08 ]
Post subject:  Anti Macross [Need Help] End & Ru
Kto nibutj mogit zdelatj AM dlia etava gampa? :)
Image

Code:
_____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] ****
Author:  enamy [ 2008-05-26 08:26:41 ]
Post subject: 
Up
Author:  Grin [ 2008-05-26 13:47:42 ]
Post subject: 
1. Установить фокус на поле ввода если его нет.
2. Очистить поле ввода (chr(8))
3. Заполнить поле ввода (say(code))

ну и uo.LastGump(...)
Author:  Destruction [ 2008-05-26 16:28:22 ]
Post subject: 
Code:
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


Теоретически так, но имхо - навярняка где-нибудь напутал... Гампы зло :)
Author:  enamy [ 2008-05-27 13:46:33 ]
Post subject: 
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 :(
Author:  Grin [ 2008-05-27 14:01:37 ]
Post subject: 
Code:
 for i = 0 to 3
uo.say( chr( 8 ) )
wait(400)
next

Очень странно... или слишком быстро приходят клавиши или фокус пропадает с поля ввода...
Author:  Destruction [ 2008-05-27 14:50:57 ]
Post subject: 
Интересно...

а так не прокатит, я писал - сомневался:
Code:
uo.say( chr(8) + chr(8) + chr(8) + chr(8) )

? Если прокатит - налицо сокращение скрипта на 3 строки :)
Author:  Grin [ 2008-05-27 15:18:37 ]
Post subject: 
прокатит
Author:  enamy [ 2008-05-27 16:06:42 ]
Post subject: 
Vse rabotaet, spasibo parni :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/