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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Tor4ek
Posts: 6
Joined: 2005-05-13 03:15:24

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

Post by Tor4ek »

извените поиском не нашел может я кривой но все же пожалуйста
нужно чтоб он вставал в хайд юзал стелс если физл опять вставал в хайд и юзал стелс и тд спасибо большое буду очень благодарен :)
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:

Post by Leo »

Code: Select all

sub Stealth() 
repeat 
uo.UseSkill('Stealth') 
wait(4100) 
until uo.Dead() 
end sub 
Tor4ek
Posts: 6
Joined: 2005-05-13 03:15:24

Post by Tor4ek »

Блин а когда фейл стелса он выходит из хайды нужно чтоб бы он опять встал в хайд и потом стелс если фейл опять хайд стелс
шард middle-earth
Tor4ek
Posts: 6
Joined: 2005-05-13 03:15:24

Post by Tor4ek »

Блин ну помогите пожалуйста
Tor4ek
Posts: 6
Joined: 2005-05-13 03:15:24

Post 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
dUha
Posts: 13
Joined: 2005-07-06 04:57:14
Contact:

Post 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
прочто я не люблю журнал ето дело конефно хорошо но без него лучше
Last edited by dUha on 2005-09-08 11:49:34, edited 1 time in total.
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:

Post 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
Tor4ek
Posts: 6
Joined: 2005-05-13 03:15:24

Post by Tor4ek »

Все всем спасибо большое
Post Reply