Боевые касты!

[Sh@dow]

Я конешно понимаю что то что я прошу легко но я неумею!
Скиньте плз скрипты на боевые касты!

[Scripts Writer]

Code: Select all

uo.Cast('magic arrow','laststatus')

[Raketchik]

А мона скрипт, чтоб чар кастовал сл свитка, если нет, то с книги? А то мой не работает

Code: Select all

sub Paralyze() 
  UO.Set('lasttarget','laststatus') 
  UO.FindType('0x1F52',-1,'my') 
  If UO.GetQuantity('finditem')>0 then 
     UO.Say("StoP! No smoKinG!") 
     if UO.Mana>=14 then 
        UO.WaitTargetObject('laststatus') 
        UO.UseObject('finditem') 
  else 
        UO.Print("No mana") 
     endif 
  else 
     if UO.Mana>=1 then 
      
        UO.Cast('Paralyze','laststatus') 
  else 
        UO.Print("No mana") 
     endif 
  endif 
end sub 

[Scripts Writer]

Code: Select all

sub Paralyze()
   UO.Set('lasttarget','laststatus') 
   UO.FindType('0x1F52',-1,'backpack') 
   If UO.GetQuantity('finditem')>0 then 
      if UO.Mana>=14 then 
         UO.WaitTargetObject('lasttarget') 
         UO.UseObject('finditem') 
         UO.Print("Cast Scroll!!!") 
      else 
         UO.Print("Low mana!!! Scroll!") 
      endif 
   else 
      if UO.Mana>=28 then 
         UO.Cast('Paralyze','laststatus') 
      wait(160)
            UO.Print("Spell") 
      else 
         UO.Print("Low mana!!! Spell!") 
      endif 
   endif 
end sub 

[Raketchik]

Спасибо