Yoko

sub Reconnect()
   var ReconnectTime,rFlag
   ReconnectTime='0'
   rFlag=1
   repeat
      while (UO.ObjAtLayer('Bpack')=='')
         if rFlag then
            ReconnectTime=MakeTime()
            rFlag=0
         end if
         wait(20000)
         UO.Say('') ;
         wait(3000)
         UO.Say('Login') ; Login
         wait(3000)
         UO.Say('Password') ; Password
         wait(3000)
         UO.LDblClick(357,164)
         UO.LClick(616,459)
         wait(3000)
      wend
      wait(3000)
      if (rFlag==0) and (ReconnectTime<>'0') then
         UO.TextOpen()
         UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
         rFlag=1
         ReconnectTime='0'
      end if
   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