Отсчет

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
Terrible
Posts: 42
Joined: 2011-03-20 19:45:17

Отсчет

Post by Terrible »

Суть скрипта в следующем...На экране появляется надпись, скажем "Horse"....И только для тебя идет отчет 1,2,3,4,5, и т.д,ну скажем до 20и...возможен такой скрипт??
Ururu
Posts: 479
Joined: 2007-02-21 20:15:57

Re: Отсчет

Post by Ururu »

Возможен.
Примерно такие скрипты ставят на гостов - следилок.
Скрипт постоянно читает журнал.
Шард Антарес
Ururu
Terrible
Posts: 42
Joined: 2011-03-20 19:45:17

Re: Отсчет

Post by Terrible »

Ну а как из журнала исключить своего чара??и собственно поставить этот счетчик??
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: Отсчет

Post by Mirage »

Terrible wrote:Ну а как из журнала исключить своего чара??и собственно поставить этот счетчик??

uo.ignore('self')

Скрипты для сонара. Выбирай и редактируй как тебе нужно: /

Code: Select all

sub poisk()
var i
uo.ignore('0x0084CF3F'); если на скрипте человек то укажи его ID тогда он не будет себя искать.
DIM H[2]
H[1]='0x0190'
H[2]='0x0191'
UO.set('finddistance','3'); вместо 3 поставь 40-50 будет на весь экран штырить
while 1>0
for i=1 to 2
  UO.FindType(H[i],-1,'ground')
  If UO.FindCount() > 0 Then
Gong(1);проигрывает сигнал
  Wait( 300 )
else
     Wait( 300 )
     Endif
next
wend
end sub

sub cons()
var txt, Time, Space, i
Space=' '
uo.ignorereset()
uo.ignore('self')
uo.ignore('0x0084CF3F'); нпс
uo.hide('0x0084CF3F')
DIM H[2]
H[1]='0x0190'
H[2]='0x0191'
UO.set('finddistance','3')
while 1>0
for i=1 to 2
  UO.FindType(H[i],-1,'ground')
  If UO.FindCount() > 0 Then
Gong(1);проигрывает сигнал
  Wait( 300 )
else
wait(300)
     Endif
next
        If uo.InJournal(":") or uo.InJournal(">") or uo.InJournal("page") or uo.InJournal("GM") then
        txt=uo.LastMessage()
        UO.textprint(txt)
        uo.textopen()
        uo.DeleteJournal()
Gong(1);проигрывает сигнал
        end if
wend
end sub

sub Gong(times) ; play wav-file
   VAR i
   for i=1 to times
      UO.Exec("playwav D:\Games\Ultima\YokoInjection\ALARM"); тут ВНИМАТЕЛЬНО укажи путь к файлу БЕЗ расширения
      wait(1200) ; time to play sample at once
   next
end sub





Ур привет со старого Антареса из НТ :mrgreen:
Terrible
Posts: 42
Joined: 2011-03-20 19:45:17

Re: Отсчет

Post by Terrible »

Тут дело не в сигнале,а чтобы просто при виде надписи в журнале шел,только видный для тебя, отчет времени и все....как сделать сам отсчет??
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: Отсчет

Post by Mirage »

просто:

Code: Select all

sub main()
var i
for i=0 to 5
uo.print( str(i) )
     wait(1000)
next
endsub


красиво

Code: Select all

sub main()
var i
for i=0 to 5
uo.charprint('1069',i)
     wait(1000)
next
endsub


PS признаться для меня считывание с журнала какойто конкретной надписи - задача гораздо сложнее чем сосчитать от 0 до 5 или наоборот :roll:
Last edited by Mirage on 2011-03-26 13:28:38, edited 1 time in total.
Terrible
Posts: 42
Joined: 2011-03-20 19:45:17

Re: Отсчет

Post by Terrible »

не работает....скрипт запускается и ничего не происходит...
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: Отсчет

Post by Mirage »

происходит. Я опечатался немного :)
Исправил. Но понтовее 2 вариант.
Terrible
Posts: 42
Joined: 2011-03-20 19:45:17

Re: Отсчет

Post by Terrible »

uo.charprint('1069',i)
1.здесь ошибку выдает
2.и как это с журналом соединить??
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: Отсчет

Post by Mirage »

1) старая версия инжекта.
2)

Code: Select all

sub main()
var i
var msg ='Сюда фразу для проверки'
UO.DeleteJournal()
repeat
   wait( 300 )
until UO.InJournal( msg )
for i=0 to 5
uo.print( str(i) )
     wait(1000)
next
endsub
Terrible
Posts: 42
Joined: 2011-03-20 19:45:17

Re: Отсчет

Post by Terrible »

Всё работает,огромное спасибо......Респект!!!!
Post Reply