Code: #==============================================================
# 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
Это форум а не лавка заказов.....
|
