Yoko

Code: Select all

sub bladespirit1()
var spirit = '0x023E', spiritid
while true
   uo.findtype(spirit,-1,'ground')
   if uo.findcount() > 0 then
      spiritid = uo.getserial('finditem')
      uo.warmode(true)
      uo.attack(spiritid)
      wait(5000)
   else
      if uo.gethp() < uo.str then
         uo.bandageself()
         wait(3000)
                        sword()
      endif
   endif
wend
endsub 

sub sword()   ; Одевание щита и оружия
Var Svord='0x13E3' ;Тип оружия, используемый вами
Var Shield='0x1B76' ;Тип оружия, используемый вами
UO.Equipt('Lhand',Shield)
wait(1000)
UO.Equipt('Rhand',Svord)
wait(100)
end sub

Code: Select all

 if uo.gethp() < uo.str then

Code: Select all

 if uo.gethp ('self') < uo.getmaxhp ('self') then

Code: Select all

sub e2()
UO.Exec("set finddistance 15") 
repeat 
UO.FindType('0x023E','0000x0',1) 
If UO.FindCount('finditem')>0 then 
UO.Attack('finditem') 
repeat 
wait(5000) 
UO.FindType('0x023E','0000x0',1) 
until UO.FindCount('finditem')<1 
else 
While uo.GetHP('self')<uo.GetMaxHP('self') 

UO.SetArm('CWeapon') 
stirka() 
UO.Exec("bandageself") 
wait (1000) 
UO.Arm('CWeapon')
wait(5000) 
wend 
end if 
wait(1000) 
until UO.DEAD() 
end sub 

Code: Select all

sub stirka() 
if UO.Count('0x0E21')<1 then 
UO.FindType('0x0E20','0x0000','backpack') 
UO.WaitTargetType('0x1008') 
UO.UseObject('finditem') 
wait(1000) 
endif 
end sub