Yoko

Code: Select all

sub Train_Healing() 
var i,j,tekstr
uo.undress() 
wait(100)
repeat
   UO.FindType(0x0E21,"-1","my") 
   if UO.FindCount() then 
      tekstr=uo.str
      wait(100)
      cheklag()
      uo.usetype(0x1F00); Cursed Hat 
      uo.useskill ("Spirit Speak") 
      wait(2000)
      j=0
      repeat
         wait(10)
         j=j+1
      until (uo.life <= tekstr-1) or (j>1000)
      cheklag()
      uo.undress() 
      wait(100)
      cheklag()
      uo.exec('bandageself') 
      Wait(2000) 
   else 
      UO.FindType(0x0E20,"-1","my") 
      if UO.FindCount() then 
         cheklag()
         uo.waittargettype(0x1008)   # wash basin 
         uo.UseType(0x0E20)   #bloody bandages 
      else 
         cheklag()
         uo.print("You haven't bandages") 
         uo.exec("terminate Train_Healing") 
         Play_Sound(1) 
      endif 
   endif 
until uo.dead()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub

Code: Select all

sub hill() 
   var exit, LastTimer, live 
   var Reconnect=1 ; добавлено мной 

   if Reconnect==1 then ; добавлено мной 
   uo.Exec('exec Reconnect') ; добавлено мной 
   end if ; добавлено мной 

   uo.disarm() 
   wait(2000) 
   exit = 0 
   while exit <> 1 
      live = UO.STR 
      CheckLag() 
      uo.waittargettype ('0x1008') 
      uo.usetype ('0x0E20') 
      wait(500) 
      uo.usetype('0x0E85') ;kursnutaja kirka 
    
     uo.useskill('Spirit Speak') 

      repeat 
         wait(500) 
      until UO.Life < live 
      CheckLag() 
    
      LastTimer=UO.Timer() 

      repeat 
         UO.BandageSelf() 
         wait(4000) 
      until UO.Life==UO.STR OR LastTimer+300<UO.Timer() 
   wend 
   end sub 

Code: Select all

sub Train_Healing()
var i
while True
   UO.FindType(0x0E21,"-1","my")
   if UO.FindCount() then
      uo.usetype(0x1718); Cursed Hat
      CheckLag()
      if i==3 or not i then
         Spirit() #----
         i=1
      else
         i=i+1
      endif
#      uo.useskill ("Spirit Speak")
         wait(2000)
      uo.undress()
      wait(100)
      uo.exec('bandageself')
      Wait(2000)
   else
      UO.FindType(0x0E20,"-1","my")
      if UO.FindCount() then
         uo.waittargettype(0x1008)   # wash basin
         uo.UseType(0x0E20)   #bloody bandages
         CheckLag()
      else
         uo.print("You haven't bandages") 
         uo.exec("terminate Train_Healing")
         Play_Sound(1)
      endif
   endif
wend
end sub

Code: Select all

 var Reconnect=1 ## 1 - Включить реконнект на сферу при дисконнекте, 0 - выключить.


sub Train_Healing() 
var i 

if Reconnect==1 then
uo.Exec('exec Reconnect')
end if

while True 
   UO.FindType(0x0E21,"-1","my") 
   if UO.FindCount() then 
      uo.usetype(0x1718); Cursed Hat 
      CheckLag() 
      if i==3 or not i then 
         Spirit() #---- 
         i=1 
      else 
         i=i+1 
      endif 
#      uo.useskill ("Spirit Speak") 
         wait(2000) 
      uo.undress() 
      wait(100) 
      uo.exec('bandageself') 
      Wait(2000) 
   else 
      UO.FindType(0x0E20,"-1","my") 
      if UO.FindCount() then 
         uo.waittargettype(0x1008)   # wash basin 
         uo.UseType(0x0E20)   #bloody bandages 
         CheckLag() 
      else 
         uo.print("You haven't bandages") 
         uo.exec("terminate Train_Healing") 
         Play_Sound(1) 
      endif 
   endif 
wend 
end sub

sub Reconnect() 
var reconnectTime, rFlag 
reconnectTime = '0' 
rFlag = 1 
repeat 
while (uo.ObjAtLayer('Bpack') == '') 
if rFlag then 
reconnectTime = MakeTime() 
rFlag = 0 
endif 
wait(20000) ## - WorldSave. 
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.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