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

Yoko http://forum.yoko.com.ua/

Скрипт на хидинг и стелс на оском http://forum.yoko.com.ua/viewtopic.php?f=20&t=1401	Page 1 of 1

Author:

Xabus [ 2004-09-17 20:15:08 ]

Post subject:

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

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

Code:

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

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

Author:	Ugrum. [ 2004-09-18 01:33:48 ]
Post subject:
в 9-10

Author:	Xabus [ 2004-09-18 08:58:08 ]
Post subject:
нк я же сказал! только учусь

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

Author:	MorbidAngel [ 2004-09-21 00:34:38 ]
Post subject:
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 На щет функций: Если функций много и скрипт используется по долгу то помоему это его перегружает и вываливается ошибка.

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

Author:

Sfagnum [ 2004-09-21 12:58:14 ]

Post subject:

Code:

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 не отвечаю

Author:	BETEPAH [ 2004-09-21 14:10:38 ]
Post subject:
Sfagnum wrote: Code: 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

Author:	Kazoo [ 2004-09-22 07:05:34 ]
Post subject:
BETEPAH wrote: Sfagnum wrote: Code: 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: 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

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

Author:	MorbidAngel [ 2004-09-22 23:54:50 ]
Post subject:
Kazoo wrote: BETEPAH wrote: Sfagnum wrote: Code: 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: 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 Вы что помешались на огромных и сложных скриптах?? =)

Author:	Edred [ 2004-09-23 16:18:55 ]
Post subject:
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: metka1: While UO.Hidden() ... goto metka1 Wend Переход на метку 1 из цикла наружу. Зачем он вообще нужен, этот переход, хоть убей не понимаю. Потому что сам по себе цикл while ... wend это тот же самый переход по метке только с условием.

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/