БОЕВОЙ СКРИПТ!!!!

zzz123 · Post by **zzz123** » 2004-08-29 17:10:53

Плз отзывчивый люди

я в пррогромировании на инжект 0
дайте плз боевые скрипты кто какие юзаю и обясните как пользовотся очень прошу
ну типа того кастовать пойзон если физл опчть кастовать потом принажатии на эту клавишу он кастовася на того же человека
или хилится не снимая шит и оружие и тд!

BETEPAH · Post by **BETEPAH** » 2004-08-30 10:01:37

Code: Select all

#============================================================== 
#  Healing() - memoryzed current weapon, bandageself, armed 
#-------------------------------------------------------------- 
sub Healing() 
   UO.SetArm('CWeapon') 
   UO.Exec("bandageself") 
   wait(300) 
   UO.Arm('CWeapon') 
end sub 

#============================================================== 
#  Arrow() - cast magic arrow on laststatus 
#-------------------------------------------------------------- 
sub Arrow() 
   VAR ManaNeed=4 
   UO.Set('lasttarget','laststatus') 
   if UO.Mana>=ManaNeed then 
      UO.Cast('Magic Arrow','laststatus') 
   else 
      UO.Print("Low mana!!!") 
   endif 
end sub 


#============================================================== 
#  Poison() - cast poison on laststatus if target-char not 
#             poisoned and your char have enought mana 
#-------------------------------------------------------------- 
sub Poison() 
   VAR ManaNeed=9 
   VAR ScrollManaNeed=4 
   UO.Set('lasttarget','laststatus') 
   If NOT UO.Poisoned('lasttarget') Then 
      UO.FindType('0x1F40',-1,'my') 
      If UO.GetQuantity('finditem')>0 Then 
         If UO.Mana>=ScrollManaNeed Then 
            UO.WaitTargetObject('lasttarget') 
            UO.UseObject('finditem') 
            UO.Print("Scroll") 
         Else 
            UO.Print("Low mana!!! Scroll!") 
         Endif 
      Else 
         If UO.Mana>=ManaNeed Then 
            UO.Cast('Poison','laststatus') 
         Else 
            UO.Print("Low mana!!!") 
         Endif 
      Endif 
   Else 
      UO.Print("Character already poisoned!") 
   Endif 
end sub 


#============================================================== 
#  Cure() - cast cure to self from scroll, if she found 
#           or from spellbook 
#-------------------------------------------------------------- 
sub Cure() 
   VAR ManaNeed=6 
   VAR ManaNeedScroll=3 
   If UO.Poisoned() Then 
      UO.FindType('0x1F37',-1,'my') 
      If UO.FindCount()>0 Then 
         If UO.Mana>=ManaNeedScroll Then 
            UO.WaitTargetSelf() 
            UO.UseObject('finditem') 
            UO.Print("Scroll!!!") 
         Else 
            UO.Print("Low mana scroll!!!") 
         Endif 
      Else 
         If UO.Mana>=ManaNeed Then 
            UO.Cast('Cure','self') 
            UO.Print("Spell!!!") 
         Else 
            UO.Print("Low mana spell!!!") 
         Endif 
      Endif 
   Else 
      UO.Print("You allready not sick!!!") 
   Endif 
end sub 


#============================================================== 
#  Heal() - cast heal to self from scroll, if she found 
#           or from spellbook 
#-------------------------------------------------------------- 
sub Heal() 
   VAR ManaNeed=4 
   VAR ManaNeedScroll=2 
   If UO.Life<UO.Str Then 
      UO.FindType('0x1F31',-1,'my') 
      If UO.FindCount()>0 Then 
         If UO.Mana>=ManaNeedScroll Then 
            UO.WaitTargetSelf() 
            UO.UseObject('finditem') 
            UO.Print("Scroll!!!") 
         Else 
            UO.Print("Low mana scroll!!!") 
         Endif 
      Else 
         If UO.Mana>=ManaNeed Then 
            UO.Cast('Heal','self') 
            UO.Print("Spell!!!") 
         Else 
            UO.Print("Low mana spell!!!") 
         Endif 
      Endif 
   Else 
      UO.Print("Your HP at maximum!!!") 
   Endif 
end sub 


#============================================================== 
#  GHeal() - cast greater heal to self from scroll, if she 
#            found or from spellbook 
#-------------------------------------------------------------- 
sub GHeal() 
   VAR ManaNeed=11 
   VAR ManaNeedScroll=5 
   If UO.Life<UO.Str Then 
      UO.FindType('0x1F49',-1,'my') 
      If UO.FindCount()>0 Then 
         If UO.Mana>=ManaNeedScroll Then 
            UO.WaitTargetSelf() 
            UO.UseObject('finditem') 
            UO.Print("Scroll!!!") 
         Else 
   UO.UseType('0x0F0E','0x09DF') ; total mana potion 
         Endif 
      Else 
         If UO.Mana>=ManaNeed Then 
            UO.Cast('Greater Heal','self') 
            UO.Print("Spell!!!") 
         Else 
            UO.Print("Low mana spell!!!") 
         Endif 
      Endif 
   Else 
      UO.Print("Your HP at maximum!!!") 
   Endif 
end sub 


#============================================================== 
#  Paral() - cast Paralyze to last status from scroll, if she 
#            found or from spellbook 
#-------------------------------------------------------------- 
sub Paral() 
   UO.Set('lasttarget','laststatus') 
   UO.FindType('0x1F52',-1,'my') 
   If UO.GetQuantity('finditem')>0 then 
      if UO.Mana>=14 then 
         UO.WaitTargetObject('lasttarget') 
         UO.UseObject('finditem') 
      else 
      endif 
   else 
      if UO.Mana>=28 then 
         UO.Cast('Paralyze','laststatus') 
      else 
      endif 
   endif 
end sub 


#============================================================== 
#  Flame() - cast Flame Strike to last status from scroll, 
#            if she found or from spellbook 
#-------------------------------------------------------------- 
sub Flame() 
   UO.Set('lasttarget','laststatus') 
   UO.FindType('0x1F5F',-1,'my') 
   If UO.GetQuantity('finditem')>0 then 
      if UO.Mana>=22 then 
         UO.WaitTargetObject('lasttarget') 
         UO.UseObject('finditem') 
         UO.Say("An Ex Por") 
      else 
      endif 
   else 
      if UO.Mana>=45 then 
         UO.Cast('Flame Strike','laststatus') 
      else 
      endif 
   endif 
end sub 


#============================================================== 
#  Light() - cast Lighting to last status from scroll, 
#            if she found or from spellbook 
#-------------------------------------------------------------- 
sub Light() 
   UO.Set('lasttarget','laststatus') 
   UO.FindType('0x1F4A',-1,'my') 
   If UO.GetQuantity('finditem')>0 then 
      if UO.Mana>=10 then 
         UO.WaitTargetObject('lasttarget') 
         UO.UseObject('finditem') 
         UO.Print("Scroll") 
      else 
         UO.Print("Low mana!!! Scroll!") 
      endif 
   else 
      if UO.Mana>=20 then 
         UO.Cast('Lightning','laststatus') 
         UO.Print("Spell") 
      else 
         UO.Print("Low mana!!! Spell!") 
      endif 
   endif 
end sub

Лови и создай нормальное имя при регистрации.....а то zzz123 как то.... не думаю что это твой реальный ник.
PS
Это форум а не лавка заказов.....

qqqqqq · Post by **qqqqqq** » 2004-09-01 10:48:30

спс огромное за твой скрипт мне помогает =))))
нашет ника скоро сменю =)

BETEPAH · Post by **BETEPAH** » 2004-09-01 12:06:50

qqqqqq wrote:спс огромное за твой скрипт мне помогает =))))
нашет ника скоро сменю =)

Спасибо не мне а Savage ибо это его скрипты.