###----------------------------------------------------------------------------###
###------------------------ PvP script's from BuDDa ---------------------------###
###----------------------------------------------------------------------------###

########## Хил с топором ##########

sub heal_topor()
uo.exec("bandageself")
wait(250)
uo.usetype ('0x0F09 0x042C')
    wait (100)
uo.msg ('.drink_heal_great')
    wait (100)
uo.msg('.arm_sword')
UO.WarMode(1) 
UO.Attack('laststatus')
end sub

###################################

########### Xил с щитом ###########

sub heal_shield()
uo.exec("bandageself")
wait (250)
uo.msg('.arm_shield')
UO.UseType('0x0E85') 
if uo.life < 180 Then
wait (100)
    uo.usetype ('0x0F09 0x042C')
end if
wait (100)
if uo.life < 110 Then
    uo.msg ('.drink_heal_great')
end if
end sub

##################################

########Команды сервера###########

sub info()
 uo.say(",info")
end sub

sub home()
 uo.say(".home")
end sub

sub shadow()
 uo.say (".shadow_movement")
end sub

##################################

###########################
sub invis()################
#Питье инвизки#############
########################### 
  uo.Msg ( '.drink_invis' ) 
Endsub

##############
sub mana()####
############################
# Питье тотал манки#########
############################
uo.Msg ('.drink_mana_total')
end sub

################
sub restor()####
############################
#Питье гритресторки#########
############################
uo.UseType('0x0F09','0x042c')
wait(100)
uo.msg ('.drink_heal_great')
end sub


################## Magic Cast ####################

Sub fls() 
   UO.Cast('Flame Strike','laststatus') 
Endsub

Sub paral() 
   UO.Cast('Paralyze','laststatus') 
Endsub

Sub lait() 
   UO.Cast('Lightning','laststatus') 
Endsub

Sub desmani() 
   UO.Cast('Weaken','laststatus') 
Endsub

Sub poison() 
   UO.Cast('Poison','laststatus') 
Endsub

Sub strelkaV() 
   UO.Cast('Magic Arrow','laststatus') 
Endsub

Sub strelka() 
   UO.Cast('Magic Arrow') 
Endsub

Sub pf() 
uo.cast('Paralyze Field')
Endsub

Sub strelkaS() 
   UO.Cast('Magic Arrow','self') 
Endsub

Sub protect() 
   UO.Cast('Protection','self') 
   wait(2200)
   UO.Cast('Reactive Armor','self')
Endsub

Sub reflect() 
   UO.Cast('Magic Reflection','self') 
Endsub

Sub heal() 
   UO.Cast('Greater Heal','self') 
Endsub

sub cure()
   UO.Cast('Cure','self')
end sub

sub stena()
uo.exec("waittargettype 0x0E75;cast 'Wall of Stone'")
end sub

sub recall()
   uo.usetype ('0x1F14')
Endsub

#####################################################

#######################
#Стелс ( Hiding )######
####################### 
Sub stealth()##########
#######################
UO.WarMode(0) 
UO.UseSkill('Stealth') 
end sub 

#######################
#detect ( detect )######
####################### 
Sub detect()##########
#######################
UO.WarMode(0) 
UO.UseSkill('Detect Hidden') 
end sub 


####################
####attack()######## 
####################
sub attack()
 uo.waittargetobject('laststatus')
 uo.useobject('finditem')
 uo.attack('laststatus')
end sub


### Настройки ###
VAR pingd = 100
VAR armorid = 7
#################
sub dress()
UO.Print('Dress: Start!')
UO.Set('norbcheck', '1')
UO.Set('norbcalc', '1')
UO.Set('finddistance', '3')
UO.FindType('0x1512', '0x0B0B', 1)
var ArmorStone = UO.GetSerial('finditem')
UO.FindType('0x0ED4', '0x079B', 1)
var ItemStone = UO.GetSerial('finditem')
UO.UseObject('backpack')
CheckLag()
if not UO.ObjAtLayer('Torso') then
UO.Recall(ArmorStone, armorid)
CheckLag()
end if
UO.Recall(ItemStone, 2)
CheckLag()
UO.Recall(ItemStone, 7)
CheckLag()
UO.Recall(ItemStone, 9)
CheckLag()
UO.Recall(ItemStone, 23)
CheckLag()
UO.Recall(ItemStone, 34)
CheckLag()
UO.UseType('0x2121')
UO.UseType('0x1F06')  
UO.UseType('0x1F08')
UO.UseType('0x1545')  
UO.UseType('0x1537')  
UO.UseType('0x1FFD')
UO.UseType('0x1F03')
UO.UseType('0x13EB')
UO.Msg('.arm')
UO.Set('norbcheck', '0')
UO.Set('norbcalc', '0')
UO.Print('Dress: Done!')
end sub

sub CheckLag()
DelJournal('ackpack')
UO.Click('backpack')
repeat
Wait(pingd)
until UO.InJournal('backpack')
end sub
sub DelJournal(Msg)
while UO.InJournal(Msg)
UO.SetJournalLine(UO.InJournal(Msg) - 1, '')
wend
end sub

####################
## Уход по столбу ##
####################
sub Portal() 
UO.exec("warmode 0") 
var portal='0x1183' 
uo.usefromground(portal) 
UO.Print('5') 
wait (1000) 
UO.Print('4') 
wait (1000) 
UO.Print('3') 
wait (1000) 
UO.Print('2') 
wait (1000) 
UO.Print('1') 
wait (1000) 
UO.Print('GO') 
UO.exec("warmode 0") 
wait (1000) 
UO.exec("warmode 0") 
end sub

#####################