Yoko

Code: Select all

sub kukl()
   VAR kukl = '0x1070' #Тип куклы
   uo.Exec('terminate Reconnector')
   wait(1000)
   uo.Exec('exec Reconnector')
   wait(1000)
   while not uo.dead()
      UO.UseFromGround(kukl)
      wait(5000)
   wend
end sub

Sub Reconnector()
   var ReconnectTime, RFlag
   ReconnectTime = '0'
   RFlag = 1
   Repeat
      While (uo.ObjAtLayer('Bpack') == '')
         if RFlag Then
            ReconnectTime = MakeTime()
            RFlag = 0
         endif
         Wait(70000) # WorldSave Protection
         uo.Say('')
         Wait(5000)
         uo.Say('')
         Wait(5000)
         uo.Say('')
         Wait(5000)
         uo.LDblClick(357,164)
         uo.LClick(616,459)
         Wait(5000)
      Wend
      Wait(3000)
      if (RFlag == 0) and (ReconnectTime <> '0') Then
         uo.TextOpen()
         uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
         uo.useobject('self')
         wait(2000)
         uo.useobject('backpack')
         wait(2000)
         uo.Exec('terminate kukl')
         wait(5000)
         uo.Exec('exec kukl')
         wait(5000)
         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

last object na uoloop