Форенсик Шард NOVA

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Dungeon [*HiCk*]
Junior Expert
Posts: 10
Joined: 2005-03-28 18:47:29

Форенсик Шард NOVA

Post by Dungeon [*HiCk*] »

Code: Select all


##################################################### 
#                         NOVA                      #
#               Dungeon [*HiCk*] © 2005             #
#                 (http://nova-uo.com)              #
#####################################################


################################### 
# Заходите в загон с коровами например в СкараБре
# На кнопку F10 нужно забить команду AllNames в макросах уо
# Убивает корову и форенсит труп пока он есть после убивает еще.

sub forens()
	telo = '0x2006' #Тайп Трупа
	target = '0x00E7' # тайп Убиваемого животного (Корова серая)
	targett = '0x00D8' # тайп Убиваемого животного (Корова черная)
	uo.exec("set finddistance 6")
	forens:		
		if uo.life < uo.str - 30 then
			Uo.Say("GUARDS");
		endif
		uo.findtype(telo,-1,"ground")		
		if uo.findcount() > 0 then 			
			uo.waittargetobject("finditem")
			uo.UseSkill("Forensic Evaluation")			
			wait(500)
		else
			uo.press(121)
			uo.findtype(target,-1,"ground")
			if uo.findcount() <= 0 then
				uo.findtype(targett,-1,"ground")
			endif			
			if uo.findcount() > 0 then 
		  		uo.Attack("finditem")	 			
	 		endif
	 		wait(20000)
		endif
		goto forens
end sub

Post Reply