Yoko

sub Begging() 
var count=0 
uo.print('totem') 
uo.exec('addobject TOT') 
uo.Exec('terminate Reconnector') 
uo.Exec('exec Reconnector') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
repeat 
uo.waittargetobject('TOT') 
UO.Useskill('Begging')    
wait(11000) 
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 Begging() 
var count=0 
uo.print('totem') 
uo.exec('addobject TOT') 
uo.Exec('terminate Reconnector') 
uo.Exec('exec Reconnector') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
repeat 
uo.waittargetobject('TOT') 
UO.Useskill('Begging')    
wait(11000) 
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 Begging') 
           UO.Exec('exec Begging') 
           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