Ultima Online Antares

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('111'); <------- Между кавычек вместо 111 прописать свой пароль
         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.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
      end if
   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
      end if
   next
   ret=t+" @ "+d
   return ret
end sub