sub main()
UO.Exec('terminate Reconnector') 
wait(100) 
UO.Exec('exec Reconnector')
repeat
uo.useskill('Forensic Evaluation') 
uo.waittargetobject('0x40008D53') # id труп куклы каторый валется на многих серваках
wait(4000) 
until uo.dead() 
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(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 foren()
   While NOT UO.Dead()
      UO.FindType('0x2006',-1,'ground')
      If UO.FindCount() Then
         If UO.GetDistance('finditem')>3 Then
            SuperWalk(0,0,'finditem')
         EndIf
         UO.WaitTargetObject('finditem')
         UO.UseSkill('Forensic Evaluation')
         wait(3000)
      Else
         wait(10000)
      Endif
   Wend
end sub