Yoko
http://forum.yoko.com.ua/

Дайте скрипт на Анатамою плс...
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1913		 Page 1 of 1
Author:  killmon [ 2004-11-10 17:44:53 ]
Post subject:  Дайте скрипт на Анатамою плс...
Ну в заглавие просьба вроде написана...;)
Author:  joker_psix [ 2004-11-10 17:49:38 ]
Post subject: 
вот что выдал поиск =)


Code:
sub Anatomy() 
var count=0 
uo.print('Totem') 
uo.exec('addobject TOT') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
repeat 
uo.waittargetobject('TOT') 
UO.Useskill('Anatomy')    
wait(2000) 
until UO.Dead() 
end sub
Author:  Leks [ 2004-11-11 04:55:06 ]
Post subject:  Re: Дайте скрипт на Анатамою плс...
killmon wrote:
Ну в заглавие просьба вроде написана...;)

Code:
sub Anatomy() 
var Exit=0    
while Exit==0 
uo.DeleteJournal() 
uo.Waittargetself() 
uo.Useskill('Anatomy') 
while not (uo.InJournal('looks')or uo.InJournal('You'))    
wait(1000)
uo.UseSkill('Spirit Speak')
wait(3000)
wend 
wend 
end sub
Author:  OldArtes [ 2004-11-11 05:29:53 ]
Post subject:  Re: Дайте скрипт на Анатамою плс...
ВОт тебе на все лоры а то пока Анатомию докачаешь тебе еще и другие лоры прокачать захочится :) :)
Code:
##### 01 #####
sub Anatomy() 
var count=0 
uo.print('Totem') 
uo.exec('addobject TOT') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
repeat 
uo.waittargetobject('TOT') 
UO.Useskill('Anatomy') 
wait(4000) 
until UO.Dead() 
end sub 
#############

##### 02 #####
sub AnimalLore() 
var count=0 
uo.print('Totem') 
uo.exec('addobject TOT') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
repeat 
uo.waittargetobject('TOT') 
UO.Useskill('Animal Lore') 
wait(4000) 
until UO.Dead() 
end sub 
#############

##### 03 #####
sub ArmsLore() 
var count=0 
uo.print('totem') 
uo.exec('addobject TOT') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
repeat 
uo.waittargetobject('TOT') 
UO.Useskill('Arms Lore') 
wait(4000) 
until UO.Dead() 
end sub 
#############

##### 04 #####
sub Evaluating() 
var count=0 
uo.print('totem') 
uo.exec('addobject TOT') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
repeat 
uo.waittargetobject('TOT','TOT') 
UO.Useskill('Evaluating')    
while not UO.InJournal("unsure") and not UO.InJournal("looks") and not UO.InJournal("perform") and count<60 
wait(100) 
count=count+1 
wend 
wait(600) 
count=0 
UO.DeleteJournal() 
until UO.Dead() 
end sub 
#############

##### 05 #####
sub ItemIdentification() 
var count=0 
uo.print('totem') 
uo.exec('addobject TOT') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
repeat 
uo.waittargetobject('TOT') 
UO.Useskill('Item Identification') 
wait(4000) 
until UO.Dead() 
end sub 
#############

##### 06 #####
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 
#############

##### 07 #####
sub TasteIdentification() 
var count=0 
uo.print('totem') 
uo.exec('addobject TOT') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
repeat 
uo.waittargetobject('TOT') 
UO.Useskill('Taste Identification')    
wait(4000) 
until UO.Dead() 
end sub 
#############
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/