Page 1 of 1

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

Posted: 2006-03-17 19:53:40
by Sh@dow
Я конешно понимаю что то что я прошу легко но я неумею!
Скиньте плз скрипты на боевые касты!

Posted: 2006-03-18 06:23:36
by Scripts Writer

Code: Select all

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

Posted: 2006-03-18 11:57:39
by 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 

Posted: 2006-03-18 13:23:23
by 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 

Posted: 2006-03-18 16:59:03
by Raketchik
Спасибо :D