Page 1 of 1

Помогите скриптом на стелс

Posted: 2005-09-04 19:08:47
by Tor4ek
извените поиском не нашел может я кривой но все же пожалуйста
нужно чтоб он вставал в хайд юзал стелс если физл опять вставал в хайд и юзал стелс и тд спасибо большое буду очень благодарен :)

Posted: 2005-09-04 19:14:05
by Leo

Code: Select all

sub Stealth() 
repeat 
uo.UseSkill('Stealth') 
wait(4100) 
until uo.Dead() 
end sub 

Posted: 2005-09-04 19:27:50
by Tor4ek
Блин а когда фейл стелса он выходит из хайды нужно чтоб бы он опять встал в хайд и потом стелс если фейл опять хайд стелс
шард middle-earth

Posted: 2005-09-07 22:06:47
by Tor4ek
Блин ну помогите пожалуйста

Posted: 2005-09-07 22:12:28
by Tor4ek
я конечно знаю что я кривой но поправьте пожалуйста :)я сделал все что мог пожалуйста

Code: Select all

sub Stealth()
repeat
uo.UseSkill('Stealth')
wait(5000)
If UO.InJournal ("You have revealed") Then ;* 
wait (4500)
uo.UseSkill('Hiding')
until UO.InJournal ("You have hidden")
endif
wait(4500)
until uo.Dead()
end sub

Posted: 2005-09-08 11:31:43
by dUha
Вот моя версия скрипта на стелс

Code: Select all

sub main()
while 1
hide:
	repeat
	uo.useskill("Hiding")
	wait(10000)
stealth:
	while (UO.Hidden())
	uo.useskill("Stealth")
	wait(10000)
	wend
	goto hide
wend
end sub
прочто я не люблю журнал ето дело конефно хорошо но без него лучше

Posted: 2005-09-08 11:42:50
by Leo
Tor4ek wrote:я конечно знаю что я кривой но поправьте пожалуйста :)я сделал все что мог пожалуйста

Code: Select all

sub Stealth() 
repeat 
uo.UseSkill('Stealth') 
wait(5000) 
If UO.InJournal ("You have revealed") Then ;* 
wait (4500) 
uo.UseSkill('Hiding') 
until UO.InJournal ("You have hidden") 
endif 
wait(4500) 
until uo.Dead() 
end sub
Лучше так:

Code: Select all

sub Stealth() 
repeat 
uo.UseSkill('Stealth') 
wait(5000) 
If UO.InJournal ("You have revealed") Then
wait (1000) 
uo.UseSkill('Hiding') 
wait(4500) 
endif 
until uo.Dead() 
end sub

Posted: 2005-09-08 15:50:52
by Tor4ek
Все всем спасибо большое