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
Все всем спасибо большое