Recconector

[Kazoo]

все работает ! авто сеив пасворд должен быть вклученым

Code: Select all

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('acountname')
               Wait(3000)
               UO.Say('password')
               Wait(3000)
               UO.Say('nickname')
               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

[Fenx]

А если при реконнекте ижект говорит что не тот пасс, а при этом в поле пасса звёздочек в 2 раза больше чем должно быть, что делать?

[Kazoo]

зделай саве пассворд !
и сотри там где ацц пасс и чар и все пойдет !

[Fenx]

ОК, всё запохало)))

[Kazoo]

я рад =)

[totus]

Можно, как минимум, оставлять копирайты.
Скрипт мой.
Я его выкладывал только на http://www.uo.od.ua/board
В оригинале вообще выглядит так:

Code: Select all

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