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

Поделитесь, пожалуйста, скриптом на auto logon.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=606		 Page 1 of 1
Author:  GauSS [ 2004-06-19 15:59:36 ]
Post subject:  Поделитесь, пожалуйста, скриптом на auto logon.
Поиск по форума и архиву не дал результатов.
Author:  Psimorph [ 2004-06-19 18:32:01 ]
Post subject:  Re: Поделитесь, пожалуйста, скриптом на auto logon.
Code:
sub Reconnector() 
    var ReconnectTime, RFlag 
    ReconnectTime = '0' 
    RFlag = 1 
    Repeat 
          While (UO.ObjAtLayer('Bpack') == '') 
                if RFlag Then 
                   ReconnectTime = MakeTime() 
                   RFlag = 0 
                endif 
                Wait(20000) # WorldSave Protection 
                UO.Say('') 
                Wait(3000) 
                UO.Say('') 
                Wait(3000) 
                UO.Say('') 
                Wait(3000) 
                UO.LDblClick(357,164) 
                UO.LClick(616,459) 
                Wait(3000)        
          WEnd 
          Wait(3000) 
          if (RFlag == 0) and (ReconnectTime <> '0') Then 
             UO.Exec('terminate main') 
             UO.Exec('exec main') 
             UO.TextOpen() 
             UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
             RFlag = 1 
             ReconnectTime = '0' 
          endif 
    Until false 
end sub 

sub MakeTime() 
   VAR D, T, Ret, i 
   Ret = STR(UO.Time()) 
   T = "" 
   For i = 0 To Len(Ret) 
      T = Ret[Len(Ret)-i] + T 
      If (I == 2) OR (I == 4) Then 
         T = ":" + T 
      EndIf 
   Next 
   Ret = STR(UO.Date()) 
   D = "" 
   For i = 0 To Len(Ret) 
      D = Ret[Len(Ret)-i] + D 
      If (I == 2) OR (I == 4) Then 
         D = "." + D 
      EndIf 
   Next    
   Ret = T + " @ " + D 
   RETURN Ret 
end sub


totus. (c)
Author:  Psimorph [ 2004-06-19 18:34:57 ]
Post subject:  Re: Поделитесь, пожалуйста, скриптом на auto logon.
А вот так его запускать
Code:
UO.TextOpen()
UO.TextPrint('Script Started: '+MakeTime())
UO.Exec('terminate Reconnector') 
UO.Exec('exec Reconnector')
Author:  GauSS [ 2004-06-20 07:52:13 ]
Post subject: 
Спасибо огромное, вроде даже работает =)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/