Yoko

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 
Terminate() 
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') ## - Хеатер Щит(тип). 
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') 
uo.Exec('warmode 0') 
uo.Exec('exec Mining') 
end sub

SuperWalk(0,0,'finditem')
Loot()