Yoko

sub BombDrop()
var bomb='*****'
var i 
for i = 0 to 7
UO.FindType(bomb,'backpack') 
UO.UseObject('finditem') 
wait(100)
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem') 
next
UO.Cast('Magic Arrow',('finditem'))
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 

#   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 

   sub BombDrop() 
var bomb='0x0F0D' 
var i 
for i = 0 to 5 
UO.FindType(bomb,'backpack')   
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem') 
wait(500)
next 
UO.Cast('Magic Arrow',('finditem')) 
end sub 

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

#   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 

Var ExplosionPotionType      =     "0x0F0D"            # Explosion Potion Type.
Var ExplosionPotionColor     =     "0x0B99"            # 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 

Var ExplosionPotionType = "0x0F0D"  # Explosion Potion Type. 

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

Var ExplosionPotionType = "0x0F0D"  # Explosion Potion Type. 

sub NoBomb() 
   VAR Exit 
   Exit=0 
   UO.Set("finddistance","3") 
   repeat 
      UO.FindType(ExplosionPotionType, -1,'ground') 
      if UO.GetQuantity('finditem')>0 then 
         UO.Grab('0','finditem')
         UO.waittargetobject('laststatus');+ кидает он далеко ;)
         UO.UseObject('finditem') ; +
         wait(800) 
      Else 
         Exit=1 
      endif 
   until Exit==1 
end sub

sub ExplodeHim()
VAR i, pack='backpack',FirstBomb, FirstFlag=1, CountEX
VAR ExHP=20 ; 1 bomb hits

CountEX=6
UO.Print("Щас пизданееееет...")

UO.Set('lasttarget','laststatus') 
For i=1 to CountEX
UO.FindType('0x0F0D','0x0B99','backpack')
If UO.GetQuantity('finditem') Then
If FirstFlag Then
FirstFlag=0
FirstBomb='finditem'
Endif
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
wait(550)
Else
UO.Print("Explosives not found!")
EndIf
Next
UO.Cast('Magic Arrow',FirstBomb)
end sub