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

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