Yoko

#   Potions Types & Color  -=#=-                     -=#=-
Var ExplosionPotionType      =     "0x0F0E"            # Explosion Potion Type.
Var ExplosionPotionColor     =     "0x0009"            # Explosion Potion Color.

sub NoBomb() 
VAR Exit 
Exit=0 
UO.Set("finddistance","3") 
repeat 
UO.FindType(ExplosionPotionType,ExplosionPotionColor,'ground') 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(800) 
Else 
Exit=1 
endif 
until Exit==1
end sub 

#   Potions Types & Color  -=#=-                     -=#=-
Var ExplosionPotionType      =     "0x0F0E"            # Explosion Potion Type.
Var ExplosionPotionColor     =     "0x0009"            # Explosion Potion Color.

################## 
sub MineEnemy() ################################################################################## 
################## 
# Кидает 5 экспложенсов под ноги противника. 
# 
For var Ex=1 to 5 
  UO.FindType(ExplosionPotionType,ExplosionPotionColor,'backpack') 
  UO.Drop(1, STR(UO.GetX(Target)), STR(UO.GetY(Target)), STR(UO.GetZ(Target)), "finditem") 
    CheckLag() 
    Next 
    UO.Print("Done.") 
end sub 

################# 
sub MineSelf() ################################################################################### 
################# 
# Кидает 5 экспложенсов под ноги своего чара (Прячет их Гадина). 
# 
For var Ex=1 to 5 
  UO.FindType(ExplosionPotionType,ExplosionPotionColor,'backpack') 
  UO.Drop(1, STR(UO.GetX('self')), STR(UO.GetY('self')), STR(UO.GetZ('self')-3), "finditem") 
    CheckLag() 
    Next 
    UO.Print("Done.") 
end sub 

############### 
sub BlowUp() ##################################################################################### 
############### 
# Взрывает экспложенсы лежащие на земле. 
# 
UO.Set("finddistance","20") 
UO.FindType(ExplosionPotionType,ExplosionPotionColor,'ground') 
UO.WaitTargetObject("finditem") 
UO.Cast("Magic Arrow") 
UO.Print("Run") 
end sub 

#################### 
sub ExplodeSelf() ################################################################################ 
#################### 
# Чар кидает стрелку в экспложенс в бекпаке. 
# 
UO.FindType(ExplosionPotionType,ExplosionPotionColor,'backpack') 
If UO.FindCount()>0 then 
   UO.WaitTargetObject("finditem") 
   UO.Cast("Magic Arrow") 
   UO.Print("Done") 
End If 
end sub