Yoko

Code: Select all

UO.Set('quiet','1')
	uo.exec('set finddistance 25')
	Ignores()
	DIM Chars[2]
	Chars[0] = '0x0190' ## - Òèï male.
	Chars[1] = '0x0191' ## - Òèï female.
	uo.findtype(Chars[0], '-1', '1')
	maleplayernum = uo.findcount()
	uo.findtype(Chars[1], '-1', '1')
	femaleplayernum = uo.findcount()
	allplayernum = maleplayernum + femaleplayernum
	for a = 0 to 1 ## - Ïåðåáèðàåì òèïû male/female.
		uo.findtype(Chars[a], '-1', '1')
		if allplayernum == 1 then
			if UO.GetMaxHP('finditem') < 200 then ; ïðîâåðêà íà õï, ÷òîáû îòñåèâàëî âåíäîðîâ.
				UO.AddObject('lasttarget','finditem')
			endif
		else
			if uo.findcount() > 0 then
				temp = uo.findcount()
				for i=0 to uo.findcount()
					uo.findtype(Chars[a], '-1', '1')
					UO.GetStatus('finditem')
					if UO.GetMaxHP('finditem') < 200 then
						lastplayernum = lastplayernum + 1
						if lastplayernum < 5 then
							UO.AddObject('AddTarget'+str(lastplayernum), 'finditem')
						else
							i = temp
						endif
						if lastplayernum == 1 then
							UO.AddObject('Enemy','finditem')
						endif
						UO.Ignore('finditem', 'on')
					endif
				next
			endif
		endif
	next
	UO.Set('quiet','0')
	UO.Print("lasttarget: "+UO.GetName('MainTarget'))
	UO.Click('lasttarget')
	UO.IgnoreReset()
end sub

Code: Select all

##################################################################### 
#Константы 
##################################################################### 
#ID противника 
var Enemy='Enemy' 
#ID союзника 
var Alias='Alias'  
##################################################################### 
#Добавление глобальных объектов 
##################################################################### 
#Добавление союзника 
sub addAlias() 
uo.print('Select Alias:') 
uo.exec('addobject Alias') 
while uo.targeting() 
wait(100) 
wend 
end sub 
##################################################################### 
#Добавление противника 
sub addEnemy() 
uo.print('Select Enemy:') 
uo.exec('addobject Enemy') 
while uo.targeting() 
wait(100) 
wend 
end sub 
##################################################################### 
#Каст Стрелки на друга 
sub aliasARBook() 
castBook('Magic Arrow',4,Alias) 
end sub 
##################################################################### 
#Каст Стрелки в противника 
sub enemyARBook() 
castBook('Magic Arrow',4,Enemy) 
end sub 
##################################################################### 

Code: Select all

var x

uo.set('lasttarget','laststatus')
x=uo.getserial('lasttarget')

Sub Arrow()  
If UO.Mana>=4 AND UO.BP>0 AND UO.NS>0 Then 
   UO.Cast('Magic Arrow',x) 
Else 
   UO.Print("No mana") 
Endif 
Endsub