Yoko

All sides of Injection
It is currently 2026-01-17 17:52:27

All times are UTC+02:00




Post new topic  Reply to topic  [ 13 posts ] 
Author Message
PostPosted: 2004-09-17 20:15:08 
Offline

Joined: 2004-05-18 02:24:25
Posts: 117
скриптик громосткий но я тока учусь их писать! такчто не браните сильно! скрипт под домик - типа сортир;) хидиться и ходит из угла в угол!
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


Top
   
 Post subject:
PostPosted: 2004-09-17 23:30:40 
Offline
User avatar

Joined: 2004-05-11 12:27:22
Posts: 54
видно, что только учишся писать
твой скрипт , даже если его пистаь твоим методом, может занимать раз в 5 меньше

_________________
Каждый манчкин в старости мечтает иметь кресло-качалку ;)


Top
   
 Post subject:
PostPosted: 2004-09-18 01:33:48 
Offline

Joined: 2004-04-05 11:59:21
Posts: 69
Location: RunUO
в 9-10 :)


Top
   
 Post subject:
PostPosted: 2004-09-18 08:58:08 
Offline

Joined: 2004-05-18 02:24:25
Posts: 117
нк я же сказал! только учусь :lol:


Top
   
 Post subject:
PostPosted: 2004-09-18 10:15:31 
Offline

Joined: 2004-06-22 18:45:05
Posts: 1
Подсказку дать?
Проверку на хайд и процедуру хождения отдельными функциями запусти :).
Хотя функция звучит как-то некорректно, но что поделать так во врезке инжуктовой обозначено...


Top
   
 Post subject:
PostPosted: 2004-09-21 00:34:38 
Offline

Joined: 2004-08-26 16:47:05
Posts: 51
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
   
 Post subject:
PostPosted: 2004-09-21 12:42:23 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
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
   
 Post subject:
PostPosted: 2004-09-21 12:58:14 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
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 не отвечаю :)


Top
   
 Post subject:
PostPosted: 2004-09-21 14:10:38 
Offline
Expert!
User avatar

Joined: 2004-05-31 09:31:51
Posts: 838
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

_________________
Все просто.
BETEPAH ™


Top
   
 Post subject:
PostPosted: 2004-09-22 07:05:34 
Offline
User avatar

Joined: 2004-04-03 18:39:28
Posts: 173
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

_________________
11


Top
   
 Post subject:
PostPosted: 2004-09-22 23:52:57 
Offline

Joined: 2004-08-26 16:47:05
Posts: 51
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
   
 Post subject:
PostPosted: 2004-09-22 23:54:50 
Offline

Joined: 2004-08-26 16:47:05
Posts: 51
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


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


Top
   
 Post subject:
PostPosted: 2004-09-23 16:18:55 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
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 это тот же самый переход по метке только с условием.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 13 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 14 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited