Скрипт на хидинг и стелс на оском

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Xabus
Posts: 117
Joined: 2004-05-18 02:24:25

Скрипт на хидинг и стелс на оском

Post by Xabus »

скриптик громосткий но я тока учусь их писать! такчто не браните сильно! скрипт под домик - типа сортир;) хидиться и ходит из угла в угол!

Code: Select all

sub go()
repeat
while NOT UO.Hidden() 
  UO.DeleteJournal() 
  UO.UseSkill('Hiding') 
  repeat 
   wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
 wend 
 wait(100) 
UO.press(35)
wait(1000)
while NOT UO.Hidden() 
  UO.DeleteJournal() 
  UO.UseSkill('Hiding') 
  repeat 
   wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
 wend 
 wait(100)
UO.press(35)
wait(1000)
while NOT UO.Hidden() 
  UO.DeleteJournal() 
  UO.UseSkill('Hiding') 
  repeat 
   wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
 wend 
 wait(100)
UO.press(35)
wait(1000)
while NOT UO.Hidden() 
  UO.DeleteJournal() 
  UO.UseSkill('Hiding') 
  repeat 
   wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
 wend 
 wait(100)
UO.press(35)
wait(1000)
while NOT UO.Hidden() 
  UO.DeleteJournal() 
  UO.UseSkill('Hiding') 
  repeat 
   wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
 wend 
 wait(100)
UO.press(35)
while NOT UO.Hidden() 
  UO.DeleteJournal() 
  UO.UseSkill('Hiding') 
  repeat 
   wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
 wend
wait(100)
UO.press(38)
wait(1000)
while NOT UO.Hidden() 
  UO.DeleteJournal() 
  UO.UseSkill('Hiding') 
  repeat 
   wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
 wend 
 wait(100)
UO.press(38)
wait(1000)
while NOT UO.Hidden() 
  UO.DeleteJournal() 
  UO.UseSkill('Hiding') 
  repeat 
   wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
 wend 
 wait(100)
UO.press(38)
wait(1000)
while NOT UO.Hidden() 
  UO.DeleteJournal() 
  UO.UseSkill('Hiding') 
  repeat 
   wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
 wend 
 wait(100)
UO.press(38)
while NOT UO.Hidden() 
  UO.DeleteJournal() 
  UO.UseSkill('Hiding') 
  repeat 
   wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
 wend 
 wait(100)
UO.press(38)
wait(1000)
while NOT UO.Hidden() 
  UO.DeleteJournal() 
  UO.UseSkill('Hiding') 
  repeat 
   wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
 wend 
 wait(100)
 until UO.Dead() 
end sub
Top
evil_Gremlin
Posts: 54
Joined: 2004-05-11 12:27:22
Contact:
Contact evil_Gremlin

Post by evil_Gremlin »

видно, что только учишся писать
твой скрипт , даже если его пистаь твоим методом, может занимать раз в 5 меньше
Каждый манчкин в старости мечтает иметь кресло-качалку ;)
Top
Ugrum.
Posts: 69
Joined: 2004-04-05 11:59:21
Location: RunUO

Post by Ugrum. »

в 9-10 :)
Top
Xabus
Posts: 117
Joined: 2004-05-18 02:24:25

Post by Xabus »

нк я же сказал! только учусь :lol:
Top
Hungerman
Posts: 1
Joined: 2004-06-22 18:45:05

Post by Hungerman »

Подсказку дать?
Проверку на хайд и процедуру хождения отдельными функциями запусти :).
Хотя функция звучит как-то некорректно, но что поделать так во врезке инжуктовой обозначено...
Top
MorbidAngel
Posts: 51
Joined: 2004-08-26 16:47:05

Post by MorbidAngel »

sub stels()
metka:
UO.Exec("useskill Hiding")
wait(6500)
metka1:
While UO.Hidden()
uo.press(40)
wait (100)
uo.press(40)
wait (100)
uo.press(40)
wait (100)
uo.press(38)
wait (100)
uo.press(38)
wait (100)
uo.press(38)
wait (100)
goto metka1
Wend
goto metka
end sub

На щет функций:
Если функций много и скрипт используется по долгу то помоему это его перегружает и вываливается ошибка.
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

MorbidAngel wrote:sub stels()
metka:
UO.Exec("useskill Hiding")
wait(6500)
metka1:
While UO.Hidden()
uo.press(40)
wait (100)
uo.press(40)
wait (100)
uo.press(40)
wait (100)
uo.press(38)
wait (100)
uo.press(38)
wait (100)
uo.press(38)
wait (100)
goto metka1
Wend
goto metka
end sub

На щет функций:
Если функций много и скрипт используется по долгу то помоему это его перегружает и вываливается ошибка.


У тебя здесь одна только проблема - переход по метке за пределы цикла while. Что в синтаксисе языка инжекта прямо запрещено. Тем более что тут это совершенно не нужно. Потому что данный переход полностью дублирует сам цикл.
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

Code: Select all

sub Hiding()
while not UO.dead
   for i = 0 to 3
     ToHide()
     uo.press(40) 
     CheckLag()     
   next
   for i = 0 to 3
     ToHide()
     uo.press(38) 
     CheckLag()     
   next
wend
end sub

sub ToHide()
while not UO.Hidden()
  UO.WarMode(0)
  UO.UseSkill('Hiding')
  repeat 
    wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR  UO.InJournal('preocopured') 
wend
end sub

CheckLag() - сам найдёшь
за правильность написания preocopured не отвечаю :)
Top
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:
Contact BETEPAH

Post by BETEPAH »

Sfagnum wrote:

Code: Select all

sub Hiding()
while not UO.dead
   for i = 0 to 3
     ToHide()
     uo.press(40) 
     CheckLag()     
   next
   for i = 0 to 3
     ToHide()
     uo.press(38) 
     CheckLag()     
   next
wend
end sub

sub ToHide()
while not UO.Hidden()
  UO.WarMode(0)
  UO.UseSkill('Hiding')
  repeat 
    wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR  UO.InJournal('preocopured') 
wend
end sub

CheckLag() - сам найдёшь
за правильность написания preocopured не отвечаю :)



Втавь скрипт хождения саваджа и скрипт станет таким

sub ToHide()
while not UO.Hidden()
UO.UseSkill('Hiding')
repeat
wait(200)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preocopured')
goto (0000,0000,'')
wend
end sub
Все просто.
BETEPAH ™
Top
Kazoo
Posts: 173
Joined: 2004-04-03 18:39:28
Contact:
Contact Kazoo

Post by Kazoo »

BETEPAH wrote:
Sfagnum wrote:

Code: Select all

sub Hiding()
while not UO.dead
   for i = 0 to 3
     ToHide()
     uo.press(40) 
     CheckLag()     
   next
   for i = 0 to 3
     ToHide()
     uo.press(38) 
     CheckLag()     
   next
wend
end sub

sub ToHide()
while not UO.Hidden()
  UO.WarMode(0)
  UO.UseSkill('Hiding')
  repeat 
    wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR  UO.InJournal('preocopured') 
wend
end sub

CheckLag() - сам найдёшь
за правильность написания preocopured не отвечаю :)



Втавь скрипт хождения саваджа и скрипт станет таким

sub ToHide()
while not UO.Hidden()
UO.UseSkill('Hiding')
repeat
wait(200)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preocopured')
goto (0000,0000,'')
wend
end sub


ветеран у тя там тока 1 кордината куда идти :) а нада хотяби 2 че он на 1 месте будет топтаца?

Code: Select all

sub ToHide()
goto (1000,0000,'')
while not UO.Hidden()
    UO.UseSkill('Hiding')
  repeat 
    wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR  UO.InJournal('preocopured') 
goto (2000,0000,'')
wend
11
Top
MorbidAngel
Posts: 51
Joined: 2004-08-26 16:47:05

Post by MorbidAngel »

Edred wrote:
MorbidAngel wrote:sub stels()
metka:
UO.Exec("useskill Hiding")
wait(6500)
metka1:
While UO.Hidden()
uo.press(40)
wait (100)
uo.press(40)
wait (100)
uo.press(40)
wait (100)
uo.press(38)
wait (100)
uo.press(38)
wait (100)
uo.press(38)
wait (100)
goto metka1
Wend
goto metka
end sub

На щет функций:
Если функций много и скрипт используется по долгу то помоему это его перегружает и вываливается ошибка.


У тебя здесь одна только проблема - переход по метке за пределы цикла while. Что в синтаксисе языка инжекта прямо запрещено. Тем более что тут это совершенно не нужно. Потому что данный переход полностью дублирует сам цикл.

Нет ошибки...... посмотри внимательнее
Top
MorbidAngel
Posts: 51
Joined: 2004-08-26 16:47:05

Post by MorbidAngel »

Kazoo wrote:
BETEPAH wrote:
Sfagnum wrote:

Code: Select all

sub Hiding()
while not UO.dead
   for i = 0 to 3
     ToHide()
     uo.press(40) 
     CheckLag()     
   next
   for i = 0 to 3
     ToHide()
     uo.press(38) 
     CheckLag()     
   next
wend
end sub

sub ToHide()
while not UO.Hidden()
  UO.WarMode(0)
  UO.UseSkill('Hiding')
  repeat 
    wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR  UO.InJournal('preocopured') 
wend
end sub

CheckLag() - сам найдёшь
за правильность написания preocopured не отвечаю :)



Втавь скрипт хождения саваджа и скрипт станет таким

sub ToHide()
while not UO.Hidden()
UO.UseSkill('Hiding')
repeat
wait(200)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preocopured')
goto (0000,0000,'')
wend
end sub


ветеран у тя там тока 1 кордината куда идти :) а нада хотяби 2 че он на 1 месте будет топтаца?

Code: Select all

sub ToHide()
goto (1000,0000,'')
while not UO.Hidden()
    UO.UseSkill('Hiding')
  repeat 
    wait(200) 
  until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR  UO.InJournal('preocopured') 
goto (2000,0000,'')
wend


Вы что помешались на огромных и сложных скриптах?? =)
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

MorbidAngel wrote:
Edred wrote:
MorbidAngel wrote:sub stels()
metka:
UO.Exec("useskill Hiding")
wait(6500)
metka1:
While UO.Hidden()
uo.press(40)
wait (100)
uo.press(40)
wait (100)
uo.press(40)
wait (100)
uo.press(38)
wait (100)
uo.press(38)
wait (100)
uo.press(38)
wait (100)
goto metka1
Wend
goto metka
end sub

На щет функций:
Если функций много и скрипт используется по долгу то помоему это его перегружает и вываливается ошибка.


У тебя здесь одна только проблема - переход по метке за пределы цикла while. Что в синтаксисе языка инжекта прямо запрещено. Тем более что тут это совершенно не нужно. Потому что данный переход полностью дублирует сам цикл.

Нет ошибки...... посмотри внимательнее


Смотрю:

Code: Select all

metka1:
While UO.Hidden() 
...
goto metka1
Wend


Переход на метку 1 из цикла наружу. Зачем он вообще нужен, этот переход, хоть убей не понимаю. Потому что сам по себе цикл while ... wend это тот же самый переход по метке только с условием.
Top
Post Reply

Return to “Scripting Ore”