Page 1 of 1

Спосите от каторги :)

Posted: 2008-12-20 17:17:05
by BATA
Вот скрипт на анти поролиз :) Вот у нас типы бегают и пишут You are frozen and can not move и чар пускает срелку :( Можете сделать чтоб от других игроков єто надпись игнорировалась ?

Code: Select all

sub AntiParalyze() 
uo.deletejournal() 
repeat 
if uo.injournal("You are frozen and can not move") then 
uo.cast('Magic Arrow','self') 
wait(2000) 
uo.deletejournal() 
endif 
wait(100) 
until false 
end sub

Posted: 2008-12-20 18:34:16
by Successful
;(

Posted: 2008-12-21 09:02:56
by Millerbeer

Code: Select all

if uo.injournal('You are frozen') and uo.journalserial(uo.injournal('You are frozen')-1)=='серийник серверных сообщений' then

Posted: 2008-12-21 22:42:06
by BATA
Офигеть !!! БОЛЬШОЕ СПОСИБО !!!
Тока как узнать'серийник серверных сообщений' :oops: :roll:

Posted: 2008-12-21 23:11:19
by Successful
BATA wrote:Офигеть !!! БОЛЬШОЕ СПОСИБО !!!
Тока как узнать'серийник серверных сообщений' :oops: :roll:
;(

узнаешь.

Code: Select all

if uo.injournal('You are frozen') then
uo.print(uo.journalserial(uo.injournal('You are frozen')))
end if
переписываешь.
вставляешь в скрипт миллера.

Posted: 2008-12-22 07:19:41
by Millerbeer
только надо всё таки от номера строки отнимать единицу, команда uo.injournal возвращает номер строки +1, т.е. выглядеть должно это дело так

Code: Select all

uo.print(uo.journalserial(uo.injournal('You are frozen')-1))
и кстати не факт, что там будет серийник серверных сообщений, там вполне может оказаться серийник твоего чара, а его узнать ваще просто, ,info на себя ткни и все дела.

Posted: 2008-12-22 18:08:53
by admir

Code: Select all

sub chparal()
  uo.print("Скрипт на парализ Запущен!")
  uo.print("Скрипт на парализ Запущен!")
  uo.print("Скрипт на парализ Запущен!")
  del("You are frozen") 
  repeat
	  if isSystemMsg("You are frozen") then
          del("You are frozen") 
 		  uo.cast('Magic Arrow','self')
	  	  wait(1500)
	  	  del("You are frozen") 
	  end if
    wait(100)
  until 0
end sub
функция проверки на системное сообщение

Code: Select all

Sub isSystemMsg(msg) ;AdmiR™
  if uo.JournalSerial(uo.InJournal(msg)-1) > '0x40000000' then
    return 1
  else 
    return 0
  end if
end sub
функция удаления сообщения из журнала

Code: Select all

Sub del(msg) 
while uo.injournal(msg) 
uo.setjournalline(uo.injournal(msg)-1,'') 
wend 
end sub 

Posted: 2008-12-23 00:28:12
by BATA
Ошибки во всех скриптах пишет

Posted: 2008-12-23 00:40:29
by BATA
Successful wrote:
BATA wrote:Офигеть !!! БОЛЬШОЕ СПОСИБО !!!
Тока как узнать'серийник серверных сообщений' :oops: :roll:
;(

узнаешь.

Code: Select all

if uo.injournal('You are frozen') then
uo.print(uo.journalserial(uo.injournal('You are frozen')))
end if
переписываешь.
вставляешь в скрипт миллера.
Вставляю непашит не реагирует :(

Posted: 2008-12-23 00:45:50
by BATA
Вот сделал. Правда почемуто не реаигрует :(

Code: Select all

sub AntiParal() 
uo.deletejournal() 
repeat 
if uo.injournal('You are frozen') and uo.journalserial(uo.injournal('You are frozen')-1)=='0x017A1040' then
uo.cast('Magic Arrow','self') 
wait(2000) 
uo.deletejournal() 
endif 
wait(100) 
until false 
end sub
Все проде нашел ошибку :) спс всем за сторание!