Forensic Evaluation / Опознание трупов

[Yoko]

Discussion:______________
http://yoko.netroof.net/forum/viewtopic.php?t=653
Author or poster:_________
COoler E-mail: cOoler@email.su | ICQ: 333358386
Tested on:_______________
Dragon World (v0.55i) http://www.drw.ru
Must work:_______________
Sphere emu
Customization required:____
No
Description:______________
см. заголовок скрипта
Yoko comment:___________
none
________________________

Code: Select all

##################################################### 
### Forensic Evaluation Script v. 1.03. ### 
### ### 
### Copyright & tested by cOoler on DRW Shard. ### 
### ### 
### Oficial DRW Shards site - http://www.drw.ru ### 
##################################################### 
##################################################### 
### Инструкция по использованию и настройке. ### 
##################################################### 
### 1. Для работы этого скрипта ничего не нужно. 
### 
### 2. Описание подготовки к запуску скрипта. 
### Запускаем скрипт и указать на мёртвое существо 
### (человек или животное) курсором. 
### 
### 3. Скрипт простой и каких либо исправлений не требует. 
##################################################### 
### Конец инструкции. ### 
##################################################### 

sub ForensicEvaluation() 
var count=0 
uo.print('Please Change Dead Creature...') 
uo.exec('addobject ForensicAnimal') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
repeat 
uo.waittargetobject('ForensicAnimal') 
UO.Useskill('Forensic Evaluation') 
while not UO.InJournal("unsure") and not UO.InJournal("looks") and not UO.InJournal("perform") and count<60 
wait(35) 
count=count+1 
wend 
wait(35) 
count=0 
UO.DeleteJournal() 
until UO.Dead() 
end sub

[Yoko]

Discussion:______________
http://yoko.netroof.net/forum/viewtopic.php?t=3567
Author or poster:_________
Dungeon [*HiCk*] dungeon_@mail.ru
Tested on:_______________
Nova (http://nova-uo.com)
Must work:_______________
RunUO
Customization required:____
YES да (Set for place под место)
Description:______________
Оставляем чара в загоне например в Скара Бра где спавнятся коровы. Берем в руку какуюнить колотушку. Запускаем скрипт. Чар убивает корову и форенсит ее труп после пропадания трупа убивает следующую корову.
У первых трех переменных в скрипте написаны коментарии что в них класть если сервер НОВА то менять ничего ненужно.
Yoko comment:___________
none
________________________

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