Yoko

Code: Select all

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

Code: Select all

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