Yoko

Code: Select all

sub main()
UO.Exec('terminate Reconnector')
  UO.Exec('exec Reconnector')
  wait(5000)

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

Code: Select all

exec('exec script')

Code: Select all

sub autostart()
...
end sub