Yoko

All sides of Injection
https://yoko.uokit.com/

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

https://yoko.uokit.com/viewtopic.php?t=1401

Page 1 of 1

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

Posted: 2004-09-17 20:15:08
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

Posted: 2004-09-17 23:30:40
by evil_Gremlin
видно, что только учишся писать
твой скрипт , даже если его пистаь твоим методом, может занимать раз в 5 меньше

Posted: 2004-09-18 01:33:48
by Ugrum.
в 9-10 :)

Posted: 2004-09-18 08:58:08
by Xabus
нк я же сказал! только учусь :lol:

Posted: 2004-09-18 10:15:31
by Hungerman
Подсказку дать?
Проверку на хайд и процедуру хождения отдельными функциями запусти :).
Хотя функция звучит как-то некорректно, но что поделать так во врезке инжуктовой обозначено...

Posted: 2004-09-21 00:34:38
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

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

Posted: 2004-09-21 12:42:23
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. Что в синтаксисе языка инжекта прямо запрещено. Тем более что тут это совершенно не нужно. Потому что данный переход полностью дублирует сам цикл.

Posted: 2004-09-21 12:58:14
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 не отвечаю :)

Posted: 2004-09-21 14:10:38
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

Posted: 2004-09-22 07:05:34
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

Posted: 2004-09-22 23:52:57
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. Что в синтаксисе языка инжекта прямо запрещено. Тем более что тут это совершенно не нужно. Потому что данный переход полностью дублирует сам цикл.

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

Posted: 2004-09-22 23:54:50
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


Вы что помешались на огромных и сложных скриптах?? =)

Posted: 2004-09-23 16:18:55
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 это тот же самый переход по метке только с условием.
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited