sub ElementalKill() 
var Count,LastTimer,Elemental 
var o,exit 
dim Ore[13] 
Ore[1]=0x19B9 
Ore[2]=0x19B7  
Ore[3]=0x19BA  
Ore[4]=0x19B8  
Ore[5]=0x0F11  
Ore[6]=0x0F16  
Ore[7]=0x0F18  
Ore[8]=0x0F15  
Ore[9]=0x0F10  
Ore[10]=0x0F0F  
Ore[11]=0x0F26  
Ore[12]=0x1F4C  
Ore[13]=0x0EED 
uo.Exec('terminate ControlOfDanger')
wait(500)
uo.Exec('terminate Mining') 
wait(500)
uo.Exec('terminate RecallRune')
uo.Exec('terminate Reconnect')

uo.Exec('terminate DropOre') 
uo.Exec('terminate DangerWait') 
uo.Exec('terminate DangerWait')
wait(500)
uo.UseType('0x0F0E','0x0631') ## -  Инвизка(тип,цвет). 
while uo.STR<uo.Life+1 
if uo.Mana>=50 then 
uo.WaitMenu('What','Daemon') 
uo.Cast('Polymorph') 
wait(8000) 
else 
uo.UseType('0x0F0E','0x09DF') ## -  Тотал Мана(тип,цвет). 
wait(3000) 
end if 
wend 
LastTimer=uo.Timer() 
repeat 
uo.BandageSelf() 
wait(4000) 
until uo.Life==uo.STR or LastTimer+300<uo.Timer() 
uo.UseType('0x1B76')
wait(10)
uo.UseType('0x13B9')
uo.DeleteJournal() 
uo.Exec('warmode 1') 
uo.FindType('0x0010',-1,'ground') 
Elemental=uo.GetSerial('finditem') 
uo.Attack(Elemental) 
repeat 
wait(1000) 
if uo.Life<50 Then 
uo.UseType('0x0F0E','0x09BB') ## - Греатер Хеал(тип,цвет). 
end if 
if uo.GetDistance(Elemental)>1 then 
WalkN(0,0,Elemental) 
end if 
until uo.IsNPC(Elemental)==0 
wait(3000) 
uo.Exec('warmode 0') 
wait(1000) 
LastTimer=uo.Timer() 
uo.DeleteJournal() 
for o=1 to 13 
exit=0 
repeat 
uo.FindType(Ore[o],-1,'ground') 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(1500) 
else 
exit=1 
end if 
until exit==1 
next 
### uo.Exec('warmode 1') 
wait(40000)
uo.Exec('warmode 0') 
ToRecall()
wait(300)
uo.Exec('exec Mining')
end sub

if uo.injournal("heavy") then # вырыли элемента #
   # убиваем элемента #
   Vortex:
   uo.exec('usetype 0x0f0e 0x0631') # пьем инвизку, а то энергетик порвет =) #
   wait(300)
   uo.cast('Energy Vortex','self')
   repeat
      wait(300)
   until uo.injournal("fizzles") or uo.injournal("Vortex")
   if uo.injournal("fizzles") then
      goto Vortex
   else
                   wait(15000)
      vasanort:
      uo.exec('usetype 0x0f0e 0x09DF') # пьем манку #
      wait(300)
      uo.cast('Mass Dispel','self')
      wait(7000)
      if uo.injournal("fizzles") then
         goto vasanort
      endif
# собираем руду и копаем дальше #
      UO.SetReceivingContainer('backpack')
      UO.FindType('0x19B9',-1,'ground')
      if UO.GetQuantity('finditem')>0 then
         UO.Grab('0','finditem')
         wait(2000)
      endif
      UO.FindType('0x19B7',-1,'ground')
                   if UO.GetQuantity('finditem')>0 then
               UO.Grab('0','finditem')
               wait(2000)
      endif
      UO.FindType('0x19BA',-1,'ground')
      if UO.GetQuantity('finditem')>0 then
         UO.Grab('0','finditem')
         wait(2000)
      endif
      UO.FindType('0x19B8',-1,'ground')
      if UO.GetQuantity('finditem')>0 then
         UO.Grab('0','finditem')
         wait(2000)
      endif
      UO.UnSetReceivingContainer()
   endif
endif