Yoko

Code: Select all

sub Ress()
   If UO.Dead() Then
      UO.Print("You Dead")
      Return
   End If
   UO.Set('finddistance','1')
   UO.FindType('0x2006','-1','1')
   If UO.FindCount() Then
      If UO.Count('0x0e21') >= 20 Then
         UO.WaitTargetObject('finditem')
         UO.UseType('0x0e21')
      Else
         UO.Print("You don't have 20 bandages!")
      End If
   Else
      UO.Print("I can't see Corpse!")
   End If
end sub

Code: Select all

sub ress() 
   uo.print("Loading.....") 
   UO.Set('finddistance','2') 
   UO.FindType('0x2006','-1','ground') 
   if (uo.findCount()) then 
      uo.setarm('arm') 
      uo.waitTargetObject('finditem') 
      uo.print("ress......") 
      uo.useType('0x0E21') 
      wait(3500) 
      uo.arm('arm') 
      uo.unsetarm('arm') 
   end if 
end sub

Code: Select all

If UO.Dead() Then
   UO.Print("You Dead")
   Return
End If

Code: Select all

sub Ress()
   VAR n
   Dim ress[2]
   ress[1] = '0x0192'
   ress[2] = '0x0193' 
   for n = 1 To 2
      UO.SetArm('TempWeapon')
      if uo.countground(ress[n]) then
         uo.waittargetground(ress[n])
         uo.usetype('0x0E21')
         uo.print('resurrecting')
         return
      else
         if uo.count('0x0E20')>0 then
            uo.WaitTargettype('0x1008')
            uo.UseType('0x0E20') 
         else
            uo.print('НЕТ БИНТОВ!')  
         endif
         uo.print('НЕТ ТРУПОВ!')  
      end if
   next
   uo.waittargetobject('laststatus')
   uo.usetype('0x0E21') 
   wait(1000)
   UO.Arm('TempWeapon')   
end sub