Yoko

Code: Select all

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

sub resbint()
VAR Exit=0, i
DIM Gost[2]
Gost[0]=0x0192 ;Man GHOSTTYPE
Gost[1]=0x0193 ;Woman GHOSTTYPE
For i=0 to 1
UO.SetArm("1") 
uo.set('finddistance','2')
uo.findtype(Gost[i],'-1','ground')
UO.WaitTargetobject('finditem')
UO.usetype('0x0E21')
wait (500)
      next
wait (500)
      UO.Arm("1") 
      UO.UnSetArm("1") 
end sub

#############################
sub Equipt()
VAR i
dim weapon[4]
weapon[1]=0x143e ; Halberd
weapon[2]=0x0f4d ; Bardiche
weapon[3]=0x0e87 ; PitchFork
weapon[4]=0x0f62 ; Spear
For i=1 to 4
uo.findtype(weapon[i])
uo.equip('Rhand','finditem')
next
End sub

############################
Sub Sword()
Var Svord='0x13B9'
Var Sheld='0x1B76'
UO.Equipt('Rhand',Svord) 
UO.Equipt('Lhand',Sheld) 
Endsub

############################
Sub Bow()
Var i
dim bow[2]
bow[1]=0x13B1
bow[2]=0x13B2
For i=1 to 2
uo.findtype(bow[i])
UO.Equip('Lhand','finditem') 
next
Endsub

############################
Sub Ataka_Last() 
UO.Attack('laststatus') 
end sub

###########################AnOrt таргет
Sub Ort()
If UO.Mana>=17 AND UO.BP>0 AND UO.NS>0 Then 
   uo.cast('Dispel')
Else 
   UO.Print("#############")
   UO.Print("## No mana ##") 
   UO.Print("#############")
Endif 
end sub

###########################ParalyzeField laststatus
Sub PF() 
UO.Set('lasttarget','laststatus') 
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget"))) 
uo.cast("Paralyze Field") 
end sub

############################AnOrt на себя
Sub AnOrt()
If UO.Mana>=17 AND UO.BP>0 AND UO.NS>0 Then 
   uo.cast('Dispel','self') 
Else 
   UO.Print("#############")
   UO.Print("## No mana ##") 
   UO.Print("#############")
Endif
endsub

############################хилинг бинтами
Sub Heal() 
   If UO.STR==UO.Life Then 
      UO.Print("Life is full") 
   Else 
      UO.SetArm("1") 
            
      UO.BandageSelf() 
      wait(1100) 
      UO.Arm("1") 
      UO.UnSetArm() 
   Endif 
end sub 

###########################выпивание МАНКИ
Sub Manka()
Var Type='0x0F0E' 
Var Color='0x09DF' 
UO.FindType(Type, Color, 2) 
UO.UseObject('finditem') 
End sub 

###########################выпивание ГХ
Sub GreaterHeal()
Var Type='0x0F0E' 
Var Color='0x09BB' 
UO.FindType(Type, Color, 2) 
UO.UseObject('finditem') 
End sub 

###########################hiding
Sub Hiding() 
UO.WarMode(0) 
UO.UseSkill('Hiding') 
End sub 

###########################meditation
Sub Meditation()
UO.WarMode(0)          
UO.UseSkill('Meditation') 
End sub

###########################ARROW laststatus
Sub Arrow() 
If UO.Mana>=11 AND UO.BP>0 AND UO.NS>0 Then 
   UO.Cast('Magic Arrow','laststatus') 
Else 
   UO.Print("#############")
   UO.Print("## No mana ##") 
   UO.Print("#############")
Endif 
End sub 

###########################ПАРАЛИЗ laststatus
Sub Paralyze()
   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')
         UO.Print("Scroll")
      else
         UO.Print("Low mana!!! Scroll!")
      endif
   else
      if UO.Mana>=28 then
         UO.Cast('Paralyze','laststatus')
         UO.Print("Spell")
      else
   UO.Print("#############")
   UO.Print("## No mana ##") 
   UO.Print("#############")
      endif
   endif
end sub

и т.д. и т.п.