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/